假定一个表单里有一个文本框Text1和一个命令按钮组CommandGroup1,命令按钮组是一个容器对象,其中包含Command1和Command2两个命令按钮。如果要在Command1命令按钮的某个方法中访问文本框的Value属性值,下面哪个式子是正确的?
A.ThisForm.Text1.Value
B.This.Parent.Value
C.Parent.Text1.Value
D.This.Parent.Text1.Value
A.ThisForm.Text1.Value
B.This.Parent.Value
C.Parent.Text1.Value
D.This.Parent.Text1.Value
A.This.ThisForm.Text1.Value
B.ThisForm.Text1.Value
C.Parent.Parent.Text1.Value
D.This.parent.Text1.Value
A)This.ThisForm.Text1.Value
B)This.Parent.Parent.Text1.Value
C)Parent.Parent.Text1.Value
D)This.Parent.Text1.Value
A.ThisForm.Textl.Value
B.This.Parent.Value
C.Parent.Textl.Value
D.This.Parent.Textl.Value
A.ThisForm.Text1.Value
B.This.Text1.Value
C.Com1.Text1.Value
D.This.Parent.Value
A.Private Sub List1_Click()
B.Private Sub List1_Click()Text1.Text = List1.List Text1.Text = List1.ListIndex/ End Sub End Sub
C.Private Sub List1_Click()
D.Private Sub List1_Click()Text1.Text = List1.Text Text1.Text = List1.Caption End Sub End Sub
在窗体(名称为Forml)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。
A.Private Sub Texl_Change() Commandl.Caption="计算机等级考试” End Sub
B.PrivateSubCommandl_Click() Caption="计算机等级考试"
C.Private Sub Commandl_Click() Text.Caption="计算机等级考试" End Sub
D.Private Sub Commandl_Click() Text1.Text="计算机等级考试" End Sub
在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
else
MsgBox "帐号正确"
End If
End Sub
当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为()
A.显示对话框,提示信息为"帐号正确"
B.显示对话框,提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示
在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2),新建一个窗体Form2。然后编写如下程序: Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序,要实现单击Command1命令按钮后卸载当前窗体,再弹出名为Form. 2的窗体,则在两个文本框中应分别输入______。
A.a 1
B.a a
C.1 a
D.1 1
A.21
B.42
C.54
D.72
设窗体上有一个文本框Text1和一个命令按钮Command1,并有下列事件过程: Private Sub Command1_Click() Dim s As String,Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1,k,1) s=ch+s Next k Text1.Text=s End Sub 程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是()。
A.Basic
B.cisaB
C.BASIC
D.CISAB