Visual Basic模拟试题(7)
一、填空题（每空２分，共40分）
1．变量名最长可达个字符。
2．常量是指在程序运行过程中，的量。
3．整数类型数据分别包括整型和数据。
4．静态数组是指是固定不变的数组。
5．循环是一组重复执行的指令，重复次数由决定。
6．列表框（ListBox控件）显示，用户可从中选择一个或多个项目。7．框架（Frame控件）可以用来进行分组，以便于用户识别，主要用于为单选按钮分组。
8．计时器控件通过定期激活Timer事件，使得Timer控件就执行一次Timer事件中的代码。
9．工程文件是与和对象以及所设置的环境信息的一个简单列表。
10．在程序中调用子过程需要指明，然后列出该子过程所要求的参数。
二、单项选择题
1．工程文件的扩展名是（）。
A．vbg B.vbp C.vbw D.vbl
2.在以下窗体中没有采用的控件是（）。
A.文本框 B 垂直滚动条C．框架 D 命令按钮3．滚动条控件（如图所示）的Largechange属性所设置的是（）
A．单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量
B．滚动条中滚动块的最大移动位置
C．滚动条中滚动块的最大移动范围
D．滚动条控件无该属性
4．单击Forml窗口，将执行如下程序：
Private Sub Form_Click ( )
I=MsgBox(“aaaaaaa”,2,″bb″)
End Sub
其程序执行结果是（）
5．以下选项中，不属于文本框的属性是（）。
A．Enabled B Caption D Min
6.要求改文本框中显示的文本，应当在属性窗口中改变的属性是（）。A．Caption B Name C.Text D Label
7.普要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置（）。
A．Text属性值为# B Caption属性值为#
C．Passwordchar属性值为# D Passwordchar属性值为真
8．允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（）
A．在标题项中输入&然后打勾 B 在索引项中输入“√”
C．在复选项中输入“√” D 在有效项中输入“√”
9．当执行以下过程时，在窗体上将显示（）。
Private Sub Commandl_Click( )
Print “VB”
Print“Hello!”；
Print “VB”
End Sub
A. VB Hello! VB
B. VB
Hello!VB
C. VB
Hello! VB
D. VB
Hello!
VB
10.分析下列程序，指出正确的结果是（）。
Private Sub Form_Click( )
Print Spc(6); ″第一″；
Print Spc(6); ″第二″；
End Sub
D.以上结果，都不是
三、判断题（判断下列各题正确与否，正确的打√，错误的打´，并写出正确答案，每小题2分，共20分）。
1．在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。（）
2．Visual Basic表达式为：128¸4+COS（28°）（）
3．Visual Basic表达式为：3*cos (c+d)^2或3*cos (c+d)*cos (c+d) ( )
4.VB程序语言两个基本特点是：结构化和事件驱动编程。（）
5．二进制文件与随机文件的主要区别是：二进制文件与随机文件类似，必须限制固定长度，可用喜欢的方式来存取文件。（）
6在VB6.0中包括四个文件类控件，它们分别是DriveListBox控件，DirListBox控件、FileListBox控件和CommandDialog控件。（）
7．动态菜单，就是菜单中列出了最近使用过的文件名，这部分内容是随着应用程序的运行而不断改变着的，在动行时使菜单可以增长。（）
8．按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。（）9．函数过程（Function Procedure）用来完成特定的功能但不返回相应的结果。（）10．设A=3，B=4，C=5，D=6，计算表达式A>B AND C<=D OR 2*A>C的值是False。（）
四、读程序题，写出程序运行结果（每小题5分，共20分）
1.Private Sub Form_Click( )
Static Sum As Integer
For I=1 To 10
Sum= Sum+I
Next I
Print Sum
End Sub
2.Private Sub Form_Click ( )
Print "*"；Tab(9);3,Tab(18);6
Print
For I=15 to 16
Print I;
For j=3 To 6 Step 3
Print Tab(3*j);j*I;
Next j
Print
Next I
End Sub
3.Private Function Fac(n As Integer)As Integer
Dim f As Integer
f=f+n
Fac =f
End Function
Private Sub Form_Click( )
Dim I As Integer
For I=1 To 5
