设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发()。A.Text1的SetFocus事件
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发()。
A.Text1的SetFocus事件
B.Text1的GotFocus事件
C.Text1的LostFocus事件
D.窗体的GotFocus事件
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发()。
A.Text1的SetFocus事件
B.Text1的GotFocus事件
C.Text1的LostFocus事件
D.窗体的GotFocus事件
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
A.[Forms]![开始窗体]![Text0]=111
B.[Forms]![开始窗体]![Text0]="111"
C.[Text0]=[111]
D.Text0="111"
在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
A."左右括号配对"
B."左括号多于右括号"
C."右括号多于左括号"
D.程序出错
A.=D2*$E2
B.=D2*$F3
C.=D2*$E4
D.=D2*$F4
A.发⽣⼀个运⾏时错误
B.发⽣⼀个编译时错误
C.在所有的初始化代码运⾏后Form1是活动窗体
D.在所有的初始化代码运⾏后Form2是活动窗体