一、单选题（每题1分，共30分）
1、下列____不是Visual Basic程序的基本结构。
A) 层次结构  B) 分支结构  C) 循环结构  D) 顺序结构
2、当文本框的内容发生变化时，必将触发____事件。
A) LostFocus      B) KeyPress      C) Change        D) Click
3、在Visual Basic中，建立一个文本编辑区域，可采用下列trim函数的作用是删除文本的什么空格____。
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$="Visual Basic Programming"
b$="Quick"
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)控制计算机各部件协调一致地工作
二、填空题（共50分，每空2 分）
I 阅读程序，写出下列程序的运行结果：
1、下列Visual Basic程序段运行后,变量M的值为__[1]__。
a=3 : b=2 : c=5
If a<b Then m=a Else m=b
If c<m Then m=c
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

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