郑州大学VB模拟题5.doc

《郑州大学VB模拟题5.doc》由会员分享，可在线阅读，更多相关《郑州大学VB模拟题5.doc（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流郑州大学VB模拟题5考试课程: 考试时间: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、TrueB、-1C、0D、False2、Print Format(1234.234, #.#); Format(1234.234, #.#)的显示结果是_。（1分）A、1234.2341234.23B

2、、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、程序如下：k = 0: Do Until k 10: k = k + 1: Loop的循环体执行次数是_。（1分）A、9B、10C、11D、

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

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

5、mmand1.Caption = 计算机考试: End SubD、Private Sub Text1_Click(): Text1.Caption = 计算机考试: End Sub11、运行程序：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、打开一个工程文件，系统自动装入与该工程有

6、关的窗体文件C、VB工程文件中可以没有窗体文件D、退出VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可14、若要选择Text对象的Text1_KeyPress事件，可以_。（1分）A、在属性窗口中选择B、在工程资源管理器窗口中选择C、在代码设计窗口中利用对象列表框、过程列表框选择 D、在窗体设计窗口中双击Text1对象15、Cls方法可以清除窗体或图片框中的_。（1分）A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上全部内容16、比较两个数中较大的数的程序段，错误的是_。（1分）A、IF x y Then max=x

7、 Else max=yB、max=IIF(xy , x, y)C、IF x y Then max=x : max=yD、max=x: If x 4，执行后s的值是_（1分）A、10B、11C、12D、1521、与传统的程序设计语言相比较，Visual Basic最突出的特点是_。（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持22、能够盛放其他控件，而且是最基本的对象是_。（1分）A、窗体B、图像C、标签D、文本23、窗体设计器是用于设计_。（1分）A、窗体的代码B、对象的属性C、应用程序的代码D、应用程序的界面24、如果VB环境中缺少某个窗口，一般应从主菜单_的下

8、拉菜单中找到相应的激活命令。（1分）A、编辑B、文件C、视图D、调试25、在下列语句中，正确的是_。（1分）A、Text1.Text+Text2.Text=Text3.TextB、Command1.Name=cmdokC、Label1.Caption=4567D、x=InputBox(please input)26、执行语句age = InputBox(请输入数值, 年龄输入框, 38)，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是_。（1分）A、变量Age的值是数值20B、对话框标题栏中显示的是年龄输入框C、对话框的默认值是38D、对话框的提示文字为请输入数值27、Pri

9、nt DateDiff(m, #1/28/2004#, #1/31/2004#)的输出结果是_。（1分）A、OB、1C、-1D、228、在下列符号常量的声明中，_是不合法的。（1分）A、Const a As Single = 2.6B、Const a As Integer = abC、Const a As Double = 2 * 2D、Const a = OK29、执行程序段：Const c$ = Henan: c$ = Zhengzhou: c$ = Daxue: Print c$，输出的结果是_。（1分）A、HenanB、ZhengzhouC、DaxueD、显示出错信息30、m、n是整数

10、，且nm，在以下4个语句中，能将x赋值为一个mn之间（含m ,n）的任意整数，即满足mxn的是_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m31、方法Print 等级;考试，输出的结果是_。（1分）A、等级考试B、等级;考试C、等级考试D、等级;考试32、下列数据中，_是日期型数据。（1分）A、01/30/2004B、Date(01/30/2004)C、#01/30/2004#D、01/30/200433、下列选项中，_不是字符串常量。

11、（1分）A、你好B、C、TrueD、#False#34、执行程序段：a = 6: b = 8: F = Sqr(a * a + b * b): Print F，输出的结果是_。（1分）A、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 = For

12、mat(m/d/yy, 1/l/2002)37、下面表达式中，_的运算结果与其他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、aaaC、iiiD、

13、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、2343、语句Print 4 + 5 6 * 7 / 8 Mod 9的值是_。（1分）A、4B、5C、6D、744

14、、执行语句Print Format(32548.5, #,#0.00)，输出结果是_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5045、下列不合法的常量形式是_。（1分）A、1O0B、100.0C、1OE+0.5D、Const G = 23 + 1246、设有变体变量x，执行语句：x = InputBox(输入数值,0,示例)后，如果从键盘上输入10并按回车键，则下列叙述中正确的是_。（1分）A、变量x的值是数值10B、在InputBox对话框标题栏中显示的是“示例”C、0是默认值D、变量x的值是字符串“10”47、下列符号常量的声明中，_是不合

15、法的。（1分）A、Const a As Single = 1.1B、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.5B、T = 52.5C、T 1.7 And W 1.7 Or W True + Basic的值是_。（1分）A、TrueB、FalseC、NullD、出错信息二、填空题（7道小题，共30分）1、* 产生50个60100的随机数，统计其中被6整除余2的

16、个数，并将这些数输出。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以内的整数用冒泡法按递减顺序排序。Private Sub Command1_Click()Dim a(10) As Integer, t As IntegerDim i As Integer, j A

17、s IntegerFor i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next i: PrintFor i = 1 To 9For j = 1 To 10 - i If a(j) max Then max = a(i) If a(i) min Then min = a(i) Next iPrint 最大值为 ; maxPrint 最小值为 ; minEnd Sub（4分）4、* 杨辉三角形如图所示：* 完成下面程序。Private Sub Form_Click()Dim a(1 To 10, 1 To 10) As Integer, i%, j%For

18、 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 To Print Tab(5 * (j - 1) + 1); a(i, j);Next jPrintNext iEnd Sub【附图3】（4分）5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。* 程序代码如下：Private Sub Command1_Click(

19、)Dim sum As Long,n As Integersum=0For n = 100 To 999If duicheng(n) then sum=sum+Next nEnd Sub Public Function duicheng(ByVal i%) As Booleana = i Mod 10c = i 100If a = c Thenduicheng=trueElse duicheng=False End IfEnd （4分）6、* 用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8.）的前20项及前20项的和。* 程序代码如下：Private Sub Com

20、mand1_Click()Dim s&, a%, b%, c%a = 0: b = 1= a + bPrint aPrint bFor i = 1 To 18fib a, b, cprint s = s + cNext iPrint Fibonacci（斐波那契）数列的前20项的和为：; sEnd Sub Private Sub fib(a, b, c)c = a + ba = bb = cEnd Sub（4分）7、* 控件属性改变，如图所示Private Sub Command1_Click()If Command1.Caption = 字号 ThenLabel1. = 30Command1

21、.Caption = 颜色Label1. = vbRedCommand1.Caption = 字号End IfEnd Sub【附图2】（6分）三、编程题（2道小题，共20分）1、* 编写程序：* 已知一个斐波那契数列的前两项为1,1，以后的每一项均为前两项的和。 * 例如：1,1,2,3,5，.，请求出这个数列前43项的和。（10分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序2、* 编写程序：* 先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：统计出该数据文件中从第51个到第10000个数据中奇数的个数。（【下载文件“kaoshiwenjian.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（10分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序窗体底端考号：20113160128 姓名：剩余时间：89:45保存交卷退出帮助 强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览.精品文档.【HNCE网上考试系统 v9.6】 本套软件使用权属于：郑州大学