郑州大学VB模拟题5

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

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

3、如下： k = 0: Do Until k > 10: k = k + 1: Loop的循环体执行次数是_。（ 1 分）A、 9B、10C、 11D、无数次6、设 a=3，b=5，则以下表达式值为假的是_。（ 1 分）A、 a>=b And b> l0B、(a>b) Or (b>2)C、 (a<0) or (b>0)D、(5>a) And (b>2)7、abc， abc! ，abc$， abc#分别声明 abc 是_。（ 1 分）'.A、整型、单精度、字符串、双精度变量B、整型、整型、字符串、双精度变量C、单精度、整型、字符串、双精

4、度变量D、整型、双精度、字符串、双精度变量8、文本框中的 ScrollBars 属性已设置为3-Both ，但却没有水平和垂直滚动条的效果，原因可能是_。 （1 分）A、文本框中没有内容B、文本框的 MultiLine 属性为 FalseC、文本框的 MaxLength 属性为 0D、文本框的 Locked 属性是 True9、下面四个语句中，正确的赋值语句是_。 （1 分）A、 a = a + cB、a + c = aC、 c + a = aD、a c = a10、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为 _。 （

5、1 分）A、Private Sub Command1_Click():Command1.CaptionB、Private Sub Command1_Click(): Text1 = "计算机= " 计算机考试 ": End Sub考试 ": End SubC、 Private Sub Text1_Change(): Command1.Caption =D、Private Sub Text1_Click(): Text1.Caption = "" 计算机考试 ": End Sub计算机考试 ": End Sub11、

6、运行程序： x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x 的值是 _。 （1 分）A、 26B、27C、 38D、5712、启动 Visual Basic 后， VB为用户新建立的第一个工程的名字是_。 （1 分）A、窗体 1B、工程C、窗体D、工程 113、下列叙述中，正确的是 _。 （1 分）A、工程文件（ .vbp ）应用程序可以在任何计算机上运B、打开一个工程文件，系统自动装入与该工程有关的行窗体文件C、 VB工程文件中可以没有窗体文件D、退出 VB系统前要保存新创建的应用程序，只需保存'.工程文件（ .vbp ）即可14、若

7、要选择 Text 对象的 Text1_KeyPress 事件，可以 _。（ 1 分）A、在属性窗口中选择B、在工程资源管理器窗口中选择C、在代码设计窗口中利用对象列表框、过程列表框选Text1 对象D、在窗体设计窗口中双击择15、Cls 方法可以清除窗体或图片框中的_。 （1 分）A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上全部内容16、比较两个数中较大的数的程序段，错误的是_。 （1 分）A、 IF x >y Then max=x Else max=yB、max=IIF(x>y , x, y)C、 IF x >

8、y Then max=x : max=yD、max=x: If x< y Then max=y17、窗体上有一个标签 Label1 和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在 Command1_Click() 中能完成这个功能的命令为 _。（ 1 分）A、 Label1.Left = 100B、Label1.Left = Label1.Left - 100C、 Label1.Move 100D、Label1.Move Label1.Left + 10018、能产生 10 ，32 之间随机整数的函数表达式为_。（ 1 分）A、 Int(Rnd

9、*22)+10B、Int(Rnd*23)+10C、 Int(Rnd*22)+11D、Int(Rnd*23)+1119、不属于一个工程文件（ *.vbp ）里的文件是 _。（1 分）A、 *.txt文件B、*.bas文件C、 *.cls文件D、*.frm文件20、程序如下： i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4，执行后 s 的值是 _（1 分）A、 10B、11C、 12D、15'.21、与传统的程序设计语言相比较， Visual Basic最突出的特点是 _。（ 1 分）A、结构化的程序设计B、数据处理C

10、、面向对象的可视化编程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.TextB、Command1.Name="cmdok"C、 Label1.Caption=4567D、x=Input

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

12、。（ 1 分）A、 OB、1C、 -1D、228、在下列符号常量的声明中，_是不合法的。 （1 分）'.A、 Const a As Single = 2.6B、Const a As Integer = "ab"C、 Const a As Double = 2 * 2D、Const a = "OK"29、执行程序段： Const c$ = "Henan": c$ = "Zhengzhou": c$ = "Daxue": Print c$，输出的结果是 _。（ 1 分）A、 HenanB、Z

13、hengzhouC、 DaxueD、显示出错信息30、m、n 是整数，且 n>m，在以下 4 个语句中，能将x 赋值为一个 mn 之间（含 m ,n ）的任意整数，即满足 m x n的是 _。（ 1 分）A、 x = Int(Rnd * n) + mB、x = Int(Rnd * (n m + 1) + mC、 x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m31、方法 Print " 等级 "" 考试 " ，输出的结果是 _。 （1 分）A、等级考试B、等级 ; 考试C、 " 等级考试 &quo

14、t;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: F = Sqr(a * a + b * b): Print F，输出的结果是 _。 （1 分）A

15、、 6B、8C、 10D、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、下面表

16、达式中，_的运算结果与其他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 后赋给变量XD、变量 X 的值为 139、执行程序段：a$ = "China": b$ = Right$(a$, 3): c$ = String$(3, b$): Print c$，输出的结果是_。 （1分）A、 ChiB、aa

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

18、、23'.43、语句 Print 4 + 5 6 * 7 / 8 Mod 9的值是 _。（ 1 分）A、 4B、5C、 6D、744、执行语句 Print Format(32548.5, "#,#0.00")，输出结果是 _。（1 分）A、 32548.5B、32,548.5C、 032,548.50D、32,548.5045、下列不合法的常量形式是 _。（1分）A、 "1O0"B、100.0C、 1OE+0.5D、Const G = 23 + 1246、设有变体变量 x，执行语句： x = InputBox("输入数值 ",

19、"0"," 示例 ") 后，如果从键盘上输入10 并按回车键，则下列叙述中正确的是 _。（ 1 分）A、变量 x 的值是数值 10B、在 InputBox 对话框标题栏中显示的是“示例”C、 0 是默认值D、变量 x 的值是字符串“ 10”47、下列符号常量的声明中， _是不合法的。（1 分）A、 Const a As Single = 1.1B、Const a As Integer = "12"C、 Const a As Double = Sin(1)D、Const a = "OK"48、某中心选拔身高 T 超过

20、 1.7米且体重 W小于 52.5 公斤的学员，能正确表示该条件的布尔表达式是_。（ 1 分）A、 T >= 1.7 And W <= 52.5B、T <= 1.7 Or W >= 52.5C、 T > 1.7 And W < 52.5D、T > 1.7 Or W < 62549、以下声明语句中，错误的是_。（ 1 分）A、 Const varl=123B、Const var2="ABC"C、 Public const="计算机等级考试 "D、Static var3 as Integer50、表达式 &qu

21、ot;Turbo" + "C" > "True" + "Basic"的值是 _。（ 1 分）'.A、 TrueB、FalseC、 NullD、出错信息二、填空题（ 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)IfMod 6 = 2 Th

22、encounter = counter + 1End IfNext nPrint counterEnd Sub（4 分）2、*对 10 个 100 以内的整数用冒泡法按递减顺序排序。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) < a(j + 1) Th

23、en= a(j): a(j) = a(j + 1): a(j + 1) = tNext jNext iFor i = 1 To 10Print a();'.Next i: PrintEnd Sub（4 分）3、*随机产生 n个两位整数，求出其中的最大值和最小值。Private Sub Command1_Click()Dim a(100) As Integer, n As Integer, i As IntegerDim min As Integer, max As Integer= InputBox(vbCrLf + vbCrLf + "n=")Print &quo

24、t;产生的随机数为"RandomizeFor i = 1 To na(i) = Int(Rnd * 90) + 10Print a(i);Next i: Printmin = a(1): max = minFor i = 2 ToIf a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iPrint "最大值为 " maxPrint "最小值为 " minEnd Sub（4 分）4、*杨辉三角形如图所示<x_5.jpg>：* 完成下面程序。Private

25、 Sub Form_Click()Dim a(1 To 10, 1 To 10) As Integer, i%, j%For i = 1 To 10a(i, 1) = 1'.a(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 iEnd Sub【附图 3】（ 4 分）5、*利用判断一个三位

26、数是否为对称数（如：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=FalseEnd IfEnd'.（4 分）6、*用子过程输出Fibonacci （斐波那契）数列（0、 1、1、2、 3、5、8.）的前 20 项及前 20 项的和。* 程序代码如下：Private Sub Command1_Click()Dim s&, a%,