vb程序设计试卷试卷十一
《VB程序设计》试卷试卷T 一、判断题(本题共15分,每小题1分) 1. 保存VB文件时,若一个工程包含多个窗体或模块,则系统先保存工程文件,再分别保存各窗体或模块 文件。 2. VB的“事件”是指由VB预先定义的对象能够识别的动作;“方法”是指用户触发事件的动作。 3. 对象的许多属性可以直接在属性表上设置、修改,并立即在屏幕上看到效果。 4. Dim a,b As Integer语句声明了变量a和变量b都为整形变量。 5. 虽然在同一个过程中不能声明同名的变量;但是在过程中可以声明与模块级变量同名的变量。 6. 字符串常量必须用西文的双引号或单引号括起来。 7. 执行语句“Print X=l”后会在窗体上打印出:X=1。 8. 对于For……Next循环结构,当循环控制变量的值大于终值时,结束循环。 9. 标签的Caption属性值为字符串,运行时可以重新赋值。 10. 要使输入文本框的字符始终显示则应修改其PassWordChar属性为 11. 标签和文本框控件都能显示和输入文本。 12. SetFocus方法是把焦点移到指定对象上,使对象获得焦点,该方法适用于所有控件。 13. 移动框架时框架内控件也跟随移动,但是框架内控件的Left和Top属性值并不会改变。 14. 单击单选钮控件只能将单选钮的Value属性改变为True„ 15. 由于定时器控件在运行时是不可见的,因此在设计界面时可任意地将其放在窗体的任何位置。 二、单选题(本题共15分,每小题1分) 1.工程文件的扩展名为 A . frx B . bas C . vbp D .frm 2.下列选项中不属于事件的是。 A Load B Show C Keypress D Click 3.将控件在窗体中的位置向右边移动一点, 应修改该控件的 属性。 A Top B Left C Width D Right 4.如果将命令按钮的Cancel属性设置为True,那么按下 —键相当于单击该命令按钮 A B C D 5.文本框中选定的内容, 山下列 _属性来反映。 A SelText B SelLength C Text D Caption 6.标签控件标题、文本框控件文本的对齐方式由属性来决定。 A Wordwrap B AutoSize C Alignment D Style C X>0 Or X Mod 2 = 0 D X>0, X Mod 2 = 0 7.选中复选框控件时,Value属性的值为 A True B FalseC 0D 1 8.要使文本框显示滚动条, 需先设置属性。 A AutoSize B MultilineC AlignmentD ScrollBars 9.在VB中程序注解可以加在下列 符号之后。 A, B : C ! D @ 10.语句Print “5+5”的执行结果是 A 5+5B 10 o C “5+5” D出现错误提示 11.下列条件表达式中,用来判断变量X是一个大于。的偶数。 A X>0 And X =2*n B X>0 And X Mod 2 = 0 12.输入对话框Box的返回值的类型是. A字符串 B整数C浮点数D长整数 13.已知a=3,b=4;语句“b=a:a=b”执行后,a^ b分别为 A 3和3 B4和4C3和4D4和3 14.若x>=0,则y=5;若x= 0 Then y = 5 If x = 0 Then y = 5 Elself x = 0 Then y = 5 Else y = 0 End If D If x >= 0 Then y = 5 Else y = 0 15.由“For i= 15ToOStep -3”决定的循环结构被执行 次。 A 5 B 6C 7D 0 三、填空题(本题共20分,每小题2分) 1. 要设计命令按钮的快捷键字母,只要在字母前输入 即可。 2. 将标签Labell的标题文字清空,语句代码是 。 3. 把文本框Textl中选中的内容复制到剪贴板,程序代码是 o 4. 已知Ch$ =“中国浙江杭州”,表达式Mid(Ch$, Len(Ch$)/2,2)的值是. 5. 表达式 Fix(21.5) *2+ 10 Mod 7 \3 的值是 。 6, 表达式 Chr(Asc(“ABC”) +2)的值是 。 7, 表达式#4/14/2004# +5的值是 。 8, 算术式(2tg(x)+e「5) lg(x)的VB表达式是 。 9, 判断变量a、b中必有且仅有一个为。的逻辑表达式为: 10, 变量后缀字符为“”,隐含声明该变量类型为整型。 四、程序填空题(本题共20分,每个填空2分) 1.以下程序进行多项式s=— 1x2 1 1 1 2x3 3x4 1 F 4x5 +(_])* —— 的求和计算,其中n 〃 x (〃 +1) 从键盘输入。请将程序补充完整。 Option Explicit Private Sub _Click() Dim i As Integer, n As Integer, f As Integer 0) n = Val(Box(Hn=“)) f= (2) Do While (3) (4) s = s + f * [5) f=-f Loop Print ns=“; s End Sub 2. 以下是未完成的猜数游戏程序代码。单击命令按钮Commandl后计算机随机产生一个两位正整数; 用户在文本框Text!中进行猜数游戏:在输入一个猜数按回车后,计算机会给出相应的提示。要求 猜中后在标签中显示猜的次数“共猜了**次”并激活命令按钮,可以开始下一次猜数游戏。请将程 序补充完整。 Dim g As Integer ,猜数变量 Private Sub Command 1 _Click() g= (6) Commandl .Enabled = False Label 1. Visible = False End Sub Private Sub Text 1 _KeyPress(KeyAscii As Integer) C7) If KeyAscii = 13 Then t = t + 1 Select Case Val(Textl.Text) Case g MsgBox “right” Command 1 .Enabled = True Label 1. Visible = True Label 1.Capt