VB课后习题-第4.doc

班级：姓名：学号：任课教师：王骏第4、5、6章 顺序结构、选择结构、循环结构程序设计1、执行下面的程序，单击窗体，则在窗体上显示的是。 Option ExplicitPrivate Sub Form_Click()Dim a As Integer, b As Integer, c As Integerb = 6: c = 6.5a = b = cPrint aEnd Sub 2、运行下列程序，窗体上显示的结果是。 Private Sub Form_Click() A$ = 12: B$ = 34 C = Val(A$) + Val(B$)：D = Val(A$ + B$) Print C Mod 10; D 10：Print C + DEnd Sub3、读程序，单击窗体后，在窗体上显示的内容为 。 Private Sub Form_Click()x = 1t = 1Select Case tCase Is 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectPrint x; yEnd Sub4、下列程序段的执行结果是。X = 2Y = 1If X * Y 05判断下面4个循环语句分别执行了多少次循环。下面循环执行了 （1） 次： 1 int2=0 2 For int1 = 1 To -2 Step -1 3 int2 = int2+1 4 Next 下面循环执行了 （2） 次： 1 int2=0 2 For int1 = 1 To 1 Step -1 3 int2 = int2+1 4 Next 下面循环执行了 （3） 次： 1 int2=0 2 For int1 = 1 To 10 Step 1 3 Exit For 4 int2 = int2+1 5 Next 下面循环执行了 （4） 次： 1 Dim i As Integer, j As Integer 2 For i = 1 To 10 Step 1 3 i = i + 1 4 j = j + 1 5 Next 6 Print j6、下列程序运行的结果为。Dim sum As IntegerDim I As IntegerDim j As IntegerSum=0For I=1 To 17 Step 2For j=1 To 3 Step 2sum=sum+jNext jNext IPrint sum7、下列程序段的执行结果为。A = “ABBACDDCBA”For I = 6 To 2 Step -2X = Mid(A, I, I)Y = Left(A, I)Z = Right(A, I)Z=X & Y & ZNext IPrint Z8、执行下面的程序段，文本框Text1中显示结果为。Dim int1 As Integer, int2 As Integerint1 = 1int2 = 0Do While int1 20int2 = int1 + int2int1 = int1 * (int1 + 1)LoopText1.Text = int29、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别是 和 ；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是 和 。 1 Private Sub Form_Click() 2 Dim x As Integer, y As Integer 3 x=1 : y=0 4 Do While x3 5 y=y+x A语句 6 x=x+1 B语句 7 Loop 8 Text1.Text=x 9 Text2.Text=y10 End Sub10、如果依次输入75,55,45,80,30,25,40,15,20,5,下列程序段的执行结果为Dim c As Integer, k As Integer, d As Integerc = 70For k = 11 To 20x = InputBox(“输入X的数值:”)If x = 15 Then 6 Exit For 7 Else 8 Let k = k + 1 9 End If10 Next k11