vb考试复习7章8章习题文档格式.docx

1、）（C）P1.Picture=LoadPicture（C:WINDOWSClouds.bmp）（D）Pl.Picture=LoadPicture（7. 运行时,要清除图片框P1中的图像,应使用语句【 】。（B）P1.Picture=LoadPicture（）（C）Picture1.Picture=LoadPicture（D）Picture =LoadPicture（）8. 运行时,要在图片框P1中打印字符串How Are You，应使用语句【 】。（A）Picture1.Print =How Are You （B）P1.Picture =LoadPicture（C）P1.Print How A

2、re Y011（D）Print 9. 要清除已经在图片框P1中打印的字符串而不清除图片框中的图像,应使用语句【 】。（A）P1.Cls （B）P1.PicaIre=LoadPicture（ （D）P1.Picture=10. 以下说法正确的是【 】。（多选）（A）图片框控件除了可以显示图形外，还可以作为控件的容器（B）图像框控件除了可以显示图形外，还可以作为控件的容器（C）图片框控件可以延伸图形的大小以适应控件的大小（D）图像框控件的大小可以随图形大小的改变而自动调整（E）图像框控件可以延伸图形的大小以适应控件的大小11. 以下关于选项按钮的说法,正确的是【 】。（A）选项按钮的Enabled

3、属性用于决定该按钮是否被选中（B）选项按钮的Value属性用于决定该按钮是否被选中（C）选项按钮的Checked属性用于决定该按钮是否被选中（D）选项按钮的Visible属性用于决定该按钮是否被选中12. 以下关于选项按钮的说法,正确的是【 】。（A）一个窗体上（包括其他容器中）的所有选项按钮一次只能有一个被选中（B）一个窗体上（不包括其他容器中）的所有选项按钮一次只能有一个被选中（C）一个容器中的选项按钮可以同时有多个被选中（D）所有容器（多于一个）中的选项按钮一次只能有一个被选中13. 如果有三个选项按钮直接画在窗体上,另有四个选项按钮画在框架中,则运行时,可以同时选中【 】个选项按钮。（

4、A）1 （B）2 （C）3 （D）414. 设已经在某个选项按纽Option1的Click事件过程中编写了一些代码,运行时,以下说法正确的是【 】。（A）任何时候用鼠标单击选项按钮都会执行其Click事件过程（B）任何时候执行语句Option1.Value=True都会执行选项按钮的Click事件过程（C）当选项按钮处于未选择状态时,用鼠标单击选项按钮都会执行其Click事件过程（D）当选项按钮处于未选择状态时,执行语句Option1.Value =True将执行选项按钮的Click事件过程15. 以下关于复选框的说法,正确的是【 】。（A）复选框的Enabled属性用于决定该复选框是否被选中

5、（B）复选框的Value属性用于决定该复选框是否被选中（C）复选框的Checked属性用于决定该复选框是否被选中（D）复选框的Visible属性用于决定该复选框是否被选中16. 以下关于复选框的说法,正确的是【 】。（A）一个窗体上的所有复选框一次只能有一个被选中（B）一个容器中的所有复选框一次只能有一个被选中（C）在一个容器中的复选框可以同时有多个被选中（D）无论是在窗体中还是在其他容器中,都可以同时选中多个复选框17. 设已经在某个复选框Check1的Click事件过程中编写了一些代码,运行时,以下说法正确的是【 】。（A）任何时候用鼠标单击复选框都会执行其Click事件过程（B）任何时候

6、执行语句Check1.Value=1都会执行复选框的Click事件过程（C）任何时候执行语句Check1.Value=0都会执行复选框的Click事件过程（D）任何时候在代码中改变复选框的状态时,都会执行复选框的C1ick事件过程18. 用于指定列表框的列数的属性是【 】；要使列表框中的每一个文本项的边上都有一个复选框,需设置【 】属性；返回或设置列表框中当前选择项目的索引的属性是【 】；返回列表部分项目的个数的属性为【 】；指定列表的元素是否自动按字母表顺序排序的属性为【 】。（A）List （B）ListCount （C）ListIndex （D）Text （E）Sorted（F）Sele

7、cted （G）Columns （H）Count （I）Style （J）Checked19. 下列【 】程序段能删除列表框List1中的所有项。（A） Private Sub Command3_Click（） （B）Private Sub Command3_Click（）For I=0 To List1.ListCount-1 For I=0 To List1.ListCount-1List1.RemoveItem 1 List1.RemoveItem 0Next I Next IEnd Sub End Sub（C） Private Sub Command3_Click（） （D）Priva

8、te Sub Command3_click（）For I=0 To List1.ListCount-1 For I=0 To List1.ListCountList1.RemoveItem1 List1.RemoveItem 020. 要选择列表框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=621. 引用列表框的最后一项应使用【 】。（A）L

9、ist1.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. 如果没有在列表框中选择项目,且列表框的MultiSele

10、ct属性值为默认值（0-None）,则执行语句List1.RemoveItem List1.ListIndex的结果是【 】。（A）删除列表框的最后一项 （B）删除列表框的第一项（C）出错 （D）删除列表框中最后添加的一项24. 当组合框的Style属性设置为0时,其表现形式为【 】。当组合框的Style属性设置为1时,其表现形式为【 】。当组合框的Style属性设置为2时,其表现形式为【 】。（A）下拉列表框 （B）下拉组合框 （C）简单组合框 （D）文本框25. 为了添加 ComboBox 控件中的项目,需要使用【 】方法。为了删除 ComboBox 控件中的项目,需要使用【 】方法。（A

11、）Add （B）Remove （C）AddItem （D）RemoveItem26. 要清除组合框 Combo1 中的所有内容,可以使用【 】语句。（A）Combo1.Cls （B）Combo1.Clear （C）Combo1.Delete （D）Combo1.Remove27. Timer控件的【 】属性决定该控件是否对时间的推移做响应。将该属性设置为False会关闭Timer控件,设置为True 则打开它。（A）Enabled （B）Visible （C）Time （D）Capable28. 定时器的Interval属性以【 】为单位指定Timer事件之间的时间间隔。（A）分 （B）秒 （

12、C）毫秒 （D微妙29. 以下关于定时器的说法,错误的是【 】。（多选）（A）运行时定时器在窗体上不可见（B）可以设置定时器的Visible属性使其在窗体上不可见（C）可以根据需要在窗体上设置定时器的大小（高度和宽度）（D）定时器只有一个Timer事件（E）如果定时器的Interval属性为0，则定时器元效（F）如果定时器的Enabled属性为False，则定时器无效（G）如果定时器的Visible属性为False，则定时器无效30. 要使滚动条表示最大值100，应设置其【 】属性。要使滚动条表示最小值10，应设置其【 】属性。要使每次单击滚动条两端箭头时变化值为10，应设置其【 】属性。要使

13、单击滚动条滑块与两端箭头之间的空白区域时变化值为20，应设置其【 】属性。（A）Minmize （B）Min （C）MinChange （D）SmallChange（E）Maxmize （F）Max （G）MaxChange （H）LargeChange31. 下面【 】控件不支持Change事件。（A）TextBox （B）Label （C）PictureBox （D）ListBox32. 下面【 】控件不支持DblClick事件。（A）OptionButton （B）CheckBox （C）Form （D）Image二、 程序填空1. 设某数制转换界面如图7-1所示，请补齐转换按钮Comm

14、and1的Click事件过程，运行时单击该按钮将输入的十进制数转换成八进制或十六进制。已知八进制转换函数为Oct（Number），十六进制转换函数为Hex（Number），其中，Number为要被转换的数。Private Sub Command1_Click（）If （1） Then Text2.Text=Oct（ （2） ）If （3） Then Text2.Text=Hex（ （4） ）End Sub2. 设某列表框共有10项,按题目要求补齐程序,完成相应的功能。按下命令按钮Command1时将列表框第8项的内容显示在窗体上:List1. （1） （7）=TruePrint List1.

15、（2） 单击列表框某一项时立即将该项打印在窗体上:Private Sub ListL_Click（）Print （3） 按下命令按钮Command2时在窗体上删除其第1、3、5、7、9项:Private Sub Command2_Click（）For i=1 To 5List1. （4） Next i在列表框的每一项之后插入一个新的项:Private Sub Command3_Click（）For i=1 To 1Ox=InputBox（请输入插入的第&i&项内容List1.AddItem （5） 3. 设在窗体Form1上有一个列表框List1，单击窗体用输入框输入数据。如果在输入框中输入了

16、一定内容并按了确定按钮后,则按以下情况进行处理:如果输入的内容在字母a到z之间,且列表框中没有该字母,则将其添加到列表框中,然后继续显示输入框,提示输入下一个字母。之间,且在列表框中已经存在,则显示一消息框,提示字母已经存在,然后继续显示输入框,提示输入下一个字母。如果输入的内容不在字母之间,则显示一消息框,提示输入数据不在指定范围内如果在输入框中按了取消按钮,或输入内容为空,则停止输入。Private Sub Form_Click（）Do While TrueExist =0x=Trim（InputBox（请输入a到z之间的一个字母,If x= And x0 ThenFor i=0 To L

17、ist1.ListCount-1If Text1.Text = Left（List1. （1） ThenList1. （2） （i）=TrueList1.ListIndex=-1Private Sub Command1_Click（） 确定If List1.ListIndex=1 Then 如果在列表框中选择了某项Picture1.Print （3） Private Sub （4） （） 双击列表框中的项目picture1.Print （5） Private Sub Command1_ Click（） 取消 Text1.Text=If List1.ListIndex =0 Then List1

18、.Selected（ （6） ）= （7） Private Sub Text1.KeyUp（KeyCode As Integer, Shift As Integer）If KeyCode=13 ThenIf （8） Thenpicture1.Print （9） 5. 设在窗体上放置了两个定时器Timer1和Timer2，以下程序用于每隔2分钟向窗体上输出当前的系统时间，并打印一个（0,1）之间的随机数。Private Sub Form_Load（） Show Print Time（）,RndTimer1.Interval=60000Timer2.Interva2= （1） Timer1.Ena

19、bled=TrueTimer2.Enabled=FalsePrivate Sub Timer1_Timer（）Timer2.Enabled= （2） Timer1.Enabled= （3） Private Sub Timer2_Timer（）Print Time（）,RndTimer1.Enabled = （4） Timer2.Enabled= （5） 6. 设在界面上放置了一个滚动条HScroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时,或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。Private Sub HScroll1_ （1）

20、（）Label1.Caption =HScroll1. （2） 要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码:Private Sub HScro111_ （3） （）Label1.Caption =HScroll1. （4） 第8童 数组1. 以下【 】是Visual Basic合法的数组元素。（A）X9 （B）X9 （C）X（I+1） （D）X（X（5） （E）x6 （F）X（0）2. 下面的数组声明语句中【 】是正确的。（A）Dim A3,4 As Integer （B）Dim A（3,4） As Integer（C）Dim A3;4 As Integer （D）Dim A

21、（3:4） AS Integer3. 下面的数组声明语句中【 】是正确的。（A）Dim MA1:5,1:5 As String （B）Dim MA（5 To 5） As String（C）Dim MA（1 To 5,1 To 5） As String （D）Dim MA（1:5）AS String（E）Dim MA（1 To 5;1 To 5） As String （F）Dim MA（1 To5,5） As String4. 设有数组声明语句:Option Base 1Dim A（2,-1 To 1）以上语句所定义的数组A为【 】维数组，共有【 】个元素,第一维下标从【 】到【 】，第二维下标

22、从【 】到【 】。（A）-1 （B）1 （C）2 （D）3 （E）4 （F）5 （G）6 （H）95. 设有数组声明语句:Option Base 0Dim B（-1 To 10,2 To 9,20） As Integer则数组B中共有【 】个元素。（A）1800 （B）1848 （C）20161 （D）23106. 使用语句Dim A（1 To 15） As Integer声明数组A之后，以下说法正确的有【 】。（A）A数组中的所有元素值为0 （B）A数组中的所有元素值不确定（C）A数组中的所有元素值为Empty D）执行Erase A后,A数组中的所有元素值为07. 以下说法正确的有【 】。

23、（A）使用Redim语句将释放动态数组所占的存储空间（B）使用Redim语句也可以保留动态数组中原有的内容（C）使用Erase语句将释放动态数组所占的存储空间（D）使用Erase语句将释放固定大小数组所占的存储空间8. 以下说法不正确的是【 】。（A）使用ReDim语句可以改变数组的维数 （B）使用ReDim语句可以改变数组的类型（C）使用ReDim语句可以改变数组每一维的大小 （D）使用ReDim语句可以对数组中的所有元素进行初始化9. 设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是【 】。（A）命令按钮的所有Caption属性都是Command1（B

24、）在代码中访问任意一个命令按钮只需使用名称Command1（C）命令按钮的大小都相同（D）命令按钮共享相同的事件过程10. 在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为 myform1，双击控件数组中的第三个按钮，打开代码编辑器,写如下代码：Private Sub M1_Click（Index As Integer）Form1.Caption =myform2运行时，单击按钮数组中的第一个按钮，窗体标题为【 】。（A）Form1 （B）M1 （C）myform1 D）myform2二、 填空题1. 设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为: 2. 设有数组声明语句:Dim A（-l To 2,2） As Integer，则数组A中