更多"假设在一个表单里有一个文本框Text1和一个命令按钮组CommamdG"的相关试题:
[单项选择]假定一个表单里有一个文本框Textl和一个命令按钮组CommandGroup1，命令按钮组是一个容器对象，其中包含Command1和Command2两个命令按钮，如果要在Command1命令按钮的某个方法中访问文本框Value属性值，下面______是正确的。
A. This.Thisform.Text1.Value
B. This.Parent.Parent.Text1.Value
C. Parent.Parent.Text1.Value
D. This.Parent.Text1.Value
[单项选择]假定一个表单里有一个文本框Text1和一个命令按钮组CommandGroup1，命令按钮组是一个容器对象，其中包含Cbmmand1和Command2两个命令按钮，如果要在Command1命令按钮的某个方法中访问文本框的Value属性值，下面表达式中正确的是( )。
A. This.ThisForm.Text1.Value
B. This.ParentParent.Text1.Value
C. ParentParent.Text1.Value
D. ThisParent.Text1.Value
[单项选择]假定一个表单里有一个文本框Text l和一个命令按钮组CommandGroup1。命令按钮组是一个容器对象，其中包含Command1和Command2两个命令按钮。如果要在Command1命令按钮的某个方法中访问文本框的Value属性值，正确的表达式是( )。
A. This.ThisForm.Text1.alue
B. This.Parent.Parent.Text1.Value
C. Parent.Parent.Text1.Value
D. This.Parent.Text1.Value
[单项选择]在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：
Private Function fun(x As Long)As Boolean
If x Mod 2=0 Then
fun=True
Else
fun=False
End If
End Function
Private Sub Command1_Click（ ）
Dim n As Long
n=Val(Text1.Text)
p=IIf(fun(n),"奇数","偶数")
Label1.Caption=n & "是一个"& p
End Sub
程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为( )。
A. 20是一个奇数
B. 20
C. 20是一个偶数
D. 2
[填空题]
在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click（ ）
Dim str As String，s As String，c As String
str=UCase(Text1)
S=""
C="Z"
While c＞="A"
If lnStr(str,C)=0 Then
s= 【1】
End If
c=Chr$(Asc(C) 【2】 )
Wend
If s＜＞""Then
Text1=S
End If
End Sub
[填空题]在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运 行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未 在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在 Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。
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 = _________
End If
c = Chr$(Asc( C）_________ ) Wend
If s <> "" Then
Text1 = s
End If
End Sub
[单项选择]设表单Form1上有一个命令按钮组CommandGroup1，命令按钮组中有两个命令按钮(分别：cmdl和cmd2)。若单击命令按钮Cmdl，可以将命令按钮Cmd2设置为废止状态，则在命令按Cmdl的Click事件中，应包含 ( )命令(或功能与之等价的命令)。
A. This.Parent.Cmd2.Enabled=.F.
B. ThisForm.Cmd2.Enabled=.F.
C. THis.CommandGroup1.cmd2.Enabled=.F.
D. THIS.Cmd2.Enabled=.F.
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_Ciick（ ） 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. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=InputBox("Enter an integer")
y=InputBox("Enter an integer")
Text1.Text=y+x
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入7和30，则在文本框中显示的内容是______。
A. 307
B. 37
C. 703
D. 出错
[单项选择]
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming 然后编写如下事件过程：
Private Sub Commandl_Click（ ）
Open"d:/temp/outf,txt"For Ouput As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c＞="A"And C＜="Z"Then
Print #1,LCase(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是（）。
A. MVBP
B. mvbp
C. M
D. m V V B b P p
