运行下列程序段后,显示的结果为 J1=23:J2=32 If J1<J2 Then Print J2 Else Print J1
A.23
B.32
C.55
D.2332
运行下列程序段后,显示的结果为 J1=63 J2=36 If J1< J2 Then Print J2 Else Print J1
A.63
B.36
C.55
D.2332
在窗体下画两个文本框Text1和Text2,一个命令按钮Command1,请阅读下列程序段:
Private Sub Command1_Click()
x=0
Do Until x>=50
x=(x+4)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
运行程序后,单击命令按钮,在两个文本框中显示的值分别为()。
A.1和0
B.2和240
C.3和50
D.4和168
阅读下列程序: Dim SW As Boolean Function func(X As Integer)As Integer If X<20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single, Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single, Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后,单击一次窗体,再单击命令按钮,将显示一个输入对话框,如果在对话框中输入20,则程序的输出结果为
A.0
B.20
C.40
D.无任何输出
A.1 2 3 4 5 6 7 8 9 10
B.2 4 6 8 10 12 14 16 18 20
C.20 18 16 14 12 10 8 6 4 2
D.显示出错信息
下列程序段运行后窗体上输出结果为()。 Private Sub Command1 Click() a=5:b=4:c=3:d=2 X=3>2*b Or a=c And b<>C Or c>d Print X End Sub
A.1
B.True
C.False
D.2
A.64
B.8
C.56
D.0