题目内容
（请给出正确答案）
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。
A．在文本框Text1中输出55
B．在文本框Text1中输出0
C．出错
D．在文本框Text1中输出不定值
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画一个文本框（其Name属性为Text1)，然后编写…”相关的问题
.jpg)
并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each Text Box ln Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为
A．01 2 3
B．1 2 3 4
C．01 3 2
D．出错信息
A.China
B.ChinaBeijing
C.Tianjin
D.ChinaTianjin
现有如下事件过程：
Private Sub text1_change()
Text2.text=mid(text1,1,5)
End Sub
运行程序，在文本框text1中原有字符之前输入a，text2中显示的是
A)dataA
B)DataB
C)aDate
D)aBase
A．444
B．321123
C．123321
D．132231
A．BeijingChina
B．China
C．Beijing
D．BeijingC
Private Sub Command1_Click（）
a = InputBox（"Enter an integer"）
b = InputBox（"Enter an integer"）
Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（）。
A．108
B．18
C．810
D．出错
A.6
B.12
C.18
D.21
Private Sub Command1_Click（）
Dim str As String, s As String, c As String
str = UCase（Text1）
s = ""
c = "Z"
While c ＞= "A"
If InStr（str, c） = 0 Then
s = 【7】
End If
c = Chr$（Asc（c） 【8】 ）
Wend
If s ＜＞ "" Then
Text1 = s
End If
End Sub
