郑州大学VB模拟题5.docx

1、郑州大学VB模拟题5【HNCE网上考试系统 v9.6 】 本套软件使用权属于：郑州大学考试课程 : 考试时间 : 90 分钟 考场: 第一考场 考试日期 : 2012.05.07考号： 20113160128 姓名： 剩余时间： 89:45 保存交卷退出帮助本卷共有 3 道大题 :一、单项选择题（ 50 道小题，共 50 分）1、已知 x=2, y=9, z= 4，逻辑表达式 xy OR zx AND NOT zy 的值是 _。（1 分）A、True B、-1C、0 D、False2、Print Format(1234.234, #.#); Format(1234.234, #.#) 的显示结

2、果是 _。（1 分）A、1234.2341234.23 B、123.23400 1234.234C、123.23400 1234.23 D、1234.2341234.2343、以下关于 InputBox 函数的叙述中，错误的是 _。（1 分）A、InputBox 函数的“提示信息参数”不能缺省 B、每执行一次 InputBox 函数，只能输入一个值C、InputBox 函数的返回值是数值型的 D、要保存 InputBox 函数的返回值必须赋予一个变量4、以下不合法的常量是 _。（1 分）A、102 B、100C、100.0 D、10E+015、程序如下： k = 0: Do Until k 1

3、0: k = k + 1: Loop 的循环体执行次数是 _。（1 分）A、9 B、10C、11 D、无数次6、设 a=3，b=5，则以下表达式值为假的是 _。（1 分）A、a=b And b l0 B、(ab) Or (b2)C、(a0) D、(5a) And (b2)7、abc，abc! ，abc$，abc#分别声明 abc 是_。（1 分）A、整型、单精度、字符串、双精度变量 B、整型、整型、字符串、双精度变量C、单精度、整型、字符串、双精度变量 D、整型、双精度、字符串、双精度变量8、文本框中的 ScrollBars 属性已设置为 3-Both ，但却没有水平和垂直滚动条的效果，原因可

4、能是 _。（1 分）A、文本框中没有内容 B、文本框的 MultiLine 属性为 FalseC、文本框的 MaxLength 属性为 0 D、文本框的 Locked 属性是 True9、下面四个语句中，正确的赋值语句是 _。（1 分）A、a = a + c B、a + c = aC、c + a = a D、a c = a10、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为 _。（1 分）A、Private SubCommand1_Click(): Command1.Caption B、Private Sub Comman

5、d1_Click(): Text1 = 计算机= 计算机考试 : End Sub 考试: End SubC、Private Sub Text1_Change(): Command1.Caption = D、Private Sub Text1_Click(): Text1.Caption = 计算机考试 : End Sub 计算机考试 : End Sub11、运行程序： x = 2: For i = 1 To 10 Step 2: x = x + i: Next ，x 的值是 _。（1 分）A、26 B、27C、38 D、5712、启动 Visual Basic 后，VB为用户新建立的第一个工程

6、的名字是 _。（1 分）A、窗体 1 B、工程C、窗体 D、工程 113、下列叙述中，正确的是 _。（1 分）A、工程文件（ .vbp ）应用程序可以在任何计算机上运 B、打开一个工程文件，系统自动装入与该工程有关的行 窗体文件C、VB工程文件中可以没有窗体文件 D、退出 VB系统前要保存新创建的应用程序， 只需保存工程文件（ .vbp ）即可14、若要选择 Text 对象的 Text1_KeyPress 事件，可以 _。（1 分）A、在属性窗口中选择 B、在工程资源管理器窗口中选择C、在代码设计窗口中利用对象列表框、过程列表框选 D、在窗体设计窗口中双击 Text1 对象择15、Cls 方法

7、可以清除窗体或图片框中的 _。（1 分）A、在设计阶段使用 Picture 设置的背景位图 B、在设计阶段放置的控件C、在运行阶段产生的图形和文字 D、以上全部内容16、比较两个数中较大的数的程序段，错误的是 _。（1 分）A、IF x y Then max=x Else max=y B、max=IIF(xy , x, y)C、IF x y Then max=x : max=y D、max=x: If x 4 ，执行后 s 的值是 _（1 分）A、10 B、11C、12 D、1521、与传统的程序设计语言相比较， Visual Basic 最突出的特点是 _。（1 分）A、结构化的程序设计 B

8、、数据处理C、面向对象的可视化编程 D、中文支持22、能够盛放其他控件，而且是最基本的对象是 _。（1 分）A、窗体 B、图像C、标签 D、文本23、窗体设计器是用于设计 _。（1 分）A、窗体的代码 B、对象的属性C、应用程序的代码 D、应用程序的界面24、如果 VB环境中缺少某个窗口，一般应从主菜单 _的下拉菜单中找到相应的激活命令。 （1 分）A、编辑 B、文件C、视图 D、调试25、在下列语句中，正确的是 _。（1 分）A、Text1.Text+Text2.Text=Text3.Text B、Command1.Name=cmdokC、Label1.Caption=4567 D、x=In

9、putBox(please input)26、执行语句 age = InputBox( 请输入数值 , 年龄输入框 , 38) ，如果从键盘上输入数值 20 并按回车键，则下列叙述中 , 不正确的叙述是 _。（1 分）A、变量 Age 的值是数值 20 B、对话框标题栏中显示的是 年龄输入框 C、对话框的默认值是 38 D、对话框的提示文字为 请输入数值 27、Print DateDiff(m, #1/28/2004#, #1/31/2004#) 的输出结果是 _。（1 分）A、O B、1C、-1 D、228、在下列符号常量的声明中， _是不合法的。 （1 分）A、 Const a As Si

10、ngle = 2.6 B、Const a As Integer = abC、 Const a As Double = 2 * 2 D、Const a = OK29、执行程序段：Const c$ = Henan: c$ = Zhengzhou: c$ = Daxue: Print c$ ，输出的结果是 _。（ 1 分）A、 Henan B、ZhengzhouC、 Daxue D、显示出错信息30、m、n 是整数，且 nm，在以下 4 个语句中，能将x 赋值为一个 mn 之间（含m ,n ）的任意整数，即满足m x n的是 _。（ 1 分）A、 x = Int(Rnd * n) + m B、x =

11、 Int(Rnd * (n m + 1) + mC、 x = Int(Rnd * m) + n D、x = Int(Rnd * (n-m) + m31、方法 Print 等级 ; 考试 ，输出的结果是 _。 （1 分）A、等级考试B、等级 ; 考试C、 等级考试 D、 等级 ; 考试32、下列数据中， _是日期型数据。 （ 1 分）A、 01/30/2004 B、Date(01/30/2004)C、 #01/30/2004# D、01/30/200433、下列选项中， _不是字符串常量。 （1 分）A、 你好 B、C、 True D、#False#34、执行程序段：a = 6: b = 8:

12、F = Sqr(a * a + b * b): Print F ，输出的结果是 _。 （1 分）A、 6 B、8C、 10 D、1435、InputBox 函数返回值的类型为_。（ 1 分）A、数值 B、字符串C、变体 D、数值或字符串36、设有变量声明： Dim TestDate As Date ，为变量 TestDate 正确赋值的表达方式是 _。（1 分）A、TestDate = #1/1/2002# B、TestDate = #1/1/2002#C、TestDate = Date(1/1/2002) D、TestDate = Format(m/d/yy, 1/l/2002)37、下面表

13、达式中， _的运算结果与其他 3 个不同。 （1 分）A、Log(Exp(-3.5) B、Int(-3.5) + 0.5C、-Abs(-3.5) D、Sin(30 * 3.14 / 180)38、语句 X = X + 1 的正确含义是 _。（1 分）A、变量 X 的值与 X + 1 的值相等 B、将变量 X 的值存到 X + 1 中去C、将变量 X 的值加 1 后赋给变量 X D、变量 X 的值为 139、执行程序段： a$ = China: b$ = Right$(a$, 3): c$ = String$(3, b$): Print c$ ，输出的结果是 _。（1分）A、Chi B、aaaC

14、、iii D、ina40、执行程序段： Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs ，输出的结果是 _。（1 分）A、232 232032 B、232 232C、232.32 232.32 D、显示出错信息41、变量未赋值时，数值型变量的值为 _。（1 分）A、O B、空串 C、Null D、没任何值42、假设变量 iVar 是一个整型变量，则执行赋值语句 iVar = 2 + 3 之后，变量 iVar 的值是 _。（1 分）A、2 B、3C、5 D、2343、语句 Print 4 + 5 6 * 7 / 8 Mo

15、d 9 的值是 _。（1 分）A、4 B、5C、6 D、744、执行语句 Print Format(32548.5, #,#0.00) ，输出结果是 _。（1 分）A、32548.5 B、32,548.5C、032,548.50 D、32,548.5045、下列不合法的常量形式是 _。（1 分）A、1O0 B、100.0C、1OE+0.5 D、Const G = 23 + 1246、设有变体变量 x，执行语句： x = InputBox( 输入数值 ,0, 示例) 后，如果从键盘上输入 10 并按回车键，则下列叙述中正确的是 _。（1 分）A、变量 x 的值是数值 10 B、在 InputBo

16、x 对话框标题栏中显示的是“示例”C、0 是默认值 D、变量 x 的值是字符串“ 10”47、下列符号常量的声明中， _是不合法的。 （1 分）A、Const a As Single = 1.1 B、Const a As Integer = 12C、Const a As Double = Sin(1) D、Const a = OK48、某中心选拔身高 T超过 1.7 米且体重 W小于 52.5 公斤的学员，能正确表示该条件的布尔表达式是 _。（1 分）A、T = 1.7 And W = 52.5 B、T = 52.5C、T 1.7 And W 1.7 Or W True + Basic 的值是

17、 _。（1 分）A、True B、FalseC、Null D、出错信息二、填空题（ 7 道小题，共 30 分）1、* 产生 50 个 60100 的随机数，统计其中被 6 整除余 2 的个数，并将这些数输出。Private Sub command1_click()Dim x, n As IntegerDim counter As IntegerFor = 1 To 50x = Int(Rnd * 41 + 60)If Mod 6 = 2 Thencounter = counter + 1End IfNext nPrint counterEnd Sub（4 分）2、* 对 10 个 100 以内

18、的整数用冒泡法按递减顺序排序。Private Sub Command1_Click()Dim a(10) As Integer, t As IntegerDim i As Integer, j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next i: PrintFor i = 1 To 9For j = 1 To 10 - iIf a(j) max Then max = a(i)If a(i) min Then min = a(i)Next iPrint 最大值为 ; maxPrint 最小值为 ; minEnd Sub（

19、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, ) = 1Next iFor i = 3 To 10For j = 2 To i - 1a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next jNext iFor i = 1 To 10For j = 1 ToPrint Tab(5 * (j - 1) + 1); a(i, j);Next jPrintNext i

20、End Sub【附图 3】（4 分）5、* 利用判断一个三位数是否为对称数（如： 343）的函数过程，求出所有三位对称数之和。* 程序代码如下：Private Sub Command1_Click()Dim sum As Long,n As Integersum=0For n = 100 To 999If duicheng(n) then sum=sum+Next nEnd SubPublic Function duicheng(ByVal i%) As Booleana = i Mod 10c = i 100If a = c Thenduicheng=trueElseduicheng=Fal

21、seEnd IfEnd（4 分）6、* 用子过程输出 Fibonacci （斐波那契）数列（ 0、1、1、2、3、5、8. ）的前 20 项及前 20 项的和。* 程序代码如下：Private Sub Command1_Click()Dim s&, a%, b%, c%a = 0: b = 1= a + bPrint aPrint bFor i = 1 To 18fib a, b, cprints = s + cNext iPrint Fibonacci （斐波那契）数列的前 20 项的和为： ; sEnd SubPrivate Sub fib(a, b, c)c = a + ba = bb

22、= cEnd Sub（4 分）7、* 控件属性改变，如图 所示Private Sub Command1_Click()If Command1.Caption = 字号 ThenLabel1. = 30Command1.Caption = 颜色Label1. = vbRedCommand1.Caption = 字号End IfEnd Sub【附图 2】（6 分）三、编程题（ 2 道小题，共 20 分）1、* 编写程序：* 已知一个斐波那契数列的前两项为 1,1 ，以后的每一项均为前两项的和。* 例如： 1,1,2,3,5 ，. ，请求出这个数列前 43 项的和。（10 分）必须将本题程序最后的运

23、行结果填入下面的框中。否则，该题以零分计 !请将你解答本题所写的源程序粘贴到下面或者 上载源程序2、* 编写程序：* 先下载数据文件 kaoshiwenjian.txt 到自己的计算机中 , 然后编制程序，要求：统计出该数据文件中从第 51 个到第10000 个数据中奇数的个数。（【下载文件“ kaoshiwenjian.txt ”】；） 下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（10 分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计 !请将你解答本题所写的源程序粘贴到下面或者 上载源程序考号： 20113160128 姓名： 剩余时间： 89:45 保存交卷退出帮助强烈建议您使用 IE5.0 以上，屏幕分辨率 800X600以上，真彩，小字体浏览