单项选择题

在窗体上画一个名称为Labell的标签，然后编写如下事件过程：
Option Base 1
Private Sub Form_Click()
Dim a(20) As Integer
For k=1 To 20
a(k)=k^2
Next k
Label1.Caption=a(k)
End Sub
程序运行后，单击窗体，在标签中显示的内容是 ______。

A．400
B．20
C．441
D．出错信息
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(5)As String For i=1 To 5 art(i)=Chr(Asc( A )+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
A．ABCDE
B．abcde
C．出错信息
D．1 2 34 5
单项选择题
在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。
A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
相关试题