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+l k = k+ 1 Next If i 8 Then Exit For Next Print k End Sub 2、 阅读卜面的事件过程。单击窗体后，在文本框Textl和Text2中显示的内容分别 是 和 :若将程序中A语句与B语句的位置互换，再次执行程序， 单击窗体后在Textl和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 Textl.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 Ifb= 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, inti As Integer, int2 As Integer intNum = 0 For inti = For int2 = 2 To inti \2 If (inti Mod int2) = 0 Then intNum=l End If Next If sNum = sNum + 1 End If Next Print End Sub 5、 若命令按钮的名称为CmdExit,程序要求单击以上命令按钮时，程序停止运行。请在画 线处中填入适当的内容。 Private Sub CmdExit () End Sub 6、下面的事件过程判断文本框txtl中输入的数所在区间，并在文本框txt2中输出判断结 果。在画线处填入正确的内容。 Private Sub Comandl_Click() Dim inti As Integer inti =val (txt 1.Text) Select Case inti Case txt2.Text = ■’值为 0 Case txt2.Text =值在1和10之间(包括1和10) Case txt2.Text = ”值大于 10 Case Elsetxt2.Text = ” Case Else txt2.Text = ”值小于 0 End Select End Sub 四、读程序题，写出程序运行结果。 运行结果： Private Sub Form_Click() For I = 1 To 9 For j = 1 To 30 - 3 * I Print Next j For k = 1 To IPrint k; Next k For k = I - 1 To 1 Step -1 Print k; Next k Print Next I End Sub is打结果: Private Sub Command1 Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 运行结果： For X = 5 To 1 Step - 1 For Y = 1 To 6 - X Print Tab(Y + 5); 〃*〃: Next Y Print Next X 运行结果： S = 0:T = 0:U = 0 For X = 1 To 3 For Y = 1 To X For Z = Y To 3 S = S+ 1 Next Z T = T+ 1 NextY U = U+ 1 NextX Print S; T; U 运行结果： Private Sub Command1 Click() Dim b As Integer a = 3. 6 b = 3. 6 Text 1. Text 二 a Text2.Text = b