2015-2016学年第一学期期末考试 《Visual Basic》试题(B卷)
考试时间：90分钟
考号 班级 学生姓名 分数：
一、选择题 (每一题2分，共24分)
1、以下合法的一组Visual Basic用户标识符是（ ）。
A、Sum 和 8abc B、a#x 和 Pi
C、ForLoop 和 Total D、Const 和 DoWhile 2、函数Len(Str(Val(\的值为（ ）。
A、5 B、6 C、8 D、11
3、Int(198.555*100+0.5)/100的值为（ ）。
A、199.6 B、198.56 C、200 D、198
4、以下各表达式中, 计算结果为0的是（ ）。 A、FIX(12.4)+FIX(-12.6) B、CINT(12.4)+CINT(-12.6) C、INT(12.4)+INT(-12.6) D、FIX(13.6)+FIX(-12.6) 5、下面关于VB的叙述中，不正确的是（ ）。
A、用VB编写的程序可以在任何操作系统环境中运行。 B、VB是面向对象的可视化的软件开发工具。 C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。 D、VB是由美国Microsoft（微软）公司开发程序设计语言。 6、表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是（ ）。 A、SIN B、4^5 C、3*4 D、x+1
7、如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ ）。 A、不能计算 B、 True C、5 D、False
8、随机产生 [10，50] 之间整数的正确表达式是（ ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10)
C、Round( Rnd*51) D、 10+Int(Rnd*41)
9、每建立一个窗体,工程管理器窗口中就会增加一个（ ）。
A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 10、INT(100*RND(1))产生的随机整数的闭区间是（ ）。 A、[1,100] B、[0,99] C、[0,100] D、[1,99] 11、下列数据类型中,占用内存最小的是（ ）。
A、Integer B、Single C、Boolean D、Byte 12、VisualBasic是一种()程序设计语言（ ）。
A、过程式 B、非过程式 C、机器 D、低级
二、程序填空题： （每空4分，共32分）
1. 在窗体上画一个组合框（Combo1）、一个列表框（List1）和一个命令按钮（Command1）。下面程
序的功能是在组合框中选择一个大学名称，单击命令按钮，
则所选大学 名称将添加在列表框中，当组合框中没有要选的大学名称时，输入一个名称，则此大学
名称在添加列表框中的同时也会添加到组合框中，请在指定位置填上正确代码将程序补充完整。
Private Sub Form_Load()
Combo1.AddItem”交通大学”
Combo1.AddItem”理工大学” Combo1.AddItem”财经大学” Combo1.AddItem”外贸大学” End Sub
Private Sub Command1_Click() 【1】
For i=0 to 【2】
If Combo1.List(i)=Combo1.Text Then
flag=True : Eixt For
End If Next i
If Not flag Then
【3】
End Sub
2 下面程序的功能是对数组的元素值用选择法按递增顺序排序，请在指定位置填上正确代码将程序补充完整。
Private Sub Command1_Click()
Dim ia(),i%,max%,imax%，t% Ia=Array(3,8,5,6,7,4,9)
For i =0 To 5 : imax = i
For j = i+1 To 6 If 【4】Then
imax =j
Next j
T=ia(i) : 【4】 : ia(imax)=t
Next i
For i=0 To 6 : Print ia(i) : Next i End Sub
3. 窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置填上正确代码将程序补充完整。
Private Sub Command1_Click() Text1=””
Open”c:\\test.txt” For Input As #1
Do While Not 【6】 Line Input#1,S
Text1.text=Text1.text+【7】+chr(13)+chr(10)
Loop
【8】
End Sub
三·阅读程序，在答题纸指定位置写出程序运行结果。（每题12分，共24分）
1. 以下程序运行后，单击命令按钮，写出程序的运行结果。
Private Sub Command1_Click() Dim n%,b,t
t =1 : b =1 : n =2
Do While n<=4 If b > 1 Then
Exit Do
b = b*n : t = t+b : n = n+1
Loop Print “t=”& t
End Sub
程序运行后，写出程序的运行结果
2. 在窗体中添加一个命令按钮Command1，并编写如下程序： Private Sub Command1_Click() X =InputBox(x) If x^2<=9 Then
y= 1/x
If x^2>9 Then
y= x^2+1
If (x^2)-7=9 Then
y=x
Print “y=”&y End if End if End if End Sub
程序运行后，在InputBox中输入4，单击命令按钮，写出程序的运行结果。
四·编写程序：（每小题10分，共20分）
1、输出（200,300）之间同时被5和7整除的数的个数及其它们的和。（10分）
2、购物优惠程序，打折方法，每位客户一次购物（1）100以上，按九五折优惠。（2）200以上，按九折优惠，（3）300以上，按八折优惠（4）400以上，按七五折优惠。在窗体中添加一两个文本框和一个命令按钮，要求在text1 中输入购物金额，下单击命令按钮，在text2中输出优惠后的价格，程序运行结果如图