单项选择题

有下列程序，程序运行后单击命令按钮，则输出的结果是( )。

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

 
<上一题 目录 下一题>
热门 试题

单项选择题
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer() Label1.Caption=Time＄ End Sub 在程序执行时发现未能实现上述目的，那么，应做的修改是( )。
A．通过属性窗口把计时器的Interval属性设置为2000
B．通过属性窗口把计时器的Enabled属性设置为False
C．把事件过程中的Label1.Caption=TimeS语句改为Timer1.Interval=Time＄
D．把事件过程中的Label1.Caphon=TimeS语句改为Label1.Caption=Timer1.Time
单项选择题
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(p1(x),y) Text2.Text=p1(x) End Sub Private Function p1(x As Integer)As Integer x=x+y:y=x+y p1=x+y End Function Private Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
A．2 4
2 4
B．2 4
4 8
C．4 4
8 8
D．10 10
58 58
相关试题