单项选择题

在窗体上添加一个命令按钮,名为Command1,其单击事件中有如下程序段,则事件过程执行后,文本框中输出( )。
For i= 1 To 4
For j = 1 To 3
x=3
For k =1 To 2
x=x+3
Next k
Next j
Next i
Text1.Text = Str(x)

A.3
B.6
C.9
D.12
<上一题 目录 下一题>
热门 试题

单项选择题
若有以下程序,当程序运行后,单击命令按钮,则输出的结果为( )。 Private Sub Command1_Click() Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To 4 a(i) = i Next i For i=3 To 6 b(i) = i Next i s1 = Factorial (
A.
s2 = Factorial (
B.
Print "s1="; s1; "s2="; s2
End Sub
Function Factorial(a() As Integer)
Dim t#, i%
t=1
For i = LBoun
C.s1=24 s2=24
D.s1=360 s2=360
单项选择题
单击命令按钮时,下列程度段的执行结果为( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=2:b=4:c=6 Call S1(a, B) Print a= ; a; b= ; b; c= ; c Call S2(a, B) Print a = ; a; b = ; b; c= ; c; End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub Sub S2(x As Integer, ByVal y As Integer) Dim e As Integer x=2*x:y=y+2:c=x+y End Sub
A.a=4 b=6 e=6
a=4 b=6 e=6
B.a=8 b=6 c=6
a=8 b=6 c=6
C.a=4 b=6 e=6
a=8 b=6 e=6
D.a=8 b=6 c=6
a=4 b=6 c=6
相关试题
  • 下面程序的功能是找出给定的12个数中最大...
  • 如果要通过程序代码来一次性删除列表框中所...
  • 窗体中有图片框(Picture1)和计时器(Tim...
  • 下列程序功能为:弹出一个对话框询问用户是...
  • 设当前日期为2008年4月28日,星期一...