VB模拟试题(参考)求答案啊.doc

计算机应用模拟题
一、 单项选择题（共20分，每题1分）
1、标签控件提供了在窗体相对固定的位置显示文本的区域，和它具有同样功能的控件是（ ）。
A.文本框 B.命令按钮
C.图片框 D.以上各控件都不对
2、文本框不具有的属性是（ ）。
A.Multiline B.Caption
C.Font D.Height
3、命令按钮不具有的属性是（ ）。
A.Font B.Multiline
C.Enabled D.Visable
4、单选按钮不具有的属性是（ ）。
A.Value B.Caption
C.Text D.Font
5、计时器没有的属性是（ ）。
A.Interval B.Enable
C.Size D.Index
6、设有如下语句：
Dim a，b As Integer
c="VisualBasic"
d=#7／20／2005#
以下关于这段代码的叙述中，错误的是（ ）。
A.a被定义为Integer类型变量
B.b被定义为Integer类型变量
C. c中的数据是字符串
D.d中的数据是字符串类型
7、以下可以作为Visual Basic变量名的是（ ）。
A. A#A B.counstA
C. 3A D. ?AA
8、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（ ）。
A. Print A=x+y B. Print"A=";x+y
C. Print "A="+Str(x+y) D. Print"A="&x+y
9、假定有如下的命令按钮(名称为Command1)事件过程：
Private Sub Command1_Click()
Dim x as integer
x=InputBox("输入："，"输入整数")
MsgBox ”输入数据："+x, , "输入的数据是：”
End Sub
程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（ ）。
A. x的值是10
B. 输入对话框的标题是“输入整数”
C. 信息框的标题是“输入数据：10”
D. 信息框的标题是“输入的数据是：”
10、在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是（ ）。
A.编写代码　 B.新建一个工程　 C.打开属性窗口　 D.进入VB环境
11、要求改变窗体的标题时，应当在属性窗口中改变的属性是（ ）。
A. Caption　 B.Name　 C.Text　 D.Label
12、窗体能响应的事件是（ ）。
　A.ActiveFrom　 B.Drive　 C.Load　 D.Change
13、若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置（ ）。
　A. Text属性值为*　  B.Caption属性值为*
　C.password属性值为空　 D.Passwordchar属性值为*
14、如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于（ ）。
A.1000          B.100           C.10            D.1
15、Visual Basic提供的选择框（CheckBox）可具有功能是（ ）。
　A. 多重选择  B.单一选择  C.选择多次  D. 选择一次
16、Visual Basic规定窗体文件的扩展名是（ ）。
　A. .for　 B. .frm　 C. .vbp　 D. .bas
17、创建应用程序的界面时，在窗体上设置了一个命令按钮，运行程序后，命令按钮没有出现在窗体上，可能的原因是（ ）。
Ａ.该命令按钮的 Value 属性被设置为 False
Ｂ.该命令按钮的 Enabled 属性被设置为 False
Ｃ.该命令按钮的 Visible 属性被设置为 False
Ｄ.该命令按钮的 Default 属性被设置为 True
18、若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），可使用 （ ）控件将它们分隔开。
　Ａ.TextBox 　　　　　Ｂ. Label 　　　Ｃ.Image 　　　　Ｄ.Frame
19、Integer类型的变量X在 Select Case X 结构中，描述判断条件 3 ≦ X ≦ 7 的测试项应该写成（ ）。
　Ａ. Case 3 ≦ X ≦ 7 　　　　　　　　　Ｂ. Case 3 ≦ X ， X ≦ 7 　
　Ｃ. Case Is ≦ 7 ， Is ≧ 3　　　　　　　Ｄ. Case 3 To 7
20、窗体设计器是用来设计（ ）。
A.应用程序的代码段 B.应用程序的界面
C.对象的属性 D.对象的事件

1.确定一个控件或窗体的大小的属性是（ ）
A. width 或height B. width和 height C. top或left D. top和left
2. 与传统的程序设计语言相比，VB最突出的特点是（ ）
A. 结构化程序设计 B事件驱动编程机制 C．程序开发环境 D. 程序调试技术
3．下列可作为Visual Basic变量名的是
A. A#A B. 4A C. ?xY D. constA
4.在VB6中integer类型数据占多少个字节（）
A．2 B．4 C．8 D 10
5．以下选项中，不属于文本框的属性是（ ）。
A．Enabled B. Caption C.Name D. Multiline
6. 执行如下两条语句，窗体上显示的是
a=9.8596
Print Format(a,"$00,00.00")
A) 0,009.86 B) $9.86 C) 9.86 D) $00,09.86
7.要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置（ ）。
A．Text属性值为# B. Caption属性值为#
C．Passwordchar属性值为# D. Passwordchar属性值为真
8．函数String(n，"str")的功能是
A.把数值型数据转换为字符串
B.从字符串中取出n个字符
C.返回由str首字母组成的的n个字符串
D.从字符串中第n个字符的位置开始取子字符串
9．△表示空格，以下语句的输出结果是（ ）
a=23
b=66
print a;b
A. 23△66 B. △23△66 C. △23△△66 D. △23△△66△
10. 使文本框获得焦点的方法是（ ）
A． change B．gotfocus C．lostfocus D． setfocus
11. 设a=2，b=3，c=4，d=5，表达式a>2 and a=c or 2*a>c的值是( )
A. true B. false C. -1 D. 1
12.表达式5*5\5/5的输出结果是（ ）
A. 5 B. 25 C. 0 D. 1
13. 删除列表框中指定的项目所使用的方法是（ ）
A. Move B. RemoveItem C. Clear D. Remove
14.合法的单精度型变量是（ ）
A. num! B. sum% C. a$ D. mm#
15.不论任何控件，共同具有的属性是（ ）
A. Text B. Name C. ForeColor D. Caption
16.执行语句a=msgbox(“AAAA”, ,”BBBB”)后，所产生的信息框的标题是（ ）
A. AAAA B. 空 C. BBBB D .出错，不能产生信息框
17.下面过程语句说明合法的是（ ）
A. sub f1 (ByVal n%()) B. sub f1(n%) as integer
C. function f1%(f1%) D. function f1( byval n%)
18. 若要使命令按钮是否可见，要设置哪个属性（）
A. Enabled B. Visible C. Backcolor D. Backstyle

1．工程文件的扩展名是（ ）。
A．vbg B.vbp C.vbw D.vbl
2. VB采取了（ ）的程序机制。
A.事件驱动 B. 按过程顺序执行 C．从主程序开始执行 D.按模块顺序执行
3．下列可作为Visual Basic变量名的是（ ）
A. A#A B. 4A C. ?xY D. constA
n
6.以下不属于VB的工作模式的是（ ）。
A．编译模式 B. 设计模式 C.运行模式 D. 中断模式
9．当执行以下过程时，在窗体上将显示（ ）。
Private Sub Command1_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. 要使print方法在form_load事件中起作用，要对窗体的（ ）属性进行设置。
A. BackColor B. ForeColor C. AutoRedraw D.Caption
11.以下关于过程及过程参数的描述中，错误的是( )
A. 过程的参数可以是变量、常量、表达式。
B.用数组作为过程的参数时，使用的是"传值"方式。
C.在函数过程体中必须对函数过程名赋值。
D.调用子过程时，形参与实参要一一对应。
12. 设x=4, y=8, z=7，表达式 x<y And (Not y>z) Or z>x 的值是（ ）
A. 1 B. -1 C. True D. False
14.表达式Len(“VB程序设计”)的值是（ ）
A .12 B. 6 C .10 D. 17
17.在过程定义的变量，若想在离开该过程后，还能保存过程中的局部变量的值，则应使用关键字（ ）
A. dim B. private C. public D. static
19.若要使命令按钮不可操作，要设置哪个属性（）
A. Enabled B. Visible C. Backcolor D. Backstyle
20.如下数组声明语句，正确的是（）
A. dim a[3,4 ] as integer B. dim a(3,4) as integer
C. dim a(m,n) as integer D. dim (3 4) as integer

二、 填空题（共15分，每空1分）
1、 窗体 和控件是创建界面的基本构件，也是创建应用程序所使用的对象。
2、创建vb应用程序有四个主要步骤：（1）创建应用程序界面。
（2）设置属性。（3事件过程及编程 。（4）运行和保存。
3、在计算机中，文件随着分类方法的不同，名称也各不一致。根据数据的存取方式和结构，可以分为顺序文件、 随机文件 和二进制文件。
4、在vb程序中使用变量，如果设置了Option Explicit，则在使用变量之前必须要进行 dim显示声明 。
5、VB程序的运行采用 事件驱动 的机制。
6、对象的三要素是指_____属性______、___事件________和_方法_____。
7、下面表达式写成VB的表达式应当是_____(12*x+5*y-sqrt(D^3-M^2))*sin(x)/exp(-x) 。
8、根据下图写出InputBox函数中的参数为：InputBox(______strs1_____,______“输入框”____,_____100_______)。

9、声明一个包含10个整数的数组a的语句为_Dim s(1 To 10) As String ______________。
10、调试程序时，如果想要程序在某条语句处暂停，则可以在该语句处设置 断点__。在调试过程中，可以在即时窗口中使用？加____print语句________察看该变量当前的值。

1．VB是面向对象的程序设计语言，面向对象系统三要素是属性、____事件___和___方法____。
2.工程文件的扩展名是__vbp____, 窗体文件的扩展名是__frm_____。
3.假定一个文本框的名字是text1，在该文本框中显示”hello”，所使用的语句是_____________________。
4. D盘下有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框picture1，应执行的语句为 picture1.picture = loadpicture（“d：|pic2.gif”________ ____________。
5.为了选择多个控件，可以按住__shift_____键，然后再单击。
6.计时器事件之间的间隔通过_interval_________属性设置
7．在程序中调用子过程需要指明___sub子程序名____ ，然后列出该子过程所要求的参数。
8．已知A=”12345678”，则表达式val(left(A,4)+mid(A,4,2))的值为123445_。
1．变量名最长可达_255______个字符。
2．在一行内写多条语句时，每个语句间用____；___ 符号分隔。
3．整数类型数据分别包括整型和___长整型____ 数据。
4．静态数组是指____数组大小不变___ 是固定不变的数组。
5．循环是一组重复执行的指令，重复次数由____循环变量___ 决定。
6．为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的语句为_______ 。
7．ListCount属性的值表示列表框或组合框中项目的数量，列表框或组合框最后一项的序号是 _______ 。

三、 程序填空题（共20分，每空2分）
1、要在窗体上打印如图所示的九九乘法表。请在空白处填入适当的语句以实现该功能。

Dim s as string
Dim i,j as integer
For ______________
For _______________
s = _____________________
Print Tab((j - 1) * 9 + 1); s;
Next j
Print
Next i
2、下面的代码段用于判断两个数x和y的大小，并始终在x中存放较大的数。请在空白处填入适当的语句以实现该功能。
If__________then
____________
____________
_____________
end if
3、下面的代码段实现求100-200之间所有偶数的和。请在空白处填入适当的语句以实现该功能。
Dim i as integer
Dim sum as long
________
For i=100 to 200_______
__________________
Next I
Print sum

4 .随机产生六位学生的分数（1~100），存放在数组a中，并显示结果。
Private Sub Form_Click ( )
Dim a(1 to 6)
For i = 1 to 6
a(i)= _______
print a(i)
_______
End Sub
5. 设有以下循环，要执行3次循环体，请填空。
x=1
do while _________
x=x+2
loop
6. 计算n!的程序
n＝5: x＝1: i=1
 Do
 __x=x*i_______
 i=i+1
 Loop While _i<=5____
 Print x
7.输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的”ABCDEFG”变换成”GFEDCBA”。思路：将字符串从两头往中间对应交换位置。
Private Sub command1_Click ( )
Dim a$, i%, c$,
a= InputBox$(“输入字符串”)
n=_______
For i = 1 to Int(n\2)
c= Mid(a, i, 1)
Mid(a, i, 1) = _______
_______=c
Next i
Print a
End Sub

四、 读程序题（共15分，每题5分）
1、 在窗体上画1个命令按钮(名称为Command1)和2个文本框(名称为Text1和Text2)，然后编写如下事件过程：
Private Sub Command1_Click()
x=Val(Text1.Text)
Select Case x
Case 1，3
y=x*x
Case Is>=10，Is<=-10
y=x
Case -10 To 10
y=-x
End Select
Text2.Text=y
End Sub
运行程序后，在Text1文本框中输入3，然后单击命令按钮，此时，Text2文本框显示的结果为 9 。在Text1文本框中重新输入5，然后单击命令按钮，此时，Text2文本框显示的结果为 -5 。

2、在窗体上放置一个按钮，名称为Command1，编写其单击事件过程如下：
Option Explicit
Private Sub Command1_Click()
Static S As Integer
Dim i As Integer
S=1
For i =1 to 5
S=S*i
Next i
Print S
End Sub
运行该程序，并单击按钮，此时窗体上显示的运行结果为 120 。

3、程序代码如下：
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 2
Hello
MingCheng
Next i
End Sub
Private Sub Hello()
Print "您好,";
End Sub
Private Sub MingCheng()
Print "VB!"
End Sub
运行该程序，窗体上的显示结果为 您好，VB！
您好，VB！
4. Private Sub Form_Click( )
Static Sum As Integer
For i=1 To 10 step 2
Sum= Sum+i
Next i
Print Sum
End Sub
单击窗体，显示结果为 25 。
5. Private Sub Form_Click ( )
Dim a$, i%, c$
a= InputBox$(“输入字符串”)
n=len(a)
For i = 1 to Int(n\2)
c= Mid(a, i, 1)
Mid(a, i, 1) = Mid(a, n+1-i, 1)
Mid(a, n+1-i, 1)=c
Next i
Print a
End Sub
若输入ABCDEF，则结果是 FEDCBA 。

6. Private Sub Form_Click( )
Static Sum As Integer
For i=1 To 6
Sum= Sum+i
Next i
Print Sum
End Sub
运行结果：21
7. Private Sub Form_Click ( )
Dim x%,y%,z%
x=242 : y=44
z=x*y
do while x<>y
if x>y then x=x-y else y=y-x
loop
print x , z/x
End Sub
运行结果： 22 484
8. Dim a, b%
a = Array(1, 2, 3, 4, 5)
b = 2
For i = 0 To UBound(a)
b = b * a(i)
Next i
Print b
运行结果：240
9. public sub f1(n%, ByVal m%)
n=n mod 10
m=m\10
end sub
private sub command1_click()
dim x%, y%
x=12 : y=34
call f1(x,y)
print x,y
end sub
运行结果：2 34
10. 编程题（本科生要求下面4个题目全做，第1、3题7分，第2题6分，第4题10分。专科生选做其中的三个题目，每个10分）
1、百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，并且要求每种鸡的个数都必须大于1。编程列出所有可能的购鸡方案。
2、已知变量Char中存放了一个字符，请判断该字符是大写字母、小写字母、数字字符，还是其它字符，并将判断结果输出。
3、斐波那契数列的递推公式如下：
F1=1
F2=1
Fn=Fn-1+Fn-2
求该数列的前20项，并将结果存储在一个数组中。
4、 已知坐标点（x，y），请判断该点落在了哪个象限，并输出判断结果。

5. 求100-200之间所有能被3整除的数的和。
6. 打印九九乘法表。
7. 从键盘输入一个数，判断该数是不是素数。（输入框 + For循环）
8. 求100个随机数的和、平均值、最大值。（随机函数+一维数组）
9. 求100个学生某门课程的平均分和高于平均分的人数。（一维数组）
10. 对10个数排序,按由小到大的顺序输出。（一维数组）
11. 编写一个函数过程swap，实现两个数的交换。在form_click（）事件过程中调用swap。

12. 在窗体的单击事件过程（form_click）中编写如下程序，结果输出到窗体上。
从键盘输入6个数，存入一数组中，求这6个数的最小值，及其所在数组的下标位置，输出到窗体上。通过inputbox函数输入数据。
13.编一程序根据上网时间计算上网费用，计算方法如下：
30元 <10小时。
费用= 每小时3元 10~50 小时
每小时2.5元 >= 50小时
14.编写程序，求s=1!+2!+3!+..+10!，阶乘的计算用function过程实现。
15.设计一个程序，求1—100 的3的倍数或5的倍数的和。
16.设计一个程序，求20—50 的 偶数和。
17. 设计一个程序，求1—100 的 偶数和。
18. 设计一个程序，求1—100 的 奇数和。

第 １３ 页 共 13 页