运行下列程序:
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
ngargs[]){MyThreadt=newMyThread();MyThreads=newMyThread();t、start();S
ystem、out、print("one、");s、start();System、out、print("two、");}publicvoi
drun(){System、out、print("Thread");}}则下面正确的选项是()。
A.编译失败
B.程序运行结果为:one.Threadtwo.Thread
C.程序运行结果是:one.two.ThreaThread
D.程序运行结果不确定
运行下列程序:
Private Sub form_Click()
For i = 1 To 2
x = 1
For j = 1 To 3
x = 5
For k = 1 To 4
x = x + 2
Next k
Next j
Next i
Print x
End Sub
单击窗体后,则输出结果是()。
A.5
B.13
C.25
D.48
有如下SUB过程:
Sub s(x As Single,y As Single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
s a,b
Print a,b
End Sub
则程序运行后,单击命令按钮,输出的结果为【 】 。
有下列程序,程序运行后单击命令按钮,则输出的结果为()。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=";s2End SubFunction Factorial(a()As Integer)Dim t#,i% t=1 For i=LBound(A)To UBound(A) t=t*a(i) Next i Factorial=tEnd Function
A.s1=360 s2=24
B.s1=24 s2=360
C.s1=24 s2=24
D.s1=360 s2=360
在窗体上面一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Commandl_Click()
t=0:m=1:Sum=0
Do
t=t+【8】
Sum=Sum+【9】
m=m+2
Loop While 【10】
Print Sum
End Sub
该程序的功能是,单击命令按钮,则计算并输出以下表达式的值:
1+(1+3)+(1+3+5)+…+(1+3+5+…+39) 请填空。