第1题
在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
Private SuB cormmandl_Click()
Dim i,j,x
For i=i To 20 step 2
x=0
For j=1 To 20 step 2
x=x+1
Next j
Next i
Text1.Value=Str(x)
End SuB
打开窗体运行后,单击命令按钮,文本框中显示的结果是
A.1
B.7
C.17
D.400
第2题
在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
Private SuB cormmandl_Click()
Dim i,j,x
For i=i To 20 step 2
x=0
For j=1 To 20 step 2
x=x+1
Next j
Next i
Text1.Value=Str(x)
End SuB
打开窗体运行后,单击命令按钮,文本框中显示的结果是
A.1
B.7
C.17
D.400
第3题
在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
Private Sub Commandl一Click()Dim i,j,X
For i=1 TO 20 step 2
X=0
For j=i TO 20 step 3
X=X+1
Next j
Next i.Textl.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是()。
A.1
B.7
C.17
D.400
第4题
34 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:
Private Sub Commandl_Click()
Dim d1 As Date
Dim d2 As Date
dl = #12/25/2009#
d2 = #1/5/2010#
MsgBox DateDiff(” ww ” , d1, d2)
End Sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是
A ) 1
B ) 2
C ) 10
D ) 11
第5题
在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private SuB commandl_Click()
Dim x As Integer,y As Integer
x=12:y=32
Call Proc(x,y)
OeBug.Print x;y
End SuB
PuBlic SuB Proc(n As Integer,Byval m As Integer)
n=n Mod 10
m=m Mod 10
End SuB
打开窗体运行后,单击命令按钮,立即窗口上输出的结果是
A.2 32
B.12 3
C.2 2
D.12 32
第6题
在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private SuB commandl_Click()
Dim x As Integer,y As Integer
x=12:y=32
Call Proc(x,y)
OeBug.Print x;y
End SuB
PuBlic SuB Proc(n As Integer,Byval m As Integer)
n=n Mod 10
m=m Mod 10
End SuB
打开窗体运行后,单击命令按钮,立即窗口上输出的结果是
A.2 32
B.12 3
C.2 2
D.12 32
第7题
(31 )在窗体上有一个命令按钮 Commandl 和一个文本框 Textl ,编写事件代码如下:
Private Sub Command1_Click()
Dim i,j,x
For i = 1 To 20 step 2
x = 0
For j = To 20 step 3
x = x + 1
Next j
Next i
Textl.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是
A ) 1
B ) 7
C ) 17
D ) 400
第8题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a$="VisualBasic" Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是
A.VVV
B.Vis
C.sic
D.11
第9题
(10 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i * i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) *2
Next i
MsgBox k
End Sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是 【 10 】 。
第10题
在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private SuB commandl_Click()
Dim a(10),p(3)As Integer
k=5
For i=1 To 10
a(i)=i+i
Next i
For i=1 To 3
P(i)=a(i*i)
Next i
For i=1 To 3
k =k+p(i)*2
Next i
MsgBox k
End SuB
打开窗体运行后,单击命令按钮,消息框中输出的结果是【 】。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!