1、第 1 页 共 6 页第 2 页 共 6页湖 南 人 文 科 技 学 院 文 科 （ 除 应 心 ） 、 体 专 专 业 2007 级200 7 -200 8 学 年 第 2 学 期 VB 程 序 设 计 课 程 考 核 试卷考核方式: 闭卷 考试时量：120 分钟一、单项选择题（每小题 1 分，共 30 分）请将本大题各小题的答案代号（A、B、C、D）填入下表：题号 1 2 3 4 5 6 7 8 9 10答案题号 11 12 13 14 15 16 17 18 19 20答案题号 21 22 23 24 25 26 27 28 29 30答案1. 2*Sqr(4)的值是（ ） 。A.8 B
2、.4 C.32 D.16 B 2. Abs( -3.14)的值是（ ） 。A.3.14 B.-3 C.-3.14 D.33. 以下（ ）不是 Visual Basic 的特点。A.可将用户的编程思想自动转换成程序代码B.集成可视化程序开发环境C.事件驱动编程机制D.结构化程序设计4. 在窗体“通用”区中用 Dim 或 Private 语句声明的变量为（ ） 。A.窗体级变量 B.全局变量 C.局部变量 D.过程级变量5. 一个双精度浮点型数据在内存中占据（ ）个字节的空间。A. 1 B.2 C.4 D.86. 可获得字符 ASCII 码值的函数是（ ） 。A.Chr( ) B.Str( ) C
3、.Asc( ) D.Val( )7. 从功能上讲，Visual Basic 6.0 有 3 种版本，下列不属于这 3 种版本的是( ) 。A.学习版 B.免费版 C.专业版 D.企业版8. 循环语句 For n=-5 To 20 Step 4 的循环次数是（ ）A. 6 B. 7 C. 5 D. 49. Visual Basic 提供了结构化程序设计的三种基本结构，下列四项中（ ）除外。A.顺序结构 B.选择结构 C.循环结构 D.网络结构10. 下列数组声明语句，正确的是（ ） 。A.Dim A(5 6) As Integer B. Dim A(n,n) As IntegerC. Dim A
4、(5,6) As Integer D.Dim A5,6 As Integer11. 若窗体通用部分有语句“Option Base 1”，数组声明语句为 Dim a(3,-1 to 1,2)，则数组 a 包含元素的个数为（ ） 。A. 36 B. 54 C. 11 D. 1812. 函数过程与子过程必须分别用关键字（ ）声明。A.Private，Public B.Public，Private C.Function，Sub D.Sub，Function13. Dim x As Variant 与下列哪个语句等价（ ） 。A.Dim x! B.Dim x% C.Dim x D.Dim x14. 可以
5、用（ ）函数来获取已打开文件的长度。A.Len B. FileLen C. LOF D. LOE15. 下面（ ）不是 Visual Basic 提供的访问模式。A.顺序访问模式 B.随机访问模式 C.二进制访问模式 D.动态访问模式16. SDI 窗体是指（ ）窗体。A.多文档界面 B.单文档界面 C.简单界面 D.复杂界面17. 关于 VB 源代码的编写，下列说法错误的是（ ） 。 A.一个语句必须写在一行中，不可分成多行来书写B.同一行可以写多个语句C.可以适当添加注释有利于程序的维护和调试D.VB 源代码中不区分字母的大小写18. 下列属性中（ ）用来设置窗体和标签、命令按钮等控件的标
6、题文字。A. Caption B. Font C. Name D. Text19. 若要暂时关闭定时器，可通过设置( )属性为 False 来实现。A.Interval B. Enabled C.Index D. Visible20. 将焦点主动设置到指定的控件或窗体上，应采用（ ）方法。A.SetDate B.SetFocus C.SetText D.GetGata21. 清除当前 VB 窗体上文本信息的方法是（ ） 。A.Clear B. Droup C.Erase D. Cls 22. 数学式子 tg45写成 Visual Basic 表达式是( )。 A.tan(45) B.tan(4
7、5) C.Tan(45*3.14159265/180) D.tan4523. 下列标识符不能作为变量名的是（ ） A.If B.你好 C.a_b D.a124. 表达式(5+6)9 and (10 mod 3)50000否是1N，1KN20KNKN2N输出 K结束开始s = s + xx = x+2WendPrint sEnd Sub将 改为 将 改为 六、程序填空题（每空 3 分，共 9 分）下列程序的功能求出所有三位数中其各位数字的积为 16 的数（如 128、224 等） ，并统计个数。满足条件的数在立即窗口中输出，这此数的个数在窗体上输出。请在程序中划线处填上合适的语句，使程序正确。Private Sub Form_Click()n = 0For x = 100 To 999a = x 100_c = x Mod 10_Debug.Print x_End IfNextPrint nEnd Sub七、编程题（共 15 分）试编写窗体 Form1 的单击事件过程，并在其中添加程序代码，其功能是：求区间500，2500中最小的素数，并在窗体上输出。 （注：判断素数有许多方法，例如根据其“只有 1 和它本身两个约数”的性质来判断）
