一、单选题
1、下列____不是Visual Basic程序的基本结构。
A) 层次结构 B) 分支结构 C) 循环结构 D) 顺序结构 2、当文本框的内容发生变化时，必将触发____事件。
A) LostFocus B) KeyPress C) Change D) Click 3、在Visual Basic中，建立一个文本编辑区域，可采用下列____。 A) 命令按钮 B) 标签控件 C) 文本控件 D) 定时器控件 4、在Visual Basic中，下列____表达式的值不等于4。
A) int(4.1) B) int(4.9) C) Abs(int(-3.9)) D) Abs(int(-4.5)) 5、代数表达式中的一元二次方和求根公式中的一个改成VB表达式是____。 A) (-b+sqr(b*b-4*a*c))/(2*a) B) -b+sqr(b*b-4*a*c)/(2*a) C) (-b+sqr(b*b-4*a*c))/2*a D) (-b+ (b*b-4*a*c))/(2*a) 6、在Visual Basic中，下列____程序行是符合语法的。
A) X=Y=5 B) A+B=C^3 C) Y=1:Y=Y+1 D) I=10X
7、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2，作用是____。
A) 用于测试X是否偶数 B) 返回一个整数
C) 返回一个奇数 D) 用于测试X是否整数 8、表达式Abs(-3.6)*sqr(100)的值是____。 A) -360 B) 360 C) -36 D) 36
9、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为_______。 A)Show B)Hide C)Load D)Unload 10、要改变新建对象的缺省名称，应使用属性____。
A) Font B) ForeColor C) Name D) Height 11、要使一个命令按钮显示文字“确定”，正确的设置是把它的属性____设置为“确定”。
A) Font B) ForeColor C) Caption D) BorderStyle 12、在Visual Basic 中，下列____ 单词用于注释语句。 A) Rem B) End C) Else D) Loop
13、在Visual Basic中，设置控件的位置，可改变下列____属性。
A) Height 与 Width B) height 与Top C) Left 与 Top D) Left 与 Width
14、下列语句中____定义了一个单精度型变量。
A) Dim I As Integer B) Dim Sum As Single C) Dim Name As String D) wjm=\信息技术\15、要使一个控件在运行时无效，正确的设置是____。
A) 把属性Enabled设置为True B) 把属性Enabled设置为False C) 把属性Visibled设置为True D) 把属性Visibled设置为False 16、下面叙述正确的是_______。
A)算法的执行效率与数据的存储结构无关
B)算法的空间复杂度是指算法程序中指令(或语句)的条数 C)算法的有穷性是指算法必须能在执行有限个步骤之后终止 D)算法的时间复杂度是指执行算法程序所需要的时间 17、下面概念中，不属于面向对象方法的是_______。
A)对象、消息 B)继承、多态 C)类、封装 D)过程调用 18、下面描述中，不符合结构化程序设计风格的是_______。
A)使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑 B)自顶向下
C)注重提高程序的执行效率 D)限制使用goto语句
19、可以同时删除字符前导和尾部空格的函数是______。 A)Ltrim B)Rtrim C)Trim D)Mid 20、每一个控件都有的属性是_______。
A)Top B)Name C)Visible D)Interval 21、执行以下程序段后，变量c$的值为______。 a$=\b$=\
c$=b$ & UCase(Mid$(a$，7，6)) & Right$(a$,12)
A)Visual Basic Programming B)Quick Basic Programming C)QUICK Basic Programming D)Quick BASIC Programming 22、Rnd函数不可能产生_______值。
A)0 B)1 C)0．1234 D)0．00005 23、以下说法错误的是______。
A)函数过程没有返回值 B)子过程没有返回值 C)函数过程可以带参数 D)子过程可以带参数 24、下列哪项是窗体对象的方法而不是属性______。 A)Name B)Print C)Caption D)Enabled 25、以下关于文件的叙述中，错误的是______。 A)顺序文件中的记录一个接一个地顺序存放 B)随机文件中记录的长度是随机的
C)执行打开文件的命令后，自动生成一个文件指针 D)LOF函数返同给文件分配的字节数
26、计算机之所以按人们的意志自动进行工作，最直接的原因是因为采用了________。
A)二进制数制 B)高速电子元件 C)存储程序控制 D)程序设计语言
27、微型计算机主机的主要组成部分是________。 A)运算器和控制器 B)CPU和内存储器
C)CPU和硬盘存储器 D)CPU、内存储器和硬盘 28、一个完整的计算机系统应该包括________。
A)主机、键盘、和显示器 B)硬件系统和软件系统 C)主机和其他外部设备 D)系统软件和应用软件 29、计算机软件系统包括________。
A)系统软件和应用软件 B)编译系统和应用系统
C)数据库管理系统和数据库 D)程序、相应的数据和文档 30、微型计算机中，控制器的基本功能是________。 A)进行算术和逻辑运算 B)存储各种控制信息
C)保持各种控制状态 D)控制计算机各部件协调一致地工作
二、填空题
I 阅读程序，写出下列程序的运行结果：
1、下列Visual Basic程序段运行后,变量M的值为__[1]__。 a=3 : b=2 : c=5
If a
2、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Textl_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii)
KeyAscii=Asc(LCase(char))
Textl．Text=String(6，KeyAscii) End Sub
程序运行后，如果在键盘上输入字母“C”，则文本框中显示的内容为___[2]____。
3、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls
For i=l TO 2 y=y+x x=x+2 Next
Print x,y End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是___[3]____。
4、以下程序段的输出结果为____[4]____。 X=1 Y=4
Do Until Y>4 X=X*Y Y=Y+1 Loop Print X
5、在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框，然后 编写如下程序：
Private Sub Command l Click() Dim x，y，z As Integer x=5 y=7
z=0
Textl．Text=＂＂ Call Pl(x，y，z) Textl．Text=Str(z) End Sub
Sub Pl(By Val a As Integer，By Val b As Integer，c As Integer) c=a+b End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是___[5]____。
II 在下列程序的划线处填写适当代码，使之能够完成题目要求：
6、若一个三位数，它的个、十、百位数字的立方和恰巧等于这个数本身，则把这个数称为水仙花数。完善程序求出所有水仙花数。 Dim x%, a%, b%, c%
For x = ______[6]______ Step 1 a = Int(x / 100) b = ______[7]______
c = x - 100 * a - 10 * b
If ____________[8]_______________ Then Print x ____[9]_____ Next x
7、编程键盘输入5个数字，求出其中最接近100的数字。 Private Sub Command1_Click() Dim i%, x%, Nu%
Nu =Val(InputBox(\请输入第一个数字\Print \你输入的五个数分别是:\For i = 2 To 5
x =____[10]______(\请输入第\个数\ Print x;
If Abs(x - 100) ___[11]____ Abs(Nu - 100) Then ____[12]______ End If Next i
Print vbCrLf & \最接近100的数是____[13]______ End Sub
8、完善程序，自定义一个名为ProcMin的函数，该函数能够接受一个整型的数组参数，求出该数组中最小的元素值并将这个值作为函数值返回。 Function ProcMin(b%()) As Integer Dim i%, Nmin%
____[14]_______= b(LBound(b))
For i = LBound(b) + 1 To_____[15]________
If b(i) < Nmin Then _____[16]______ Next i
_____[17]_________ End Function
9、完善程序，完成冒泡排序。程序可随机生成指定个数的[50，80]区间的整数进行排序，在窗体中显示每一步排序操作的结果。
Dim ____[18]__________ As Integer, i%, j%, imin%, t%, n% n = Val(InputBox(\请输入数组元素的个数:\ReDim ia(n) Form1.Cls
For i = 1 To n
ia(i) = _____[19]________ Print ia(i); Next i
For i = 1 To n
For j = 1 To _______[20]____________ If ia(j) < ______[21]________ Then t = ia(j)
ia(j) = ia(j + 1) ia(j + 1) = t End If Next j Print
For j = 1 To n Print ia(j); Next j Next i Print
10、完善程序，在窗体中绘制y=Cos(x)函数图形。要求鼠标单击窗体时开始绘制，绘制范围：-3.1415926≤x≤3.1415926。 Dim x!, y!
Private Sub ________[22]___________ x = -3.1415926
Timer1.Interval = 100 End Sub
Private Sub Timer1_Timer() __[23]_____ = x + 0.05 _____[24]___________ x0 = x + Line2.X1 y0 = -y + Line1.Y1
Shape1.Move x0, y0 - Shape1.Height / 2
VB期末考试真题试卷及答案七
