更多"[单选题]第270题 （1.0分）编写如下事件过程.Private "的相关试题:
[单选题]编写如下事件过程:
Private Sub form_Click()
Dim x
X = 0
Do While x<10
X = x + 3
Loop
MsgBox x
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.0
B.3
C.10
D.12
[单选题]窗体上有一个命令按钮Command1,编写如下事件过程:
Private Sub Command1_Click()
X = InputBox("x=")
Y = InputBox("y=")
Print x + y
End Sub
运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是().
A.444
B.123321
C.123+321
D.出错信息
[单选题]编写如下事件过程:
Private Sub form_Click()
S$="abcdefabcdefabcdef"
K=InStr(S$,"c")
DO While k > 0
N = n + 1
S$=Mid(S$,k+1)
K=InStr(S$,"c")
Loop
Print n
End Sub
程序运行后,单击窗体,则其上显示的内容是().
A.1
B.2
C.3
D.4
[单选题]编写如下事件过程:
Private Sub Form_Click()
Score=Int(Rnd*10)+80
Select Case score
Case Is< 60
A$="F"
Case 60 To 69
A$="D"
Case 70 To 79
A$="C"
Case 80 To 89
A$="B"
Case Else
A$="A"
End Select
Print a$
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.A
B.B
C.C
D.D
[单选题]编写如下事件过程:
Private Sub form_Click()
For i=1 To 4
T = t * 10 + i
S = S + t
Next i
Print S
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.1234
B.4321
C.1370
D.4444
[单选题]第270题 （1.0分）
编写如下事件过程.
Private Sub form_Click()
X$="123".y$="abc"
N=Len(x)
For i=1 To n
Print Mid(x$,n+1-i,1)+Mid(y$,i,1);
Next i
Print
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.a1b2c3
B.a3b2c1
C.3a2b1c
D.1c2b3a
[单选题]编写如下事件过程:
Private Sub form_Click()
X$="123":y$="abc"
N=Len(x)
For i=1 To n
Print Mid(x$,n+1-i,1)+Mid(y$,i,1);
Next i
Print
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.a1b2c3
B.a3b2c1
C.3a2b1c
D.1c2b3a
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() S=.Do s=(s+1)*(s+2) number=number+.Loop Until s>=3. Print number,s End Sub运行后,输出的结果是().
A.. 1
B.3. 30
C.. 30
D..182
[单选题]第206题 （1.0分）
编写如下事件过程.
Private Sub Form_Click()
X="祝你成功"
Y="1234"
For i=1 To 4
Z=z+Mid(x,i,1)+Left(y,1)
Next i
Print Z
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.祝你成功1234
B.祝1你2成3功4
C.祝1你1成1功1
D.1234祝你成功
[单选题]第261题 （1.0分）
编写如下事件过程.
Private Sub Form_Click()
Score=Int(Rnd*10)+80
Select Case score
Case Is< 60
A$="F"
Case 60 To 69
A$="D"
Case 70 To 79
A$="C"
Case 80 To 89
A$="B"
Case Else
A$="A"
End Select
Print a$
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.A
B.B
C.C
D.D
[单选题]第286题 （1.0分）
编写如下事件过程.
Private Sub form_Click()
Dim x
X = 0
Do While x<10
X = x + 3
Loop
MsgBox x
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.0
B.3
C.10
D.12
[单选题]第263题 （1.0分）
编写如下事件过程.
Private Sub Form_Click()
A$="123".B$="456"
C=Val(A$) + Val(B$)
Print C\100
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.123
B.6
C.5
D.579
[单选题]第203题 （1.0分）
编写如下事件过程.
Private Sub form_Click()
For i=1 To 4
T = t * 10 + i
S = S + t
Next i
Print S
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.1234
B.4321
C.1370
D.4444
[单选题]第280题 （1.0分）
编写如下事件过程.
Private Sub form_Click()
S$="abcdefabcdefabcdef"
K=InStr(S$,"c")
DO While k > 0
N = n + 1
S$=Mid(S$,k+1)
K=InStr(S$,"c")
Loop
Print n
End Sub
程序运行后,单击窗体,则其上显示的内容是().
A.1
B.2
C.3
D.4
