更多"在窗体上画一个组合框Combo1和一个命令按钮Command1,然后编"的相关试题:
[单项选择]在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combo1,Command1和Text1,然后编写如下事件过程:
Private Sub Form_Load( )
Combo1. AddItem "AAAAA"
Combo1. AddItem "BBBBB"
Combo1. AddItem "CCCCC"
Combo1. AddItem "DDDDD"
Combo1. AddItem "EEEEE"
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示组合框的项目“CCCCC”。为了实现该操作,在命令按钮的Click事件过程中应使用的语句为( )。
A. Text1. Text = Combo1. List (2)
B. Text1. Text = Combo1. Text
C. Text1. Text = Combo1. List (3)
D. Text1. Text = Combo1. ListIndex
[单项选择]在窗体上画一个命令按钮,然后编写如下程序。运行后,单击命令按钮,输出结果为 ( )。
Private Sub Command4_Click( )
Dima As Integer,bASInteger
a=1
b=2
PrintN(a,b)
End Sub
Function N(X As Integer,yAsInteger)AsInteger
N=IIf(x>y,x,y)
End Funcfion
[填空题]【说明】
在窗体上画一个名称为Combo1的组合框,画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键 (ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Labe12中给出提示“已成功添加输入项”;如果存在,则在Labe12中给出提示“输入项已在组合框中”。
【程序】
Private Sub Combo1 (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1. Text= (4) Then
Labe12. Caption ="输入项已在组合框中"
Exit Sub
End If
Next i
Label2. Caption ="已成功添加输入项"
Combo1. (5) Combo1.Text
End If
End Sub
[填空题]【说明】
在窗体上画一个名称为Combo1的组合框,画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键 (ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Labe12中给出提示“已成功添加输入项”;如果存在,则在Labe12中给出提示“输入项已在组合框中”。
【程序】
Private Sub Combo1 (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1. Text= (4) Then
Labe12. Caption ="输入项已在组合框中"
Exit Sub
End If
Next i
Label2. Caption ="已成功添加输入项"
Combo1. (5) Combo1.Text
End If
End Sub
[填空题]设计一个窗体,窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框,利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色,为此编写以下程序代码,井按要求将程序补充完整。
Private Sub Command1_Click( )
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[单项选择]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如
Private Sub Command1_Click( )
CommonDialogl. Flags = vbOFNHideReadOnly
CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt
CommonDialogl. FilterIndex = 1
CommonDialogl. ShowOpen
MsgBox CommonDialogl. FileName
End Sub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是
A. All Files(*.*)
B. Text Files(*.txt)
C. Batch Files(*.bat)
D. All Files(*. *)
[单项选择]在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open "d:/vb/tt. txt" For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step - 1 Seek # 1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close $1 End Sub 假设文件d:/vb/tt. txt 的内容为 Hello eveybody! 那么程序运行后,单击命令按钮,其输出结果为 ______。
A. True
B. False
C. 0
D. Null
[填空题]在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Commandl。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Open"c:/test.dat"For Output As #1
For I=1 to Len(Text1.text)
______
Next I
Close #1
End Sub
[单项选择]在窗体上画一个命令按钮和一个文本框,并将窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load( )
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Command1_Click( )
Text1.Text = Ucase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在键盘上输入abcdefg,单击命令按钮,则文本框中显示的内容为
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click( )
Text1.Text=UCase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAseii)
End Sub
程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框中显示的内容为 ______ 。
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如
下事件过程: Private Sub Commandl_Click( ) CommonDialogl,Flags=vbOFNHideReadOnly CommontDialogl.Filter="All Files(*.*)|*.*|Text Files (*.*)|*.txt|"_ & Batch Files (*.bat) |*.bat" CommonDialogl.Filterlndex=1 CommonDialogl.Showopen MsgBox CommonDialogl.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是
A. All Fries(*.*)
B. Text Files(*.*)
C. Batch Files(*.bat)
D. All Files (*.*)
[单项选择]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:
Private Sub Command1_Click( )
CommonDialogl.Flags=cdlOFNHideReadOnly
commonDialogl.Filter="All Files(*.*)|*.*| Text Files"&_
"(*.txt)|*.txt|Batch Files(*.bat)|*.bat"
CommonDialogl.Filterlndex=1
CommonDialogl.ShowOpen
MsgBox CommonDialogl.FileName
End Sub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是 ______。
A. AllFiles(*.*)
B. TextFiles(*.txt)
C. BatchFiles(*.bat)
D. 不确定