新高中信息技術(shù)考試vb程序習(xí)題及答案

1、歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀并在窗體上打印出結(jié)果。60并在窗體上打印出結(jié)果。60公斤。第一套1、填空完成程序，使得當(dāng)單擊窗體后，Label 1上顯示100以內(nèi)(含100)偶數(shù)之和。Private Sub Foim_Click()Dim i As Integer定義變量 iDim s As Integer 定義變量s,用于存放100以內(nèi)(含100)偶數(shù)的和s = 0For i = 2 To 100 Step 2 s = s+iNext iLabel 1. Caption = Sti(s)End Sub2、，填空完成程序，使得當(dāng)在Textl中輸入圓的半徑后，單擊

2、“計算”按鈕，計算圓的周長，并在Text2中顯示出來。Private Sub Conunandl_Click()Const pi = 3.14定義符號常量Dim c As Smgle ，定義周長c為單精度型Dim i As Smgle，定義半徑為單精度型r = Val(textl.text)c = pi *2*rtext2.text = cEnd Sub第二套填空完成程序，計算s=l!十2!十3!十十8!的值Private Sub Fonn_Click(jDim s As Smgle1 s變量用于存放計算結(jié)果Dmi p As SmgleDmi i As Iiitegei，定義一個循環(huán)變量，給s

3、賦初值s =_0，給p賦初值P = 1For i = 1 To 8 p = p * i s =s+p Next i Punt Hs=n; s End Sub，填空完成程序，使得當(dāng)單擊窗體后，計算1十2十3十十N500的N的最小值，并在文本框Text 1中顯示出來。Private Sub Fonn_Click()Dim s As Integer ，變量s存放和Dun n As Liteger,為s賦初值s =2,為n賦初值n =0 Don = n + 1 s = s + n Loop While s ThenLabell.Caption = 超重!不能參賽！ ”ElseLabell.Captio

4、n = 合格,可以參賽! tvEnd if End Sub，填空完成程序，使得單擊窗體后，計算出1十2十3十十NV500的N的最大值，并在文本框Textl中顯示出來。Private Sub Fonn_Click()Dim s As Liteger ，變量s存放和Dun n As Liteger,為n賦初值n = 0,為s賦初值s = 0Do While s 500 n = n + 1 s =s+nLoopTextl.Text = Sti(n - 1) End Sub第四套，這是一個簡單的顯示評語程序，填空完成程 序，在文本框Textl中輸入一個數(shù)后，單擊 “評語”按鈕，在標(biāo)簽Labell顯示評

5、語。當(dāng)輸入一個小于60的數(shù)時，顯示“不及格當(dāng)輸入一個大于等于60且小于85的數(shù)時， 顯示良好;,當(dāng)輸入一個大于等于85的數(shù)時，顯示“優(yōu)秀nOPrivate Sub Conunand l_Click()Dim Cj As Single ，定義變量Cj,值由文本框Textl讀入Cj = Val( text 1.text)If Cj= 60 And Cj = 85 Then LabelLCaption = ”優(yōu)秀”End IfEnd Sub，某公司2005年的總產(chǎn)值為2000萬元，若總 產(chǎn)值以每年5%的速度增長，多少年后總產(chǎn) 值翻一倍？，填空完成程序，使得當(dāng)單擊窗體后，在窗體 上輸出問題答案。Pri

6、vate Sub Form_Click()Dim p As Single 1變量p保存年產(chǎn) 值Dun n As Integer *整型變量n為所求 年數(shù)P=2000 n = 0Do Wlule p 4000p = p *1.05n = n+1LoopPunt Hn=H; nEnd Sub第五套填空完成程序，使得當(dāng)單擊“計算7! ”按鈕 后，Textl顯不7!的值。Private Sub Conunand l_Click()Dim a As IntegerDim i As Integer a = 1Foi i = 1 To 7 Step 1a = a*iNext iTextl.Text = St

7、i(3)End Sub填空完成程序，編程計算1-1/2+1/3-1/4十.+1/99-1/100,單擊窗體后，在窗體上 顯小結(jié)果。Private Sub Foim_Click()Dim s As SingleDim i As Integer s =0Foi7i = 1 To 100 Step 1IfiMod20Thens = s + 1 / iElses = s-l/i End If一 Next iPrint ns=u; s End Sub 歡迎閱讀第六套，填空完成程序，編程計算1十1/2+1/3十1/4十1/99+1/100,單擊窗體后，在窗體上顯示結(jié)果。Private Sub Fonn_C

8、lick()Dim s As Smgle ，定義變量s為單精度型Dmi i As Iiitegei ，定義循環(huán)變量s = 0Fori = 1 To 100 Step 1s = s +1/1Next iPrint ns=H; sEnd Sub填空完成程序，使得當(dāng)單擊”計算1十2十3十十100”按鈕后，文本框Textl顯示1十2十3十十100的值。Private Sub Command l_Click()Dim a As IntegerDun i As Integer a =0FoH = 1 To 100 Step 1 a = a+jNext iTextl.Text = Str(4)End Sub

9、第七套，填空完成程序，使得單擊“顯示“按鈕后，隨機產(chǎn)生10個屬于區(qū)間0, 100)的自然數(shù)，并保存于數(shù)組a中。然后在窗體上顯示這10個數(shù)的平均值。，注：學(xué)生運算結(jié)果有可能跟樣圖中數(shù)值不一 致。 End Sub End Sub歡迎閱讀Private Sub Command l_ClickQDun a(9) As hitegerDun s As SingleDun i As Integer Me.Cls s = 0RandomizeFor i = 0 To 9_Step 1 a(i) = Int(Riid * 100) Pnnt a(i)Next iFor i = 0 To 9 s = s+a N

10、ext iPont ”這10個自然數(shù)的平均值=;s/ 10End Sub填空完成程序，左鍵單擊窗體時打印下面所 小的圖案。*Private Sub Form_Click()Dim i As LitegerDun j As IntegerFor i = 4_To 1 Step -1For j = 1 To i Step 1Pont *”；Next j pentNext iEnd Sub第八套填空完成程序，問：雞兔同籠，共有100條腿，40個頭，問雞有幾只，兔有幾只？單擊窗體后，在窗體上顯示結(jié)果。Private Sub Form_Click()Dun Ji As Integer Ji 變量表示雞的

11、個數(shù)Dim Tu As hiteger Tu變量表示兔的個數(shù)Dim Leg As Integer Leg 變量表示腿數(shù)Foi Ji = 1 To 40Tu = 40-ji，計算腿數(shù)Leg = ji*2 + Tu * 4，如果腿正好100只，則打印。If Leg = 100 ThenPrint ”雞* Ji; “只 J兔=;Tu;“只“End IfNext JiEnd Sub，填空完成程序，使得單擊“顯示“按鈕后，顯 示下面的圖形：Private Sub Command l_Click()Dim i As Integer 定義i為整型變量Dim j As Liteger ，定義j為整型變量Foi

12、 i = 1 To 6 Step 1For j = 1 To I_ Step一Print ,H ;Next jPrmtNext i歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀第九套填空完成程序，使得單擊“顯示“按鈕時，Textl Text2分別顯示變量x、y的值。Private Sub Conunand l_Click()Dim x, y As hitegei x = 10 y= 100 If x y Then，以下三條語句交換x,y的值t = Xx = y y = t End IfTextl.Text = Str(x)Text2.Text = Sti(y)End Sub填

13、空完成程序，使得單擊“顯示“按鈕后，在窗體上顯示如圖99乘法表。Private Sub Conunand l_Click()Dim i As IntegerDim j As IntegerFor i = 1 To 9 Step 1PnntHFor j = 1 To9Prmt i*jPrmt vbTab;Next j pent Next iEnd Sub第十套填空完成程序，使得在Textl中輸入一個數(shù)，單擊“判斷”按鈕后，判斷這個數(shù)是奇數(shù)還是偶數(shù)，并在Labell中顯示“奇數(shù)“或“偶數(shù)”出來。Private Sub Conunand l_Click()Dim a As SingleDim b A

14、s Single，從Textl中讀入這個數(shù)，并保存在變量a中a = Val(textl.text)b = a Mod 2Ifb = 0ThenLabell. Caption = 偶數(shù)”ElseLabell.Caption = 奇數(shù)”end ifEnd Sub，填空完成程序，使得單擊“顯示“按鈕后，隨機產(chǎn)生10個屬于區(qū)間0, 100)的自然數(shù)，并保存于數(shù)組a中，然后在窗體上顯示這10個數(shù)中的最大值。Private Sub Command l_Click()Dim a(9) As IntegerDun max As IntegerDun I As hitegeiMe.ClsPrintRandomi

15、zeFor i = 0 To 9 Step 1 a(i) = Int(Rnd * 100) Print a(i) Next imax = a(0)For i = 1 To 9If max a(i) Then max = a(i) End IfNext iPent ”這10個自然數(shù)中的最大值=;Str(3)End Sub填空完成程序:單擊“計算5!”按鈕后，Textl顯示5!的值。Private Sub Command l_Click()Dim a As IntegerDim i As Integer歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀歡迎閱讀 a = 1 For i = 2 To 5 a = a*

16、iNext _iText 1.Text = Sti(a)End Sub第十四套，某公司每年的銷售收入均比前一年增長10 個百分點，按此速度，需要多少年可以實現(xiàn)銷售收入翻兩番(即4倍)的目標(biāo)。境空完成程序，使得當(dāng)單擊窗體后，在窗體 上輸出問題答案。Private Sub Form_Click()Dun i As SingleDun s As Liteger ，設(shè)s為所求年數(shù)，定義為整型，結(jié)果由窗體輸出1=1 s = 0 Do While i=4 i =s=s+lLoopPont ns=n; sEnd Sub農(nóng)橫線處添加代碼實現(xiàn)單擊該按鈕，窗體的背景色由原來的默認色變?yōu)榧t色(紅：&HFF&)Pri

17、vate Sub Command l_Click() backcoloi- &HFF&End Sub第十五套，已知一元二次方程的二次項系數(shù)、一次項系 數(shù)、常數(shù)項分別為a、b、c,其中a不等于0o，填空完成程序，求方程的根。要求：如果方 程無實數(shù)根，則輸出“無實數(shù)根”，否則輸出 兩個實數(shù)根。Private Sub Conunand l_Click() Dim a, b, c, d As Single Dim x 1, x2 As Single a = Val(Textl.Text) b = Val(Text2.Text) c = Val(Text3.Text)If a 0 Then ，判斷a是否

18、等于0d =bA2-4*a*cIfd= 0 Then判斷是否有實數(shù)根xl = (-b + Sqi(d) / (2 * a) x2 = (-b - Sqr(d) / (2 * a) Label 1. Caption = Str(xl) Label2. Caption = Str(x2)ElseLabel3.Caption = 無實數(shù)根”End If End If End Sub 填空完成程序，打印如圖所示的圖案。 * * I * * 1*Private Sub Foim_Click()Dmi i As Iiitegei ，定義i為整型變量Dmij As Iiitegei ，定義J為整型變量 For i = -2 To 2Foi j = 1 To 3 - abs(i) Prmt *”；Next jPrmt 換行Next i End Sub歡迎閱讀第十八套填空完成程序，計算s=l!十2!十3!十十8!的值并在窗體上打印出結(jié)果。Private Sub Form_Click()Dim s As Single 1 s變量用于存放計算結(jié)果Dim p As Singl