试卷一
一、选择题（每题2分，15小题，共30分）
1. 以下关于Visual Basic特点的叙述中，错误的是（ ）
A) Visual Basic是采用事件驱动编程机制的语言
B) Visual Basic程序既可以编译运行，也可以解释运行
C) 构成Visual Basic的多个过程没有固定的执行顺序
D) Visual Basic程序不是结构化程序，不具备结构化的三种基本结构
2. Visual Basic工程文件的扩展名是( )。
A）.frm B）.vbw C）.vbp D）.bat
3. VB是一种面向( B )的程序设计语言。
A) 机器 B) 对象 C) 过程 D) 应用
4. 以下关于对象的叙述中，错误的是( )
A) 在Visual Basic中，对象所能响应的事件是由系统定义的
B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定
C) Visual Basic中允许不同对象使用相同对象名和方法
D) Visual Basic中的对象具有自己的属性和方法
5. 当程序运行时，系统自动执行启动窗体的( )事件过程。
A) Unload B) Click C) Load D) GotFocus
6. 要求在文本框中输入密码时文本框中只显示*号，则应用在此文本框的属性窗口中设置( )。
A) Text属性值为* B) Caption属性值为*
C) Passwordchar属性值为* D) Passwordchar属性值为真
7. 数学表达式0≤a<100在VB中的逻辑表达式为( )。
A) 0<=a<100 B) a>=0 OR a<100
C) 0<=a AND a<100 D) 0<=a AND <100
8. 函数Left(“欢迎学习Visual Basic”,6)执行的返回值是( )
A) “欢迎学习Vi” B) “欢迎学”
C) “Visual” D) “ Basic”
9. 若有数组说明语句为：Dim a(-2 to 5)，则数组a包含元素的个数是( )。
A) 7 B) 8 C) 9 D) 10
10. 决定控件上文字的字体、字形、大小、效果的属性是( )。
A) Font B) Caption C) Name D) Text
11. 下面正确的赋值语句是( )。
A) x+y=30 B) y=Π*r*r C) y=x+30 D) 3y=x
12. 算术运算符的优先级( )关系运算符的优先级。
A) 低于 B) 高于 C) 小于 D) 等于
13. 如下数组声明语句，( )是正确的。
A) Dim a[3,4] As Integer B) Dim a(3,4) As Integer
C) Dim a[n,n] As Integer D) Dim a(3: 4) As Integer
14. 算术运算符的优先级( )关系运算符的优先级。
A) 低于 B) 高于 C) 小于 D) 等于
15. Function过程有别于Sub过程的最主要的特点是( )。
A) Function过程一定要有形参，而Sub过程可以没有形参
B) Function过程的终端语句是End Function，而Sub过程的终端语句是End Sub
C) Function过程用于计算函数值，而Sub过程用于改变属性值
D) Function过程要返回函数值，而Sub过程没有数值返回
二、 填空题（每空2分，10空，共20分）
1． VB是建立在BASIC语言基础上的 编程语言或编程环境。
2． 退出Do循环可使用的语句为 。
3． 语句for i =-3 to 6 step 2的循环次数是 。
4． VB中，实参与形参的结合有两种方式分别是传地址和 。
5． 文件按照访问的模式分类，可以分为顺序文件、 和二进制文件。
6． InputBox函数返回值的类型是 。字符型
7． VB有三种工作模式：设计模式、 、中断模式。
8． 在VB中，程序设计是基于对象的，对象的三要素是指 、事件和方法。
9． Print方法用来显示文本内容，当Print方法省略对象时默认为在 上显示。
10． 在VB程序中，同一行上可以书写多条语句，语句之间用 分隔。
三、 程序填空（每空2分，每小题2空，5小题，共20分）
1. 编写一子过程，求一维数组中的最小值。
【程序】
Sub procMax(ByRef a%(), ByRef max%)
Dim i%
min = a (Lbound (a) )
For i = Lbound (a)+1 To (1)
If min > a(i) Then (2)
Next i
End Sub
2. 用InputBox函数输入小于40的正整数。计算机下面表达式的值，并在标签Label1上输出。
【程序】
Private Sub Command1_Click( )
Dim n%, s!, i%
n=Val(InputBox(“输入n (1~40)”)
Do While n>=40 (3)
n=Val(InputBox(“n超出范围，请重新输入”)
Loop
s=0
For i=1 to n
s=s+ (4)
Next i
Label1=”s=”& s
End Sub
3. 对已知存放在数组中的6个数，用选择法按递增顺序排序。
【程序】
Private Sub Command1_Click( )
Dim a( ) , iMin%, n% , i%, j%, t%
Dim a( ) , iMin%, n% , i%, j%, t%
A=Arry(8, 6, 9, 3, 2, 7)
n=Ubound(a)
For i=0 to n-1
iMin=i
For j=i+1 to n
If (5) Then iMin=j
For i=0 to n-1
iMin=i
For j=i+1 to n
If (5) Then iMin=j
Next j
t=a(i)
(6)
t=a(i)
(6)
a(iMin)=t
Next i
For i=Lbound(a) to Ubound(a)
Print a(i)
For i=Lbound(a) to Ubound(a)
Print a(i)
Next i
End Sub
End Sub
4. 在窗体上输出金字塔型数字，如图所示。
【程序】
Private Sub Form_click()
For i = （7）
Print Spc(9 - i);
For j = 1 To （8）
Print Format(i, "0");
vb采用什么的编程机制 Next j
Print
Next i
End Sub
5. 以下是一个使用列表框实现排序、查、删除的应用程序。窗体上有一个列表框、一个文本框、两个按钮。文本框用来输入一个数，两个按钮分别实现将该数插入列表框和从列表框中查删除。界面如图所示。
【部分程序】
Private Sub Form_Load()
Dim a, i%, k%, x%, n%
a = Array(1, 4, 7, 9, 12, 14, 23, 56)
n = UBound(a)
For i = 0 To n
'该循环用来在列表框显示a数组的值
（9）
Next i
End Sub
Private Sub Command1_Click() '插入
x = Val(Text1)
For k = 0 To List1.ListCount - 1 ' 查欲插入数x在列表框中的位置
If （10） Then Exit For
Next k
List1.AddItem x, k
End Sub
四、 程序阅读（每小题5分，4小题，共20分）
注：每行程序前面的数字是行号。
1. 请阅读以下程序，回答下面的问题：
10 Private Sub Form_Click()
20 Dim n%
30 n = 9
40 Do While n > 6
41 n = n - 1
42 Print n;
43 Loop
50 End Sub
问题：
（1）程序的输出结果是?
（2）第10行语句的含义是?
2. 请阅读以下程序，回答下面的问题:
10 Private Sub Text1_LostFocus()
20 Dim str As String * 4
30 str = LCase(Text1)
40 If str <> "wuyi" Then
41 Text1 = ""
42 Text1.SetFocus
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论