单项选择题

在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．$*$$**$$$***$$$$****
<上一题 目录 下一题>
热门 试题

单项选择题
假定有下面的过程： Function Func(a As Integer,b As Integer)As Integer Static m As Integer,i As Integer m=0 i=2 i=i+m+1 m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command 1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4 m=1 p=Func(k，m) Print p； p=Func(k，m) Print p End Sub 程序运行后，单击命令按钮，输出结果为( )。
A．8 17
B．8 16
C．8 20
D．8 8
单项选择题
在窗体上画一个命令按钮和两个标签，其名称分别为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
相关试题