题目内容
（请给出正确答案）
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_C1ick() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Textl. Text=Str(n) End sub 程序运行后，单击命令按钮，在文本框中显示的值是 ()
A．2
B．3
C．4
D．5
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画一个名称为Textl的文本框和一个名称为Comma…”相关的问题
设有下列通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String，strL As Integer
tStr=""
strL=Len(xStr)
i=strL／2
DO While i＜=StrL
tStr=tStr＆Mid(xStr，i+1，1)
i=i+1
Loop
Fun=tStr＆tStr
End Function
在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：
Private Sub Commandl Click（）
Dim S1 As String
S1="ABCDEF"
Text1．Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是（）。
A.ABCDEF
B.abedef
C.defdef
D.defabc
设有下列通用过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr="" strL=Len(xStr) i=strL／2 DO While i＜=StrL tStr=tStr＆Mid(xStr，i+1，1) i=i+1 Loop Fun=tStr＆tStr End Function 在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程： Private Sub Commandl Click（） Dim S1 As String S1="ABCDEF" Text1．Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是（）。
A.ABCDEF
B.abedef
C.defdef
D.defabc
在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() TextText=UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在Text2文本框中显示的内容是
A．Microsoft Visual Basic
B．microsoft visual basic
C．MICROSOFT VISUAL BASIC
D．空字符串
在窗体上画两个文本框(Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下事件过程：
A. 1和0
B. 2和72
C. 3和50
D. 4和168
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(10,10)As Integer,i,j As Integer
For i=1 To 3
For j=2 To 4
arr(i,j)=i+j
Next
Next
Text1.Text=arr(2,3)+arr(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A．12
B．13
C．14
D．15
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：
Private Sub Command1_Click()
Dim x，y，z As Integer
x=5
y=7
z=0
Text1.Text=""
Call Fun1(x，y，z)
Text1.Text=Str(z)
End Sub
Sub Fun1(ByVal a As Integer，ByVal b As Integer，c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A．0
B．12
C．Str(z)
D．没有显示
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim s As Integer
Dim aa(3, 2) As Integer
For i = 1 To 3
For j = 1 To 2
aa(i, j) = i + j
Next j
Next i
s = aa(1, 2) + aa(2, 1)
Print s
End Sub
程序运行后，单击命令按钮，窗体上显示的值是()
A. 4
B. 5
C.6
D. 7
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10，10)As Integer，i，j As Integer For i=1 To 3 For j=2 To 4 arr(i，j)=i+j Next Next Text1.Text=an(2，3)+arr(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．12
B．13
C．14
D．15
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(Keyascii As Integer) End Sub 若焦点位于文本框中，则能够触发Key Press事件的操作是()。
A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
A． Visual
B．Basic
C．Program
D．出错
