1、Vb專項練習第一套題目1、打開“考生文件夾96工程1.vbp”，完善程序并保存。實現功能：假設有一個5位數密碼。只記得密碼為678，其中百位和十位的數字記不清了，但知道該密碼能夠被78整除，也能被67整除。請完善算法幫忙找出這個密碼。 67008 x Next x''請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() Dim x As Long For x = To 67998 Step 10 If (x Mod 67 = 0) And (x Mod 78 = 0) Then Print End If En

2、d Sub2、“考生文件夾51工程1.vbp”是采用“窮舉法”求出所有水仙花數的程序，請完善程序并保存。說明：若一個三位數abc，滿足：abc=a3+b3+c3，則稱abc為水仙花數。如三位數153滿足：13+53+33=1+125+27=153，則153是水仙花數。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 999 i mod 10 end ifPrivate Sub Command1_Click() Dim i, a, b As Integer For i = 100 To a = i 100 b = (i - a * 100) 10 c = If a *

3、 a * a + b * b * b + c * c * c = i Then Print CStr(i) Next iEnd Sub3、打開“考生文件夾12工程1.vbp”，完善程序并保存。實現功能：在Text1中輸入一個代表秒數的整數后，單擊“計算”按鈕后，在Label1、Label2、Label3中顯示對應的小時、分鐘和秒數。如在Text1中輸入“3672”，Label1、Label2、Label3中分別顯示“1”、“1”、“12”，即1小時1分12秒。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 text1.text ss3600 60Private S

4、ub Command1_Click() Dim h, m, s, ss As Integer ss = Val() h = m = (ss - h * 3600) 60 s = (ss - h * 3600) Mod Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s)End Sub4、打開“考生文件夾50工程1.vbp”，完善程序并保存。實現功能：在文本框text1、text2、text3中輸入3根小木棒的長度(假設都是整數)，判斷能否用它們搭成一個三角形，并把結果輸出到文本框text4中。操作要

5、求：（1）在窗體中加載“CommandButton”控件，命名為“Command1”并設置該控件“Caption”屬性值為“判斷”；（2）完善程序，執行command1_click事件，判斷出結果，如果能搭成三角形則在文本框text4中輸出“OK”，否則輸出“NO”。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 integer end ifPrivate Sub Command1_Click() Dim a, b, c As Let a = Val(Text1.Text) Let b = Val(Text2.Text) Let c = Val(Text3.Tex

6、t) If (a + b > c) And (a + c > b) And (b + c > a) Then Let Text4.Text = "OK" Else Let Text4.Text = "NO" End Sub5、打開“考生文件夾40工程1.vbp”，完善程序并保存。實現功能：將一張100元面值的人民幣換成若干5元、1元、5角面值的人民幣，但要求100元換成的零錢共100張，且要求每種面值不少于1張，問5元、1元、5角各多少張，請輸出每種可能的組合。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善

7、Private Sub Command1_Click() Dim Wuyuan As Integer 100 yiyuan end if Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To Wujiao = 100 - Wuyuan - If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" &

8、 Yiyuan & ",Wujiao=" & Wujiao Next Yiyuan Next Wuyuan End SubVb專項練習第二套1、打開“考生文件夾716”文件夾中的文件：“工程1.vbp”進行以下操作后并保存。某同學欲設計一個“水電費管理系統”，其功能如下：水按每噸4元收取，電按每度0.5元收取，輸入用水量和用電量，輸出應付款。請打開工程1.vbp文件，按如下要求完成下列操作。（1）請在窗體中添加兩個控件，使程序運行時，用其輸入耗水量和耗電量。（2）請把下列代碼補充完整 Text1.text Text2.text 4*a+0.5*b sPriv

9、ate Sub Command1_Click()Dim a As Single, b As Single, s As Singlea = Val()b = Val()s = Label4.Caption = Str() + "元"End Sub2、打開“考生文件夾723”文件夾中的文件：“工程1.vbp” 進行以下操作后并保存。中國郵政的EMS國際快遞業務：中國寄往澳大利亞的快遞收費標準是：首個0.5公斤收費210元，其余的重量按55元/千克計算，（總重不足0.5千克按210元收費）下面是自動計算寄費的程序，請完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）'

10、;中國郵政的EMS國際快遞業務：中國寄往澳大利亞的快遞收費標準是：'首個0.5公斤收費210元，其余的重量按55元/每千克計算，（總重不足'0.5千克按210元收費）下面是自動計算寄費的程序，請你完善程序。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() x end if text2.text Dim x As Single, y As Single y = 0 = Val(Text1.Text) If x > 0.5 Then y = 210 + (x - 0.5) * 55 Else

11、y = 210 = Str(y)End Sub3、打開“考生文件夾91工程1.vbp”，完善程序并保存。實現功能：隨機生成100個整數，統計偶數的個數。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Dim a(100) As Integer total=0 total=total+1 a(i)Private Sub Command1_Click() Dim total As Integer For i = 1 To 100 If a(i) Mod 2 = 0 Then End If Next i Print CStr(total)End SubPrivate Su

12、b Form_Load() Randomize For i = 1 To 100 = Int(Rnd * 1000) Next iEnd Sub4、打開文件“考生文件夾725工程1.vbp”， 進行以下操作后保存。這是打印九九乘法表的程序，請你完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）'這是打印乘法九九表的程序，請完善程序。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Form_click() 9 i next iDim i As Integer, j As IntegerFor i = 1 To For j = 1

13、To Print Tab(j - 1) * 12);Print j; "*" i; "=" i * j;Next jPrintEnd Sub5、打開“考生文件夾4工程1.vbp”，完善程序并保存。實現功能：用窮舉法找出所有的3位水仙花數的程序并保存。3位水仙花數是指一個三位數，其各個數位上的數字之立方和為該數。例如：153=13+53+33。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Inte

14、ger, c As Integer 100 100 next i For i = 100 To 999 a = i b = (i - a * ) 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i End SubVb專項練習第三套1、打開“考生文件夾731”文件夾中的文件：“工程1.vbp”進行以下操作后并保存。本題是青蛙躍井問題：井底蛙欲沿濕滑井壁上躍至地面，若井深h尺，蛙上躍3尺下滑1尺，請給出井深h值，計算蛙上躍次數n。請你完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）'本題是青蛙躍井問題：井底蛙欲沿濕滑井壁'

15、上躍至地面，若井深h尺，蛙上躍3尺下滑1尺，'請給出井深h值，計算蛙上躍次數n。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click()Dim h As Single, n As Integer text1.text 1 nh = Val()If h > 3 Then If h Mod 2 = 0 Then n = h / 2 Else n = (h - 1) / 2 End IfElse n = End IfText2.Text = End Sub2、打開“考生文件夾729”文件夾中的文件：“工程1.v

16、bp”進行以下操作后并保存。運行程序能夠顯示數字金字塔，請完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）'運行程序能夠顯示數字金字塔，請完善程序。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 i print Print Tab(10 - i); For j = 1 To Print Str(i); Next j Next iEnd Sub3、打開“考生文件夾733”文件夾中的文件：“工程1.vbp”進行以下操作

17、后并保存。本題是在文本框Text1中輸入一位十六進制數碼（若是字母要大寫），運行程序后能譯出它表示的十進制數的程序。請你完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）'本題是在text1中輸入一位十六進制數碼（若是字母要大寫），'運行程序后能譯出它表示的十進制數的程序。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() text1.text end select m Dim m As String m = Select Case m Case "A" m = &quo

18、t;10" Case "B" m = "11" Case "C" m = "12" Case "D" m = "13" Case "E" m = "14" Case "F" m = "15" Text2.Text = End Sub4、打開“考生文件夾732”文件夾中的文件：“工程1.vbp”進行以下操作后并保存。本題是從字符串中找出所有大寫字母，并把找出的大寫字母顯示在text2中。請

19、你完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）'本題是從一串只含有字母或數字的字符串中找出所有大寫字母，'并把找出的大寫字母顯示在text2中。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 text1.text n yPrivate Sub Command1_Click() Dim x As String, y As String Dim i As Integer, n As Integer x = n = Len(x) For i = 1 To If Asc(Mid(x, i, 1) < 91 And Asc(Mid(x, i

20、, 1) > 64 Then y = y + Mid(x, i, 1) End If Next i Text2.Text = End Sub5、打開“考生文件夾730”文件夾中的文件：“工程1.vbp”進行以下操作后并保存。運行程序能夠顯示數字金字塔，請完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張） '運行程序能夠顯示數字金字塔，請完善程序。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 j j next jPrivate Sub Form_Click()Dim i As Integer, j As IntegerFor = 1 To 5

21、Print Tab(10 - j); For i = 1 To Print Str(i); Next i Print End SubVb專項練習第4套1、打開“考生文件夾735”文件夾中的文件：“工程1.vbp” 進行以下操作后并保存。完善程序,使之在運行程序后，能在窗體上顯示樣張所示的圖形。完成后按“Ctrl+W”保存程序。（詳見樣張）'完善程序,使之在運行程序后，能在窗體上顯示樣張所顯示的圖形。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 200 255,0,0 600Private Sub Form_Click()Line (600, 200)-(

22、1500, ), RGB(255, 0, 0)Line (1500, 200)-(1500, 1000), RGB(0, 0, 255)Line (1500, 1000)-(600, 1000), RGB()Line (, 1000)-(600, 200), RGB(0, 0, 255)End Sub2、打開“考生文件夾36工程1.vbp”，完善程序并保存。實現功能：給出三角形的三邊邊長a，b，c（輸入保證能構成三角形，無需判斷正確性），輸出三角形面積。三角形面積計算公式：'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Cl

23、ick() a sqr s Dim s As Single Dim q As Single Dim a As Single Dim b As Single Dim c As Single = Val(InputBox("請輸入邊長a的值：") b = Val(InputBox("請輸入邊長b的值：") c = Val(InputBox("請輸入邊長c的值：") q = (a + b + c) / 2 s = (q * (q - a) * (q - b) * (q - c) Print End Sub3、打開“考生文件夾60工程1.vb

24、p”，完善程序并保存。實現功能：從文本框t1中輸入一個圓的半徑，計算圓的面積，把結果輸出到文本框t2中。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() dim t1.text s Const pi = 3.14 r, s as Single r = Val() s = pi * r * r T2.Text = End Sub4、打開“考生文件夾32工程1.vbp”，完善程序并保存。實現功能：從鍵盤上輸入一個三位數，然后將它反向輸出。例如輸入“123”，輸出結果為“321”。'請不要更改源程序的結構，刪

25、除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer text1.text b text2.text Dim g As Integer a = Val() bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 = g * 100 + shi * 10 + bai = CStr(b)End Sub5、打開“考生文件夾736”文件夾中的文件：“工程1.vbp”進行以下操作后并保存

26、。該題求丟番圖年齡問題：丟番圖生命的1/6是童年，又過了生命的1/12長胡子，再過了生命的1/7結婚，婚后5年生兒子，兒子活了父親年齡的一半死亡，之后丟番圖又過了4年死亡。求丟番圖年齡。完善程序,使之在運行程序后，能在text1中顯示丟番圖年齡。完成后按“Ctrl+W”保存程序。（詳見樣張） '該題是求丟番圖年齡問題：丟番圖生命的1/6是童年，'又過了1/12長胡子，再過了的1/7結婚，婚后5年生兒子，'兒子活了父親年齡的一半死亡，之后丟番圖又過了4年死亡。'求丟番圖年齡。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private

27、 Sub Command1_Click() n while text1.textDim n As Integern = 0Do = n + 1Loop n < n / 6 + n / 12 + n / 7 + 5 + n / 2 + 4 = Str(n)End SubVb專項練習第五套1、打開“考生文件夾178工程1.vbp”，完善程序并保存。實現功能：用遞歸法求3!+5!+7!的值。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Public Function Fac(a As Integer) As IntegerIf a = 1 Then 1 Fac 5

28、 Fac = Else Fac = a * (a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac() + Fac(7) Print "S=" & CStr(S)End Sub2、打開“考生文件夾122工程1.vbp”，完善程序并保存。王曉珊家距離學校S1公里，某天她和李明各自同時從家里步行出發上學，王曉珊步行V1公里/小時，李明步行V2公里/小時，結果他們同時到達學校。實現功能：輸入S1,V1,V2，輸出李明家與學校之間的距離S2。'請不

29、要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 s1/v1 v2 s2Private Sub Command1_Click() Dim S1 As Single, S2 As Single Dim V1 As Single, V2 As Single Dim T As Single S1 = Val(InputBox("請輸入王曉珊家離學校的距離：") V1 = Val(InputBox("請輸入王曉珊步行速度：") V2 = Val(InputBox("請輸入李明步行速度：") T = S2 = * T Print

30、End Sub3、打開“考生文件夾43工程1.vbp”，完善程序并保存。實現功能：用遞歸法求斐波那契數列1，1，2，3，5，8，第10項的值。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Public Function Fib(n As Integer) As Integer 1 end if 10 If (n = 1) Or (n = 2) Then Fib = Else Fib = Fib(n - 1) + Fib(n - 2) End FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fib(

31、) Print "S=" & CStr(S)End Sub4、打開“考生文件夾175工程1.vbp”，完善程序并保存。實現功能：用遞歸法求1+2+3+100的值。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Public Function S(n As Integer) As Integer 1 n 100 If n = 1 Then S = Else S = + S(n - 1) End IfEnd FunctionPrivate Sub Command1_Click() Dim Sum As Integer Sum = S() Pr

32、int "Sum=" & CStr(Sum)End Sub5、打開“考生文件夾68工程1.vbp”，完善程序并保存。實現功能：在文本框Text1和Text2中分別輸入兩個整數，單擊“交換”按鈕后，兩個文本框中的數字進行交換。''請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() b t a b Dim a As Integer Dim b As Integer Dim t As Integer a = Val(Text1.Text) b = Val(Text2.Text) t =

33、 a a = b = Text1.Text = Text2.Text = End SubVb專項練習第六套1、打開"考生文件夾30工程1.vbp"，完善程序并保存。實現功能：'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 x y end ifPrivate Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 = Val(InputBox("請輸入x的值") If x < 0 Then = x + 5 * a Else y = x - 2 * b

34、 Print "y=" CStr(y)End Sub2、打開“考生文件夾596工程1.vbp”，完善程序并保存。實現功能：當在文本框Text1中輸入圓的半徑后，單擊“計算”按鈕，計算圓的周長，并在文本框Text2中顯示出來。'填空完成程序，使得當在Text1中輸入圓的半徑后，單擊"計算"按鈕，計算圓的周長，并在Text2中顯示出來。'注：請不要更改原程序結構，刪除、，并在對應的位置填寫正確代碼Private Sub Command1_Click() text1.text r*2 text2.text Const pi = 3.14 

35、9;定義符號常量 Dim c As Single '定義周長c為單精度型 Dim r As Single '定義半徑r為單精度型 r = Val() c = pi * = CStr(c) End Sub3、打開“考生文件夾611工程1.vbp”，完善程序并保存。實現功能：當單擊“顯示”按鈕后，Text1、Text2分別顯示交換后的變量x、y值。'填空完成程序，使得單擊"顯示"按鈕時，Text1、Text2分別顯示變量x、y的值。'注：請不要更改原程序結構，刪除、，并在對應位置填寫正確的代碼Private Sub Command1_Click(

36、) Dim x, y As Integer x = 10 y = 100 If x < y Then x t x '以下三條語句交換x,y的值 t = x = y y = End If Text1.Text = Text2.Text = CStr(y) End Sub4、打開“考生文件夾41工程1.vbp”，完善程序并保存。某超市為了對蘋果進行促銷，規定購買2公斤以上可以在原價每公斤6.80元的基礎上打8折。實現功能：輸入購買的蘋果公斤數，輸出應付款。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click(

37、) Dim x As Single Dim cost As Single x*6.8 end if cost x = Val(InputBox("請輸入蘋果公斤數：") If x <= 2 Then cost = Else cost = x * 6.8 * 0.8 Print End Sub5、打開“考生文件夾20工程1.vbp”，完善程序并保存。某超市蘋果價格每斤4元，購買10斤以上(包括10斤)將享受8折優惠。實現功能：使得在Text1中輸入重量并單擊“計算”按鈕后，在Label1中顯示對應的價格。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，

38、使程序完善Private Sub Command1_Click() x>=10 x*0.8 s Dim x, s As Single x = Val(Text1.Text) If Then s = 4 * Else s = 4 * x End If Label1.Caption = CStr()End SubVb專項練習第七套1、打開“考生文件夾614工程1.vbp”，完善程序并保存。實現功能：當單擊“顯示”按鈕后，隨機產生10個屬于區間0，100)的自然數，并保存于數組a中，然后在窗體上顯示這10個數中的最大值。(注：學生運算結果有可能跟樣圖中數值不一致)'(注：學生運算結果有

39、可能跟樣圖中數值不一致。)'注：請不要更改原程序結構，刪除、，并在對應位置填寫正確的代碼Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer 9 a(i) max Me.Cls Print Randomize For i = 0 To Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max < a(i) Then max = End If Next i Print

40、 "這10個自然數中的最大值=" CStr() End Sub2、打開“考生文件夾15工程1.vbp”，完善程序并保存。實現功能：單擊按鈕后打印出下面所示的圖案。(第一行的第一個“*”從第5列開始輸出) '請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() 4 4 “*” Dim i, j As Integer For i = 1 To Print Tab(6 - i); For j = 1 To Print ; Next j Print Next iEnd Sub3、打開“考生文件夾598工程

41、1.vbp”，完善程序并保存。舉重比賽中，60公斤級選手體重不能超過60公斤。實現功能：填空完成程序，使得在文本框Text1中輸入一個大于60的數時，標簽Label1顯示“超重！不能參賽！”；當輸入一個小于等于60的數時，標簽Label1顯示“合格，可以參賽！”。'舉重比賽中，60公斤級選手體重不能超過60公斤。'填空完成程序，使得在文本Text1中輸入一個大于60的數時，標簽Label1顯示"超重！不能參賽！"；'當輸入一個小于等于60的數時，標簽Label1顯示"合格，可以參賽！"。'注：請不要更改原程序結構，刪除、，

42、并在對應位置填寫正確的代碼Private Sub Command1_Click() Dim t As Single '定義變量t，值由文本框Text1讀入 text1.text t>60 end if t = Val() If Then Label1.Caption = "超重！不能參賽！" Else Label1.Caption = "合格，可以參賽！" End Sub4、打開“考生文件夾108工程1.vbp”，完善程序并保存。實現功能：判斷從文本框Text1中輸入的數據，如果該數據滿足條件：除以3余2，除以5余3，除以7余4，則輸出在窗

43、體上。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() x = Val(Text1.Text) x mod 5 x mod 7=4 x If x Mod 3 = 2 Then If = 3 Then If Then Print End If End If End IfEnd Sub5、打開“考生文件夾181工程1.vbp”，完善程序并保存。實現功能：從鍵盤輸入10個學生的測試成績，輸出最高分和最低分。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Comman

44、d1_Click() Dim cj(10) As Single Dim i As Integer Dim max As Single Dim min As Single For i = 1 To 10 cj(i) = Val(InputBox("請輸入10個學生的成績", "成績輸入") Next i max = cj(1) min = cj(1) For i = 2 To 10 If cj(i) > max Then max = cj(i) cj(i)<min cj(i) End If If Then min = End If Next i

45、 Print CStr(max), CStr(min)End SubVb專項練習第八套1、打開“考生文件夾117工程1.vbp”，完善程序并保存。實現功能：當單擊窗體后，計算224262N<1500的N的最大值。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Form_Click() Dim s As Integer n n+20 n-20 Dim N As Integer N = 22 s = 0 Do s = s + N = Loop Until s > 1500 Print "N=" & CStr

46、()End Sub2、打開“考生文件夾9工程1.vbp”，完善程序并保存。實現功能：輸入10個數，存放在數組中，并按輸入的逆序輸出在窗體上。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() s(i) -1 s(i) Dim s(9) As Single For i = 0 To 9 = Val(InputBox("請輸入一個數") Next i For i = 9 To 0 Step Print Next iEnd Sub3、打開“考生文件夾87工程1.vbp”，完善程序并保存。實現功能：通

47、過鍵盤輸入10個數，統計這10個數的和。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善 to 10 s=s+x sPrivate Sub Command1_Click() Dim x As Integer Dim s As Integer Dim i As Integer For i = 1 x = Val(InputBox("NO." & i) Print CStr(x) Next i Print "total:" & 4、打開“考生文件夾116工程1.vbp”，完善程序并保存。實現功能：計算1+3+5+9

48、9的值。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() Dim i As Integer i i+2 s Dim s As Integer i = 1 s = 0 Do While i <= 99 s = s + i = Loop Print "s=" & End Sub5、打開“考生文件夾80工程1.vbp”，完善程序并保存。一群猴子摘了一堆桃子，每天吃掉當天剩余桃子數的一半，每次又忍不住多吃一個，這樣到了第十天就剩下一個桃子可以吃了。實現功能：計算猴子最初一共摘了多少個桃

49、子。'請不要更改源程序的結構，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() 1 9 (tz+1) tz Dim tz As Integer 'tz是桃子數 Dim ts As Integer 'ts是天數 tz = For ts = 1 To tz = * 2 Next ts Print "最初共有桃子" & End SubVb專項練習第九套1、打開“考生文件夾601工程1.vbp”，完善程序并保存。實現功能：當單擊窗體后，計算出1+2+3+N<500的N的最大值，并在文本框Text

50、1中顯示出來。 '填空完成程序，使得單擊窗體后，計算出1+2+3+N<500的N的最大值，并在文本框Text1中顯示出來。'注：請不要更改源程序結構，刪除、，并在對應位置填寫正確的代碼Private Sub Form_Click() Dim s As Integer '變量s存放和 Dim n As Integer 0 0 S+n '為n賦初值 n = '為s賦初值 s = Do While s < 500 n = n + 1 s = Loop Text1.Text = CStr(n - 1)End Sub2、打開“考生文件夾183工程1.vbp”，完善程序并保存。