单项选择题

在窗体上画一个文本框，然后编写如下程序：
Option Base 1
Private Sub Form Click( )
Dim Arr(10)As Integer
For i=6 T0 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 程序运行后，在文本框Text1、Text2中分别输入AbC和efG，结果是______。

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

单项选择题

阅渎下面的程序： Private Sub Form_Click( ) Dim Check，Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______。

A．15 0
B．20 -1
C．10 True
D．10 False

相关试题