可视化程序设计4

全套试题4
闭卷考试，考试时间120分钟
一、选择题（40分，每题2分）
(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A) 工程资源管理器窗口B) 工具箱窗口
C) 代码窗口D) 属性窗口
(2)以下叙述中正确的是
A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
B) 窗体的Name属性的值是显示在窗体标题栏中的文本
C) 可以在运行期间改变对象的Name属性的值
D) 对象的Name属性值可以为空
(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A) 单选按钮B) 图片框C) 通用对话框D) 文本框
(4)设有如下声明：
Dim X As Integer
如果Sgn(X) 的值为-1，则X的值是
A) 整数B) 大于0的整数 C) 等于0的整数 D) 小于0的数
(5)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A) 15 16 B) 15 6 C) 15 15 D) 5 6
(6)设a=3,b=5，则以下表达式值为真的是
A) a>=b And b>10 B) (a>b)Or(b>0)
C) (a<0)Eqv(b>0) D) (-3+5>a)And(b>0)
(7)设有语句
x=InputBox(“输入数值”，“0”，“示例”)
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”
C) 0是默认值D) 变量X的值是字符串“10”
(8)从键盘上输入两个字符串，分别保存在变量str1、str2中。

确定第二个字符串在第一个字符串
中起始位置的函数是
A) Left B) Mid C) String D) Instr
(9)设a=“Visual Basic”，下面使b=“Basic”的语句是
A) b=Left(a,8,12) B) b=Mid(a,8,5)
C) b=Rigth(a,5,5) D) b=Left(a,8,5)
(10)以下能够触发文本框Change事件的操作是
A) 文本框失去焦点B) 文本框获得焦点
C) 设置文本框的焦点D) 改变文本框的内容
(11)在当前窗体中已经添加一公共对话框commonDialog1 ，实现打开文件保存对话框的语句
A) commonDialog1.showsave B) commonDialog1.action=3
C) commonDialog1.showopen D) lcommonDialog1.action=1
(12)为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为
True，这个属性是
A) Value B) Default C) Cancel D) Enabled
(13)可以惟一标识控件数组中的每一个控件属性的是（）
A)Name B)Caption C)Index D)Enabled
(14)窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”
放置到组合框中，当窗体加载时的代码如下：
Private Sub Form_Load()
Combo1.AddItem "Chardonnay"
Combo1.AddItem "FunBlanc"
Combo1.AddItem "Gewrzt"
Combo1.AddItem "Zinfande"
End Sub
要在文本框Text1中显示列表中的第三个项目的正确语句是（）
A)Text1.Text=Combo1.List(0) B)Text1.Text=Combo1.List(1)
B)Text1.Text=Combo1.List(2) D)Text1.Text=Combo1.List(3)
(15)假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚
动条，正确的属性设置为（）
A)Txt1.MultiLine = True : Txt1.ScrollBars = 0 B)Txt1.MultiLine = True : Txt1.ScrollBars = 3
C)Txt1.MultiLine = False: Txt1.ScrollBars = 0 D)Txt1.MultiLine = False Txt1.ScrollBars = 3
(16)设有语句
x=InputBox(“输入数值”，“0”，“示例”)
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”
C) 0是默认值 D) 变量X的值是字符串“10”
(17)在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后
编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A) 15和1 B) 27和3 C) 195和3 D) 600和4
(18)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件
过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For I=0 To 50
i=i+3
n=n+1
If i>10 Then xit for
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 2 B) 3 C) 4 D) 5
(19)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件
过程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next I
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 12 B) 13 C) 14 D) 15
(20)关于数据控件的常用方法说法正确的
A)Refresh方法用于从数据库中读取数据更新界面
B)Refresh方法用于将界面中的数据更新到数据库
C)UpdateControl方法用于从数据库中读取数据更新界面
D) UpdateControl方法用于将界面中的数据更新到数据库
二、填空题（30分，每空2分）
(1)结构化程序设计中把程序的结果规定为___【1】___、___【2】____、_【3】__三种基本结构。

(2)Visual Basic应用程序中工程文件的扩展名是【4】。

(3)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。

程序运行后，Command1
为禁用(灰色) 。

当向文框中输入任何字符时，命令按钮Command1变为可用。

请在 [1] 处填入适当的内容，将程序补充完整。

Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ 【5】 ()
Command1.Enabled=True
End Sub
(4)文件的打开和关闭语句分别是___【6】___和___【7】___。

(5)设有如下程序
Private Sub Form_Click()
Dim a As Integer,b As Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
print "a=";a, "b=";b
End Sub
Sub p1(x As Inteer,ByVal y As Integer)
x=x+10
y=y+20
End Sub
Sub p2(ByVal x As Integer,y As Integer)
x=x+10
y=y+20
End Sub
Sub p3(ByVal x As Integer,y As Integer)
x=x+10
y=y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a= 【8】和b= 【9】。

(6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被５整除的数并求出它们的
和。

请填空
Private Sub Command1_Click()
For i=1 To 20
x=Int( 【10】*200+100)
If 【11】=0 Then
Print x
S=S+ 【12】
End if
Next i
Print"Sum=";S
End Sub
(7)在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，
如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。

以下是实现上述功能的程序，请填空。

Private Sub Form 【13】 (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then
【14】 mnuEdit
End If
End Sub
(8)计时器控件能有规律的以一定时间间隔触发【15】事件，并执行该事件过程中的程序代码。

三、编程（30分，每题10分）
1、编制程序实现从键盘读入一数字，求此数字的绝对值，并输出结果。

2、输入10个同学的数学成绩，实现从小到大的排序。

3、打开文本文件a.dat，将其中的所有小写字母转换为大写字母后，保存为文本b.dat。

答案：
一、选择题
1.C
2.A
3.C
4.D
5.B
6.B
7.D
8.D
9.B 10.D
11.A 12.C 13.C 14.B 15.B
16.D 17.B 18.C 19.A 20.C
二、填空题
1.顺序
2.选择
3.循环
4..vbp
5.Change
6.Open
7.Close
8.30
9. 70
10.Rnd或Rnd(n)
11.X mod 5
12. x
13. mousedown
14. popupmenu
15.timer
三、编程题
1、
Sub myabs()
Dim absa As Integer, a As Integer
a=inputbox(“Enter an integer a”)
absa=a
if a< 0 then
absa=-a
试卷编号
end if
print “|”;a;”|=”; absa
2、
Dim scores(1 To 10) As Single
…输入10个数字
For i = 1 To 10
scores(i) = InputBox("输入数字")
Next
…排序
For i = 1 To 9
iMin = i
For j = i + 1 To 10
If scores(j) < scores(iMin) Then iMin = j
Next j
t = scores(i)
scores(i) = scores(iMin)
scores(iMin) = t
Next i
3、
Sub sum()
Open "c:\a.dat" For Input As #1
Open "c:\b.dat " For Output As #1
Do While Not EOF(1)
Line Input #1, InputData
Print #2, Ucase(InputData)
Loop
Close #1
Close #2
End Sub。