Visual Basic程序设计 工业和信息化普通高等教育十二五 规划教材立项项目 双色印刷 习题答案作者 熊李艳 周美玲 7答案.doc

《Visual Basic程序设计 工业和信息化普通高等教育十二五 规划教材立项项目 双色印刷 习题答案作者 熊李艳 周美玲 7答案.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、7.2习题一、选择题1.下列可以把c盘根目录下的图形文件xxl.jpg装入图片框中的语句为()。(A)picture＝”xxl.jpg”(B)picturel．handle＝”xxl.jpg”(C)picturel．picture＝LoadPicture(“c:xxl.jpg”)(D)picturel＝LoadPicture("pic1.jpg")2.复选框的Value属性为1时，表示()。(A)复选框未被选中(B)复选框被选中(C)复选框内有灰色的勾(D)复选框操作有错误3.框架内的所有控件是()。(A)随框架一起移动、显示、消失和屏蔽(B)不随框架一起移动、显示、消失和屏蔽(C)

2、仅随框架一起移动(D)随框架一起显示和消失4.为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（）。(A)Enabled(B)Timer　　(C)Visible(D)Interval5.时钟控件的时间间隔是()。(A)以毫秒计(B)及以分钟计(C)以秒计(D)以小时计6.设计动画时通常使用时钟控件（）来控制动画速度。A.enabled(B)interval(C)timer(D)Move7．程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值将()。(A)增加一个SmallChange量(B)减少一个SmallChange量(C)增加一个LargeChan

3、ge量(D)减少一个LargeChange量8.复选框对象是否被选中，可由其()属性判断。(A)Checked(B)Value(C)Enabled(D)Seledted9.以下控件中，有Caption属性的是（）。(A)单选按钮(B)计时器(C)滚动条(D)列表框10.在程序运行时，如果拖动滚动条上的滚动块，则触发的事件是（）。(A)Move(B)GetFocus(C)Scroll(D)Change11.计时器控件，如果希望每秒产生10个事件，则要将Interval属性的值设置为（）。(A)10(B)100(C)1000(D)1000011.下列控件中，没有AutoSize属性的是（）

4、。(A)标签(B)文本框(C)图片框(D)图像框12.可以使用（）属性在图片框或图像框中显示图形。(A)Picture(B)Image(C)Icon(D)DownPicture13.若要获得滚动条的当前位置，可以通过访问（）属性来实现。(A)Value(B)Max(C)Min(D)LargeChange14.当用鼠标拖动滚动块时触发（）事件。(A)Move(B)Change(C)Scroll(D)GotFocus15.在窗体上放置1个文本框Text1，编写事件过程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsStringstr=

5、Chr(KeyAscii)KeyAscii=Asc(UCase(str))Text1.Text=String(2,KeyAscii)EndSub程序运行后，若在键盘上输入字母“b”，则在文本框Text1中显示的内容是()。(A)bbb(B)BBB(C)BB(D)bb16.设有名称为VScroll1的垂直滚动条，其Max属性为100，Min属性为50，则能正确设置滚动条Value属性值的语句是。A．VScroll1.Value=100B．VScroll1.Value=30C．VScroll1.Value=4*30D．VScroll1.Value=-50在窗体上画一个文本框和一个计时器控件

6、，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False，程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：PrivateSubCommand1_Click()Timer1._________EndSubPrivateSubTimer1_Timer()Text1.Text=TimeEndSubTimer1控件的属性及值为()A．Enabled=TrueB．Enabled=FalseC．Visible=TrueD．Visible=False17.在下列事件过程中，如果

7、选中复选框Check1，则文本变成斜体，如果选中复选框Check2，则Text1的背景色变成蓝色，否则变为黑色。PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontItalic=ElseText1.FontItalic=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.=vbBlueElseText1.=vb