下面关于文本框的说法中,错误的说法是 ______。
A.Text1.Caption="Hello",是将在文本框Text1中显示Hello
B.Text1.Locked=True,设置该文本框Text1不能编辑
C.Text1.PasswordChar="#",设置文本框Text1输入的字符都显示为#,但实际接收的还是输入的内容
D.Text1.Visible=False,设置该文本框Text1不可见
A.Text1.Caption="Hello",是将在文本框Text1中显示Hello
B.Text1.Locked=True,设置该文本框Text1不能编辑
C.Text1.PasswordChar="#",设置文本框Text1输入的字符都显示为#,但实际接收的还是输入的内容
D.Text1.Visible=False,设置该文本框Text1不可见
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
A.Text1.MaxLength=0
B.Text1.Enabled=False
C.Text1.Text=False
D.Text1.Index=0
A.BeijingChina
B.China
C.Beijing
D.BeijingC
现有如下事件过程:
Private Sub text1_change()
Text2.text=mid(text1,1,5)
End Sub
运行程序,在文本框text1中原有字符之前输入a,text2中显示的是
A)dataA
B)DataB
C)aDate
D)aBase
Private Sub Text1_ _________() TextText=Text1.Text End Sub
A.SetFocus
B.Change
C.GetFocus
D.Click
A.8个“$”
B.1个“$”
C.8个“*”
D.无任何内容
A.在文本框Text1中输出55
B.在文本框Text1中输出0
C.出错
D.在文本框Text1中输出不定值
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.出错