vb16道操作題含答案

1、（新）024：實(shí)現(xiàn)功能：?jiǎn)螕簟俺鲱}”按鈕后，在label1和label2中各顯示一個(gè)隨機(jī)的整數(shù)，在text1中輸入結(jié)果并單擊“判斷”按鈕后，在label3中顯示“正確”或“錯(cuò)誤”。暑假，小明的阿姨帶著一個(gè)小弟弟到小明家玩，這個(gè)小弟弟開學(xué)就要上一年級(jí)了，阿姨交了一個(gè)任務(wù)給小明，要他每天出20道一位數(shù)的加法題給小弟弟做，做完后還要幫小弟弟批改。小明自己的作業(yè)也多，他不想每天花許多時(shí)間去重復(fù)出題、改題的工作，于是他想到了用計(jì)算機(jī)幫他出題并批改；Dim a, b, c, x, n As IntegerPrivate Sub Command1_Click() Randomize Label6.Capti

2、on = "第" & n & "道題" a = Int(Rnd * 10) b = Int(Rnd * 10) Label1.Caption = a Label2.Caption = b n = n + 1End Sub答案：text1.textxn=1Private Sub Command2_Click() c = a + b x = Val() If c = Then Label3.Caption = "正確" Else Label3.Caption = "錯(cuò)誤" End IfEnd SubPr

3、ivate Sub Form_Load() End Sub（新）094：完善程序，實(shí)現(xiàn)功能：用選擇排序法將數(shù)組a中的10個(gè)整數(shù)按升序排列。Private Sub Command1_Click()Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000)答案：9I+110 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 C

4、Str(a(i) Next iEnd Sub（新）181：從鍵盤輸入10個(gè)學(xué)生的測(cè)試成績(jī)，輸出最高分和最低分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("請(qǐng)輸入10個(gè)學(xué)生的成績(jī)", "成績(jī)輸入")Next i答案：cj(i)cj(i) < mincj(i)max = cj(1)min = cj(1)For i = 2 To 1

5、0 If cj(i) > max Then max = End If If Then min = End IfNext iPrint CStr(max), CStr(min)End Sub187：填空完成程序，使得單擊"顯示"按鈕時(shí)，Label1、Label2分別顯示30，10。程序代碼:Private Sub Command1_Click() Dim x, y, t As Integer答案：xyt x = 10 y = 30 If x < y Then t = _ x = _ y = _ End If Label1.Caption = Str(x) Labe

6、l2.Caption = Str(y)End Sub188：某公司每年的銷售收入均比前一年增長(zhǎng)10個(gè)百分點(diǎn)，按此速度，需要多少年可以實(shí)現(xiàn)銷售收入翻兩番（即4倍）的目標(biāo)。填空完成程序，使得當(dāng)單擊窗體后，在窗體上輸出問(wèn)題答案。Private Sub Form_Click() Dim i As Single Dim s As Integer '設(shè)s為所求年數(shù),定義為整型,結(jié)果由窗體輸出 i = 1答案：I<4I*(1+0.1)s+1答案：I<4I*(1+0.1)s=s+1 s = 0Do While _ i =_ s=_ Loop Print "s=" sEn

7、d Sub（新）190.打開"考生目錄VB190工程1.vbp" 進(jìn)行以下操作后并保存！(49套)填空完成程序，使得當(dāng)單擊"計(jì)算5!"按鈕后，Text1顯示5!的值。Private Sub Command1_Click()答案：15a*Ii Dim a As Integer Dim i As Integer a = _ For i = 2 To _ a = _ Next _ Text1.Text = Str(a)End Sub答案：60014001300193：使得單擊"畫圖"按鈕后，在窗體上畫出如圖兩條相互垂直的線段，其中，線段a一

8、端的坐標(biāo)是（600，1300），長(zhǎng)度為1600，b是a 的中垂線，長(zhǎng)度為1000 (提供的樣圖與程序畫出的圖形可能不完全相同)。Private Sub Command1_Click() Line (_, 1300)-(2200, 1300) Line (1400, 300)-(_,_)End Sub196：填空完成程序，打印如右圖所示的圖案 (注釋區(qū)別開)。'*'*'*'*'*Private Sub Form_Click() Dim i As Integer '定義i為整型變量 Dim j As Integer '定義j為整型變量答案：a

9、bs(i)print str;i Dim str As String For i = -2 To 2 str = "" For j = 1 To 3 - _ str = str & "*" Next j _ Print '換行 Next _End Sub223：輸出以下圖形：*Private Sub Form_Click()Dim i As Integer '定義i為整型變量答案：abs(i)print “*”;iDim j As Integer '定義j為整型變量For i = -2 To 2 For j = 1 To

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

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

12、 0 To (1) Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = (2) Next i Print "這10個(gè)自然數(shù)的平均值=" s / 10End Sub609：填空完成程序，左鍵單擊窗體時(shí)打印下面所示的圖案。' *' *' *' *注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除（1）、（2），并在對(duì)應(yīng)位置填寫正確的代碼Private Sub Form_Click() Dim i As Integer答案：4print Dim j As Integer For i = (

13、1) To 1 Step -1 For j = 1 To i Step 1 Print "*" Next j (2) Next iEnd Sub610：填空完成程序，使得單擊"顯示"按鈕后，顯示下面的圖形：'''''''注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除（1）、（2），并在對(duì)應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim i As Integer '定義i為整型變量答案：ij Dim j As Integer '定義j為整型變量 For i = 1

14、To 6 Step 1 For j = 1 To (1) Step 1 Print "" Next （2） Print Next iEnd Sub612：填空完成程序，使得單擊"顯示"按鈕后，在窗體上顯示如圖99乘法表。注：請(qǐng)不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對(duì)應(yīng)位置填寫正確的代碼。Private Sub Command1_Click() Dim i As Integer答案：9I*j;print Dim j As Integer For i = 1 To (1) Step 1 Print " " For j = 1

15、 To 9 Print (2) Print vbTab; Next j (3) Next iEnd Sub（新）869：打開“考生文件夾869工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：?jiǎn)螕舭粹o后打印下面所示的圖案。(第一行的第一個(gè)“”從第1列開始輸出)Private Sub Command1_Click()答案：39” Dim i, j As Integer For i = To 1 Step -1 Print Tab(4 - i); For j = 1 To Print ; Next j Print Next iEnd Sub（新）870：打開“考生文件夾870工程1.vbp”，完善程序并

16、保存。實(shí)現(xiàn)功能：小明忘記了自己一個(gè)word文檔的打開密碼，只記得是一個(gè)4位數(shù)的數(shù)字密碼65，但知道該數(shù)能夠被69整除，也能被95整除。請(qǐng)你完善程序，幫他找出這個(gè)密碼。答案：6995anext aPrivate Sub Command1_Click() Dim a As Long For a = 6005 To Step 10 If (a Mod 69 = 0) And (a Mod 95 = 0) Then Print End If End Sub（新）872：打開“考生文件夾872工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：用遞歸法求5!+6!+7!的值。Public Function Fa

17、c(a As Long) As IntegerIf a = 1 Then Fac = 答案：1fac6Else Fac = a * (a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Long S = Fac(5) + Fac() + Fac(7) Print "S=" & CStr(S)End Sub（新）873：打開“考生文件夾873工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：當(dāng)單擊“顯示最小的數(shù)”按鈕后，隨機(jī)產(chǎn)生5個(gè)屬于區(qū)間0，100的自然數(shù)，并保存于數(shù)組a中，然后在窗體上顯示這5個(gè)數(shù)中的最小值。(注：學(xué)生運(yùn)算結(jié)果有可能跟樣圖中數(shù)值不一致)Private Sub Command1_Click() Dim a