2022年二年级下vb期中.docx

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

1、精选学习资料 - - - - - - - - - 2022-2022 学年下学期期中考试二年级读书破万卷下笔如有神VB试卷D. 把 2 组单项按钮分别画到2 个不同的框架中学号姓名成果7、假如一个直线在窗体上出现为一条垂直线,就可以确定的是（）一、挑选题（共60 分）A. 它的 Y1、Y2 属性的值相等1、假定编写了如下 4 个窗体大事的大事的过程,就运行应用程序并显示窗体后,已经执行的大事过程是（）A. load B. Click C. LostFocus D. Keypress 2、为了使标签具有“ 透亮 ”的显示成效,需要设置的属性是（）；B.它的 X1、X2 属性的值相等 C.它的 X

2、1、X2 属性的值分别与 X2、Y2 属性的值相等 D.它的 X1、X2 属性的值分别与 Y12、Y2 属性的值相等A. Caption B. Alignment C. Backstyle D.Autosize ）8、要使单击命令按钮与按“Esc” 键实现相同的作用,就应设置（）属性为 True. 3、下面可以产生 20-30（含 20 和 30）的随机整数的表达式是（A. Enabled B. Visual C.Default D.Cancel A. Int（Rnd*10+20）B. Intrnd*11+20 9.设 a=2 ,b=3 c=4, d=5 ,就下面语句的输出是（）C. Int（

3、Rnd*20+30 ）D. Int（Rnd*30+20）Print 32*b or a=c and bc or cd 4、 设窗体上有一个名称为 HS1 的水平滚动条,假如执行了语句：HS1.Value=（HS1.max HS1.Min ）/2+HS1.Min 就：A.False B.1 C.True D.-1 9.窗体 Form1 上有一个名称为 Command1 的命令按钮, 以下对应窗体单击大事的大事过程是（）名师归纳总结 A滚动块处于最左端B. 滚动块处于最右端A.Option1.Value=True B. Option1.Value=True 第 1 页,共 5 页C. 滚动块处于中

4、间位置 属性的值D. 滚动块可能处于任何位置,详细位置取决于Max、MinCheck1.value=False Check1.value=True 5、窗体上有一个名称为Cb1 的组合框,程序运行后,为了输出选中的列表项,应使C. Option1.Value=False D. Option1.Value=True 用的语句是（）；Check1.value=True Check1.value=1 A. print Cb1.selected B. Print Cb1.listCb1.listindex 10. 为了在列表框中使用“Ctrl” 和“ Shift” 键进行多个列表项的挑选,应将列表框的

5、C.Print Cb1.selected.Text D.Print Cb1.listlistindex MultiSelect 属性设置为（）6、为了在窗体上建立2 组单项按钮,并且当程序运行时,每组郉可以有一个单项按A. 0 B. 2 C. False D. True 11. 在修改列表框内容时, AddItem 方法的作用是（）钮被选中,就以下做法中正确选项（）A. 把这 2 组单项按钮设置为名称不同的2 个控件数组A. 清除列表框中的全部内容B. 删除列表框中的指定项目C.在列表框中插入多行文本D. 在列表框中插入一行文本B.使 2 组单项按钮的 Index 属性分别不同C.使 2 组单

6、项按钮的名称分别相同12. 要清除列表框中的全部列表项时,应使用（）方法- - - - - - -精选学习资料 - - - - - - - - - A.Remove B. Columns C. RemoveItem D. Clear 读书破万卷下笔如有神B. Min C. Max 和 Min 之间 D. Max 和 Min 之外A. Max 13. 组合框控件是将（） 组合成一个控件18.滚动条的 Scroll 和 Change两个大事 ,当拖动滚动条时 ,以下说法正确选项 A. 列表框控件和文本框控件B. 标签控件和列表框控件A. Chang 大事先于 Scroll 大事发B.生 Scrol

7、l 大事先于 Change大事发生C. 标签控件和文本框控件D. 复选框控件和选项按钮控件C.会发生 Scroll 大事 ,但不会发生 Change大事14. 设组合框 Combo1 中有 3 个项目,就以下能删除最终一项的语句是（）D.会发生 Change大事,但不会发生 Scroll 大事A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 19.为了使图像框自动适应图形的大小,就应 C. Combo1.RemoveItem 3 D. Combo1.RemoveItem Combo1.listcount A. 将其 Stretch属性值设置为 F

8、alse B.将其 AutoSize 属性值设置为 False 15. 以下表达中正确选项 C.将其 Stretch属性值设置为 True D.将其 AutoSize 属性值设置为 True A. 列表框包含了组合框的功能B.组合框包含了列表框的功能20. 窗体上有一个图片控件和一个按钮控件以下程序执行的结果是 C.列表框和组合框的功能无相近之处D.列表框和组合框的功能完全相同Private Sub command1_click 16. 在窗体上有一个列表框和一个文本框,编写如下两个大事过程：Picture1.picture =loadpicture“c:1.jpg” 名师归纳总结 Priva

9、te Sub Form_Load ,就输出结果Picture1.cls 第 2 页,共 5 页List1.additem “平顶山 ”Picture1.print “ Test ”List1.additem “郑州 ”End Sub List1.additem “开封 ”A.窗体无显示 , 图像框显示图片和文字Test B.窗体上显现 Test文本 ,图像框显示图片1.jpg Text1.text=“”C.窗体上显现 Test 文本,图像框无显示D.窗体上无显示 ,图像框只显示 Test文字End sub 21.程序运行时,向图像框p1 中加载“C:car.bmp” 图像文件,应使用（）Pri

10、vate sub List1_Click A. P1.picture= loadpicture（C:car.bmp）Print Text1.text + List1.text B. Picture1.Picture=loadpicture（“ C:car.bmp” ）End Sub C. Picture1.Picture=（“ C:car.bmp” ）程序运行后,在文本框中输入“ 河南”,然后单击列表框中的“ 平顶山”D. P1.picture= loadpicture（“ C:car.bmp” ）为（）；22. 可以作为其他控件容器的控件（）A. 平顶山河南B. 河南郑州C.河南开封D.河南

11、平顶山A. 窗体控件,标签控件,图像框控件B. 窗体控件,框架控件,图像框控件17. 当滚动框位于最左端或最上端时,value 属性被设置为 C. 窗体控件,文本框控件,框架控件D.窗体控件,列表框控件,图像框控件- - - - - - -精选学习资料 - - - - - - - - - 23. 下面关于控件属性说法不正确选项（）；读书破万卷下笔如有神B. 按钮中心点到窗体左端的距离A. 按钮左端到窗体左端的距离A. BackColor 属性返回或设置控件中文本和图形的背景颜色C. 按钮左端到图像框左端的距离D. 按钮中心点到图像左端的距离D. Form 控件B. Name 属性返回在代码中用

12、于控件的名称28. 使用 CommandDialog 控件的（）方法,可显示“ 打开” 对话框C. ForeColor 属性返回或设置控件中文本的字体和背景颜色A. ShowOpen B. ShowSave C. ShowColor D. ShowPrinter D. Caption 属性返回或设置在控件中显示的文本29.在窗体上建立通用对话框需要添加的控件是（）24. 以下关于框架的描述有误的是（）A. Data 控件B. CommanDialog 控件C. VBComboBox 控件A. 框架是一个容器控件,用于对屏幕上的对象分组30. 下面关于控件属性说法不正确选项（）B.不同的对象可以

13、放在同一框架中 C.框架的默认名称为 FrameX（X 为 1,2,3,D.框架的背景可以显示图形A. Height 和 Width 属性返回或设置控件的高度和宽度 B. Enabled 属性返回或设置一个布尔值,打算控件是否响应用户生成大事 C.Left 和 Right 属性返回或设置控件左边缘和右边缘与容器左边缘和右边缘间的距离名师归纳总结 25. 假如在窗体上画了一个名称为Timer1 的计时器和一个名称为Label1 的标签,计D.Visible 属性返回或设置一个布尔值,打算控件是否可见第 3 页,共 5 页时器的属性设置为Enabled=True ,Interval=0,并编程如下

14、,期望在程序运行时,可二、判定题（共10 分）以每 5 秒在标签上显示一次系统当前时间. 1、控件的全部属性值既可在设计阶段通过属性窗口进行设置也可以通过代码来设置；Private Sub Time1_Timer 2、图像框不是容器对象,不行以在此控件中放置其他控件Label1.Caption=Time$ 3、假如单项按钮被选中,就该单项按钮控件的Value值为单项按钮的文字字符串End Sub 4、假如列表框控件的项目总数超过了可显示的项目数,就自动在列表框控件上添加在程序执行时发觉未能实现上述目的,那么,应做的修改是（）滚动条；A通过属性窗口把计时器的Enabled属性设置为 False

15、5、列表框控件不支持DblClick 大事,但支持 Click 大事B.通过属性窗口把计时器的Interval 属性设置为 5000 6、在 Visual Basic窗体上的任何一点都可以用X 坐标和 Y 坐标表示C.把大事过程中的 Label1.Caption=Time$语句改为Timer1.Interval=Times 7、计时器控件在窗口中是可见的D.把大事过程中的 Label1.Caption=Time$语句改为Label1.Caption2=Timer1.Time 8、假如需要在窗体上添加多个相同类型的控件,可以先添加一个控件并设置其属性,26. 为了使计时器控件每隔5 秒产生一个计

16、时器大事 （Timer）,就就将 Interval 属性值然后通过以下复制操作来添加其他控件；9、使用 Circle 方法画角度为 0 的扇形时,要画出一个半径,这时应设置Start属性值设置为（）A. 5000 B. 500 C. 5 D. 50000 为 0；10、在 Visual Basic 中菜单控件只有一个Click 大事；27如窗体上的图像框中有一个命令按钮,就此按钮的Left 属性是指（）- - - - - - -精选学习资料 - - - - - - - - - 1 2 3 4 5 6 7 8 9 读书破万卷下笔如有神10 Do while y0 Reminder= x mod

17、y 三、填空题 x=y 1、标签控件的 Move 方法用于；y=reminder 2、假如要精确地设置控件的位置和大小,可以在窗体上挑选控件,然后使用属性窗 loop 口的 Top、Height 和 的属性值进行设置；funA=x 3、文本框的 属性用于返回或设置文本框中的文本；4、命令按钮控件的 属性用来指示窗体中命令按钮是否为取消按钮；5、复选框控件的 Value 属性值为 0 时表示,值为 1 时表示,值为 2 时表示；6、列表框控件的 属性用于返回或设置控件的列表部分的项目；7、列表框控件的 属性用于指定列表框的样式；8、滚动条分为 和 两种；9、滚动条的最小值属性是,最大值属性是；1

18、0、组合框有 3 种不同的类型,这 3 种类型是拉式列表框、简洁组合框和下拉式组合框,分别通过把Style 属性设置为两种来实现；11、滚动条分为水平滚动条和End Function 在以下按钮单击大事中调用该函数,就该程序的运行结果是什么？Private Sub Commad1_Click Dim a as integer Dim b as integer a=200 b=25 X=funAa,b 就结果是2. 窗体上有一个命令按钮,命令按钮的单击大事过程如下：Private sub command1_click Dim a 名师归纳总结 12、计时器控件的 Enabled属性打算Dim k

19、 as integer ,s as integer 第 4 页,共 5 页13、框架控件的功能是；S=1 14、计时器控件的属性设置或返回对计时器控件的计时大事各调用间的毫秒A=array1 , 2, 3, 4, 5, 6, 7, 8, 9 数；For k=2 to 7 step 2 15、 文本框的 SetFocus方法用于；S=s*ak 四、写出程序运行结果：Next k 1.有如下函数过程：Print s Function funA （Byval x as integer, Byval y as integer） as integer - - - - - - -精选学习资料 - - -

20、- - - - - - End sub 读书破万卷下笔如有神Dim I as integer 执行程序,请写出程序结果：五、请将该程序补充完整；for i=1 to 10 1、以下程序的功能是：找出给定的12 个数中最大的一个数,然后输出这个数及它在xh=inputbox “ 请输入第”& I & “ 个同学的学号” 原先 12 个数中位置,请将该程序补充完整；stuname=inputbox “ 请输入第”& I & “ 个同学的姓名”Option explicit cj=inputbox“ 请输入第”& I & “ 个同学的成果” Option base 1 Private sub for

21、m_click next i Dim max as integer, k as integer,y as integer Dim x End sub X=array12 ,-4 , 7, 142, 31, -46, 111, -8, 46, -14, 13, 90 for k=2 to 10 step 1 max=k endif next k y=xmax 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 名师归纳总结 - - - - - - -第 5 页,共 5 页