1、常用标准控件及答案解析(总分：28.00，做题时间：90 分钟)一、B选择题/B(总题数：11，分数：22.00)1.在窗体上画三个命令按钮，其名称分别为 Command1、Command2 和 Command3，然后编写如下事件过程： Private Sub Command1 Click() Command2.Enabled = False Command3.Visible = False End Sub程序运行后，单击命令按钮 Command1，则执行的操作是_。（分数：2.00）A.命令按钮 Command2和 Command3禁用B.命令按钮 Command2和 Command3隐藏C
2、.命令按钮 Command2隐藏，Command3 禁用D.命令按钮 Command2禁用，Command3 隐藏2.下列可以把当前目录下的图形文件 pic1.jpg装入图片框 Picture1中的语句为（分数：2.00）A.Picture = “pic1.jpg“B.PicturHandle = “pic1.jpg“C.Picture1.Picture = LoadPicture(“pic1.jpg“)D.Picture=LoadPicture(“pic1.jpg“)3.在 C:/Pic文件中有一个图形文件，名为 Welcome.gif。为了将该图形装入名为 Form1的窗体，应使用的语句为
3、_。（分数：2.00）A.Form1.Caption = “WELCOMgif“B.Form1.Caption = C:/Pic/WelcomgifC.Form1.Caption = “C:/Pic/Welcomgif“D.Form1.Caption = LoadPicture(“C:/Pic/Welcomgif“)4.在窗体上画一个单选按钮和一个复选框，其名称分别为 Option1和 Check1，然后编写如下事件过程： Private Sub Option1_Click() Check1.Value = Option1.Value End Sub 程序运行后，如果单击单选按钮，其结果为_。
4、（分数：2.00）A.单选按钮与复选框的选中情况一致B.出错C.如果选中单选按钮 Option1，则复选框 Check1也被选中D.如果不选中单选按钮 Option1，则复选框 Check1也不被选中5.设有名称为 VScrolll的垂直滚动条，其 Max属性为 100，Min 属性为 50，则能正确设置滚动条 Value属性的语句是_。（分数：2.00）A.VScrollValue= 100B.VScrollValue= 30C.VScrollValue = 4 * 30D.VScrollValue = -100 - 506.在窗体(Name 属性为 Form1)上画两个文本框(其 Name
5、属性分别为 Text1和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form Lead() Text1. Text = “ “ Text2. Text = “ “ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 123和 321，然后单击命令按钮，则输出结果为_。（分数：2.00）A.444B.321123C.123321D.13
6、22317.在窗体上画两个文本框(其名称分别为 Text1和 Text2)和一个命令按钮(其名称为 Commandl)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text = “Computer Rank Examination“ End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后，单击命令按钮，则在 Text2文本框中显示的内容是_。（分数：2.00）A.Computer Rank ExaminationB.computer ran
7、k examinationC.COMPUTER RANK EXAMINATIOND.空字符串8.在窗体上画一个名称为 Command1的命令按钮和 3个名称分别为 Labe11、Labe12、 Labe13 的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() State y As Integer Dim z As Integer n = 10 z = n+z y = y+z x = x+z Labe11.Caption = x Labe11.Caption = y Labe11.Caption = z End Sub程
8、序运行后，连续 3次单击命令按钮，则 3个标签框中显示的内容分别是_。（分数：2.00）A.10 10 10B.30 30 30C.30 30 10D.10 30 309.在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为 Combol和 Text1，然后编写如下事件过程： Private Sub Form_Load() Combol.AddItem “AAAAA“ Combol.AddItem “BBBBB“ Combol.AddItem “CCCCC“ Combol.AddItem “DDDDD“ Combol.AddItem “EEEEE“ End Sub 程序运行后，如果单击
9、命令按钮，则在文本框中显示组合框的项目，“CCCCC“。为了实现该操作，在命令按钮的 Click事件过程中应使用的语句为_。（分数：2.00）A.Text1Text=ComboList(2)B.Text1Text=ComboTextC.Text1Text=ComboList(3)D.Text1Text=ComboListIndex10.在窗体上画一个文本框控件，名称为 TxtTime；再画一个计时器控件，名称为 Timer1，程序运行后，要求每 1秒钟在文本框中显示一次当前的事件。以下是实现上述操作的程序，则在下划线后(括号前)应填入的内容是_。 Private Sub Timer1 () T
10、xtTime.text = Time End Sub（分数：2.00）A.EnabledB.VisibleC.IntervalD.Timer11.设组合框 Combol中有 3个列表项，为了删除其最后一项，应使用的语句是_。（分数：2.00）A.ComboRemoveItem Combo1. ListCountB.ComboRemoveItem 3C.ComboRemoveItem Combo ListCount-1D.ComboRemoveItem Combo Text二、B填空题/B(总题数：3，分数：6.00)12.在窗体上画一个名称为 Labell的标签和一个名称为 Listl的列表框
11、。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Label中显示所选中的项目，如下图所示。请在_和_处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_13.在窗体上画一个名称为 Text1的文本框和名称为 HScrolll的水平滚动条(Max 属性为 10，Min 属性为0)，然后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。（
12、分数：2.00）填空项 1:_14.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Labell 和 Commandl，然后编写如下两个事件过程； Private Sub Command1_Click() S= InputBox (“请输入 1个字符串“) Text1.Text= S End Sub Private Sub Text1_Change() Labell.Caption = UCase(Mid(Text1, Text2, 8) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic“，则在标签中显
13、示的内容是_。（分数：2.00）填空项 1:_常用标准控件答案解析(总分：28.00，做题时间：90 分钟)一、B选择题/B(总题数：11，分数：22.00)1.在窗体上画三个命令按钮，其名称分别为 Command1、Command2 和 Command3，然后编写如下事件过程： Private Sub Command1 Click() Command2.Enabled = False Command3.Visible = False End Sub程序运行后，单击命令按钮 Command1，则执行的操作是_。（分数：2.00）A.命令按钮 Command2和 Command3禁用B.命令按钮
14、 Command2和 Command3隐藏C.命令按钮 Command2隐藏，Command3 禁用D.命令按钮 Command2禁用，Command3 隐藏 解析：2.下列可以把当前目录下的图形文件 pic1.jpg装入图片框 Picture1中的语句为（分数：2.00）A.Picture = “pic1.jpg“B.PicturHandle = “pic1.jpg“C.Picture1.Picture = LoadPicture(“pic1.jpg“) D.Picture=LoadPicture(“pic1.jpg“)解析：3.在 C:/Pic文件中有一个图形文件，名为 Welcome.g
15、if。为了将该图形装入名为 Form1的窗体，应使用的语句为_。（分数：2.00）A.Form1.Caption = “WELCOMgif“B.Form1.Caption = C:/Pic/WelcomgifC.Form1.Caption = “C:/Pic/Welcomgif“D.Form1.Caption = LoadPicture(“C:/Pic/Welcomgif“) 解析：4.在窗体上画一个单选按钮和一个复选框，其名称分别为 Option1和 Check1，然后编写如下事件过程： Private Sub Option1_Click() Check1.Value = Option1.V
16、alue End Sub 程序运行后，如果单击单选按钮，其结果为_。（分数：2.00）A.单选按钮与复选框的选中情况一致B.出错 C.如果选中单选按钮 Option1，则复选框 Check1也被选中D.如果不选中单选按钮 Option1，则复选框 Check1也不被选中解析：5.设有名称为 VScrolll的垂直滚动条，其 Max属性为 100，Min 属性为 50，则能正确设置滚动条 Value属性的语句是_。（分数：2.00）A.VScrollValue= 100 B.VScrollValue= 30C.VScrollValue = 4 * 30D.VScrollValue = -100
17、- 50解析：6.在窗体(Name 属性为 Form1)上画两个文本框(其 Name属性分别为 Text1和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form Lead() Text1. Text = “ “ Text2. Text = “ “ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 123和 321，然后单击命令按钮，
18、则输出结果为_。（分数：2.00）A.444B.321123C.123321 D.132231解析：7.在窗体上画两个文本框(其名称分别为 Text1和 Text2)和一个命令按钮(其名称为 Commandl)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text = “Computer Rank Examination“ End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后，单击命令按钮，则在 Text2文本框中显示的内容是_。（分数：
19、2.00）A.Computer Rank ExaminationB.computer rank examinationC.COMPUTER RANK EXAMINATION D.空字符串解析：8.在窗体上画一个名称为 Command1的命令按钮和 3个名称分别为 Labe11、Labe12、 Labe13 的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() State y As Integer Dim z As Integer n = 10 z = n+z y = y+z x = x+z Labe11.Caption
20、= x Labe11.Caption = y Labe11.Caption = z End Sub程序运行后，连续 3次单击命令按钮，则 3个标签框中显示的内容分别是_。（分数：2.00）A.10 10 10B.30 30 30C.30 30 10 D.10 30 30解析：9.在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为 Combol和 Text1，然后编写如下事件过程： Private Sub Form_Load() Combol.AddItem “AAAAA“ Combol.AddItem “BBBBB“ Combol.AddItem “CCCCC“ Combol.Add
21、Item “DDDDD“ Combol.AddItem “EEEEE“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目，“CCCCC“。为了实现该操作，在命令按钮的 Click事件过程中应使用的语句为_。（分数：2.00）A.Text1Text=ComboList(2) B.Text1Text=ComboTextC.Text1Text=ComboList(3)D.Text1Text=ComboListIndex解析：10.在窗体上画一个文本框控件，名称为 TxtTime；再画一个计时器控件，名称为 Timer1，程序运行后，要求每 1秒钟在文本框中显示一次当前的事件
22、。以下是实现上述操作的程序，则在下划线后(括号前)应填入的内容是_。 Private Sub Timer1 () TxtTime.text = Time End Sub（分数：2.00）A.EnabledB.VisibleC.IntervalD.Timer 解析：11.设组合框 Combol中有 3个列表项，为了删除其最后一项，应使用的语句是_。（分数：2.00）A.ComboRemoveItem Combo1. ListCountB.ComboRemoveItem 3C.ComboRemoveItem Combo ListCount-1 D.ComboRemoveItem Combo Tex
23、t解析：二、B填空题/B(总题数：3，分数：6.00)12.在窗体上画一个名称为 Labell的标签和一个名称为 Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Label中显示所选中的项目，如下图所示。请在_和_处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_ （正确答案：DblClick Listl.Text）解析：13.在窗体上画一个名称为 Text1的文本框和名称为 HScrolll的水平滚动条(Max 属性为 10，Min 属性为0)，然后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动
24、条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。（分数：2.00）填空项 1:_ （正确答案：Change 50 或(Max/2)或(Max-Min)/2）解析：14.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Labell 和 Commandl，然后编写如下两个事件过程； Private Sub Command1_Click() S= InputBox (“请输入 1个字符串“) Text1.Text= S End Sub Private Sub Text1_Change() Labell.Caption = UCase(Mid(Text1, Text2, 8) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic“，则在标签中显示的内容是_。（分数：2.00）填空项 1:_ （正确答案：BASIC）解析：
