窗体上仅有两个文本框TextBox1和TextBox2控件, 当焦点在TextBox1时,按下Tab键后,如下叙述正确的是 。
A.触发了TextBox1的GotFocus事件和TextBox2的LostFocus事件
B.触发了TextBox1的LostFocus事件和TextBox2的GotFocus事件
C.触发了TextBox1的KeyPress事件和TextBox2的GotFocus事件
D.触发了TextBox1的LostFocus事件和TextBox2的KeyPress事件
A.触发了TextBox1的GotFocus事件和TextBox2的LostFocus事件
B.触发了TextBox1的LostFocus事件和TextBox2的GotFocus事件
C.触发了TextBox1的KeyPress事件和TextBox2的GotFocus事件
D.触发了TextBox1的LostFocus事件和TextBox2的KeyPress事件
Private Sub Text1_KeyDown(KeyCode As Integer, ShIft As Integer)
key1 = KeyCode > 0
Print key1
End Sub
A.True B.False C.65 D.0
程序功能是在TextBox1(长度≤20)、TextBox2(长度=1)为正确输入;将TextBox1中包含的TextBox2中输入的字符均删除,并显示删除相应信息和结果,操作结果见图。Private Sub Button1_Click(…) Handles Button1.Click Dim s1$, s2$, ns$, i% s1 = TextBox1.Text s2 = TextBox2.Text If (Len(s1) > 20 _____(1)_____) Then MsgBox("TextBox1长度超过20个或TextBox2长度不为1") Exit Sub End If ns = "" For i = 1 To _____(2)_____ If _____(3)_____ Then ns = ns & Mid(s1, i, 1) End If Next TextBox3.Text &= s1 If (_____(4)_____) Then TextBox3.Text &= " 中已删除 " & s2 & " 结果为:" & ns & vbCrLf Else TextBox3.Text &= " 中未找到 " & s2 & vbCrLf End If End Sub 补全程序,在答题时,务必在答题框中写好题号和答案,如下: (1): _________ (2): _________ (3): _________ (4): _________
A、0和0
B、1和8
C、2和120
D、3和15180
A、s = TextBox1.SelectionLength
B、s = TextBox1.SelectedText
C、s = TextBox1.SelectionStart
D、s = TextBox1.Text
A、Normal
B、CenterImage
C、AutoSize
D、StretchImage
A、TextBox1.ReadOnly = True
B、TextBox1.MaxLength = 0
C、TextBox1.Visible = Flase
D、TextBox1.Width = 0
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!