1、【HNCE 网上考试系统 v9.6】 本套软件使用权属于：郑州大学考试课程:VB-程序设计-练习 考试时间:90 分钟 考场:第一考场 考试日期:2017.04.20剩余时间： 89:55 保存交卷退出帮助本卷共有 2 道大题:一、单项选择题（50 道小题，共 50 分）1、要求在程序运行时，一旦点击文本框使之获取焦点，就自动选中文本框内的所有文本，则需要编写事件过程_。（1 分）A、Text1_Change() B、Text1_GotFocus()C、Text1_KeyPress(KeyAscii As Integer) D、Text1_SetFocus()2、如果对文本框 Text1 设置
2、了 PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是_。（1 分）A、1 个“$” B、4 个“$”C、不显示内容 D、“*”3、与传统的程序设计语言相比较，Visual Basic 最突出的特点是_。（1 分）A、结构化的程序设计 B、数据处理C、面向对象的可视化编程 D、中文支持4、Cls 方法可以清除窗体或图片框中的_。（1 分）A、在设计阶段使用 Picture 设置的背景位图 B、在设计阶段放置的控件C、在运行阶段产生的图形和文字 D、以上全部内容5、决定窗体标题栏显示内容的属性是_。（1 分）A、Text B、NameC、Caption
3、D、BackStyle6、以下不合法的常量是_。（1 分）A、102 B、100C、100.0 D、10E+017、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是_。（1 分）A、Forecolor B、BackColorC、BackStyle D、BorderStyle8、已知 x=2, y=9, z=4，逻辑表达式 xy OR zx AND NOT zy 的值是_。（1 分）A、True B、-1C、0 D、False9、设 a=3，b=5，则以下表达式值为假的是_。（1 分）A、a=b And b l0 B、(ab) Or (b2)C、(a0) D、(5a) And (b2)10
4、、下面四个语句中，正确的赋值语句是_。（1 分）A、a = a + c B、a + c = aC、c + a = a D、a c = a11、保存一个 Visual Basic 应用程序，正确的是_。（1 分）A、只保存工程文件(.vbp) B、只保存窗体文件（.frm）C、只保存标准模块文件（.bas） D、分别保存窗体文件和工程文件12、能产生10，32之间随机整数的函数表达式为_。（1 分）A、Int(Rnd*22)+10 B、Int(Rnd*23)+10C、Int(Rnd*22)+11 D、Int(Rnd*23)+1113、若要选择 Text 对象的 Text1_KeyPress 事件
5、，可以_。（1 分）A、在属性窗口中选择 B、在工程资源管理器窗口中选择C、在代码设计窗口中利用对象列表框、过程列表框选择 D、在窗体设计窗口中双击 Text1 对象14、以下_是正确的 For Next 结构。（1 分）A、For x=1 To Step 10 Next x B、For x=3 To -3 Step -3 Next xC、For x=1 To x=10 Next x D、For x=3 To 10 Step 3 Next y15、语句 Print “int(-23.4)= “; ; Int(-23.4)的输出结果为（1 分）A、Int(-23.4)=-23.4 B、(-23.
6、4)=23.4C、Int(-23.4)=-23 D、Int(-23.4)=-2416、一个工程文件中可以有多个窗体，默认状态下，VB 运行时指定为启动窗体的是_。（1 分）A、窗体 B、Form 窗体C、Form1 窗体 D、第一个创建的窗体17、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是_。（1 分）A、Load B、ClickC、DblClick D、MouseDown18、表示年龄(age)在 20 岁和 30 岁之间的表达式是_。（1 分）A、age=20 And age=20 0r age=30 D、age=3019、在 Form_Load()中，如果想用
7、 Print 方法将计算结果显示在窗体上，则必须保证窗体的_属性值为 True。（1 分）A、Enabled B、ApperanceC、AutoRedraw D、Moveable20、设 n=10，执行 n=IIF(n=3,n,-n)后，n 的值为_。（1 分）A、10 B、-10C、3 D、-321、下列语句中，正确的是_。（1 分）A、If a b Then t=a a=b b=t B、If a b Then t=a;a=b; b=tC、If a = b Then t=a a=b b=t D、If a = b Then t=a: a=b : b=t22、Select Case 语句中的“表
8、达式列表”不能是_。（1 分）A、变量名的列表，例如 Case x ,y ,z B、值的列表，例如 Case “a “,“b“,“c“C、To 表达式，例如 Case 1 to 10 D、Is 关系表达式，例如 Case Is 10: k = k + 1: Loop 的循环体执行次数是_。（1 分）A、9 B、10C、11 D、无数次24、如果在图片框 Picture1 中装入一个图片，为了清除该图片（不删除图片框），应采用的方法是_。（1 分）A、选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键 B、选择图片框，然后按 Del 键C、执行语句 Picture1.Pictur
9、e = LoadPicture(“) D、执行语句 Picture1.Picture = “25、下列叙述中，正确的是_。（1 分）A、工程文件（.vbp）应用程序可以在任何计算机上运行 B、打开一个工程文件，系统自动装入与该工程有关的窗体文件C、VB 工程文件中可以没有窗体文件 D、退出 VB 系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可26、执行程序段：Const c$ = “Henan“: c$ = “Zhengzhou“: c$ = “Daxue“: Print c$，输出的结果是_。（1 分）A、Henan B、ZhengzhouC、Daxue D、显示出错信息27
10、、设有变体变量 x，执行语句：x = InputBox(“输入数值“,“0“,“示例“)后，如果从键盘上输入 10 并按回车键，则下列叙述中正确的是_。（1 分）A、变量 x 的值是数值 10 B、在 InputBox 对话框标题栏中显示的是“示例”C、0 是默认值 D、变量 x 的值是字符串“10”28、表达式 Val(“.123E2CD“)的值是_。（1 分）A、.123 B、12.3C、O D、.123E2CD29、执行 MsgBox 123 + 123，信息框中可以出现_。（1 分）A、123 + 123 B、123123C、246 D、显示出错信息30、已知下列程序段：a = 3:
11、b = 4: Print b a ，输出的结果是_。（1 分）A、True B、FalseC、43 D、显示出错信息31、下列符号常量的声明中，_是不合法的。（1 分）A、Const a As Single = 2.6 B、Const a As String = “ab“C、Const a As Double = Sin(1) D、Const a = “OK“32、下列符号常量的声明中，_是不合法的。（1 分）A、Const a As Single = 1.1 B、Const a As Integer = “12“C、Const a As Double = Sin(1) D、Const a =
12、 “OK“33、Print Format(32556, “#“); Format(32556, “#“)的输出结果是_。（1 分）A、3255632556 B、3255632556C、32556-325 D、-3255632534、下列数据中，_是日期型数据。（1 分）A、“01/30/2004“ B、Date(“01/30/2004“)C、#01/30/2004# D、01/30/200435、表达式“Turbo“ + “C“ “True“ + “Basic“的值是_。（1 分）A、True B、FalseC、Null D、出错信息36、假设变量 iVar 是一个整型变量，则执行赋值语句 i
13、Var = “2“ + “3“ 之后，变量 iVar 的值是_。（1 分）A、2 B、3C、5 D、2337、InputBox 函数返回值的类型为_。（1 分）A、数值 B、字符串C、变体 D、数值或字符串38、某中心选拔身高 T 超过 1.7 米且体重 W 小于 52.5 公斤的学员，能正确表示该条件的布尔表达式是_。（1 分）A、T = 1.7 And W = 52.5C、T 1.7 And W 1.7 Or W 2) B、Not (3 + 4 2 Or 2 3 D、2 1 And 3 a(j) Then t = a(i): a(i) = a(j): a(j) = t Next jNext
14、 iFor i = 1 To 10Print a(i);Next i: PrintEnd Sub2（4 分）4、* 杨辉三角形如图所示：* 完成下面程序。Private Sub Form_Click()Dim a(1 To 10, 1 To 10) As Integer, i%, j%For i = 1 To 10a(i, 1) = 1a(i, ) = 1iNext iFor i = 3 To 10For j = To i - 12a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next jNext iFor i = 1 To 10For j = 1 To iPr
15、int Tab(5 * (j - 1) + 1); a(i, j);Next jPrintNext iEnd Sub3【附图 3】（6 分）5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。* 程序代码如下：Private Sub Command1_Click()Dim sum As Long,n As Integersum=0For n = 100 To 999If duicheng( ) then sum=sum+n nNext nEnd Sub Public Function duicheng(ByVal i%) As Booleana = i Mo
16、d 10c = i 100If a = c Thenduicheng=trueElse duicheng=False End IfEnd function3（6 分）6、* 编写一个显示随机数的程序，如图所示。* 运行过程：* 点击训练开始按钮之后，每隔一秒产生一个 5 位数的随机整数显示到上面的标签中。Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub _Load()formLabel1.ForeColor = vbWhiteLabel1.BackColor = v
17、bGreenEnd SubPrivate Sub Timer1_ ()timerLabel1 = Val(Int(Rnd * 90000 + 10000)End Sub3【附图 1】（6 分）7、* 下列程序的功能是：求出 500 以内最大的 10 个能被 13 或 17 整除的自然数之和。* 请填空：Option ExplicitPrivate Sub Command1_Click()Dim s%, i%, n%s = 0i 500 1 Step for = to -1If i Mod 13 = 0 i Mod 17 = 0 Thenorn = n + 1s = s + iEnd IfIf
18、= 10 Then Forn exitNext iPrint sEnd Sub程序运行的结果是 462210（10 分）8、* 下载由正整数组成的文件，编写程序，统计该文件中素数（质数）的个数。把结果写入试卷中指定位置。（在大于 1 的自然数中，除了 1 和此整数自身外，无法被其他自然数整除的数是素数，1 不是素数）* 请填空：Option ExplicitPrivate Sub Command1_Click()Dim x%, t%, m%Open “d:wj003.txt“ Input As #1fort = 0Do While EOF(1)notInput , #1 xFor = 2 To x - 1mIf x Mod = Then Exit Form 0Next mIf m = Then t = t + 1xLoopPrint tEnd SubPrint sEnd Sub程序运行的结果是 20910（ 【下载文件“wj003.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（10 分）S1A629A0E4DC14剩余时间： 89:55 保存交卷退出帮助 强烈建议您使用 IE5.0 以上，屏幕分辨率 800X600 以上，真彩，小字体浏览
