vb程序阅读题与填空题

VB程序阅读题与程序填空题综合练习1、阅读下面程序，当单击窗体之后，窗体上输出的是。

Private Sub Form_Click( )Dim i As Integer, j As IntegerDim k As Integerk=0For i = 0 To 10 Step 3For j = 1 To 10If j > = 5 Then i = i +4: Exit Forj = j + 1k = k + 1NextIf i > 8 Then Exit ForNextPrint kEnd Sub2、阅读下面的事件过程。

单击窗体后，在文本框Text1和Text2中显示的内容分别是和；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是和。

Private Sub Form_Click( )Dim x As Integer, y As Integerx = 1 : y = 0Do While x < 3y = y + x 'A语句x = x + 1 'B语句LoopText1.Text = xText2.Text = yEnd Sub3、下面程序段中，k循环共执行次，在窗体上显示的结果是。

Dim b As Integer, k As Integerb = 1For k =1 To 5b = b * kIf b > = 15 ThenExit ForElsek = k + 1End IfNext kPrint k, b4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。

质数的个数显示在窗体上，在划线处填上缺少的内容。

Private Sub cmdl_Click( )Dim intNum As Integer, int1 As Integer, int2 As IntegerintNum = 0For int1 =For int2 = 2 To int1 \2If (int1 Mod int2) = 0 ThenintNum=1End IfNextIfsNum = sNum + 1End IfNextPrintEnd Sub5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。

请在画线处中填入适当的内容。

Private Sub CmdExit_ ( )End Sub6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。

在画线处填入正确的内容。

Private Sub Comandl_Click( )Dim int1 As Integerint1 =val (txt1.Text)Select Case int1Casetxt2.Text = "值为0"Casetxt2.Text = "值在1和10之间（包括1和10）"Casetxt2.Text = "值大于10"Case Elsetxt2.Text = "值小于0"End SelectEnd Sub四、读程序题，写出程序运行结果。

1．运行结果：Private Sub Form_Click()For I = 1 To 9For j = 1 To 30 - 3 * IPrint " ";Next jFor k = 1 To IPrint k;Next kFor k = I - 1 To 1 Step -1Print k;Next kPrintNext IEnd Sub2．运行结果：Private Sub Command1_Click() Static S As IntegerDim i As IntegerS = 1For i = 1 To 5S = S * iNext iPrint SEnd Sub3．运行结果：For X = 5 To 1 Step –1 For Y = 1 To 6 - XPrint Tab(Y + 5); "*";Next YPrintNext X4．运行结果：S = 0: T = 0: U = 0For X = 1 To 3For Y = 1 To XFor Z = Y To 3S = S + 1Next ZT = T + 1Next YU = U + 1Next XPrint S; T; U5．运行结果：Private Sub Command1_Click() Dim b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = bEnd Sub2．以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

Private Sub Command_Click()X = Val(Text1.Text)If （1）ThenPrint XElse（2） （3）（4） End IfEnd Sub 五、编程题 1．设计一个计算程序。

该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成．程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。

单击退出按钮则退出。

Private Sub Command1_Click() Text1.Text = [1] Text2. [2] = ""[2] [3] .Text = ""[3]End SubPrivate Sub Command2_Click() If Text1. [4]= " " Or Text2.Text = [5] Or Text3.Text = " " Then [4] MsgBox "成绩输入不全！" [5]ElseText4.Text = ( [6 ] + Val(Text2.Text)[6] + Val(Text3.Text)) / [7 ][7][8 ][8]End SubPrivate Sub Command3_Click()命令按钮1command1命令按钮2command2命令按钮3command3文本框1（text1）文本框2（text2）文本框3（text3）文本框4（text4）Unload [9] [9] [10] Sub [10]3．设计一个欢迎程序。

该程序用户界面如图所示。

要求程序运行后，用户选中粗体复选框时“欢迎您！”几个字的字体变成粗体，用户选中斜体复选框时“欢迎您！”几个字的字体变成斜体。

若取消选中，则恢复原字体。

按结束，则退出。

4．任给3个数，求其中间数，写出程序代码。

三、阅读程序题1．阅读下列程序并写出程序运行结果Private Sub Form_Click()Dim s As Long, f As Long, n As Integer, i As Integer n = 3For i = 1 To nf = f + is = s + fNextPrint "s="; sEnd Sub写出程序运行时单击窗体后，窗体Form1上的输出结果。

运行结果：2．阅读下列程序并写出程序运行结果Private Sub Command1_Click()x = 0Do While x < 100x = (x + 2) * (x + 4)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是：运行结果：3．阅读下列程序并写出程序运行结果Private Sub Command1_Click()Dim Sum1 As Integer, Sum2 As IntegerSum1 = 0: Sum2 = 1For I = 1 To 4For J = 1 To ISum2 = Sum2 * JNext JSum1 = Sum1 + Sum2Next IPrint Sum1End Sub写出程序运行时单击命令按纽后，窗体上的输出结果。

运行结果：4.阅读下列程序并写出程序运行结果Private Sub Command1_Click()Dim x As IntegerStatic s As Integerx = Val(InputBox("请输入一个正整数If x < 6 Thens = s * xElses = s + xEnd IfText1.Text = "s=" & Str(s)End Sub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text15．阅读下列程序并写出程序运行结果Private Sub Form_Click()Dim A(1 To 3) As StringDim c As Integer,j As IntegerA(1) = “2”A(2) = “4”A(3) = “6”c=0For j=1 to 3c = c + Val(A(j))Next jPrint cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果：运行结果：Array 7．阅读下列程序并写出程序运行结果Sub test(i As Integer)i = i + 1End SubPrivate Sub Form_Click()Dim x As Integerx = 4Print "x="; xCall test(x)Print "x="; xEnd Sub8.阅读下列程序并写出程序运行结果Private Sub Form_Click()a = 1:b = 1Print "A="; a; ",B="; bCall mult(a)Print "A="; a; ",B="; bEnd SubPrivate Sub mult(x)x = 2 * xb = 3 * bEnd Sub9.阅读下列程序并写出程序运行结果Private Sub Form_Click()Dim i As Integer, a As Integerk = 0For i = 1 To 6If i > 3 Thena = a + 4Elsea = a + 1End IfNext iPrint i, aEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。