VB學測操作題

1、（1）填空完成程序，使得當單擊窗體后，Label1上顯示100以內（含100）偶數(shù)之和。Private Sub Form_Click() Dim i As Integer '定義變量i Dim s As Integer '定義變量s，用于存放100以內（含100）偶數(shù)的和 s = 0 For i = 2 To 100 Step 2 s = s+i Next i Label1.Caption = Str(s)End Sub（2）完成程序，使得在Text1中輸入圓的半徑后，單擊"計算"按鈕，計算圓的周長，在Text2中顯示出來。Private Sub Comma

2、nd1_Click() Const pi = 3.14 '定義符號常量 Dim c As Single '定義周長c為單精度型 Dim r As Single '定義半徑r為單精度型 r = Val( text1.text ) c = pi * 2*r text2.text = cEnd Sub（3）填空完成程序，計算s=1!+2!+3!+8!的值并在窗體上打印出結果。Private Sub Form_Click() Dim s As Single ' s變量用于存放計算結果 Dim p As Single Dim i As Integer '定義一個循

3、環(huán)變量 '給s賦初值 s = 0 '給p賦初值 p = 1 For i = 1 To 8 p = p * i s = s+p Next i Print "s=" sEnd Sub（4）完成程序，使得當單擊窗體后，計算1+2+3+N>500的N的最小值，并在文本框Text1中顯示出來。Private Sub Form_Click() Dim s As Integer '變量s存放和 Dim n As Integer '為s賦初值 s = 0 '為n賦初值 n = 0 Do n = n + 1 s = s + n Loop Whil

4、e s < 500 Text1.Text = Str(n)End Sub（5）舉重比賽中，60公斤級選手體重不能超過60公斤。填空完成程序，使得在文本Text1中輸入一個大于60的數(shù)時，標簽Label1顯示"超重！不能參賽！"；當輸入一個小于等于60的數(shù)時，標簽Label1顯示"合格，可以參賽！"。Private Sub Command1_Click()Dim t As Single t = Val( text1.text ) If t>60 Then Label1.Caption = "超重！不能參賽！" Else La

5、bel1.Caption = "合格，可以參賽！" Endif End Sub（6）填空完成程序，使得單擊窗體后，計算出1+2+3+N<500的N的最大值，并在文本框Text1中顯示出來。Private Sub Form_Click() Dim s As Integer '變量s存放和 Dim n As Integer '為n賦初值 n = 0 '為s賦初值 s = 0 Do While s < 500 n = n + 1 s = s+n Loop Text1.Text = Str(n - 1)End Sub（7）這是一個顯示評語程序，在

6、文本框Text1中輸入一個數(shù)后，單擊"評語"按鈕，在標簽Label1顯示評語。當輸入一個小于60的數(shù)時，顯示"不及格"；當輸入一個大于等于60且小于85的數(shù)時，顯示"良好"；當輸入一個大于等于85的數(shù)時，顯示"優(yōu)秀"。Private Sub Command1_Click() Dim Cj As Single '定義變量Cj，值由文本框Text1讀入 Cj = Val( text1.text ) If Cj < 60 Then Label1.Caption = "不及格" End I

7、f If Cj >= 60 And Cj < 85 Then Label1.Caption = "良好" End If If Cj >= 85 Then Label1.Caption = "優(yōu)秀" End IfEnd Sub（8）某公司2005年的總產(chǎn)值為2000萬元，若總產(chǎn)值以每年5%的速度增長，多少年后總產(chǎn)值翻一倍？填空完成程序，使得當單擊窗體后，在窗體上輸出問題答案。Private Sub Form_Click() Dim p As Single ' 變量p保存年產(chǎn)值 Dim n As Integer ' 整型變量

8、n為所求年數(shù) P=2000 n = 0 Do While p < 4000 p = p * ( 1+0.05 ) n = n+1 Loop Print "n=" nEnd Sub（9）填空完成程序，使得當單擊"計算7！"按鈕后，Text1顯示7！的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 For i = 1 To 7 Step 1 a = a*i Next i Text1.Text = Str( a ) End Sub（10）填空完成程序，編程計算1

9、-1/2+1/3-1/4+.+1/99-1/100，單擊窗體后，在窗體上顯示結果。Private Sub Form_Click() Dim s As Single Dim i As Integer s = 0 For i = 1 To 100 Step 1 If i Mod 2 <> 0 Then s = s + 1 / i Else s = s - 1 / i End If Next i Print "s=" sEnd Sub（11）填空完成程序，編程計算1+1/2+1/3+1/4.+1/99+1/100，單擊窗體后，在窗體上顯示結果。Private Sub

10、Form_Click() Dim s As Single '定義變量s為單精度型 Dim i As Integer '定義循環(huán)變量 s = 0 For i = 1 To 100 Step 1 s = s + 1/i Next i Print "s=" sEnd Sub（12）填空完成程序，使得單擊"顯示"按鈕后，隨機產(chǎn)生10個屬于區(qū)間0，100)的自然數(shù)，并保存于數(shù)組a中。然后在窗體上顯示這10個數(shù)的平均值。Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single D

11、im i As Integer Me.Cls s = 0 Randomize For i = 0 To 9 Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = s+a(i) Next i Print "這10個自然數(shù)的平均值=" s / 10End Sub（13）填空完成程序，使得當單擊"計算1+2+3+100"按鈕后，文本框Text1顯示1+2+3+100的值。Private Sub Command1_Click() Dim a As Integer Dim i As In

12、teger a = 0 For i = 1 To 100 Step 1 a = a+i Next i Text1.Text = Str( a )End Sub（14）填空完成程序，左鍵單擊窗體時打印下面所示的圖案。' *' *' *' * Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 4 To 1 Step -1 For j = 1 To i Step 1 Print "*" Next j print Next iEnd Sub（15）填空完成程序，問：雞

13、兔同籠，共有100條腿，40個頭，問雞有幾只，兔有幾只?單擊窗體后，在窗體上顯示結果。Private Sub Form_Click() Dim Ji As Integer 'Ji變量表示雞的個數(shù) Dim Tu As Integer 'Tu變量表示兔的個數(shù) Dim Leg As Integer 'Leg變量表示腿數(shù) For Ji = 1 To 40 Tu = 40-ji '計算腿數(shù) Leg = Ji*2 + Tu * 4 '如果腿正好100只，則打印。 If Leg = 100 Then Print "雞=" Ji; "只&q

14、uot;, "兔=" Tu; "只" End If Next JiEnd Sub（16）完成程序，單擊"顯示"按鈕，顯示下面的圖形：''''''Private Sub Command1_Click() Dim i As Integer '定義i為整型變量 Dim j As Integer '定義j為整型變量 For i = 1 To 6 Step 1 For j = 1 To i Step 1 Print "" Next j Print Next iE

15、nd Sub（17）填空完成程序，使得單擊"顯示"按鈕時，Text1、Text2分別顯示變量x、y的值。Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x < y Then '以下三條語句交換x,y的值 t = x x = y y = t End If Text1.Text = Str(x) Text2.Text = Str(y)End Sub（18）在橫線處添加代碼實現(xiàn)單擊該按鈕，窗體的背景色由原來的默認色變?yōu)榧t色(紅：&HFF&)Private Sub C

16、ommand1_Click() Form1.backcolor=&HFF&End Sub（19）填空完成程序，使得在Text1中輸入一個數(shù)，單擊"判斷"按鈕后，判斷這個數(shù)是奇數(shù)還是偶數(shù)，并在Label1中顯示"奇數(shù)"或"偶數(shù)"出來。Private Sub Command1_Click() Dim a As Single Dim b As Single '從Text1中讀入這個數(shù),并保存在變量a中 a = Val( text1.text ) b = a Mod 2 If b = 0 Then Label1.Cap

17、tion = "偶數(shù)" Else Label1.Caption = "奇數(shù)" Endif End Sub（20）填空完成程序，使得單擊"顯示"按鈕后，隨機產(chǎn)生10個屬于區(qū)間0，100）的自然數(shù)，并保存于數(shù)組a中，然后在窗體上顯示這10個數(shù)中的最大值。Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer Me.Cls Print Randomize For i = 0 To 9 Step 1 a(i) = Int(Rnd

18、* 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max < a(i) Then max = a(i) End If Next i Print "這10個自然數(shù)中的最大值=" Str( max )End Sub（21）完成程序:單擊"計算5!"按鈕后，Text1顯示5!的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 For i = 2 To 5 a = a*i Next _i_ Text1.Tex

19、t = Str(a)End Sub（22）某公司每年的銷售收入均比前一年增長10個百分點，按此速度，需要多少年可以實現(xiàn)銷售收入翻兩番（即4倍）的目標。填空完成程序，使得當單擊窗體后，在窗體上輸出問題答案。Private Sub Form_Click() Dim i As Single Dim s As Integer '設s為所求年數(shù),定義為整型,結果由窗體輸出 i = 1 s = 0 Do While i<4 i = i*1.1 s=s+1 Loop Print "s=" sEnd Sub（23）已知一元二次方程的二次項系數(shù)、一次項系數(shù)、常數(shù)項分別為a、b、

20、c，其中a不等于0。填空完成程序，求方程的根。要求：如果方程無實數(shù)根，則輸出"無實數(shù)根"，否則輸出兩個實數(shù)根。Private Sub Command1_Click() Dim a, b, c, d As Single Dim x1, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a <> 0 Then '判斷a是否等于0 d = b*b-4*a*c If d >= 0 Then '判斷是否有實數(shù)根 x1 = (-b + Sqr(d) /

21、 (2 * a) x2 = (-b - Sqr(d) / (2 * a) Label1.Caption = Str(x1) Label2.Caption = Str(x2) Else Label3.Caption = "無實數(shù)根" End If End IfEnd Sub（24）完善下列程序，使得該程序能夠實現(xiàn)在文本框1中輸入一個三位正整數(shù)，在文本框2中輸出這個3位數(shù)的各位數(shù)的和。a =Val(Text1.Text)s = 0For i = 1 To 3 s = s + a mod 10 a = a10Next iText2.Text = Str(s)（25）填空完成程序，

22、打印如圖所示的圖案。'*'*'*'*'*Private Sub Form_Click()Dim i As Integer '定義i為整型變量Dim j As Integer '定義j為整型變量For i = -2 To 2 For j = 1 To 3 - abs(i) Print "*" Next j Print '換行Next i End Sub（26）請完善下面的程序段，使程序運行后能夠顯示如下圖所示的數(shù)字金字塔。Dim i As Integer, j As IntegerFor j = 1 To 5 P

23、rint Tab(10 - j); For i = 1 To j Print Str(i); Next i PrintNext j（27）在窗體上畫出如圖兩條相互垂直的線段，其中，線段a一端的坐標是（600，1300），長度為1600，b是a 的中垂線，長度為1000 (提供的樣圖與程序畫出的圖形可能不完全相同)。Private Sub Command1_Click() Line ( 600 , 1300 )-(2200, 1300) Line (1400, 300)-( 1400 , 1300)End Sub（28）填空完成程序，求 |X*X+1(X<=0) y=| |X*X-x+1

24、(X>0)的值。（x的值在程序中調用InputBox函數(shù)，在彈出的標準輸入對話框中輸入）Private Sub Form_Click() Dim x As Single '定義x為為單精度型變量,由標準輸入對話框輸入 Dim y As Single '定義y為單精度型變量,值由窗體顯示 x = val (InputBox("請輸入變量x") If x <= 0 Then y= x*x+1 Else y=x*x-x+1 End If Print "y=" yEnd Sub（29）編程計算s=1*2+2*3+.+n*(n+1)Pr

25、ivate Sub Form_Click() Dim s As Single 定義變量s為單精度型 Dim i As Integer '定義變量 s = 0 For i = 1 To 10 s = s + i * (i + 1) Next i Print "s=" sEnd Sub（30）求10000以內的最大質數(shù)Private Sub Form_Click()Dim k As IntegerDim i As IntegerFor k = 10000 To 2 Step -1 For i = 2 To Int(Sqr(k) If k Mod i = 0 Then E

26、xit For End If Next i If i > Int(Sqr(k) Then Print k Exit For End IfNext kEnd Sub（31）當運行程序后，在標簽中顯示當前時間的數(shù)字時鐘。Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_timer() Label1.Caption = TimeEnd Sub（32）輸入10個數(shù)，存放在數(shù)組中，并按輸入的逆序輸出在窗體上。Private Sub Command1_Click(

27、) Dim s(9) As Single For i = 0 To 9 s(i) = Val(InputBox("請輸入一個數(shù)") Next i For i = 9 To 0 Step -1 Print s(i) Next iEnd Sub（33）編寫遞歸函數(shù)求5！的值Public Function s(n As Integer) As LongIf n = 0 Thens = 1Elses = n * s(n - 1)End IfEnd FunctionPrivate Sub form_Click()Print "s(5)=" s(5)End Sub（

28、34）用遞歸法求斐波那契數(shù)列1,1,2,3,5,8，第10項的值。Public Function Fib(n As Integer) As Integer If (n = 1) Or (n = 2) Then Fib = 1 Else Fib = Fib(n - 1) + Fib(n - 2) End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fib(10) Print "S=" & CStr(S)End Sub（35）在Text1中輸入一個代表秒數(shù)的整數(shù)后，單擊“計算”按鈕后，在

29、Llabel1、Label2、Llabel3、中顯示對應的小時、分鐘和秒數(shù)。如在Text1中輸入"3672"，Label1、Label2、Label3中分別顯示"1"、"1"、"12"，即1小時1分12秒。Private Sub Command1_Click() Dim h, m, s, ss As Integer ss = Val(Text1.Text) h = ss 3600 m = (ss - h * 3600) 60 s = (ss - h * 3600) Mod 60 Label1.Caption = C

30、Str(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s)End Sub（36）用窮舉法找出所有的水仙花數(shù)。水仙花數(shù)是指一類三位數(shù)，其各個數(shù)位上數(shù)字的立方之和為該數(shù)。Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i Nex

31、t iEnd Sub（37）將數(shù)字進行加密，對應關系如下：明文：0123456789 密文：9876543210 完善程序實現(xiàn)在文本框text1中輸入明文，在文本框text2中輸出密文。Private Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = "" For i = 1 To Len(Text1.Text) temp1 = Mid(x, i, 1) temp2 = 9 - t

32、emp1 y = y + temp2 Next i Text2.Text = yEnd Sub（38）從鍵盤上輸入一個三位數(shù)，然后將它反向輸出。Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer a = Val(Text1.Text) bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 b = g * 100 + shi * 10 + bai Text2.Text = CStr

33、(b)End Sub（39）單擊"顯示"按鈕后，在窗體上顯示如圖99乘法表。Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 9 Step 1 Print " " For j = 1 To 9 Print i * j; Print vbTab; Next j Print Next iEnd Sub（40）猴子吃桃，每天吃當天桃子的一半多一個，第十天只有一個，計算共有多少個Private Sub Form_Click() Dim i As Integer

34、'定義天數(shù)變量Dim s As Integer s = 1 For i = 1 To 9 s = (s + 1) * 2 Next i Print "s=" sEnd Sub（41）給出三角形的三邊邊長a,b,c,輸出三角形面積。三角形面積公式：s=,其中q=(a+b+c)/2。Private Sub Command1_Click() Dim s As Single Dim q As Single Dim a As Single Dim b As Single Dim c As Single a = Val(InputBox("請輸入邊長a的值："

35、;) b = Val(InputBox("請輸入邊長b的值：") c = Val(InputBox("請輸入邊長c的值：") q = (a + b + c) / 2 s = Sqr(q * (q - a) * (q - b) * (q - c) Print sEnd Sub（42）輸入S1,V1,V2,輸出李明家與學校之間距離S2。Private Sub Command1_Click() Dim S1 As Single, S2 As Single Dim V1 As Single, V2 As Single Dim T As Single S1 = V

36、al(InputBox("請輸入王曉珊家離學校的距離：") V1 = Val(InputBox("請輸入王曉珊步行速度：") V2 = Val(InputBox("請輸入李明步行速度：") T = S1 / V1 S2 = V2 * T Print S2End Sub（43）一條長度為L的鐵絲，制作成一個面積最大的矩形框。輸入鐵絲的長度L,輸出矩形面積的最大值。Private Sub Command1_Click() Dim L As Integer Dim chang As Integer Dim kuai As Integer D

37、im s As Integer Dim smax As Integer smax = 0 L = InputBox("請輸入一條鐵絲的長度：") For chang = 1 To L 2 For kuai = 1 To L 2 - chang s = chang * kuai If s > smax Then smax = s End If Next kuai Next chang Print smaxEnd Sub（44）小球從高處自由下落，每次彈起的高度是下落高度的70%，當小球彈起的高度不足原高度的千分之一時，小球停止跳動。輸入小球起始高度HOME后，計算輸出小

38、球在整個彈跳中所經(jīng)歷的總路程S。Private Sub Command1_Click() Dim H As Single, L As Single Dim S As Single, Home As Single Home = Val(InputBox("請輸入一個起始高度：") H = Home S = 0 Do L = 0.7 * H S = S + H + L H = L Loop While L >= Home / 1000 Print SEnd Sub（45）用遞歸法求3！+5！+7！的值。Public Function Fac(a As Integer) A

39、s IntegerIf a = 1 Then Fac = 1Else Fac = a * Fac(a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac(5) + Fac(7) Print "S=" & CStr(S)End Sub（46）用選擇排序法將數(shù)組a中的10個整數(shù)按升序排列。Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1

40、000) Next i For i = 1 To 10 For j = i+1 to 10 If a(i) > a(j) Then a(0) = a(i) a(i) = a(j) a(j)=a(0) End If Next j Next i For i = 1 To 10 Print CStr(a(i) Next iEnd Sub（47）用遞歸法求1+2+3+100的值。Public Function S(n As Integer) As Integer If n = 1 Then S = 1 Else S = n + S(n - 1) End IfEnd FunctionPrivate

41、 Sub Command1_Click() Dim Sum As Integer Sum = S(100) Print "Sum=" & CStr(Sum)End Sub（48）計算22+42+62+N<1500的最大值。Private Sub Form_Click() Dim s As Integer Dim N As Integer N = 22 s = 0 Do s = s + N N = N + 20 Loop Until s > 1500 Print "N=" & CStr(N - 40)End Sub（49）判斷文

42、本框TEXT1中輸入的數(shù)據(jù)，如果該數(shù)據(jù)滿足條件；除以3余2，除以5余3，除以7余4，則輸出在窗體上。Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 Then If x Mod 5 = 3 Then If x Mod 7 = 4 Then Print x End If End If End IfEnd Sub（50）假設有一個5位數(shù)密碼，只記得密碼為678，其中百位和十位的數(shù)字記不清了，但知道該數(shù)據(jù)能被78整除，也能被67整除。Private Sub Command1_Click() Dim x As Long Fo

43、r x = 67008 To 67998 Step 10 If (x Mod 67 = 0) And (x Mod 78 = 0) Then Print x End If Next xEnd Sub（51）隨機生成100個整數(shù)，統(tǒng)計偶數(shù)的個數(shù)。Dim a(100) As IntegerPrivate Sub Command1_Click() Dim total As Integer total = 0 For i = 1 To 100 If a(i) Mod 2 = 0 Then total = total + 1 End If Next i Print CStr(total)End SubP

44、rivate Sub Form_Load() Randomize For i = 1 To 100 a(i) = Int(Rnd * 1000) Next iEnd Sub（52）從鍵盤上輸入一個三位數(shù)，然后將它反向輸出。例如輸入"123"，輸出結果為"321"。Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer a = Val(Text1.Text) bai = a 100 shi

45、= (a - bai * 100) 10 g = a Mod 10 b = g * 100 + shi * 10 + bai Text2.Text = CStr(b)End Sub（53）將一張100元面值的人民幣換成5元、1元、5角面值的人民幣，要求換成的零錢共100張，問各多少張，輸出每種可能的組合。Private Sub Command1_Click() Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To 94 Wujiao = 1

46、00 - Wuyuan - Yiyuan If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" & Yiyuan & ",Wujiao=" & Wujiao End If Next Yiyuan Next WuyuanEnd Sub（54）在三個文本框中輸入一元二次方程的三個系數(shù)后，單擊命令按鈕，求出該方程的解。Private Sub Command1_Click()

47、Dim a, b, c, p As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) p = b * b - 4 * a * c If p >= 0 Then X1 = (-b + Sqr(p) / (2 * a) X2 = (-b - Sqr(p) / (2 * a) Print "X1=" X1 Print "X2=" X2 Else Print "該方程無實數(shù)根" End IfEnd Sub（55）輸入一個正整數(shù)到文本框text1中，如果是

48、質數(shù)，就輸出”yes”,否則輸出”no”.Private Sub Command1_Click() Dim n, i As Long Dim yes As Boolean Let n = Val(Text1.Text) Let yes = True For i = 2 To n 2 If n Mod i = 0 Then Let yes = False End If Next i If yes Then Let Text2.Text = "yes" Else Let Text2.Text = "no" End IfEnd Sub（56）在Text1文本框

49、中輸入一個年號，判斷它是否是閏年，并輸出判斷結果"是閏年"或"不是閏年"。判斷閏年的算法是：如果此年號能被400除盡，則它是閏年，否則如果它能被4整除而不能被100整除，則它是閏年，否則它不是閏年。Private Sub Command1_Click() Dim year As Integer year = Val(InputBox("請輸入年號:") If (year Mod 4 = 0) And (year Mod 100 <> 0) Or (year Mod 400 = 0) Then Print "是閏年" Else Print "不是閏年" End IfEnd Sub（57）在文本框text1、text2、text3中輸入3根小木棒的長度(假設都是整數(shù))，判斷能否用它們搭成一個三角形，并把結果輸出到文本框text4中。Private Sub Command1_