VisualBasic程序设计试卷5

1、1 / 11QQ:401999419全国计算机等级考试二级笔试试卷Visual Basic 语 言 程 序 设 计 （一 ）、单项选择题（每小题 2 分，共 70 分）1. 在 VB 的工程中，窗体文件的扩展名是A、frmB、vbg2.3.C、vbpD、basVB 和传统高级语言相比，最显著的特点是A、结构化编程C、米用事件驱动机制D、B、模块化编程可以访问数据库打开属性窗口，其快捷键是A、 F1C、 F54. 下列哪个词语代表双击A、 ClickB、 F4D、 F7B、 DblClickC、 DoubleClick5.语句 Dim a!，其中！代表 a 的类型为A、 IntegerD、 Mo

2、useClickB 、 LongC、 SingleD 、Double6. 如果通过键盘访问菜单，可在菜单的标题中某个字母前插入符号A、 $B、C、 &D、 #2 / 117.若 x 是两位的随机正整数(10 x0 And b= 6 Then Exit ForNext iPrint sA、 5B、 6C、 8 D、 1020. 决定窗体是否可见，所采用的属性为B、取消C、确定”和“取消”D、是和“否”15.表达式 Right(Nice to see you,3)的值是A、 Nice to seeB、 NicC、 youD、 Nice to see you16.表达式 Format(123

3、4.56, 0,000.000)的值是17.A、1234C、 1234.560表达式 String(2,97)的值是A、 AAB、D、B、01234.5601,234.560aaD、 9918.19.列程序段的执行结果为5 / 11A、ForeColorB、VisibleC、 Enabled21. 定义静态变量所使用的名称是A、PublicC、Static22. 下列程序段的执行结果为For I = 1 To 10 x = x + 1Next IPrint IA、 4C、1023. 下列的程序段执行后， n 的值为For i = 1 To 3For j = 1 To in = n + 1Nex

4、t jNext iPrint nA、3C、524. 下列的程序段执行后， s 的值为D、WindowStateB、PrivateD、DimB、5D、11B、6D、4For i=1 To 1006 / 11s=s+iNext iA、5050C、10125. 命令按钮不能响应的事件是A、MouseUpC、Click26. 以下程序段执行后结果是n = -1Do While i 0n = n + 1LoopPrint nA、1C、-127. 可决定窗体的是否有最大化按钮的属性是 A、BorderStyleC、ControlBox28. 算式表达式 凶+e2在 VB 的中表示形式为A、Abs(x)+E

5、xp(2)B、B、100D、5000B 、 MouseDownD、DblClickB、0D、死循环B 、 MinButtonD、 MaxButtonAbs(x)+Ln(2)Atn( x)+eA27 / 11C、Sqr(x)+Exp(2)D、29. 下列程序的执行结果是f1 = 1: f2 = 18 / 11For i = 1 To 3 f3 = f2 + f1 f1 = f2 f2 = f3Next iPrint f3A 、 2B、 3C、5D、 630. 下列程序的执行结果是a=100b=50If a = b Then Max = aElse Max = bPrint MaxA 、 50B、

6、 10C、150D、 10031. 下列程序段执行后， x 的值为For I = 2 To 6 Step 2x = x + 1Next IPrint xA、6C、432. 为了按下键盘上 ESC 键能执行某个命令按钮的 Click 事件，需要设置该命令B、5D、39 / 11按钮的属性为 TrueA、CancelC、Enabled33. 下列程序的运行结果为 a=9Select Case aCase is10Print a+1Case is15Print a*aEnd SelectA、81C、1134. 以下程序输出 1 到 1000 之间所有的偶数的和，横线上的语句为Private Sub

7、Command1_Click()Dim x As LongFor i = 1 To 1000If Thenx = x + iNext iPrint xEnd SubA 、 i Mod x=0B 、 x mod 2=0C、i mod 2=0D 、x mod 20B、DefaultD、 VisualB、12D、1010 / 1135. 删除列表框中所有列表项的方法是B、ClearD、Removeitem二、填空题（每空 2 分，共 30 分）1. 为了改变计时器控件的时间间隔，应该修改该控件的【1】属性。2. 如图所示界面，窗体含有三个命令按钮，分别为Command1、Command2 和Priv

8、ate Sub Comma nd1_Click()Command1.【2 】=FalseEnd Sub(2)单击“失效”按钮，按钮变为灰色Private Sub Comma nd2_Click()Command2.【3 】 =FalseEnd Sub(3)单击“结束”按钮，程序终止运行Private Sub Comma nd3_Click()【4】A、CisC、RemoveCommand3,根据要求将程序补充完整。(1)单击“隐藏”按钮，按钮消失11 / 11End Sub3.在窗体上画一个名称为 Labell 的标签和一个名称为 Listl 的列表框。程序运行后，在列表框中添加若干列表项。当

9、双击列表框中的某个工程时，在标签 Labell 中显示所选中的工程Private Sub Form_Load()Listl.Addltem 北京Listl.Addltem 上海List1.AddItem 河北End SubPrivate Sub【5 】()Label1.Caption =【6 】End Sub4. 执行下面的程序段后，变量 s 的值为【7】s = 5For i = 2.6 To 4.9 Step 0.6s = s + 1Next5. 以下程序程序段运行后，输出结果为【8】a = 3: b = 5: c = 8If a b The n M二a Else M = bIf c M T

10、he n M二c12 / 11Print M6. 如图所示界面，窗体含有一个文本框一个水平滚动条，分别为Hscrolll，根据要求将程序补充完整(1)初始化时，水平滚动条的最大改变量为5Private Sub Form_Load()HScrolll.Min = 10HScrolH.Max = 100HScroll1.SmallCha nge = 2HScrolll.【9 】=5End Sub(2) 通过水平滚动条来改变文本框中字符的大小Private Sub HScroll1_Cha nge()Textl.FontSize =【10 】End Sub7. 以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被 5 整除的数并求出它们的和Private Sub Comma nd1_Click()Textl 和13 / 11For i = 1 To 20 x = Int(【11 】*200 + 100)If【12 】Thens = s +【13】End IfNextPrint sum=。sEnd Sub8.如图所示界面，窗体含有一个文本框 Textl ,两个复选框 Checkl 和Check2，两个单选按钮 Option1 和 Option2,根据要求将程序补充完整。(1)