vb16道操作题含答案

1、（新）024：实现功能：单击“出题”按钮后，在label1和label2中各显示一个随机的整数，在text1中输入结果并单击“判断”按钮后，在label3中显示“正确”或“错误”。暑假，小明的阿姨带着一个小弟弟到小明家玩，这个小弟弟开学就要上一年级了，阿姨交了一个任务给小明，要他每天出20道一位数的加法题给小弟弟做，做完后还要帮小弟弟批改。小明自己的作业也多，他不想每天花许多时间去重复出题、改题的工作，于是他想到了用计算机帮他出题并批改；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 = "错误" End IfEnd SubPr

3、ivate Sub Form_Load() End Sub（新）094：完善程序，实现功能：用选择排序法将数组a中的10个整数按升序排列。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个学生的测试成绩，输出最高分和最低分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个学生的成绩", "成绩输入")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：填空完成程序，使得单击"显示"按钮时，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：某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。填空完成程序，使得当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click() Dim i As Single Dim s As Integer '设s为所求年数,定义为整型,结果由窗体输出 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" 进行以下操作后并保存！(49套)填空完成程序，使得当单击"计算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、端的坐标是（600，1300），长度为1600，b是a 的中垂线，长度为1000 (提供的样图与程序画出的图形可能不完全相同)。Private Sub Command1_Click() Line (_, 1300)-(2200, 1300) Line (1400, 300)-(_,_)End Sub196：填空完成程序，打印如右图所示的图案 (注释区别开)。'*'*'*'*'*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：填空完成程序，编程计算1-1/2+1/3-1/4+.+1/99-1/100，单击窗体后，在窗体上显示结果。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。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：填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间0，100)的自然数，并保存于数组a中。然后在窗体上显示这10个数的平均值。注：学生运算结果有可能跟样图中数值不一致。注：请不要更改源程序结构，删除（1）、（2），并在对应位置填写正确的代码。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个自然数的平均值=" s / 10End Sub609：填空完成程序，左键单击窗体时打印下面所示的图案。' *' *' *' *注：请不要更改原程序结构，删除（1）、（2），并在对应位置填写正确的代码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：填空完成程序，使得单击"显示"按钮后，显示下面的图形：'''''''注：请不要更改原程序结构，删除（1）、（2），并在对应位置填写正确的代码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乘法表。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。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”，完善程序并保存。实现功能：单击按钮后打印下面所示的图案。(第一行的第一个“”从第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、保存。实现功能：小明忘记了自己一个word文档的打开密码，只记得是一个4位数的数字密码65，但知道该数能够被69整除，也能被95整除。请你完善程序，帮他找出这个密码。答案：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”，完善程序并保存。实现功能：用递归法求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”，完善程序并保存。实现功能：当单击“显示最小的数”按钮后，随机产生5个属于区间0，100的自然数，并保存于数组a中，然后在窗体上显示这5个数中的最小值。(注：学生运算结果有可能跟样图中数值不一致)Private Sub Command1_Click() Dim a