31. 在窗体上画一个命令按钮，然后编写如下事件过程：

　　Private Sub Commandl_Click()

　　For i=1 To 4

　　x=4

　　For j=1 To 3

　　x=3

　　For k=1 To 2

　　x=x+6

　　Next k

　　Next j

　　Next i

　　Print x

　　End Sub

　　程序运行后，单击命令按钮，输出结果是______。

　　A）7

　　B）15

　　C）157

　　D）538

　　32. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为______。

　　Private Sub Command1_Click()

　　K=0

　　For J=1 To 2

　　For I=1 To 3

　　K=I+1

　　Next I

　　For I=1 To 7

　　K=K+1

　　Next I

　　Next J

　　Print K

　　End Sub

　　A）10

　　B）6

　　C）11

　　D）16

　　33. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　a=0

　　For i=1 To 10

　　a=a+1

　　b=0

　　For j=1 To 10

　　a=a+1

　　b=b+2

　　Next j

　　Next i

　　Label1.Caption=Str(A）

　　Label2.Caption=Str(B）

　　End Sub

　　程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。

　　A）10和20

　　B）20和110

　　C）200和110

　　D）110和20

　　34. 有一个分段函数，当X<0时，Y=-1；当X=0时，Y=0；当X>0时，Y=1。该分段函数在程序段中可表达为______。

　　A）If X<0 Then Y=-1

　　If X=0 Then Y=0

　　Else Y=1

　　B）If X>0 Then Y=1

　　If X=0 Then Y=0

　　Else Y=-1

　　C）If X<0 Then Y=-1

　　ElseIf X=0 Then Y=0

　　Else Y=1

　　End If

　　D）If X<0 Then

　　Y=-1

　　ElseIf X=0 Then

　　Y=0

　　Else

　　Y=1

　　End if

　　35. 下列语句正确的是______。

　　A）If X<3*Y , X>Y Then Y=X3

　　B）If X<3*Y And X>Y Then Y=X3

　　C）If X<3*Y : X>Y Then Y=X3

　　D）If X<3*Y And X>Y Then Y=X* *3

　　36. 下列程序的执行结果为______。

　　A=75

　　If A>60 Then

　　I=1

　　ElseIf A>70 Then

　　I=2

　　ElseIf A>80 Then

　　I=3

　　ElseIf A>90 Then

　　I=4

　　EndIf

　　Print"I=";I

　　A）I=1

　　B）I=2

　　C）I=3

　　D）I=4

　　37. 设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < B） Or (c > D）, "A", "B")后，x的值为______。

　　A）"a"

　　B）"b"

　　C）"B"

　　D）"A"

　　38. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：

　　Private Sub Command1_Click()

　　for I=1 To 4

　　For J=0 To I

　　Print Chr$(65+I);

　　Next J

　　Print

　　Next I

　　End Sub

　　程序运行后，如果单击命令按钮，则在窗体上显示的内容为是______。

　　A）BB

　　CCC

　　DDDD

　　EEEEE

　　B）A

　　BB

　　CCC

　　DDDD

　　C）B

　　CC

　　DDD

　　EEEE

　　D）AA

　　BBB

　　CCCC

　　DDDDD

　　39. 有如下程序：

　　Private Sub Form_Click()

　　xcase=1

　　t=InputBox(“请输入一个数：”)

　　Select Case t

　　Case Is>0

　　Y=xcase+1

　　Case Is=0

　　Y=xcase+2

　　Case Else

　　Y=xcase+3

　　End Select

　　Print xcase;Y

　　End Sub

　　若输入-1，输出结果为：

　　A）1 4

　　B）1 3

　　C）1 2

　　D）1 1

　　40. 下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写______语句。

　　x=Val(InputBox(“请输入 x的值：”))

　　y=Val(InputBox(“请输入 y的值：”))

　　s=x : ______________

　　s=s*s

　　Print s

　　A）If (x　　B）If x>y Then s=y

　　C）If (x　　D）If x>y s=y