vb考试复习7章8章习题.docx
《vb考试复习7章8章习题.docx》由会员分享,可在线阅读,更多相关《vb考试复习7章8章习题.docx(37页珍藏版)》请在冰点文库上搜索。
vb考试复习7章8章习题
第7章VisualBasic常用内部控件
一、选择题
1.以下关于Name属性的说法,错误的是【】。
(A)Name属性必须以一个字母开始
(B)Name属性可以在属性窗口修改,也可以在代码中修改
(C)所有控件都有Name属性,其值不能为空
(D)"Form1.frm"是一个非法的对象名
2.用于设置粗体字的属性是【】,用于设置斜体字的属性是【】,用于设置删除线的属性是【】,用于设置下划线的属性是【】。
(A)FontName(B)Fontsize(C)FontBold(D)FontItalic
(E)FontStrikethru(F)Fontunderline(G)Font(H)Bdd
3.要使控件与框架捆绑在一起,以下操作正确的是【】。
(A)在窗体不同位置上分别画一框架和控件,再将控件拖到框架上
(B)在窗体上画好控件,再画框架将控件框起来
(C)在窗体上画好框架,再在框架中画控件
(D)在窗体上画好框架,再双击工具箱中的控件
4.设已在窗体上画好一个容器控件(如框架),要在容器控件中建立一个命令按钮数组,以下操作正确的是【】。
(A)逐次单击工具箱中的命令按钮,再在容器中画出按钮即可
(B)在容器上画出按钮,选择按钮,复制,粘贴,并回答创建控件数组,再重复粘贴
(C)在容器上画出按钮,选择按钮,复制,再选择容器,粘贴,并回答创建控件数组,再重复粘贴
(D)在容器上画出一个按钮,按下"ctr1"键,同时拖动按钮到容器中的另一个位置
5.要使一个图片框控件能自动地附着在窗体的一条边上,应设置它的【】属性。
(A)Picture(B)Alignment(C)Border(D)Align
6.运行时,要向图片框P1中加载"C:
\WINDOWS\Clouds.bmp"图像文件,应使用语句【】。
(A)Picture1.Picture="C:
\WINDOWS\Clouds-bmp"
(B)Picture1.Picture=LoadPicture("C:
\WINDOWS\Clouds.bmp")
(C)P1.Picture=LoadPicture(C:
\WINDOWS\Clouds.bmp)
(D)Pl.Picture=LoadPicture("C:
\WINDOWS\Clouds.bmp")
7.运行时,要清除图片框P1中的图像,应使用语句【】。
(A)Picture1.Picture=""
(B)P1.Picture=LoadPicture()
(C)Picture1.Picture=LoadPicture
(D)Picture=LoadPicture()
8.运行时,要在图片框P1中打印字符串"HowAreYou",应使用语句【】。
(A)Picture1.Print="HowAreYou"
(B)P1.Picture=LoadPicture("HowAreYou")
(C)P1.Print"HowAreY011"
(D)Print"HowAreYou"
9.要清除已经在图片框P1中打印的字符串而不清除图片框中的图像,应使用语句【】。
(A)P1.Cls(B)P1.PicaIre=LoadPicture("")
(C)P1.Print""(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
NextINextI
EndSubEndSub
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"hello",List1.ListCount-1
(B)List1.AddItem"he11o",List1.ListCount
(C)List1.AddItem"hello",List1.ListIndex
(D)List1.AddItem"hello"
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项的内容显示在窗体上:
PrivateSubCommand1_Click()
List1.
(1)(7)=True
PrintList1.
(2)
EndSub
·单击列表框某一项时立即将该项打印在窗体上:
PrivateSubListL_Click()
Print(3)
EndSub
·按下命令按钮Command2时在窗体上删除其第1、3、5、7、9项:
PrivateSubCommand2_Click()
Fori=1To5
List1.(4)
Nexti
EndSub
·在列表框的每一项之后插入一个新的项:
PrivateSubCommand3_Click()
Fori=1To1O
x=InputBox("请输入插入的第"&i&"项内容")
List1.AddItem(5)
Nexti
EndSub
3.设在窗体Form1上有一个列表框List1,单击窗体用输入框输入数据。
如果在输入框中输入了一定内容并按了"确定"按钮后,则按以下情况进行处理:
·如果输入的内容在字母"a"到"z"之间,且列表框中没有该字母,则将其添加到列表框中,然后继续显示输入框,提示输入下一个字母。
·如果输入的内容在字母"a"到"z"之间,且在列表框中已经存在,则显示一消息框,提示"字母已经存在",然后继续显示输入框,提示输入下一个字母。
·如果输入的内容不在字母"a"到"z"之间,则显示一消息框,提示"输入数据不在指定范围内",然后继续显示输入框,提示输入下一个字母。
如果在输入框中按了"取消"按钮,或输入内容为空,则停止输入。
PrivateSubForm_Click()
DoWhileTrue
Exist=0
x=Trim(InputBox("请输入a到z之间的一个字母","")
Ifx>="a"Andx<="z"Then
Fori=0To
(1)
If
(2)=xThen
MsgBox"字母已经存在",,"注意"
Exist=1
ExitFor
EndIf
Nexti
IfExist=0Then(3)
Else
If(4)Then
ExitSub
Else
MsgBox"输入数据不在指定范围内",,"注意"
EndIf
EndIf
EndSub
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
ExitFor
EndIf
Nexti
Else
List1.ListIndex=-1
EndIf
EndSub
PrivateSubCommand1_Click()'确定
IfList1.ListIndex>=1Then'如果在列表框中选择了某项
Picture1.Print(3)
EndIf
EndSub
PrivateSub(4)()'双击列表框中的项目
picture1.Print(5)
EndSub
PrivateSubCommand1_Click()'取消
Text1.Text=""
IfList1.ListIndex>=0ThenList1.Selected((6))=(7)
EndSub
PrivateSubText1.KeyUp(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=13Then
If(8)Then
picture1.Print(9)
EndIf
EndIf
EndSub
5.设在窗体上放置了两个定时器Timer1和Timer2,以下程序用于每隔2分钟向窗体上输出当前的系统时间,并打印一个(0,1)之间的随机数。
PrivateSubForm_Load()
Show
PrintTime(),Rnd
Timer1.Interval=60000
Timer2.Interva2=
(1)
Timer1.Enabled=True
Timer2.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Timer2.Enabled=
(2)
Timer1.Enabled=(3)
EndSub
PrivateSubTimer2_Timer()
PrintTime(),Rnd
Timer1.Enabled=(4)
Timer2.Enabled=(5)
EndSub
6.设在界面上放置了一个滚动条HScroll1和一个标签控件Label1,要使每次单击滚动条两端箭头时,或单击滚动条滑块与两端箭头之间的空白区域时,标签内容能够反映滚动条的值,补齐以下代码。
PrivateSubHScroll1_
(1)()
Label1.Caption=HScroll1.
(2)
EndSub
·要使拖动滚动条滑块时标签内容能够反映滚动条的值,补齐以下代码:
PrivateSubHScro111_(3)()
Label1.Caption=HScroll1.(4)
EndSub
第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,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"
EndSub
运行时,单击按钮数组中的第一个按钮,窗体标题为【】。
(A)Form1(B)M1(C)myform1D)myform2
二、填空题
1.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为:
2.设有数组声明语句:
DimA(-lTo2,2)AsInteger,则数组A中