1、二级 VISUAL+BASIC-51及答案解析(总分：100.00，做题时间：90 分钟)一、单项选择题(总题数：40，分数：100.00)1.当窗体最小化时缩小为一个图标，设置这个图标的属性是（分数：2.50）A.MouseleonB.IconC.PictureD.MousePointer2.为了取消窗体的最大化功能，需要把它的一个属性设置为 False，这个属性是（分数：2.50）A.ControlBoxB.MinButtonC.EnabledD.MaxButton3.决定窗体有无控制菜单的属性是（分数：2.50）A.ControlBoxB.MinButtonC.EnabledD.MaxB
2、utton4.为了使文本框同时具有水平和垂直滚动条，应先把 MultiLine属性设置为 True，然后再把 ScrollBars属性设置为（分数：2.50）A.0B.1C.2D.35.使文本框获得焦点的方法是（分数：2.50）A.ChangeB.GotFocusC.SetFoeusD.LostFocus6.为了使标签覆盖背景，应把 BackStyle属性设置为（分数：2.50）A.0B.1C.TrueD.False7.为了使标签中的内容居中显示，应把 Alignment属性设置为（分数：2.50）A.0B.1C.2D.38.下列可以把当前目录下的图形文件 pic1.jPg装入图片框 Pict
3、ure1中的语句为（分数：2.50）A.Picture=“pic1.jpg“B.Picture.Handle=“pic1.jpg“C.Picture1.Picture=LoadPicture(“pic1.jpg“)D.Picture=LoadPicture(“pic1.jpg“)9.决定标签内显示内容的属性是（分数：2.50）A.TextB.NameC.AlignmentD.Caption10.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是（分数：2.50）A.ValueB.DefaultC.CancelD.Enabled11.为了在按下
4、Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性没置为 True，这个属性是（分数：2.50）A.ValueB.DefaultC.CancelD.Enabled12.假定在图片框 Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是（分数：2.50）A.选择图片框，然后按 Del键B.执行语句 Picture1.Picture=LoadPicture(“)C.执行语句 Picture1.Picture=“D.选择图片框，在属性窗口中选择 Picture属性条，然后按回车键13.设置复选框或单选按钮标题对齐方式的属性是（分数：2
5、.50）A.AlignB.AlignmentC.SortedD.Value14.为了使列表框中的项目分为多列显示，需要设置的属性为（分数：2.50）A.ColumnsB.StyleC.ListD.MultiSelect15.要想不使用 Shift或 Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect属性设置为（分数：2.50）A.0B.1C.2D.其他16.删除列表框中指定的项目所使用的方法为（分数：2.50）A.MoveB.RemoveC.ClearD.RemoveItem17.当拖动滚动条中的滚动块时，将触发滚动条的事件是（分数：2.50）A.MoveB.C
6、hangeC.ScollD.SetFocus18.用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（分数：2.50）A.ListB.ListlndexC.TextD.ListCount19.在窗体(Name 属性为 Form1)上画两个文本框(Name 属性分别为 Text1和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text=“ T
7、ext2.Text=“ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 123和 321，然后单击命令按钮，则输出结果为（分数：2.50）A.444B.321123C.123321D.13223120.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为（分数：2.50）A.Text1.ClearB.Text1.Visible=FalseC.Text1.HideD.Text1.Enabled=False21.为了清除列表框中的全部内容，应使用的方法为（分数：2.50）A.ClsB.ClearC.RemoveD.
8、RemoveItem22.在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Label1)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是（分数：2.50）A.Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubB.Private Sub Text1_Click()Label1.Caption=Text1.TextEnd SubC.Private Sub label1_Change()Label1.Caption=Text1.TextEnd SubD.Pri
9、vate Sub Label1_Click()Label1.Caption=Text1.TextEnd Sub23.在窗体上画一个文本框、一个命令按钮和一个标签，其名称分别为 Text1、Command1 和 Label1，文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，如果在文本框中输入 28.653，然后单击命令按钮，则标签中显示的内容是（分数：2.50）A.27B.28C.29D.3024.为了使
10、命令按钮的 Picture、DownPicture 或 DisabledPicture属性生效，必须把它的 Style属性设置为（分数：2.50）A.0B.1C.TrueD.False25.在窗体上画两个单选按钮(名称分别为 Option1、Option2，标题分别为“宋体”和“黑体”)、1 个复选框(名称为 Check1，标题为“粗体”)和 1个文本框(名称为 Text1，Text 属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选按钮被选中，则以下能够实现上述操作的语句序列是 （分数：2.50）A.Option1.Value=FalseCheck1.
11、Value=TrueB.Option1.Value=TrueCheck1.Value=0C.Option2.Value=FalseCheck1.Value=2D.Option1.Value=TrueCheck1.Value=126.下列描述中正确的是（分数：2.50）A.标签既可用来输入文本又可用来输出文本B.文本框只能输出文本信息C.可以对标签中的文本进行编辑D.文本框既可用来输入文本又可用来输出文本27.在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text2.Text=
12、“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,6) End Sub 程序运行后，如果在文本框 Text1中输入 ChinaBeijing，则在文本框 Text2中显示的内容是（分数：2.50）A.ChinaBeijingB.ChinaC.BeijingD.ChinaB28.表示滚动条控件取值范围最大值的属性是（分数：2.50）A.MaxB.LargeChangeC.ValueD.Max-Min29.在窗体上画一个名称为 List1的列表框，一个名称为 Label1的标签，列表框中显示若
13、干城市的名称。当单击列表框中的某个城市名时，在标签中显示被选中城市的名称。下列能正确实现上述功能的程序是（分数：2.50）A.Private Sub List1_Click()Label1.Caprion=List1.ListIndexEnd SubB.Private Sub List1_Chick()Label1.Name=List1.ListIndexEnd SubC.Private Sub List1_Click()Label1.Name=List1.TextEnd SubD.Private Sub List1_Chck()Label1.Caption=List1.TextEnd Sub
14、30.在窗体上画一个单选按钮和一个复选框，其名称分别为 Option1和 Check1，然后编写如下事件过程： Private Sub Option1_Click() Check 1.Value=Option1.Value End Sub 程序运行后，如果单击单选按钮，其结果为（分数：2.50）A.单选按钮与复选框的选中情况一致B.出错C.如果选中单选按钮 Option1，则复选框 Check1也被选中D.如果不选中单选按钮 Option1，则复选框 Check1也不被选中31.组合框分为三种类型，即下拉组合框、简单组合框和下拉列表框，决定其类型的属性是（分数：2.50）A.StyleB.Bo
15、rderStyleC.FillStyleD.DrawStyle32.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem“Item 1“ List1.AddItem“Item 2“ List1.AddItem“Item 3“ End Sub Private Sub Command1_Click() List1.List(List1.ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为（分数：2.50）A.出错B.把字符串“AAAA”添
16、加到列表框的最后(即“Item 3”的后面)C.把列表框中原有的最后一个项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)33.假定有以下循环结构 Do Until条件 循环体 Loop 则正确的描述是（分数：2.50）A.如果“条件”是一个为 0的常数，则一次循环体也不执行B.如果“条件”是一个为 0的常数，则至少执行一次循环体C.如果“条件”是一个不为 0的常数，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体34.假定有以下程序段 For i=1 To 3 For j=5 To 1 Step-1 Print i*j Next
17、j,i 则语句 Print i*j的执行次数是（分数：2.50）A.15B.16C.17D.1835.以下程序段的输出结果为 x=1 y=4 Do Until y4 x=x*y y=y+1 Loop Print x（分数：2.50）A.1B.4C.8D.2036.设 a=6，则执行 x=IIf(a5,-1,0) 后，x 的值为（分数：2.50）A.5B.6C.0D.-137.执行下面的程序段后，x 的值为 x=5 For i=1 To 20 Step 2 x=x+i/5 Next i（分数：2.50）A.21B.22C.23D.2438.在窗体上画一个命令按钮，然后编写如下事件过程： Priv
18、ate Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.50）A.7B.15C.157D.53839.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(“请输入 a的值“) a=Val(a) b=InputBox(“请输入 b的值“) b=Val(b) x=Inp
19、utBox(“请输入 x的值“) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为（分数：2.50）A.2B.3C.14D.1540.阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 执行上面的 3重循环后，a 的值为（分数：2.50）A.3B.9C.14D.21二级 VISUAL+BASIC-51答案解析(总分：100.00，做题时间：90 分钟)一、单项选择题(总题数：40，
20、分数：100.00)1.当窗体最小化时缩小为一个图标，设置这个图标的属性是（分数：2.50）A.MouseleonB.Icon C.PictureD.MousePointer解析：2.为了取消窗体的最大化功能，需要把它的一个属性设置为 False，这个属性是（分数：2.50）A.ControlBoxB.MinButtonC.EnabledD.MaxButton 解析：3.决定窗体有无控制菜单的属性是（分数：2.50）A.ControlBox B.MinButtonC.EnabledD.MaxButton解析：4.为了使文本框同时具有水平和垂直滚动条，应先把 MultiLine属性设置为 Tru
21、e，然后再把 ScrollBars属性设置为（分数：2.50）A.0B.1C.2D.3 解析：5.使文本框获得焦点的方法是（分数：2.50）A.ChangeB.GotFocusC.SetFoeus D.LostFocus解析：6.为了使标签覆盖背景，应把 BackStyle属性设置为（分数：2.50）A.0B.1 C.TrueD.False解析：7.为了使标签中的内容居中显示，应把 Alignment属性设置为（分数：2.50）A.0B.1C.2 D.3解析：8.下列可以把当前目录下的图形文件 pic1.jPg装入图片框 Picture1中的语句为（分数：2.50）A.Picture=“pic
22、1.jpg“B.Picture.Handle=“pic1.jpg“C.Picture1.Picture=LoadPicture(“pic1.jpg“) D.Picture=LoadPicture(“pic1.jpg“)解析：9.决定标签内显示内容的属性是（分数：2.50）A.TextB.NameC.AlignmentD.Caption 解析：10.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是（分数：2.50）A.ValueB.Default C.CancelD.Enabled解析：11.为了在按下 Esc键时执行某个命令按钮的事件过程，需
23、要把该命令按钮的一个属性没置为 True，这个属性是（分数：2.50）A.ValueB.DefaultC.Cancel D.Enabled解析：12.假定在图片框 Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是（分数：2.50）A.选择图片框，然后按 Del键B.执行语句 Picture1.Picture=LoadPicture(“) C.执行语句 Picture1.Picture=“D.选择图片框，在属性窗口中选择 Picture属性条，然后按回车键解析：13.设置复选框或单选按钮标题对齐方式的属性是（分数：2.50）A.AlignB
24、.Alignment C.SortedD.Value解析：14.为了使列表框中的项目分为多列显示，需要设置的属性为（分数：2.50）A.Columns B.StyleC.ListD.MultiSelect解析：15.要想不使用 Shift或 Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect属性设置为（分数：2.50）A.0B.1C.2 D.其他解析：16.删除列表框中指定的项目所使用的方法为（分数：2.50）A.MoveB.RemoveC.ClearD.RemoveItem 解析：17.当拖动滚动条中的滚动块时，将触发滚动条的事件是（分数：2.50）A.Mov
25、eB.ChangeC.Scoll D.SetFocus解析：18.用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（分数：2.50）A.ListB.ListlndexC.Text D.ListCount解析：19.在窗体(Name 属性为 Form1)上画两个文本框(Name 属性分别为 Text1和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_Load() Te
26、xt1.Text=“ Text2.Text=“ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 123和 321，然后单击命令按钮，则输出结果为（分数：2.50）A.444B.321123C.123321 D.132231解析：20.在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为（分数：2.50）A.Text1.ClearB.Text1.Visible=False C.Text1.HideD.Text1.Enabled=False解析：21.为了清除列表框中的全部内容，应使用的方法为（分数：2.50）A.
27、ClsB.ClearC.RemoveD.RemoveItem 解析：22.在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Label1)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是（分数：2.50）A.Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubB.Private Sub Text1_Click()Label1.Caption=Text1.TextEnd Sub C.Private Sub label1_Change()Label1.Capti
28、on=Text1.TextEnd SubD.Private Sub Label1_Click()Label1.Caption=Text1.TextEnd Sub解析：23.在窗体上画一个文本框、一个命令按钮和一个标签，其名称分别为 Text1、Command1 和 Label1，文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，如果在文本框中输入 28.653，然后单击命令按钮，则标签中显示的内容是（分数
29、：2.50）A.27B.28C.29 D.30解析：24.为了使命令按钮的 Picture、DownPicture 或 DisabledPicture属性生效，必须把它的 Style属性设置为（分数：2.50）A.0B.1 C.TrueD.False解析：25.在窗体上画两个单选按钮(名称分别为 Option1、Option2，标题分别为“宋体”和“黑体”)、1 个复选框(名称为 Check1，标题为“粗体”)和 1个文本框(名称为 Text1，Text 属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选按钮被选中，则以下能够实现上述操作的语句序列是 （
30、分数：2.50）A.Option1.Value=FalseCheck1.Value=TrueB.Option1.Value=TrueCheck1.Value=0C.Option2.Value=FalseCheck1.Value=2D.Option1.Value=TrueCheck1.Value=1 解析：26.下列描述中正确的是（分数：2.50）A.标签既可用来输入文本又可用来输出文本B.文本框只能输出文本信息C.可以对标签中的文本进行编辑D.文本框既可用来输入文本又可用来输出文本 解析：27.在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private S
31、ub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,6) End Sub 程序运行后，如果在文本框 Text1中输入 ChinaBeijing，则在文本框 Text2中显示的内容是（分数：2.50）A.ChinaBeijingB.ChinaC.Beijing D.ChinaB解析：28.表示滚动条控件取值范围最大值的属性是（分数：2.50）A.Max B.LargeChangeC.ValueD.Max-M
32、in解析：29.在窗体上画一个名称为 List1的列表框，一个名称为 Label1的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示被选中城市的名称。下列能正确实现上述功能的程序是（分数：2.50）A.Private Sub List1_Click()Label1.Caprion=List1.ListIndexEnd SubB.Private Sub List1_Chick()Label1.Name=List1.ListIndexEnd SubC.Private Sub List1_Click()Label1.Name=List1.TextEnd SubD.Priv
33、ate Sub List1_Chck()Label1.Caption=List1.TextEnd Sub 解析：30.在窗体上画一个单选按钮和一个复选框，其名称分别为 Option1和 Check1，然后编写如下事件过程： Private Sub Option1_Click() Check 1.Value=Option1.Value End Sub 程序运行后，如果单击单选按钮，其结果为（分数：2.50）A.单选按钮与复选框的选中情况一致B.出错 C.如果选中单选按钮 Option1，则复选框 Check1也被选中D.如果不选中单选按钮 Option1，则复选框 Check1也不被选中解析：3
34、1.组合框分为三种类型，即下拉组合框、简单组合框和下拉列表框，决定其类型的属性是（分数：2.50）A.Style B.BorderStyleC.FillStyleD.DrawStyle解析：32.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem“Item 1“ List1.AddItem“Item 2“ List1.AddItem“Item 3“ End Sub Private Sub Command1_Click() List1.List(List1.ListC
35、ount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为（分数：2.50）A.出错B.把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面) C.把列表框中原有的最后一个项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)解析：33.假定有以下循环结构 Do Until条件 循环体 Loop 则正确的描述是（分数：2.50）A.如果“条件”是一个为 0的常数，则一次循环体也不执行B.如果“条件”是一个为 0的常数，则至少执行一次循环体 C.如果“条件”是一个不为 0的常数，则至少执行一次循环体D.不论“条件”是否为“真”，至
36、少要执行一次循环体解析：34.假定有以下程序段 For i=1 To 3 For j=5 To 1 Step-1 Print i*j Next j,i 则语句 Print i*j的执行次数是（分数：2.50）A.15 B.16C.17D.18解析：35.以下程序段的输出结果为 x=1 y=4 Do Until y4 x=x*y y=y+1 Loop Print x（分数：2.50）A.1B.4 C.8D.20解析：36.设 a=6，则执行 x=IIf(a5,-1,0) 后，x 的值为（分数：2.50）A.5B.6C.0D.-1 解析：37.执行下面的程序段后，x 的值为 x=5 For i=1
37、 To 20 Step 2 x=x+i/5 Next i（分数：2.50）A.21 B.22C.23D.24解析：38.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.50）A.7B.15 C.157D.538解析：39.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_C
38、lick() x=0 Do Until x=-1 a=InputBox(“请输入 a的值“) a=Val(a) b=InputBox(“请输入 b的值“) b=Val(b) x=InputBox(“请输入 x的值“) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为（分数：2.50）A.2 B.3C.14D.15解析：40.阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 执行上面的 3重循环后，a 的值为（分数：2.50）A.3B.9C.14 D.21解析：
