vb考试复习7章8章习题文档格式.docx
《vb考试复习7章8章习题文档格式.docx》由会员分享，可在线阅读，更多相关《vb考试复习7章8章习题文档格式.docx（37页珍藏版）》请在冰点文库上搜索。
）
（C）P1.Picture=LoadPicture（C:
＼WINDOWS＼Clouds.bmp）
（D）Pl.Picture=LoadPicture（"
7.运行时,要清除图片框P1中的图像,应使用语句【】。
"
（B）P1.Picture=LoadPicture（）
（C）Picture1.Picture=LoadPicture
（D）Picture=LoadPicture（）
8.运行时,要在图片框P1中打印字符串"
HowAreYou"
，应使用语句【】。
（A）Picture1.Print="
HowAreYou"
（B）P1.Picture=LoadPicture（"
（C）P1.Print"
HowAreY011"
（D）Print"
9.要清除已经在图片框P1中打印的字符串而不清除图片框中的图像,应使用语句【】。
（A）P1.Cls（B）P1.PicaIre=LoadPicture（"
（D）P1.Picture="
10.以下说法正确的是【】。
（多选）
（A）图片框控件除了可以显示图形外，还可以作为控件的容器
（B）图像框控件除了可以显示图形外，还可以作为控件的容器
（C）图片框控件可以延伸图形的大小以适应控件的大小
（D）图像框控件的大小可以随图形大小的改变而自动调整
（E）图像框控件可以延伸图形的大小以适应控件的大小
11.以下关于选项按钮的说法,正确的是【】。
（A）选项按钮的Enabled属性用于决定该按钮是否被选中
（B）选项按钮的Value属性用于决定该按钮是否被选中
（C）选项按钮的Checked属性用于决定该按钮是否被选中
（D）选项按钮的Visible属性用于决定该按钮是否被选中
12.以下关于选项按钮的说法,正确的是【】。
（A）一个窗体上（包括其他容器中）的所有选项按钮一次只能有一个被选中
（B）一个窗体上（不包括其他容器中）的所有选项按钮一次只能有一个被选中
（C）一个容器中的选项按钮可以同时有多个被选中
（D）所有容器（多于一个）中的选项按钮一次只能有一个被选中
13.如果有三个选项按钮直接画在窗体上,另有四个选项按钮画在框架中,则运行时,可以同时选中【】个选项按钮。
（A）1（B）2（C）3（D）4
14.设已经在某个选项按纽Option1的Click事件过程中编写了一些代码,运行时,以下说法正确的是【】。
（A）任何时候用鼠标单击选项按钮都会执行其Click事件过程
（B）任何时候执行语句Option1.Value=True都会执行选项按钮的Click事件过程
（C）当选项按钮处于未选择状态时,用鼠标单击选项按钮都会执行其Click事件过程
（D）当选项按钮处于未选择状态时,执行语句Option1.Value=True将执行选项按钮的Click事件过程
15.以下关于复选框的说法,正确的是【】。
（A）复选框的Enabled属性用于决定该复选框是否被选中
（B）复选框的Value属性用于决定该复选框是否被选中
（C）复选框的Checked属性用于决定该复选框是否被选中
（D）复选框的Visible属性用于决定该复选框是否被选中
16.以下关于复选框的说法,正确的是【】。
（A）一个窗体上的所有复选框一次只能有一个被选中
（B）一个容器中的所有复选框一次只能有一个被选中
（C）在一个容器中的复选框可以同时有多个被选中
（D）无论是在窗体中还是在其他容器中,都可以同时选中多个复选框
17.设已经在某个复选框Check1的Click事件过程中编写了一些代码,运行时,以下说法正确的是【】。
（A）任何时候用鼠标单击复选框都会执行其Click事件过程
（B）任何时候执行语句Check1.Value=1都会执行复选框的Click事件过程
（C）任何时候执行语句Check1.Value=0都会执行复选框的Click事件过程
（D）任何时候在代码中改变复选框的状态时,都会执行复选框的C1ick事件过程
18.用于指定列表框的列数的属性是【】；
要使列表框中的每一个文本项的边上都有一个复选框,需设置【】属性；
返回或设置列表框中当前选择项目的索引的属性是【】；
返回列表部分项目的个数的属性为【】；
指定列表的元素是否自动按字母表顺序排序的属性为【】。
（A）List（B）ListCount（C）ListIndex（D）Text（E）Sorted
（F）Selected（G）Columns（H）Count（I）Style（J）Checked
19.下列【】程序段能删除列表框List1中的所有项。
（A）PrivateSubCommand3_Click（）（B）PrivateSubCommand3_Click（）
ForI=0ToList1.ListCount-1ForI=0ToList1.ListCount-1
List1.RemoveItem1List1.RemoveItem0
NextINextI
EndSubEndSub
（C）PrivateSubCommand3_Click（）（D）PrivateSubCommand3_click（）
ForI=0ToList1.ListCount-1ForI=0ToList1.ListCount
List1.RemoveItem1List1.RemoveItem0
20.要选择列表框List1的第6项，可以使用语句【】。
（A）List1.Selected（6）=True（B）List1.Selected（5）=True
（C）List1.Selected=6（D）List1.ListIndex=5
（E）List1.Selected=5（F）List1.ListIndex=6
21.引用列表框的最后一项应使用【】。
（A）List1.List（List1.ListCount-1）（B）List1.List（List1.ListCount）
（C）List1.List（ListCount）（D）List1.List（ListCount-1）
22.将字符串"
hello"
添加到列表框的最后，可使用【】语句。
（A）List1.AddItem"
List1.ListCount-1
（B）List1.AddItem"
he11o"
List1.ListCount
（C）List1.AddItem"
List1.ListIndex
（D）List1.AddItem"
23.如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值（0-None）,则执行语句List1.RemoveItemList1.ListIndex的结果是【】。
（A）删除列表框的最后一项（B）删除列表框的第一项
（C）出错（D）删除列表框中最后添加的一项
24.当组合框的Style属性设置为0时,其表现形式为【】。
当组合框的Style属性设置为1时,其表现形式为【】。
当组合框的Style属性设置为2时,其表现形式为【】。
（A）下拉列表框（B）下拉组合框（C）简单组合框（D）文本框
25.为了添加ComboBox控件中的项目,需要使用【】方法。
为了删除ComboBox控件中的项目,需要使用【】方法。
（A）Add（B）Remove（C）AddItem（D）RemoveItem
26.要清除组合框Combo1中的所有内容,可以使用【】语句。
（A）Combo1.Cls（B）Combo1.Clear（C）Combo1.Delete（D）Combo1.Remove
27.Timer控件的【】属性决定该控件是否对时间的推移做响应。
将该属性设置为False会关闭Timer控件,设置为True则打开它。
（A）Enabled（B）Visible（C）Time（D）Capable
28.定时器的Interval属性以【】为单位指定Timer事件之间的时间间隔。
（A）分（B）秒（C）毫秒（D微妙
29.以下关于定时器的说法,错误的是【】。
（多选）'
（A）运行时定时器在窗体上不可见
（B）可以设置定时器的Visible属性使其在窗体上不可见
（C）可以根据需要在窗体上设置定时器的大小（高度和宽度）
（D）定时器只有一个Timer事件
（E）如果定时器的Interval属性为0，则定时器元效
（F）如果定时器的Enabled属性为False，则定时器无效
（G）如果定时器的Visible属性为False，则定时器无效
30.要使滚动条表示最大值100，应设置其【】属性。
要使滚动条表示最小值10，应设置其【】属性。
要使每次单击滚动条两端箭头时变化值为10，应设置其【】属性。
要使单击滚动条滑块与两端箭头之间的空白区域时变化值为20，应设置其【】属性。
（A）Minmize（B）Min（C）MinChange（D）SmallChange
（E）Maxmize（F）Max（G）MaxChange（H）LargeChange
31.下面【】控件不支持Change事件。
（A）TextBox（B）Label（C）PictureBox（D）ListBox
32.下面【】控件不支持DblClick事件。
（A）OptionButton（B）CheckBox（C）Form（D）Image
二、程序填空
1.设某数制转换界面如图7-1所示，请补齐"
转换"
按钮Command1的Click事件过程，运行时单击该按钮将输入的十进制数转换成八进制或十六进制。
已知八进制转换函数为Oct（Number），十六进制转换函数为Hex（Number），其中，Number为要被转换的数。
PrivateSubCommand1_Click（）
If
（1）ThenText2.Text=Oct（
（2））
If（3）ThenText2.Text=Hex（（4））
EndSub
2.设某列表框共有10项,按题目要求补齐程序,完成相应的功能。
·
按下命令按钮Command1时将列表框第8项的内容显示在窗体上:
List1.
（1）（7）=True
PrintList1.
（2）
单击列表框某一项时立即将该项打印在窗体上:
PrivateSubListL_Click（）
Print（3）
按下命令按钮Command2时在窗体上删除其第1、3、5、7、9项:
PrivateSubCommand2_Click（）
Fori=1To5
List1.（4）
Nexti
在列表框的每一项之后插入一个新的项:
PrivateSubCommand3_Click（）
Fori=1To1O
x=InputBox（"
请输入插入的第"
&
i&
项内容"
List1.AddItem（5）
3.设在窗体Form1上有一个列表框List1，单击窗体用输入框输入数据。
如果在输入框中输入了一定内容并按了"
确定"
按钮后,则按以下情况进行处理:
如果输入的内容在字母"
a"
到"
z"
之间,且列表框中没有该字母,则将其添加到列表框中,然后继续显示输入框,提示输入下一个字母。
之间,且在列表框中已经存在,则显示一消息框,提示"
字母已经存在"
然后继续显示输入框,提示输入下一个字母。
如果输入的内容不在字母"
之间,则显示一消息框,提示"
输入数据不在指定范围内"
如果在输入框中按了"
取消"
按钮,或输入内容为空,则停止输入。
PrivateSubForm_Click（）
DoWhileTrue
Exist=0
x=Trim（InputBox（"
请输入a到z之间的一个字母"
"
Ifx>
="
Andx<
Then
Fori=0To
（1）
If
（2）=xThen
MsgBox"
,"
注意"
Exist=1
ExitFor
EndIf
IfExist=0Then（3）
Else
If（4）Then
ExitSub
MsgBox"
4.设计一个查找界面,在某列表框中输入了一些单词并已经按字母顺序排序（设置其Sorted属性为True），运行界面如图7_2所示，完成以下功能:
在文本框Text1中输入要查找的单词，输入过程中将同时选中列表框中与当前内容接近（前几个字母与输入内容相同）或相同的单词。
按回车键结束输入，并将当前列表框中选中的单词显示于图片框Picture1中。
如果要查找的单词不存在,不做任何处理。
在文本框中输入要查找的内容后，如果不按回车键而按"
按钮，也将当前列表框中选中的单词显示于图片框Picture1中。
双击列表框中的项目也可以将该项内容显示于图片框Picture1中。
单击"
按钮清除文本框Text1中的内容,并取消当前列表框中的选择项。
实现以上各功能的事件过程如下:
PrivateSubText1_Change（）'
在文本框中输入单词的过程中进行查找
l=Len（Text1.Text）
Ifl>
0Then
Fori=0ToList1.ListCount-1
IfText1.Text=Left（List1.
（1）Then
List1.
（2）（i）=True
List1.ListIndex=-1
PrivateSubCommand1_Click（）'
确定
IfList1.ListIndex>
=1Then'
如果在列表框中选择了某项
Picture1.Print（3）
PrivateSub（4）（）'
双击列表框中的项目
picture1.Print（5）
PrivateSubCommand1_Click（）'
取消
Text1.Text="
IfList1.ListIndex>
=0ThenList1.Selected（（6））=（7）
PrivateSubText1.KeyUp（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=13Then
If（8）Then
picture1.Print（9）
5.设在窗体上放置了两个定时器Timer1和Timer2，以下程序用于每隔2分钟向窗体上输出当前的系统时间，并打印一个（0,1）之间的随机数。
PrivateSubForm_Load（）
Show
PrintTime（）,Rnd
Timer1.Interval=60000
Timer2.Interva2=
（1）
Timer1.Enabled=True
Timer2.Enabled=False
PrivateSubTimer1_Timer（）
Timer2.Enabled=
（2）
Timer1.Enabled=（3）
PrivateSubTimer2_Timer（）
PrintTime（）,Rnd
Timer1.Enabled=（4）
Timer2.Enabled=（5）
6.设在界面上放置了一个滚动条HScroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时,或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。
PrivateSubHScroll1_
（1）（）
Label1.Caption=HScroll1.
（2）
要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码:
PrivateSubHScro111_（3）（）
Label1.Caption=HScroll1.（4）
第8童数组
1.以下【】是VisualBasic合法的数组元素。
（A）X9（B）X[9]（C）X（I+1）（D）X（X（5））（E）x{6}（F）X（0）
2.下面的数组声明语句中【】是正确的。
（A）DimA[3,4]AsInteger（B）DimA（3,4）AsInteger
（C）DimA[3;
4]AsInteger（D）DimA（3:
4）ASInteger
3.下面的数组声明语句中【】是正确的。
（A）DimMA[1:
5,1:
5]AsString（B）DimMA（5To5）AsString
（C）DimMA（1To5,1To5）AsString（D）DimMA（1:
5）ASString
（E）DimMA（1To5;
1To5）AsString（F）DimMA（1To5,5）AsString
4.设有数组声明语句:
OptionBase1
DimA（2,-1To1）
以上语句所定义的数组A为【】维数组，共有【】个元素,第一维下标从【】到【】，第二维下标从【】到【】。
（A）-1（B）1（C）2（D）3（E）4（F）5（G）6（H）9
5.设有数组声明语句:
OptionBase0
DimB（-1To10,2To9,20）AsInteger
则数组B中共有【】个元素。
（A）1800（B）1848（C）20161（D）2310
6.使用语句DimA（1To15）AsInteger声明数组A之后，以下说法正确的有【】。
（A）A数组中的所有元素值为0（B）A数组中的所有元素值不确定
（C）A数组中的所有元素值为EmptyD）执行EraseA后,A数组中的所有元素值为0
7.以下说法正确的有【】。
（A）使用Redim语句将释放动态数组所占的存储空间
（B）使用Redim语句也可以保留动态数组中原有的内容
（C）使用Erase语句将释放动态数组所占的存储空间
（D）使用Erase语句将释放固定大小数组所占的存储空间
8.以下说法不正确的是【】。
（A）使用ReDim语句可以改变数组的维数（B）使用ReDim语句可以改变数组的类型
（C）使用ReDim语句可以改变数组每一维的大小（D）使用ReDim语句可以对数组中的所有元素进行初始化
9.设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是【】。
（A）命令按钮的所有Caption属性都是Command1
（B）在代码中访问任意一个命令按钮只需使用名称Command1
（C）命令按钮的大小都相同
（D）命令按钮共享相同的事件过程
10.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。
设窗体Form1标题为"
myform1"
，双击控件数组中的第三个按钮，打开代码编辑器,写如下代码：
PrivateSubM1_Click（IndexAsInteger）
Form1.Caption="
myform2"
运行时，单击按钮数组中的第一个按钮，窗体标题为【】。
（A）Form1（B）M1（C）myform1D）myform2
二、填空题
1.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为:
2.设有数组声明语句:
DimA（-lTo2,2）AsInteger，则数组A中
升级会员 