2024年2月25日发(作者：)
模 拟 题 二
一、 填空题（120＝20）
1. Visual Basic6.0中应用 可视化的面向对象 的程序设计方法，采用 事件 驱动的编程机制。
2. 当进如Visual Basic集体环境，发现没有显示“工具箱”窗口，应选择 视图 菜单的
选项,使“工具箱”窗口显示。
3. 对象的方法是指 对对象可以进行地操作 。
4. Visual Basic6.0中文版的菜单栏共有 13 个菜单项。
5. 十进制整型数的表示范围为 -32768～＋32767 。
6. 根据所给条件，引出逻辑表达式：
（1）闰年的条件是：年号(year)能被4整除,但不能被100整除；或者能被400整除。逻辑表达式为： NOT(Year MOD 4) AND (Year MOD 100) OR NOT(Year MOD 400)
（2）一元二次方程有实根的条件为：a不等于0且b2-4ac>=0逻辑表达式为： a<>0 AND
b^2-4*a*c>=0
7. 以下语句的输出结果是 Beijing
S$=＂China＂
S$=＂Beijing＂
Print S $
8. 列表框中项目的序号是从 0 开始的， ListCount-1 表示列表框中最后一项的序号。
9. 控件数组的名字由 Name 属性指定，而数组中的每个元素由 Index 属性指定。
10. 为了在运行时把图形文件装入图片框Picture1，所使用的语句为_r=LoadPictuer()___________。
11. 制作菜单的分隔栏时，选用的符号是___-____。
12. Visual Basic提供的对数据文件的三种访问方式为随机访问方式_顺序访问方式__和二进制访问方式。
13. Data 控件是Visual Basic 6.0和数据库之间的桥梁，而 数据绑定 控件则把Data控件和用户界面联系起来，两者构成了Visual Basic 6.0开发数据库的主体。
二、 选择题（219=38）
1. 可以用来在启动程序时对属性和变量进行初始化的事件( D )
A Click B Unload
C Activate D Load
2. 当窗体上有多个控件时，最多只有( A )个控件是活动的。
A 1 B 2
C 3 D 多
3. 当对被选择的控件进行对齐、调整大小等操作时，将以( C )为准。
A 所有控件 B 某些控件
C 基准控件 D 以上说法均不对
4. Visual Basic中的语句通常按“一行一句，一句一行”的规则书写，但也允许多个语句放
1
在同一行中。在这种情况下，用来隔开各语句的符号是( A )
A 冒号 B 分号
C 逗号 D 感叹号
5. 一般来说，在用Visual Basic开发应用程序时，其通常的步骤为( A )
A ①设置可视界面 ②编写代码 ③程序测试、运行
B ①建立可视用户界面 ②设置可视界面特性 ③编写事件驱动代码
C ①编写事件驱动代码 ②程序测试 ③程序运行和维护
D 以上步骤均不对
6. 下面4个选项中属于字符型数据的是( A )
A “Hello” B `Hello`
C Hello D #Hello
7. 双精度浮点数存储时占的字节数是( B )
A 4 B 8
C 16 D 32
8. 下面为正确的整型常量的是( C )
A &624 B 0347
C &0127 D &0128
9. 把小写字母转换为大写字母的函数是( B )
A Lcase$ B Ucase$
C Instr D Len
10. “x是小于100的非负数”，用Visual Basic表达式表示正确的是( C )
A 0<=x<100 B 0<=x<100
C 0<=x And x<100 D 0<=x Or X<100
11. 假定Picture1和Text1分别为图片框和文本框的名称，下列语句不正确的是( C )
A Print 100 B 100
C Text1. Print 100 D Debug. Print 100
12. 表达式4+56*7/8Mod9的值是( B )
A 4 B 5
C 6 D 7
13. 在窗体上画一个命令按钮,然后编写如下事件过程：( D )
Private Sub C ommand1_Click( )
a=InputBox(＂Enter the First Integer＂)
b=InputBox(＂Enter the Second integer＂)
Print b+a
End Sub
程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是 A 579 B 123
C 456 D 123456
14. 若要使标签控件显示时不覆盖其背景内容，要对其设置的属性是（ D）
A BackColor B BorderStyle
C ForeColor D. BackStyle
15. 下面程序
x$=＂a＂
y$=＂b＂
2
z$=＂c＂
For I=1 to 2
X$=y$：y$=z$：z$=x$
Next I
Print x$+y$+z$
运行后的输出结果是（D ）
A cab B bca
C bcb D cbc
16. 下面程序段
For I=1 To 3 Step 1
Print Spc(5-I);
For j=1 To 2*I-1
Print ＂*＂;
Next j;
Next I
运行结果为（B ）
A * * * * * B *
* * * * * *
* * * * * *
C * D *
* * * * * *
* * ** * * * * * * * * *
17. 设有语句
open "c：Test．Dat" For OutPut As#1
则以下错误的叙述是 （ A ）
A) 该语句打开C盘根目录下一个己存在的文件Test．Dat
B) 该语句在C盘根目录下建立一个名为Test．Dat的文件
C) 该语句建立的文件的文件号为1
D) 执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息
18. 表的每一行就是一个（ A ）；表中的每一列称作一个（ ），描述了它所含有的数据。
A.
记录 字段
B.
索引 字段
C.
字段 记录
D.
记录 索引
19. Data控件的很多方法，当我们在运行时修改了Record-Source属性后，需要调用（ A ）方法刷新记录集。
A. Refresh方法
B. UpdateRecord方法
C.
UpdateControls方法
D.
Cancelupdate方法
三、 程序填空题（218＝34）
3
1． 下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果．本程序在文本框中边输入边统计大括号的个数，以+输入回车作为结束标志，然后显示结果．请将程序补充完整．
Dim Count1%
Private Sub Text1_KeyPress(Key Ascii As Integer)
If Key Ascii =＂{＂Then
Count1=Count1+1
Else If Key Ascii =＂}＂ Then
Count1=Count1+1
If KeyAscii=13 Then
If Count1=0 Then
Print ＂左右大括号配对＂
Else If Count1>0 Then
Print ＂左大括号数多＂；Count1；＂个＂
Else
Print ＂右大括号数多＂；-Count1；＂个＂
End If
End If
End Sub
2． 阅读程序：
Private Sub Form_Click( )
num=0
Do while num<=2
num=num+1
Print num
Loop
End Sub
程序运行后，单击窗体，输出结果是 1
2
3 。
3． 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Private Sub Command1_Click( )
Dim n( )As Integer
Dim a,b As Integer
a=InputBox(＂Enter the first number＂)
b=InputBox(＂Enter the second number＂)
ReDim n (a To b)
For k=Lbound(n,1)To Ubound(n,1)
n(k)=k
Print＂n(＂＂;k;＂)=＂;n(k)
Next k
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入２和３，输出结果为 n(2)=2
n(3)=3。
4
4． 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Private Sub Command1_click( )
Dim a(5)
For I=0 To 4
A(i)=I+1
T=I+1
If t=3 Then
Print a(i);
A(t-1)=a(I-2)
Else
A(t)=a(i)
End If
If I=3 Then a(I+1)=a(t-4)
A(4)=1
Print a(i);
Next I
End Sub
程序运行后，单击命令按钮，输出结果为 1 2 3 1 4 1 。
5． 在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Command2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请将下列程序补充完整。
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
__ _________ =
End Sub
Private Sub Command1_Click()
= ___ UCase()__
End Sub
Private Sub Command2_ _Click____
= LCase()
End Sub
6． 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Private Sub Command1_click()
Dim m(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
X=6
Print m(2+m(x))
End Sub
程序运行后，单击命令按钮，输出结果为 4 。
7． 下面程序运行后，输出的结果为___0_____
Private Sub Command1_Click( )
A$=”Beijing”
5
B$=”dalian”
C$=”shanghai”
C$=Instr(LeftA$,2)+Right$(B$,2),C$)
Print C$
End Sub
8． 在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请填入适当的内容，将程序补充完整。
Private Sub HScroll1_ Change ()
n=HScroll1. Value
End Sub
9． 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在填入适当的内容，将程序补充完整。
Private Sub Command1_Click()
For i=0 To 3
6
If Option1(i).Value =True then
opt=Option1(i).Caption
End If
Next
Select Case opt
Case”+”
Result=Val()+Val()
Case”-”
Result=Val()-Val()
Case”*”
Result=Val()*Val()
Case”/”
Result=Val()/Val()
End Select
n =Result
End Sub
程序改错题（18＝8）
在数组b中查找其中一个数，并输出该数在数组中的位置。其程序代码如下：
Private sub search( a（7）As variant，ByVal key As Variant，ByVal index%)
Dim I％
For I＝UBound(a) To LBound(a)
If key＝a(I) Then
index＝I
Exit sub
End If
Next I
Index＝-1
End Sub
Private Sub Form_Load()
Show
Dim n As String
Dim b(n) As Variant
b＝Array(1，3，5，7，9，11，13，15)
a=inputbox(“请输入所要查询的数字”,”查询”,0)
search(b，a，n)
Print n
End Sub
正确的程序：
Private Sub search(a() As Variant, ByVal key As Variant, index%)
Dim I%
index = -1
7
四、
For I = LBound(a) To UBound(a)
If key = a(I) Then
index = I
End If
Next I
End Sub
Private Sub Command1_Click()
Show
Dim n As Integer
Dim b()
b = Array(1, 3, 5, 7, 9, 11, 13, 15)
a = Val(InputBox("请输入所要查询的数字", "查询", 0))
Call search(b(), a, n)
Print n
End Sub
8
发布评论