单项选择题

在窗体上画一个文本框，然后编写如下程序：
Option Base 1
Private Sub Form_Click()
Dim Arr(10)As Integer
For i=6 To 10
Arr(i)=i-3
Next i
Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10)))
End Sub
程序运行后，单击窗体，在文本框中显示的内容是

A．1
B．3
C．6
D．10

<上一题目录下一题>

热门试题

单项选择题

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = Text2．Text c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是

A．abcEFG
B．abcefg
C．ABCefg
D．ABCEFG

单项选择题

阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是

A．3
B．9
C．14
D．21

相关试题