vb程序阅读题和填空题.docVIP

VB程序阅读题与程序填空题综合练习 1、阅读下面程序，当单击窗体之后，窗体上输出的是 。 Private Sub Form_Click( ) Dim i As Integer, j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 10 If j = 5 Then i = i +4: Exit For j = j + 1 k = k + 1 Next If i 8 Then Exit For Next Print k End Sub 2、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别 是 和 ；若将程序中A语句与B语句的位置互换，再次执行程序， 单击窗体后在Text1和Text2中显示的内容分别是 和 。 Private Sub Form_Click( ) Dim x As Integer, y As Integer x = 1 : y = 0 Do While x 3 y = y + x A语句 x = x + 1 B语句 Loop Text1.Text = x Text2.Text = y End Sub 3、下面程序段中，k循环共执行 次，在窗体上显示的结果是 。 Dim b As Integer, k As Integer b = 1 For k =1 To 5 b = b * k If b = 15 Then Exit For Else k = k + 1 End If Next k Print k, b 4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。质数的个数显示在窗体上，在划线处填上缺少的内容。 Private Sub cmdl_Click( ) Dim intNum As Integer, int1 As Integer, int2 As Integer intNum = 0 For int1 = For int2 = 2 To int1 \2 If (int1 Mod int2) = 0 Then intNum=1 End If Next If sNum = sNum + 1 End If Next Print End Sub 5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。请在画线处中填入适当的内容。 Private Sub CmdExit_ ( ) End Sub 6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。 Private Sub Comandl_Click( ) Dim int1 As Integer int1 =val (txt1.Text) Select Case int1 Case txt2.Text = 值为0 Case txt2.Text = 值在1和10之间（包括1和10） Case txt2.Text = 值大于10 Case Else txt2.Text = 值小于0 End Select End Sub 四、读程序题，写出程序运行结果。 1．运行结果： Private Sub Form_Click() For I = 1 To 9 For j = 1 To 30 - 3 * I Print ; Next j For k = 1 To I Print k; Next k For k = I - 1 To 1 Step -1 Print k; Next k Print Next I End Sub 2．运行结果： Private Sub Command