【HNCE网上考试系统 v9.6】? 本套软件使用权属于：郑州大学
考试课程:VB-程序设计-练习? 考试时间:90分钟? 考场:第一考场? 考试日期:
剩余时间：
88:09
保存交卷退出帮助
本卷共有2道大题:
一、单项选择题（50道小题，共50分）
1、与传统的程序设计语言相比较，Visual?Basic最突出的特点是______。（1分）
A、结构化的程序设计
B、数据处理
C、面向对象的可视化编程
D、中文支持
2、任何控件都具有的属性是______。（1分）
A、Picture
B、Caption
C、Name
D、AutoSize
3、保存一个Visual?Basic应用程序，正确的是______。（1分）
A、只保存工程文件(.vbp)
B、只保存窗体文件（.frm）
C、只保存标准模块文件（.bas）
D、分别保存窗体文件和工程文件
4、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是______。（1分）
A、Load
B、Click
C、DblClick
D、MouseDown
5、启动Visual?Basic后，VB为用户建立的第一个窗体是______。（1分）
A、Form
B、Form1
C、窗体1
D、窗体
6、程序如下：i?=?0:?s?=?0:?Do:?i?=?i?+?2:?s?=?i?+?s:?Loop?Until?i?>?4，执行后s的值是______（1分）
A、10
B、11
C、12
D、15
7、表示年龄(age)在20岁和30岁之间的表达式是______。（1分）
A、age>=20?And?age<=30
B、age>=20?0r?age<=30
C、age<=20?And?age>=30
D、age<=20?0r?age>=30
8、文本框中的ScrollBars属性已设置为?3-Both，但却没有水平和垂直滚动条的效果，原因可能是______。（1分）
A、文本框中没有内容
B、文本框的MultiLine属性为False
C、文本框的MaxLength属性为0
D、文本框的Locked属性是True
9、决定窗体标题栏显示内容的属性是______。（1分）
A、Text
B、Name
C、Caption
D、BackStyle
10、出两个数中较大的数的程序段，错误的是______。（1分）
A、IF?x?>y?Then?max=x?Else?max=y
B、max=IIF(x>y?,?x,?y)
C、IF?x?>y?Then?max=x??:??max=y
D、max=x:?If?x<?y?Then?max=y
11、若要选择Text对象的Text1_KeyPress事件，可以______。（1分）
A、在属性窗口中选择
B、在工程资源管理器窗口中选择
C、在代码设计窗口中利用对象列表框、过程列表框选择?
D、在窗体设计窗口中双击Text1对象
12、在下列语句中，正确的是______。（1分）
A、Text1.Text+Text2.Text=Text3.Text
B、Command1.Name="cmdok"
C、Label1.Caption=4567
D、x=InputBox(please?input)
13、Select?Case?语句中的“表达式列表”不能是______。（1分）
A、变量名的列表，例如?Case?x?,y?,z
B、值的列表，例如?Case?"a?","b","c"
C、To?表达式，例如?Case??1?to?10
D、Is关系表达式，例如?Case?Is?<8
14、下列关于窗体的Name属性的叙述，正确的是______。（1分）
A、它的值在程序运行中可以重新改写
B、它是显示在窗体标题栏中的文本
C、它是指窗体的名称，在程序中用来标识一个窗体对象
D、它的值可以为空
15、在Form_Load()中，如果想用Print方法将计算结果显示在窗体上，则必须保证窗体的______属性值为True。（1分）
A、Enabled
B、Apperance
C、AutoRedraw
D、Moveable
16、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是______。（1分）
A、1个“$”
B、4个“$”
C、不显示内容
vb设计模拟密码输入器D、“*”
17、Visual?Basic的编程机制是______。（1分）
A、面向过程
B、面向对象
C、事件驱动
D、可视化
18、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为______。（1分）
A、Private?Sub?Command1_Click():?Command1.Caption?=?"计算机考试":?End?Sub?
B、Private?Sub?Command1_Click():?Text1?=?"计算机考试":?End?Sub
C、Private?Sub?Text1_Change():?Command1.Caption?=?"计算机考试":?End?Sub
D、Private?Sub?Text1_Click():?Text1.Caption?=?"计算机考试":?End?Sub
19、程序段?Dim?x%:?If?x?Then?y?=?x?Else?y?=?x?+?1:?Print?y?运行后，显示的结果是______。（1分）
A、0
B、1
C、随机数
D、显示出错信息
20、有一个命令：Text1=?"欢迎您！"，表达方式中省略了对象的______。（1分）
A、方法
B、属性名
C、对象名
D、标题
21、以下不合法的常量是______。（1分）
A、10^2
B、100
C、100.0
D、10E+01
22、语句Print?"int(-23.4)=?";?;?Int(-23.4)的输出结果为（1分）
A、Int(-23.4)=-23.4
B、(-23.4)=23.4
C、Int(-23.4)=-23
D、Int(-23.4)=-24
23、启动Visual?Basic后，VB为用户新建立的第一个工程的名字是______。（1分）
A、窗体1
B、工程
C、窗体
D、工程1
24、Cls方法可以清除窗体或图片框中的______。（1分）
A、在设计阶段使用Picture设置的背景位图
B、在设计阶段放置的控件
C、在运行阶段产生的图形和文字
D、以上全部内容
25、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右(→)移动一定距离。在Command1_Click()中能完成这个功能的命令为______。（1分）
A、Label1.Left?=?100
B、Label1.Left?=?Label1.Left?-?100
C、Label1.Move?100
D、Label1.Move?Label1.Left?+?100
26、执行语句Print?Format(32548.5,?"###,##0.00")，输出结果是______。（1分）
A、32548.5
B、32,548.5
C、032,548.50
D、32,548.50
27、Print?DateDiff("m",?#1/28/2004#,?#1/31/2004#)的输出结果是______。（1分）
A、O
B、1
C、-1
D、2
28、执行语句：Print?Format(32548.5,?"000,000.00")，输出结果是______。（1分）
A、32548.5
B、32,548.5
C、032,548.50
D、32,548.50
29、下列表达式中，表示"X和Y之中有一个是奇数"的表达式是______。（1分）
A、X?Mod?2?=?1?And?Y?Mod?2?=?1
B、X?Mod?2?=?1?Or?Y?Mod?2?=?1
C、(X?Mod?2?=?1?And?Y?Mod?2?=?0)?And?(X?Mod?2?=?0?And?Y?Mod?2?=?1)
D、(X?Mod?2?=?1?And?Y?Mod?2?=?0)?Or?(X?Mod?2?=?0?And?Y?Mod?2?=?1)
30、表达式"Turbo"?+?"C"?>?"True"?+?"Basic"的值是______。（1分）
A、True
B、False
C、Null
D、出错信息
31、程序段Print?-15;:?Print?-16，?输出的结果是______。（1分）
A、-15?-16
B、-31
C、-15-16
D、出错
32、以下声明语句中，错误的是______。（1分）
A、Const?varl=123
B、Const?var2="ABC"
C、Public?const="计算机等级考试"
D、Static?var3?as?Integer
33、Single（单精度）型数据占______个字节。（1分）
A、2
B、4
C、8
D、10
34、已知下列程序段：a?=?3:?b?=?4:?Print?b?>?a?，输出的结果是______。（1分）
A、True
B、False
C、4>3
D、显示出错信息
35、在下列逻辑表达式中，逻辑值为"真"的是______。（1分）
A、Not?(1?>?2)
B、Not?(3?+?4?<?4?+?6)
C、1?>?2?Or?2?>?3
D、2?>?1?And?3?<?2
36、如果将布尔常量值True赋给一个整型变量，则整型变量的值为______。（1分）
A、O
B、-1
C、True
D、False
37、执行程序段：Dim?axs?As?Integer:?axs%?=?232:?axs?=?132.32:?Print?axs%;?axs，输出的结果是______。（1分）
A、232??132032
B、132??132
C、132.32??132.32
D、显示出错信息
38、语句Print?4?+?5?\?6?*?7?/?8?Mod?9的值是______。（1分）
A、4
B、5
C、6
D、7
39、变体型变量未赋值时，它的值为______。（1分）
A、O
B、空""
C、Null
D、没任何值
40、执行语句age?=?InputBox("请输入数值",?"年龄输入框",?"38")，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是______。（1分）
A、变量Age的值是数值数据20
B、对话框标题栏中显示的是"年龄输入框"
C、对话框的默认值是38
D、对话框的提示文字为"请输入数值"
41、在VB中，以10为底的x的常用对数表达式是______。（1分）
A、Log(X)
B、Log10(X)
C、Log(X)?/?Log(e)
D、Log(X)?/?Log(10)
42、执行程序段：m$?=?"ABC":?n$?=?"abc":?k$?=?LCase$(m$):?j$?=?UCase$(n$):?Print?Asc(k$?+?j$)，输出的结果是______。（1分）
A、abcabc
B、ABCABC
C、65
D、97
43、表达式Val(".123E2CD")的值是______。（1分）
A、.123
B、12.3
C、O
D、.123E2CD
44、下列符号常量的声明中，______是不合法的。（1分）
A、Const?a?As?Single?=?1.1
B、Const?a?As?Integer?=?"12"
C、Const?a?As?Double?=?Sin(1)
D、Const?a?=?"OK"
45、下列符号中，属于Visual?Basic合法变量名的是______。（1分）
A、x23
B、8xy
C、END
D、X8[B]
46、设有变体变量x，执行语句：x?=?InputBox("输入数值","0","示例")后，如果从键盘上输入10并按回车键，则下列叙述中正确的是______。（1分）
A、变量x的值是数值10
B、在InputBox对话框标题栏中显示的是“示例”
C、0是默认值
D、变量x的值是字符串“10”
47、方法Print?"等级";"考试"，输出的结果是______。（1分）
A、等级考试
B、等级;考试
C、"等级考试"
D、"等级";"考试"
48、InStr("Visual?Basic程序设计简明教程中关于可视化界面的设计",?"设计")的函数值为______。（1分）
A、15
B、17
C、30
D、47
49、下面关系运算中，输出结果为“True”的是______。（1分）
A、"1"?+?2?=?"12"
B、"1"?+?"2"?=?"3"
C、"1"?&?2?=?"12"
D、"1"?&?"2"?=?"3"
50、设有变量声明：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")
二、程序应用题（8道小题，共50分）
1、*?下面程序用来输出如下图案，请填空。
??????????????????????????????????ABCDE
??????????????????????????????????ABCD
??????????????????????????????????ABC
??????????????????????????????????AB
??????????????????????????????????A
Private?Sub?Command1_Click()
??Dim?i%,?j%
??For?i?=?5?To?1?Step?-1
??????For?j?=?1?To?
??????????Print?Chr(?+?64);
??????Next?j
??????Print
??Next
End?Sub
（4分）
2、*?使用InputBox函数接收一批字符，将其中的数字字符进行累加并输出累加和。
Private?Sub?Form_Click()
????Dim?s?As?String,?i?As?Integer
????s?=?InputBox("请输入一个带数字的字符串")
????i?=?
????Sum?=?
????Do?While?i?<=?Len(s)
????????If?Mid(s,?i,?1)?>=?"0"?And?Mid(s,?i,?1)?<=?"9"?Then
????????????Sum?=?Sum?+?Mid(s,?i,?1)
????????End?If
????????i?=?i?+?1
????Loop
????Print?Sum
End?Sub
（4分）
3、*?删除已知数组?a?中的某个元素。
??Private?Sub?Command1_Click()
????Dim?a()?As?Variant,?n?As?Integer,?Key?As?Integer
????a?=?Array(1,?6,?8,?3,?5,?9,?10,?2,?7,?4)
????n?=?UBound(a)
????Key?=?InputBox("请输入要删除的数")
????For?i?=?0?To?n
????????If?Key?=?a(i)?Then?Exit?For
????Next?i
????If?i?=?n?+?1?Then?MsgBox?("不到此数")?Exit?Sub
????For?j?=?i?+?1?To?n???
????????a(j?-?1)?=?a(j)???
????Next?j
????n?=??-?1
????ReDim?Preserve?a(n)
????For?i?=?0?To?n
????????Print?a(i);
????Next?i:?Print
??End?Sub
（4分）
4、*?三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。
??Private?Sub?Form_Click()
???Dim?R(1?To?3,?1?To?4)?As?Integer
???Dim?S(1?To?3)?As?Integer
???Dim?i%,?j%,?max%,?k%??'k为最高成绩学生序号
???For?i?=?1?To?3
????(i)?=?0
????For?j?=?1?To?4
??????(i,?j)?=?Int(30?*?Rnd?+?70)
??????Print?Tab((j?-?1)?*?5);?R(i,?j);
??????S(i)?=?S(i)?+?R(i,?j)
????Next?j
????S(i)?=?S(i)?/?4
????Print
???Next?i
???max?=?0
???For?i?=??To?3
????Print?"学生"?&?i;?"平均成绩:"?&?S(i)
????If?max?<?S(i)?Then
????????max?=?S(i)
????????k?=?i
?????End?If
???Next?i
???Print?"最高平均成绩?k=";?k,?"max=";?max
??End?Sub
（6分）
5、*?下面程序计算1!+3!+5!+...+9!的值，请将其补充完整。
*?程序代码如下：
Dim?nt?As?Single
Private?Sub?aa(ByVal?n?As?Single)
Dim?i?As?Integer
?=?1
For?i?=?1?To?n
???nt?=?nt?*?i
Next?i
End?Sub
Private?Sub?Form_Click()
Dim?sum?As?Single,?n?As?Integer
sum?=?0
For?n?=?1?To?9?Step?2
???aa?()
???sum?=?sum?+?
Next?n
Print?sum
End?Sub
（6分）
6、*?编写一个登录的程序，如图{<x_1.jpg>}所示。
*?运行过程：点击确定按钮时判断密码是否为“Gong”，如果是则使用msgbox显示“欢迎你！”，如果不是则清空密码输入框，焦点重新定位到密码输入框。
?Private?Sub?Form_Load()
???Text2.PasswordChar?=?"*"
???.Text?=?""
???Text1?=?""
?End?Sub
?Private?Sub?Command1_Click()
???Dim?I?As?Integer
???If?Text2.Text?=?""?Then
?????MsgBox?"登录成功"
???Else
?????.Text?=?""
?????Text2.SetFocus
???End?If
?End?Sub
【附图5】（6分）
7、*?下列程序的功能是：有200元钱需要兑换成零钱，零钱有10元，5元，1元三种面额，输出所有的兑换方法。
*?请填空：
Option?Explicit
Private?Sub?Command1_Click()
????Dim?n%,?i%,?j%,?k%
????n?=?0
????For?i?=??To?
????????For?j?=??To?
????????????For?k?=??To?
????????????????If?i?*?10?+?j?*?5?+??=??Then
????????????????????n?=?n?+?
????????????????End?If
????????????Next?k
????????Next?j
????Next?i
????Print?n
End?Sub
程序运行的结果是
（10分）
8、*?下载由正整数组成的数据文件{&>}到自己的机器中，编写程序，统计出该数据文件中，在第51个-第1000个数据之间，末位数字是4的数据的个数。把结果写入试卷中指定位置。
*?请填空：
Option?Explicit
Private?Sub?Command1_Click()
????Dim?x%,?t%,?i%,?j%
????Open?"d:\"?For??As?#1
????For?i?=?1?To?50
????????Input?,?
????Next?i
????For?i?=?51?To?1000
????????Input?,?
????????If?x?Mod??=??Then??=??+?1
????Next?i
????Print?t
End?Sub
程序运行的结果是
（【下载文件“”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。
（10分）
剩余时间：
88:09
保存交卷退出帮助
强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。