题目内容
（请给出正确答案）
Private Sub Text1_LostFocus（）
Call CheckInput（Text1，500）
End Sub
Private Sub Text2_LostFocus（）
Call CheckInput（Text2，1000）
End Sub
Sub CheckInput（t As ？，x As Integer）
If Val（t.Text）＞x Then
MsgBox"请重新输入!"
End If
End Sub
A．Text
B．SelText
C．Control
D．Form
如果结果不匹配，请 联系老师 获取答案
更多“窗体上有名称分别为Text1、Text2的2个文本框，要求文…”相关的问题
A.Print 26
B.Picture1.Print 26
C.Text1.Print 26
D.Debug.Print 26
写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 2 To 4
array1(i, j) = i + j
next j
next i
Text1.Text = arrry1(2, 3) + array(3, 4)
End Sub
程序运行后， 单击命令按钮， 在文本框中显示的值是______
A.12
B.13
C.14
D.15
A．Private Sub Text1_Change（）
Command1.Caption = "计算机等级考试"
End Sub
B．Private Sub Command1_ Click （）
Caption = "计算机等级考试"
End Sub
C．Private Sub Form1_ Click （）
Text1.Caption = "计算机等级考试"
End Sub
D．Private Sub Command1_ Click （）
Text1.Text = "计算机等级考试"
End Sub
A.Label1.BackStyle=0： Label1.BorderStyle=0
B.Label1.BackStyle=0： Label1.BorderStyle=1
C.Label1.BackStyle=true： Label1.BorderStyle=true
D.Label1.BackStyle=False： Label1.BorderStyle=False
窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：
Private Sub Command1 Click（）
Static x As Variant
n=0
x=Array(1，2，3，4，5，6，7，8，9，10)
While n＜=4
x(n)=x(n+5)
Print x(n)：
n=n+1
Wend
End Sub
运行程序，单击命令按钮Command1，窗体上显示的是（）。
A.1 2 3 4 5
B.6 7 8 9 10
C.2 3 4 5 6
D.6 2 3 4 5
A.可以在运⾏期间改变对象的Name属性的值
B.窗体的Name属性的值是显⽰在窗体标题栏中的⽂本
C.窗体的Name属性指定窗体的名称,⽤来标识⼀个窗体
D.对象的Name属性可以为空
A.双击⿏标可以触发DblClick事件
B.窗体或控件的事件名称可以由编程⼈员确定
C.移动⿏标时,会触发MouseMove事件
D.控件的名称可以由编程⼈员设定
A.在⼯程资源管理器窗⼝中只能包含⼀个⼯程⽂件及属于该⼯程的其他⽂件
B.控件的名称可以由编程⼈员设定
C.窗体⽂件包含该窗体及其控件的属性
D.Visual Basic 中控件的某些属性只能在运⾏时设置
