Visual Basic 程序设计试卷5.doc

QQ:401999419全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷Visual Basic 语 言 程 序 设 计 (一)一、单项选择题（每小题2分，共70分）1. 在VB的工程中，窗体文件的扩展名是A、frmB、vbgC、vbpD、bas2. VB和传统高级语言相比，最显著的特点是A、结构化编程B、模块化编程C、采用事件驱动机制D、可以访问数据库3. 打开属性窗口，其快捷键是A、F1B、F4C、F5D、F74. 下列哪个词语代表双击A、ClickB、DblClickC、DoubleClickD、MouseClick5. 语句Dim a!，其中!代表a的类型为A、IntegerB、LongC、SingleD、Double6. 如果通过键盘访问菜单，可在菜单的标题中某个字母前插入符号A、$B、!C、&D、#7. 若x是两位的随机正整数（10x99），正确的表达式为A、x=Int(10+90*Rnd)B、x=Int(10+99*Rnd)C、x=Int(10*Rnd +99)D、x=Int(10*Rnd +90)8. 下面关于变量名的命名规则错误的是A、首字符必须是英文字母B、不区分大小写C、长度不超过255个字符D、可以采用系统保留字作为变量名9. 窗体的边框样式为固定单线边框，则属性BorderStyle的值为A、0B、1C、2D、510. 若a=1，b=2，则关系表达式 a0 And b= 6 Then Exit ForNext iPrint sA、5B、6C、8D、1020. 决定窗体是否可见，所采用的属性为 A、ForeColor B、Visible C、Enabled D、WindowState21. 定义静态变量所使用的名称是A、PublicB、PrivateC、StaticD、Dim22. 下列程序段的执行结果为For I = 1 To 10 x = x + 1Next I Print I A、4B、5C、10D、1123. 下列的程序段执行后，n的值为For i = 1 To 3 For j = 1 To i n = n + 1 Next jNext iPrint nA、3B、6C、5D、424. 下列的程序段执行后，s的值为For i=1 To 100 s=s+iNext iA、5050B、100C、101D、500025. 命令按钮不能响应的事件是A、MouseUpB、MouseDown C、ClickD、DblClick 26. 以下程序段执行后结果是n = -1Do While i 0 n = n + 1LoopPrint nA、1B、0C、-1D、死循环27. 可决定窗体的是否有最大化按钮的属性是A、BorderStyleB、MinButtonC、ControlBoxD、MaxButton28. 算式表达式 |x|+e2在VB的中表示形式为A、Abs(x)+Exp(2)B、Abs(x)+Ln(2)C、Sqr(x)+Exp(2)D、Atn(x)+e229. 下列程序的执行结果是f1 = 1: f2 = 1For i = 1 To 3 f3 = f2 + f1 f1 = f2 f2 = f3Next iPrint f3A、2B、3C、5D、630. 下列程序的执行结果是a=100b=50If a = b Then Max = a Else Max = bPrint MaxA、50B、10C、150D、10031. 下列程序段执行后，x的值为For I = 2 To 6 Step 2 x = x + 1Next IPrint xA、6B、5C、4D、332. 为了按下键盘上ESC键能执行某个命令按钮的Click事件，需要设置该命令按钮的属性为TrueA、CancelB、DefaultC、EnabledD、Visual33. 下列程序的运行结果为a=9Select Case a Case is10 Print a+1Case is15Print a*aEnd SelectA、81B、12C、11D、1034. 以下程序输出1 到1000之间所有的偶数的和，横线上的语句为Private Sub Command1_Click()Dim x As LongFor i = 1 To 1000 If Thenx = x + iNext iPrint xEnd SubA、i Mod x=0B、x mod 2=0 C、i mod 2=0D、x mod 2035. 删除列表框中所有列表项的方法是A、ClsB、ClearC、RemoveD、RemoveItem二、填空题（每空2分，共30分）1. 为了改变计时器控件的时间间隔，应该修改该控件的【 1 】属性。2. 如图所示界面，窗体含有三个命令按钮，分别为Command1、Command2和Command3，根据要求将程序补充完整。（1）单击“隐藏”按钮，按钮消失Private Sub Command1_Click()Command1.【 2 】 = FalseEnd Sub（2）单击“失效”按钮，按钮变为灰色Private Sub Command2_Click()Command2. 【 3 】 = FalseEnd Sub（3）单击“结束”按钮，程序终止运行Private Sub Command3_Click()【 4 】End Sub3. 在窗体上画一个名称为Label1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目。Private Sub Form_Load() List1.AddItem 北京 List1.AddItem 上海 List1.AddItem 河北End SubPrivate Sub 【 5 】 ( ) Label1.Caption = 【 6 】End Sub4. 执行下面的程序段后，变量s的值为【 7 】s = 5For i = 2.6 To 4.9 Step 0.6 s = s + 1Next5. 以下程序程序段运行后，输出结果为【 8 】a = 3: b = 5: c = 8If a b Then M = a Else M = bIf c M Then M = cPrint M6. 如图所示界面，窗体含有一个文本框一个水平滚动条，分别为Text1和Hscroll1，根据要求将程序补充完整。（1）初始化时，水平滚动条的最大改变量为5Private Sub Form_Load()HScroll1.Min = 10HScroll1.Max = 100HScroll1.SmallChange = 2HScroll1. 【 9 】= 5End Sub（2）通过水平滚动条来改变文本框中字符的大小Private Sub HScroll1_Change()Text1.FontSize = 【 10 】End Sub7. 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和Private Sub Command1_Click() For i = 1 To 20 x = Int(【 11 】*200 + 100) If 【 12 】 Then s = s + 【 13 】 End If Next Print sum=; sEnd Sub8. 如图所示界面，窗体含有一个文本框Text1，两个复选框Check1和Check2，两个单选按钮Option1和Option2，根据要求将程序补充完整。（1）单击复选框粗体，文本框中的文字变成粗体效果Private Sub Check1