選修VB操作題打印講解

1、186、舉重比賽，60公斤級選手體重不能超過60公斤。 修改程序中的(1)(2)(3)，使得在文本Text1中輸入一個大于60的數(shù)時，標簽Label1顯示“超重！不能參賽！”，當輸入一個小于等于60的數(shù)時，標簽Label1顯示“合格，可以參賽！”。Private Sub Command1_Click() Dim t As Single '定義變量t，值由文本框Text1讀入 t = (1) If (2) Then Label1.Caption = "超重！不能參賽！" Else Label1.Caption = "合格，可以參賽！" (3)End

2、 Sub參考答案：(1) val(text1.text) (2) t>60 (3) End If187、填空完成程序，使得單擊"顯示"按鈕時，Label1、Label2分別顯示30，10。'程序代碼:Private Sub Command1_Click() Dim x, y, t As Integer x = 10 y = 30 If x < y Then t = (1) x = (2) y = (3) End If Label1.Caption = Str(x) Label2.Caption = Str(y)End Sub參考答案：(1) x (2)

3、y (3) t188、某公司每年的銷售收入均比前一年增長10個百分點，按此速度，需要多少年可以實現(xiàn)銷售收入翻兩番（即4倍）的目標。'填空完成程序，使得當單擊窗體后，在窗體上輸出問題答案。Private Sub Form_Click() Dim i As Single Dim s As Integer '設(shè)s為所求年數(shù),定義為整型,結(jié)果由窗體輸出 i = 1 '銷售收入為1 s = 0 '年數(shù)初始值為0 Do While (1) i = (2) (3) Loop Print "s=" sEnd Sub參考答案：(1) i<4 (2) i*

4、1.1 (3) s=s+1189、填空完成程序，使得當單擊"計算"按鈕后，在Text1中顯示出滿足條件2+4+6+x < 80中最大的x的值。Private Sub Command1_Click() Dim s As Integer Dim x As Integer s = 0 x = (1) Do x = x + (2) s = s + (3) Loop While s < 80 x = x - 2 Text1.Text = Str(x)End Sub參考答案：(1) 0 (2) 2 (3) x190、填空完成程序:單擊"計算5!"按鈕后，

5、Text1顯示5!的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = (1) For i = 2 To (2) a = (3) Next (4) Text1.Text = Str(a)End Sub參考答案：(1) 1 (2) 5 (3) a*I (4) i193、使得單擊"畫圖"按鈕后，在窗體上畫出如圖兩條相互垂直的線段，其中，線段a一端的坐標是（600，1300），長度為1600，b是a 的中垂線，長度為1000 (提供的樣圖與程序畫出的圖形可能不完全相同)。Private Sub

6、Command1_Click() Line (_, _)-(2200, 1300) Line (1400, 300)-(_, 1300)End Sub參考答案：line (x1,y1)-(x2,y2) 就是從起點(x1,y1)開始畫到到終點(x2,y2)600,1300 第一條語句畫水平線a1400 第二條語句畫垂直線b194、已知一元二次方程的二次項系數(shù)、一次項系數(shù)、常數(shù)項分別為a、b、c，其中a不等于0。填空完成程序，求方程的根。要求：如果方程無實數(shù)根，則輸出"無實數(shù)根"，否則輸出兩個實數(shù)根。Private Sub Command1_Click() Dim a, b,

7、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 = _ If d >= 0 Then '判斷是否有實數(shù)根 x1 = _ x2 = (-b - Sqr(d) / (2 * a) Label1.Caption = Str(x1) Label2.Caption = Str(x2) Else Label3.Caption = _ End If End IfEnd Sub參考

8、答案(1) b*b-4*a*c 或 b2-4*a*c(2)(-b + Sqr(d) / (2 * a)(3) "無實數(shù)根"195、填空完成程序，求 |X*X+1(X<=0) y=| |X*X-x+1X>0)的值。（x的值在程序中調(diào)用InputBox函數(shù)，在彈出的標準輸入對話框中輸入）Private Sub Form_Click() Dim x As Single '定義x為為單精度型變量,由標準輸入對話框輸入 Dim y As Single '定義y為單精度型變量,值由窗體顯示 x = (1)(InputBox("請輸入變量x"

9、;) If x <= 0 Then (2) Else (3) End If Print "y=" yEnd Sub參考答案：(1) val (2) y=x*x+1 (3) y=x*x-x+1196、填空完成程序，打印如右圖所示的圖案 (注釋區(qū)別開)。*Private Sub Form_Click() Dim i As Integer '定義i為整型變量 Dim j As Integer '定義j為整型變量 Dim str As String For i = -2 To 2 str = "" For j = 1 To 3 - _ st

10、r = str & "*" Next j _ Print '換行 Next _End Sub參考答案：(1) abs(i)(2) print str; 此處一定要注意不能缺少分號(3) iFor循環(huán)的結(jié)構(gòu)為：For 循環(huán)變量初值 To 終值 Step 步長 循環(huán)體Next 循環(huán)變量其中如果步長為1則“Step 步長”可以省略223、填空完成程序，打印如圖所示的圖案。*Private Sub Form_Click()Dim i As Integer '定義i為整型變量Dim j As Integer '定義j為整型變量For i = -2 To

11、 2 For j = 1 To 3 -（1） （2） Next j Print '換行Next （3）End Sub參考答案：(1) abs(i)(2) print "*" 此處一定要注意不能缺少分號(3) i224、在橫線處添加代碼實現(xiàn)單擊該按鈕，窗體的背景色由原來的默認色變?yōu)榧t色(紅：&HFF&)Private Sub Command1_Click() _End Sub參考答案：Form1.BackColor=&HFF&窗體的名稱為：form1背景色屬性為：backcolor設(shè)置對象的屬性： 名稱.屬性設(shè)置值如：form1.hei

12、ght=5000設(shè)置窗體的高度為5000label1.caption="你好" 設(shè)置標簽label1顯示文字為 你好595、填空完成程序，使得當單擊窗體后，Label1上顯示100以內(nèi)（含100）偶數(shù)之和。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼。Private Sub Form_Click() Dim i As Integer '定義變量i Dim s As Integer '定義變量s，用于存放100以內(nèi)（含100）偶數(shù)的和 s = 0 For i = 2 To 100 Step (1) s = (2) Next

13、(3) Label1.Caption = Str(s)End Sub參考答案：(1) 2 因為是求偶數(shù)的和所以步長為2(2) s + i 求和(3) i596、填空完成程序，使得當在Text1中輸入圓的半徑后，單擊"計算"按鈕，計算圓的周長，并在Text2中顯示出來。'注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)的位置填寫正確代碼Private Sub Command1_Click() Const pi = 3.14 '定義符號常量 Dim c As Single '定義周長c為單精度型 Dim r As Single '定

14、義半徑r為單精度型 r = Val(1) c = pi * (2) (3) = cEnd Sub參考答案(1) text1.text半徑從文本框text1中輸入(2) 2 * r 求周長的公式(3) text2.text 將結(jié)果在文本框text2中顯示597、填空完成程序，計算s=1!+2!+3!+8!的值并在窗體上打印出結(jié)果。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼Private Sub Form_Click() Dim s As Single ' s變量用于存放計算結(jié)果 Dim p As Single Dim i As Integer 

15、9;定義一個循環(huán)變量 '給s賦初值 s = (1) '給p賦初值 p = (2) For i = 1 To 8 p = p * i s = (3) Next i Print "s=" sEnd Sub參考答案：(1) 0 s是用來存放和的，所以初值為0(2) 1 p是用來求階乘(數(shù)學(xué)寫法為 n!=n*(n-1)*2*1 )的，所以初值為1(3) s + p p為1-8的階乘，s求和598、舉重比賽中，60公斤級選手體重不能超過60公斤。填空完成程序，使得在文本Text1中輸入一個大于60的數(shù)時，標簽Label1顯示"超重！不能參賽！"；當

16、輸入一個小于等于60的數(shù)時，標簽Label1顯示"合格，可以參賽！"。注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim t As Single '定義變量t，值由文本框Text1讀入 t = Val(1) If (2) Then Label1.Caption = "超重！不能參賽！" Else Label1.Caption = "合格，可以參賽！" （3）End Sub參考答案：(1) text1.text(2) t>60(3

17、) end if599、填空完成程序，使得當單擊窗體后，計算1+2+3+N>500的N的最小值，并在文本框Text1中顯示出來。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼Private Sub Form_Click() Dim s As Integer '變量s存放和 Dim n As Integer '為s賦初值 s = (1) '為n賦初值 n = (2) Do n = n + 1 s = s + n Loop While s (3) 500 Text1.Text = Str(n)End Sub參考答案：(1) 0 s存放

18、和所以s初值為0(2) 0 n初值也為0(3) <=Loop While 是當型循環(huán) 當條件成立時執(zhí)行循環(huán)，一旦條件不成立循環(huán)就結(jié)束。此處可以改為Until循環(huán)：Loop Until s> 500600、這是一個簡單的顯示評語程序，填空完成程序，在文本框Text1中輸入一個數(shù)后，單擊"評語"按鈕，在標簽Label1顯示評語。當輸入一個小于60的數(shù)時，顯示"不及格"；當輸入一個大于等于60且小于85的數(shù)時，顯示"良好"；當輸入一個大于等于85的數(shù)時，顯示"優(yōu)秀"。注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2

19、），并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim Cj As Single '定義變量Cj，值由文本框Text1讀入 Cj = Val(1) If Cj (2) 60 Then Label1.Caption = "不及格" End If If Cj >= 60 And Cj < 85 Then Label1.Caption = "良好" End If If Cj >= 85 Then Label1.Caption = "優(yōu)秀" End IfEnd Sub參考答案：

20、(1) text1.text(2) <601、填空完成程序，使得單擊窗體后，計算出1+2+3+N<500的N的最大值，并在文本框Text1中顯示出來。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼Private Sub Form_Click() Dim s As Integer '變量s存放和 Dim n As Integer '為n賦初值 n = (1) '為s賦初值 s = (2) Do While s < 500 n = n + 1 s = (3) Loop Text1.Text = Str(n - 1)End

21、Sub參考答案：(1) 0(2) 0(3) s+n602、某公司2005年的總產(chǎn)值為2000萬元，若總產(chǎn)值以每年5%的速度增長，多少年后總產(chǎn)值翻一倍？填空完成程序，使得當單擊窗體后，在窗體上輸出問題答案。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼Private Sub Form_Click() Dim p As Single ' 變量p保存年產(chǎn)值 Dim n As Integer ' 整型變量n為所求年數(shù) (1) n = 0 Do While p < 4000 p = p * (2) n = (3) Loop Print "

22、n=" nEnd Sub參考答案：(1) p=2000 (2) 1.05 (3) n + 1603、填空完成程序，使得當單擊"計算7！"按鈕后，Text1顯示7！的值。注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 For i = 1 To (1) Step 1 a = (2) Next i Text1.Text = Str(3)End Sub參考答案：(1) 7(2) a * i(3) a604

23、、填空完成程序，編程計算1-1/2+1/3-1/4+.+1/99-1/100，單擊窗體后，在窗體上顯示結(jié)果。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼。Private Sub Form_Click() Dim s As Single Dim i As Integer s = (1) For i = 1 To (2) Step 1 If i Mod 2 <> 0 Then s = s + 1 / i Else s = (3) End If Next i Print "s=" sEnd Sub參考答案：(1) 0(2) 100(

24、3) s - 1 / i605、填空完成程序，編程計算1+1/2+1/3+1/4.+1/99+1/100，單擊窗體后，在窗體上顯示結(jié)果。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼。Private Sub Form_Click() Dim s As Single '定義變量s為單精度型 Dim i As Integer '定義循環(huán)變量 s = (1) For i = 1 To (2) Step 1 s = s + (3) Next i Print "s=" sEnd Sub參考答案：(1) 0(2) 100(3) 1 /

25、i606、填空完成程序，使得當單擊"計算1+2+3+100"按鈕后，文本框Text1顯示1+2+3+100的值。注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2）、（3）、（4），并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = (1) For i = 1 To (2) Step 1 a = (3) Next i Text1.Text = Str(4)End Sub參考答案：(1) 0(2) 100(3) a + i(4) a607、填空完成程序，使得單擊"顯示

26、"按鈕后，隨機產(chǎn)生10個屬于區(qū)間0，100)的自然數(shù)，并保存于數(shù)組a中。然后在窗體上顯示這10個數(shù)的平均值。注：學(xué)生運算結(jié)果有可能跟樣圖中數(shù)值不一致。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2），并在對應(yīng)位置填寫正確的代碼。Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To (1) Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9

27、 s = (2) Next i Print "這10個自然數(shù)的平均值=" s / 10End Sub參考答案：(1) 9 (2) s + a(i) 608、填空完成程序，問：雞兔同籠，共有100條腿，40個頭，問雞有幾只，兔有幾只?單擊窗體后，在窗體上顯示結(jié)果。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼。Private Sub Form_Click() Dim Ji As Integer 'Ji變量表示雞的個數(shù) Dim Tu As Integer 'Tu變量表示兔的個數(shù) Dim Leg As Integer 'L

28、eg變量表示腿數(shù) For Ji = 1 To 40 Tu = (1) '計算腿數(shù) Leg = (2) + Tu * 4 '如果腿正好100只，則打印。If Leg = (3) Then Print "雞=" Ji; "只", "兔=" Tu; "只"End IfNext JiEnd Sub參考答案：(1) 40 ji (2) ji * 2 (3) 100這程序也可這樣做：For Ji = 1 To 40 For Tu = 1 To 25 If Ji + Tu = 40 And Ji * 2 + Tu

29、 * 4 = 100 Then Print "雞=" Ji; "只", "兔=" Tu; "只" End If Next TuNext Ji609、填空完成程序，左鍵單擊窗體時打印下面所示的圖案。 * * * *注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2），并在對應(yīng)位置填寫正確的代碼Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = (1) To 1 Step -1 For j = 1 To i Step 1 Print "

30、*" Next j (2) Next iEnd Sub參考答案：(1) 4 (2) print610、填空完成程序，使得單擊"顯示"按鈕后，顯示下面的圖形：注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2），并在對應(yīng)位置填寫正確的代碼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 (1) Step 1 Print "" Next （2） Print

31、Next iEnd Sub參考答案：(1) I (2) j611、填空完成程序，使得單擊"顯示"按鈕時，Text1、Text2分別顯示變量x、y的值。注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2），并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x < y Then '以下三條語句交換x,y的值 t = (1) x = y y = (2) End If Text1.Text = Str(x) Text2.Text = Str(y)End Sub參考答案

32、：(1) x (2) t612、填空完成程序，使得單擊"顯示"按鈕后，在窗體上顯示如圖99乘法表。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼。Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To (1) Step 1 Print " " For j = 1 To 9 Print (2) Print vbTab; Next j (3) Next iEnd Sub參考答案：(1) 9 (2) i * j; 打印出來的每個數(shù)字

33、為 行*列 的值，此處注意分號一定不能少(3) print 打印完一行9個數(shù)字后換行，此處不要分號613、填空完成程序，使得在Text1中輸入一個數(shù)，單擊"判斷"按鈕后，判斷這個數(shù)是奇數(shù)還是偶數(shù)并在Label1中顯示"奇數(shù)"或"偶數(shù)"出來。注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim a As Single Dim b As Single '從Text1中讀入這個數(shù),并保存在變量a中 a = Val(1) b = a Mod (

34、2) If b = 0 Then Label1.Caption = "偶數(shù)" Else Label1.Caption = "奇數(shù)" (3)End Sub參考答案：(1) text1.text (2) 2判斷一個數(shù)為奇數(shù)還是偶數(shù)，用這個數(shù)對2求余即 a mod 2如余數(shù)為0則為偶數(shù)，不為0則為奇數(shù)還有一種：如余數(shù)為1則為奇數(shù)，不為1則為偶數(shù)(3) End If614、填空完成程序，使得單擊"顯示"按鈕后，隨機產(chǎn)生10個屬于區(qū)間0，100）的自然數(shù)，并保存于數(shù)組a中，然后在窗體上顯示這10個數(shù)中的最大值。(注：學(xué)生運算結(jié)果有可能跟樣圖中數(shù)

35、值不一致。)注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼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 (1) 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 = (2) End If Next i Print &quo

36、t;這10個自然數(shù)中的最大值=" Str(3)End Sub參考答案：(1) 9一共10個數(shù)所以 i = 0 to 9(2) a(i) max = a(0)，然后將數(shù)組中后面9個數(shù)分別和max比較，如果max < a(i)則 max = a(i)(3) max 將最大值顯示出來024.'實現(xiàn)功能：單擊"出題"按鈕后，在label1和label2中各顯示一個隨機的整數(shù)，在text1中輸入結(jié)果并單擊"判斷"'按鈕后，在label3中顯示"正確"或"錯誤"。'暑假，小明的阿姨帶著一

37、個小弟弟到小明家玩，這個小弟弟開學(xué)就要上一年級了，阿姨交了一個任務(wù)給小明，要他每天出20'道一位數(shù)的加法題給小弟弟做，做完后還要幫小弟弟批改。小明自己的作業(yè)也多，他不想每天花許多時間去重復(fù)出題、改題'的工作，于是他想到了用計算機幫他出題并批改；Dim a, b, c, x, n As IntegerPrivate Sub Command1_Click() Randomize Label6.Caption = "第" & n & "道題" a = Int(Rnd * 10) b = Int(Rnd * 10) Label1.

38、Caption = a Label2.Caption = b n = n + 1End SubPrivate Sub Command2_Click() c = a + b x = Val() If c = Then Label3.Caption = "正確" Else Label3.Caption = "錯誤" End IfEnd SubPrivate Sub Form_Load() End Sub參考答案： Text1.text x n=1'（新）094：完善程序，實現(xiàn)功能：用選擇排序法將數(shù)組a中的10個整數(shù)按升序排列。Private Sub

39、Command1_Click()Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i For i = 1 To For j = To 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參考答案： 9 i+1 101327、'在Text1中輸入一個整數(shù)，單擊“判斷”按鈕，在Label1中顯示“正數(shù)”、“零”或者“

40、負數(shù)”！'注：(1) 刪除、，填入正確的語句' (2) 不能刪除注釋語句Private Sub Command1_Click()Dim a As Integera = Val()If a = 0 Then Label1.Caption = "零"ElseIf a > 0 Then Label1.Caption = "正數(shù)"Else Label1.Caption = ""End IfEnd Sub參考答案： Text1.text 負數(shù)1328、'公雞5文錢一只，母雞3文錢一只，3只小雞1文錢。'如果

41、用100文錢買100只雞，可以買公雞、母雞和小雞各多少只？'完善下面的程序，單擊“計算”按鈕時，在Label中顯示公雞、母雞、小雞的數(shù)量！'注：(1) 刪除、，填入正確的語句' (2) 不能刪除注釋語句Private Sub Command1_Click()Dim i As IntegerDim j As IntegerDim k As IntegerFor i = 0 To '第一空 For j = 0 To 33 k = - j '第二空 If 5 * i + 3 * j + k / 3 = Then '第三空 Label1 = "

42、小雞=" & k Label2 = "母雞=" & j Label3 = "公雞=" & i End If Next jNext iEnd Sub參考答案： 20 100-i 1001329、'完善程序，輸入時間秒，轉(zhuǎn)換成時、分、秒形式！'注：(1) 刪除、，填入正確的語句' (2) 不能刪除注釋語句Private Sub Command1_Click()Dim a, b, c, d As DoubleDim h As Stringa = Val(Text1.Text)b = '轉(zhuǎn)換小時c

43、 = '轉(zhuǎn)換分鐘d = (a Mod 3600) Mod 60 '轉(zhuǎn)換秒h = b & "小時" & c & "分鐘" Text2.Text = hEnd Sub參考答案：a3600 (a Mod 3600)60 & d & "秒"1330.'在左邊的文本框中輸入一個100以內(nèi)的正整數(shù)（包括100），單擊"判斷"按鈕，在右邊的文本框顯示是"奇數(shù)"還是"偶數(shù)"'輸入大于100的整數(shù)則顯示"輸入的整

44、數(shù)不能超過100"！'注：(1) 刪除、，填入正確的語句' (2) 不能刪除注釋語句Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text) If Then Text2.Text = "輸入的整數(shù)不能超過100" ElseIf = 0 Then Text2.Text = "偶數(shù)" Else Text2.Text = "奇數(shù)" End IfEnd Sub參考答案：本題先要在適當位置增加一個按鈕a>100 a mod 2=0 1331、&

45、#39;完善程序，找出100以內(nèi)的偶數(shù)(包括100)中能被3整除的正整數(shù)，并求出它們的和！'單擊“求和”按鈕時，在文本框中輸出和！'注：(1) 刪除、，填入正確的語句' (2) 不能刪除注釋語句Private Sub Command1_Click()Dim x As Integerx = 0For i = 0 To 100 Step '第一空 If Then '第二空 '第三空 End IfNext iText1.Text = xEnd Sub參考答案：2 i mod 3=0 x=x+i1333、'求1到100之間所有偶數(shù)之和與所有奇數(shù)之

46、和!'注：(1) 刪除、，填入正確的語句' (2) 不能刪除注釋語句Private Sub Command1_Click()Dim s1 As Single, s2 As Single, i As Integers1 = 0s2 = 0For i = 1 To 100If Then '第一空s1 = s1 + iElse '第二空End IfNext iText1.Text = '第三空Text2.Text = '第四空End Sub參考答案：i mod 2=0 s2=s2+i s1 s21335、'輸入3個整數(shù)，輸出最小值'注：

47、(1) 刪除、，填入正確的語句' (2) 不能刪除注釋語句Private Sub Form_Load()Dim x As IntegerDim min As IntegerDim i As Integermin = InputBox("請輸入數(shù)據(jù)", "輸入3個數(shù)")For i = 1 To '第一空 x = InputBox("請輸入數(shù)據(jù)", "輸入3個數(shù)") If Then '第二空 min = x End IfNext iText1.Text = '第三空End Sub參考答案

48、：2 x<min或min>xmin1336、'"五一"節(jié)時，某商場推出促銷活動，購物總金額達到100元可以打9折，達到200元可以打8折，100元以下不打折！'完善程序，使之實現(xiàn)如下功能：在第一個文本框中輸入購物總金額，單擊"計算"按鈕時，在第二個文本框中輸出實際支付金額！'注：(1) 刪除、，填入正確的語句' (2) 不能刪除注釋語句Private Sub Command1_Click()Dim a As SingleDim b As Single = Val(Text1.Text)If a 200 Then

49、 b = a * 0.8 a >= 100 Then b = a * 0.9Else b = aEnd IfText2.Text = bEnd Sub參考答案：a > ElseIf181、'（新）：從鍵盤輸入10個學(xué)生的測試成績，輸出最高分和最低分Private Sub Command1_Click()Dim cj(10) As SingleDim i As IntegerDim max As SingleDim min As SingleFor i = 1 To 10 cj(i) = Val(InputBox("請輸入10個學(xué)生的成績", "

50、成績輸入")Next imax = cj(1)min = cj(1)For i = 2 To 10 If cj(i) > max Then max = End If If Then min = End IfNext iPrint CStr(max), CStr(min)End Sub參考答案：cj(i) cj(i)<min cj(i)182. '（新）：請不要更改源程序的結(jié)構(gòu)，刪除原題中的。填寫正確的代碼，使程序完善。'實現(xiàn)功能：利用格里高利公式/4=1-1/3+1/5-1/7+，求，直到最后一項的值小于0.0001為止,輸出的值Private Sub C

51、ommand1_Click()Dim pi As Single, t As SingleDim n As Integer, s As Singlepi = t = 1: n = 1: s = 1Do While Abs(t) >= 0.0001 pi = pi + n = n + 2 s = -s t = Looppi = pi * Print "pi=" & CStr(pi)End Sub參考答案：0 t s/n 41987、'請不要更改源程序的結(jié)構(gòu)，刪除原題里的、。填寫正確的代碼，使程序完善Private Sub Command1_Click() Dim i, j As Inte