2022年二年级下vb期中 .pdf

《2022年二年级下vb期中 .pdf》由会员分享，可在线阅读，更多相关《2022年二年级下vb期中 .pdf（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、读书破万卷下笔如有神2010-2011 学年下学期期中考试二年级VB 试卷学号姓名成绩一、选择题（共60 分）1、假定编写了如下4 个窗体事件的事件的过程，则运行应用程序并显示窗体后，已经执行的事件过程是（）A. load B. Click C. LostFocus D. Keypress 2、为了使标签具有“透明 ” 的显示效果，需要设置的属性是（） 。A. Caption B. Alignment C. Backstyle D.Autosize 3、下面可以产生 20-30（含 20 和 30）的随机整数的表达式是（）A. Int（Rnd*10+20）B. Int(rnd*11+20) C

2、. Int（Rnd*20+30 ）D. Int（Rnd*30+20）4、 设窗体上有一个名称为HS1 的水平滚动条，如果执行了语句：HS1.Value=（HS1.max HS1.Min）/2+HS1.Min 则：A滚动块处于最左端B. 滚动块处于最右端C. 滚动块处于中间位置D. 滚动块可能处于任何位置，具体位置取决于Max、Min属性的值5、窗体上有一个名称为Cb1 的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（） 。A. print Cb1.selected B. Print Cb1.list(Cb1.listindex) C.Print Cb1.selected.Text

3、D.Print Cb1.list(listindex) 6、为了在窗体上建立2 组单选按钮，并且当程序运行时，每组郉可以有一个单选按钮被选中，则以下做法中正确的是（）A.把这 2 组单选按钮设置为名称不同的2 个控件数组B.使 2 组单选按钮的 Index 属性分别不同C.使 2 组单选按钮的名称分别相同D. 把 2 组单选按钮分别画到2 个不同的框架中7、如果一个直线在窗体上呈现为一条垂直线，则可以确定的是（）A. 它的 Y1、Y2 属性的值相等B.它的 X1、X2 属性的值相等C.它的 X1、X2 属性的值分别与 X2、Y2 属性的值相等D.它的 X1、X2 属性的值分别与 Y12、Y2

4、属性的值相等8、要使单击命令按钮与按“Esc”键实现相同的作用，则应设置（）属性为 True. A. Enabled B. Visual C.Default D.Cancel 9.设 a=2 ,b=3 c=4, d=5 ,则下面语句的输出是（）Print 32*b or a=c and bc or cd A.False B.1 C.True D.-1 9.窗体 Form1 上有一个名称为 Command1的命令按钮， 以下对应窗体单击事件的事件过程是（）A.Option1.Value=True B. Option1.Value=True Check1.value=False Check1.va

5、lue=True C. Option1.Value=False D. Option1.Value=True Check1.value=True Check1.value=1 10. 为了在列表框中使用“ Ctrl”和“Shift”键进行多个列表项的选择，应将列表框的MultiSelect 属性设置为（）A. 0 B. 2 C. False D. True 11. 在修改列表框内容时， AddItem 方法的作用是（）A. 清除列表框中的全部内容B. 删除列表框中的指定项目C.在列表框中插入多行文本D. 在列表框中插入一行文本12. 要清除列表框中的所有列表项时，应使用（）方法精选学习资料 -

6、- - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 5 页读书破万卷下笔如有神A.Remove B. Columns C. RemoveItem D. Clear 13. 组合框控件是将（） 组合成一个控件A. 列表框控件和文本框控件B. 标签控件和列表框控件C. 标签控件和文本框控件D. 复选框控件和选项按钮控件14. 设组合框 Combo1 中有 3 个项目，则下列能删除最后一项的语句是（）A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3 D. Combo1.R

7、emoveItem Combo1.listcount 15. 下列叙述中正确的是 ( ) A. 列表框包含了组合框的功能B.组合框包含了列表框的功能C.列表框和组合框的功能无相近之处D.列表框和组合框的功能完全相同16. 在窗体上有一个列表框和一个文本框，编写如下两个事件过程：Private Sub Form_Load( ) List1.additem “ 平顶山 ”List1.additem “ 郑州 ”List1.additem “ 开封 ”Text1.text=“ ”End sub Private sub List1_Click( ) Print Text1.text + List1.t

8、ext End Sub 程序运行后，在文本框中输入“河南” ，然后单击列表框中的“平顶山” ，则输出结果为（） 。A. 平顶山河南B. 河南郑州C.河南开封D.河南平顶山17. 当滚动框位于最左端或最上端时,value 属性被设置为 ( ) A. Max B. Min C. Max 和 Min 之间 D. Max 和 Min 之外18.滚动条的 Scroll 和 Change两个事件 ,当拖动滚动条时 ,以下说法正确的是 ( ) A. Chang 事件先于 Scroll 事件发B.生 Scroll 事件先于 Change事件发生C.会发生 Scroll 事件,但不会发生 Change事件D.会

9、发生 Change事件,但不会发生 Scroll 事件19.为了使图像框自动适应图形的大小，则应( ) A. 将其 Stretch属性值设置为 False B.将其 AutoSize 属性值设置为 False C.将其 Stretch属性值设置为 True D.将其 AutoSize 属性值设置为 True 20. 窗体上有一个图片控件和一个按钮控件下列程序执行的结果是( ) Private Sub command1_click( ) Picture1.picture =loadpicture(“ c:1.jpg” ) Picture1.cls Picture1.print “ Test ”E

10、nd Sub A.窗体无显示 , 图像框显示图片和文字Test B.窗体上出现 Test文本 ,图像框显示图片1.jpg C.窗体上出现 Test文本,图像框无显示D.窗体上无显示 ,图像框只显示 Test文字21.程序运行时，向图像框p1 中加载“ C:car.bmp”图像文件，应使用（）A. P1.picture= loadpicture（C:car.bmp）B. Picture1.Picture=loadpicture （ “C:car.bmp” ）C. Picture1.Picture=（ “C:car.bmp” ）D. P1.picture= loadpicture（ “C:car.

11、bmp” ）22. 可以作为其他控件容器的控件（）A. 窗体控件，标签控件，图像框控件B. 窗体控件，框架控件，图像框控件C. 窗体控件，文本框控件，框架控件D.窗体控件，列表框控件，图像框控件精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 5 页读书破万卷下笔如有神23. 下面关于控件属性说法不正确的是（） 。A. BackColor 属性返回或设置控件中文本和图形的背景颜色B. Name 属性返回在代码中用于控件的名称C. ForeColor属性返回或设置控件中文本的字体和背景颜色D. Caption 属性返回或设置在控件中显示的文

12、本24. 下列关于框架的描述有误的是（）A.框架是一个容器控件，用于对屏幕上的对象分组B.不同的对象可以放在同一框架中C.框架的默认名称为 FrameX（X 为 1，2，3，D.框架的背景可以显示图形25. 如果在窗体上画了一个名称为Timer1 的计时器和一个名称为Label1 的标签，计时器的属性设置为Enabled=True ，Interval=0，并编程如下，希望在程序运行时，可以每 5 秒在标签上显示一次系统当前时间. Private Sub Time1_Timer( ) Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么，应做的修改是（

13、）A通过属性窗口把计时器的Enabled属性设置为 False B.通过属性窗口把计时器的Interval 属性设置为 5000 C.把事件过程中的 Label1.Caption=Time$语句改为Timer1.Interval=Times D.把事件过程中的 Label1.Caption=Time$语句改为Label1.Caption2=Timer1.Time 26. 为了使计时器控件每隔5 秒产生一个计时器事件 （Timer） ，则就将 Interval 属性值设置为（）A. 5000 B. 500 C. 5 D. 50000 27若窗体上的图像框中有一个命令按钮，则此按钮的Left 属性

14、是指（）A. 按钮左端到窗体左端的距离B. 按钮中心点到窗体左端的距离C. 按钮左端到图像框左端的距离D. 按钮中心点到图像左端的距离28. 使用 CommandDialog 控件的（）方法，可显示“打开”对话框A. ShowOpen B. ShowSave C. ShowColor D. ShowPrinter 29.在窗体上建立通用对话框需要添加的控件是（）A. Data 控件B. CommanDialog 控件C. VBComboBox 控件D. Form 控件30. 下面关于控件属性说法不正确的是（）A. Height 和 Width 属性返回或设置控件的高度和宽度B. Enabled

15、 属性返回或设置一个布尔值，决定控件是否响应用户生成事件C.Left 和 Right 属性返回或设置控件左边缘和右边缘与容器左边缘和右边缘间的距离D.Visible 属性返回或设置一个布尔值，决定控件是否可见二、判断题（共10 分）1、控件的所有属性值既可在设计阶段通过属性窗口进行设置也可以通过代码来设置。2、图像框不是容器对象，不可以在此控件中放置其他控件3、如果单选按钮被选中，则该单选按钮控件的Value值为单选按钮的文字字符串4、如果列表框控件的项目总数超过了可显示的项目数，就自动在列表框控件上添加滚动条。5、列表框控件不支持DblClick 事件，但支持 Click 事件6、在 Vis

16、ual Basic窗体上的任何一点都可以用X 坐标和 Y 坐标表示7、计时器控件在窗口中是可见的8、如果需要在窗体上添加多个相同类型的控件，可以先添加一个控件并设置其属性，然后通过以下复制操作来添加其他控件。9、使用 Circle 方法画角度为 0 的扇形时，要画出一个半径，这时应设置Start属性值为 0。10、在 Visual Basic中菜单控件只有一个Click 事件。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 5 页读书破万卷下笔如有神1 2 3 4 5 6 7 8 9 10 三、填空题1、标签控件的 Move 方法用于。

17、2、如果要精确地设置控件的位置和大小，可以在窗体上选择控件，然后使用属性窗口的 Top、Height 和的属性值进行设置。3、文本框的属性用于返回或设置文本框中的文本。4、命令按钮控件的属性用来指示窗体中命令按钮是否为取消按钮。5、复选框控件的 Value属性值为 0 时表示，值为 1 时表示，值为 2 时表示。6、列表框控件的属性用于返回或设置控件的列表部分的项目。7、列表框控件的属性用于指定列表框的样式。8、滚动条分为和两种。9、滚动条的最小值属性是，最大值属性是。10、组合框有 3 种不同的类型，这 3 种类型是拉式列表框、简单组合框和下拉式组合框，分别通过把Style 属性设置为来实现

18、。11、滚动条分为水平滚动条和两种12、计时器控件的 Enabled属性决定13、框架控件的功能是。14、计时器控件的属性设置或返回对计时器控件的计时事件各调用间的毫秒数。15、 文本框的 SetFocus方法用于。四、写出程序运行结果：1.有如下函数过程：Function funA （Byval x as integer, Byval y as integer ）as integer Do while y0 Reminder= x mod y x=y y=reminder loop funA=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是什么？Privat

19、e Sub Commad1_Click( ) Dim a as integer Dim b as integer a=200 b=25 X=funA(a,b) 则结果是2. 窗体上有一个命令按钮，命令按钮的单击事件过程如下：Private sub command1_click() Dim a Dim k as integer ,s as integer S=1 A=array(1 , 2, 3, 4, 5, 6, 7, 8, 9) For k=2 to 7 step 2 S=s*a(k) Next k Print s 精选学习资料 - - - - - - - - - 名师归纳总结 - - -

20、- - - -第 4 页，共 5 页读书破万卷下笔如有神End sub 执行程序，请写出程序结果：五、请将该程序补充完整。1、下列程序的功能是：找出给定的12 个数中最大的一个数，然后输出这个数及它在原来 12 个数中位置，请将该程序补充完整。Option explicit Option base 1 Private sub form_click() Dim max as integer, k as integer,y as integer Dim x X=array(12 ,-4 , 7, 142, 31, -46, 111, -8, 46, -14, 13, 90) for k=2 to

21、10 step 1 max=k endif next k y=x(max) print max,y End sub 2. 在 C盘的根目录中，建立一个名为aa.txt的顺序文件，在运行时要求从键盘上输入 10 个学生的信息（每个学生的信息包括学号、姓名、成绩）并且把学生的信息写入到 aa.txt中，请正确填写空白处。Private sub form_click() Dim xh as string ,stuname as string ,cj as integer Dim I as integer for i=1 to 10 xh=inputbox( “请输入第” & I & “个学生的学号” ) stuname=inputbox( “请输入第” & I & “个学生的姓名” ) cj=inputbox(“请输入第” & I & “个学生的成绩” ) next i End sub 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 5 页