单项选择题

在Activate事件过程中，写入下面的程序：
Prirate Sub Form_Activate()
Dim S As String，a As String，b As String
a="*"：b="$"
For i=1 To 4
If i/2=Int(i/2) Then
S=String(Len(a)+i,b)
Else
S=String(Len(a)+i,a)
End If
Print S：
Next i
End Sub
运行程序后，显示的结果是( )。

A．$$***$$$$*****
B．*$$**$$***$$$****$$$$
C．**$$$****$$$$$
D．$*$$**$$$***$$$$****
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 T0 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是( )。
A．10和20
B．20和110
C．200和110
D．110和20
单项选择题
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*J j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是( )。
A．4321
B．1234
C．34
D．12
相关试题