2010年9月计算机等考二级VB真题及答案

真题答案

一、选择题
1.在Visual Basic设计界面中不能隐藏的窗口是 A 。
A)工程窗口
B)属性窗口
C)立即窗口
D)窗体窗口
2.以下可以构成语句的一项是 B 。
A)对象名.属性
B)对象名.方法名
C)对象名.事件名
D)对象名.函数名
3.以下不是 Visual Basic 的特点的选项是 B 。
A)可视编程
B)算法设计
C)事件驱动
D)面向对象
4.在Visual Basic中通过属性来设置字体的颜色 A 。
A)FontColor
B)ClipControl
C)BackColor
D)ShowColor
5.设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用属性 D 。
A)ControlBox
B)ClipControl
C)BordeStyle
D)AutoRedraw
6.Move方法的一般形式是［对象名.］Move A［,B［,C［,D］］］,其中B指的是 B 。
A)Left
B)Top
C)Width
D)Height
7. C 是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A)文件
B)属性
C)方法
D)窗体
8.以下不属于同类的是 A 。
A)Click
B)Name
C)Caption
D)Top
9.当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是 B 。
A)AutoSize属性
B)Resize事件
C)AutoRedraw属性
D)Stretch方法
10.对象可以识别和响应的某些行为称为 D 。
A)属性
B)方法
C)继承
D)事件
11.与传统的程序设计语言相比，Visual Basic最突出的特点是 C 。
A)结构化程序设计
B)程序开发环境
C)事件驱动编程机制
D)程序调试技术
12.在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic。以下方式中，不能启动Visual Basic的是 D 。
A)通过“开始”菜单中的“程序”命令
B)通过“我的电脑”找到vb6.exe，双击该文件名
C)通过“开始”菜单中的“运行”命令
D)进入DOS方式，执行vb6.exe文件
13.为了用键盘打开菜单和执行菜单命令，第一步应按的键是 A 。
A)功能键F10或Alt键
B)Shift+功能键F4
C)Ctrl或功能键F8
D)Ctrl+Alt键
14.Visual Basic 6.0集成环境的主窗口中不包括 C 。
A)标题栏
B)菜单栏
C)状态栏
D)工具栏
15.用标准工具栏中的工具按钮不能执行的操作是 B 。
A)添加工程
B)打印源程序
C)运行程序
D)打开程序
16.Visual Basic窗体设计器的主要功能是 A 。
A)建立用户界面
B)编写源程序代码
C)画图
D)显示文字
17.在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是 B 。
A)编写代码
B)新建一个工程
C)打开属性窗口
D)进入Visual Basic环境
18.下列不属于Visual Basic特点的是 C 。
A
)对象的链接与嵌入
B)结构化程序设计
C)编写跨平台应用程序
D)事件驱动程序编程机制
19.下列不是Visual Basic 6.0中打开工程的方法为 A 。
A)按Alt+O组合键
B)执行"文件"菜单中的"打开工程"命

真题答案

令
C)按Ctrl+O组合键
D)单击标准工具栏上的"打开工程"按钮
20.下面关于Visual Basic 6.0工具栏的说法不正确的是 B 。
A)工具栏的位置可以任意改变
B)工具栏一定在菜单栏的下方
C)工具栏可以显示或隐藏
D)Visual Basic有多个工具栏
21.设置标签边框的属性是 A 。
A）BorderStyle
B）BackStyle
C）AutoSize
D）Alignment
22.要使标签所在处透明显示背景，应把其BackStyle属性设置为 A 。
A）0
B）1
C）True
D）False
23.以下不具有Picture属性的对象是 D 。
A）窗体
B）图片框
C）图像框
D）文本框
24.决定控件上文字的字体、字形、字号、效果的属性是 D 。
A）Text
B）Caption
C）Name
D）Font
25.决定一个窗体有无控制菜单的属性是 D 。
A）MinButton
B）Caption
C）MaxButton
D）ControlBox
26.任何控件都具有 C 属性。
A）Text
B）Caption
C）Name
D）ForeColor
27.为了把焦点移到某个指定的控件，所使用的方法是 A 。
A）SetFocus
B）Visible
C）Refresh
D）GetFocus
28.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条的事件是 C 。
A）Move
B）Change
C）Scroll
D）Setfocus
29.假定窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是 A 。
A）单击窗体上没有控件的地方
B）单击任一个控件
C）不执行任何操作
D）双击窗体的标题栏
30.为了把窗体上的某个控件变为活动的，应执行的操作是 B 。
A）单击窗体的边框
B）单击该控件的内部
C）双击该控件
D）双击窗体
31.确定一个控件在窗体上的位置的属性是 D 。
A）Width或Height
B)Width和Height
C)Top或Left
D)Top和Left
32.为了同时改变一个活动控件的高度和宽度，正确的操作是 A 。
A）拖拉控件4个角上的某个小方块
B）只能拖拉于控件右下角的小方块
C）只能拖拉位于控件左下角的小方块
D）不能同时改变控件的高度和宽度
33.能够获得一个文本框中被选取文本的内容的属性是 C 。
A)Text
B)Length
C)Seltext
D)SelStart
34.要使标签能够显示所需要的文本，则在程序中应设置 A 属性的值。
A)Caption
B)Text
C)Name
D)AutoSize
35.要使一个命令按钮成为图形命令按钮，则应设置其 B 属性值。
A)Picture
B)Style
C)DownPicture
D)DisabledPicture
36.要使标签中的文本靠右显示，则应将其Alignment属性设置为 B 。
A)0
B)1
C)2
D)3
37.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 D 。
A)
Value
B)Cancel
C)Enabled
D)Default
38.下列语句中正确的是 D 。
A)txt1.Text+txt2.Text=txt3.Text
B)=cmdOK
C)12Label.Captio

真题答案

n=1234
D)Text1="123"
39.如果要在文本框中输入字符时，只显示某个字符，如星号（*），应设置文本框的 B 属性。
A)Caption
B)PassWordChar
C)Text
D)Char
40.有如下程序：
m＄="ABC"
n＄="abc"
k＄=LCase＄(m＄)
j＄=UCase＄(n＄)
Print Asc(k＄+j＄)
End
运行后输出的结果是 D 。
A）abcabc
B）ABCABC
C）65
D）97
41.有如下程序：
a=6;b=8
F=Sqr(a*a+b*b)
Print F
运行后输出的结果是 C 。
A）6
B）8
C）10
D）14
42.有如下程序：
Dim a As String,b As String
a="12345",b="abcde"
For i=1 To 5
c=c+Left(a,i)+Right(b,i)
Next i
Print c
运行后输出的结果是 D 。
A)a1b2c3d4e5
B)1a2b3c4de5
C)e1d2c4b5e1d2c3b4a5
D)1e12de123cde1234bcde12345abcde
43.下面表达式中， D 的运算结果与其他3个不同。
A)log(Exp(-3.5))
B)Int(-3.5)+0.5
C)-Abs(-3.5)
D)Sin(30*3.14/180)
44.设m，n是整数，且n>m,在以下4个语句中，能将x赋值为一个m～n之间（含m，n）任意整数，即满足n≥x≥m的是 C 。
A）X=INT（RND*（N-M+1））+M
B）X=Int(Rnd*n)+m
C)X=Int(Rnd*m)+n
D)X=Int(Rnd*(n-m)+m
45.在以下4个逻辑表达式中，其逻辑值为"真"的是 D 。
A）Not (3+4<4+6)
B）2>1 And 3<2
C)1>2 Or 2>3
D)Not (1>2)
46.执行以下程序段后，变量C＄的值为 D 。
A＄="Visual Basic Programing"
B＄="Quick"
C＄=B& & Ucase(Mid&(A&,7,6)) & Right&(A$,11)
A)Visual BASIC Programing
B)QuickBasic Programing
C)QUICK Basic Programing
D)Quick BASIC Programing
47.语句X=X+1的正确含义是 C 。
A）变量X的值与X+1的值相等
B）将变量X的值存到X+1中去
C）将变量X的值加1后赋给变量X
D）变量X 的值为1
48.代数式ex Sin(30)2x/(x+y)ln x对应的Visual Basic表达式是 C 。
A）X=E^X*Sin(30*3.14/180)*2*x/x+y*Log(x)
B）X=Exp(x)*Sin(30)*2*x/(x+y)*Ln(x)
C）X=Exp(x)*Sin(30*3.14/180)*2*x/(x+y)*Log(x)
D）X=Exp(x)*Sin(30*3.14/180)*2*x/(x+y)*Ln(x)
49.如下程序：
Private Sub Form_Click()
a=20:b=20:c=120:d=120
Form.Line(a,b)-(c,d),,BF
End Sub
单击窗体后，窗体上显示的是 C 。
A）一条直线
B）一个矩形空框
C）一个填充了颜色的矩形
D）无任何图形
50.运行以下程序后，输出的图案是 A 。
Forml.Cls
For A=1To5
Print Space(5-A);String(A, "*")
Next A
A) *
* *
* * *
* * * *
* * * * *

B) *
* *
* * *
* * * *
* * * * *
C)*
* *
* * *
* * * *
* * * * *
D)*
* *
* * *
* * * *
* * * * *
51.运行下面程序段可以显示 B 中的图形。
Forml.Cls
For k=1To5
Print Tab(10-k)
For m=1 To 2*k-1
Print "%";
Next m
Print
Next k
A) %
%%%
%%%%%
%%%%%%%
B)%
%%%
%%%%%
%%%%%%%
%%%%%%%%%
C)%%%%%%%%%
%%%%%%%

%%%%%
%%%
%
D)%%%%%%%%%
%%%%%%%
%%%%%
%%%
%
52.下述程序的运行结果是 B 。
For m=3 To1 Step-1
x＄=String＄(m,"#")
Print x＄
Next

真题答案

m
A)1#
2#
3#
B)###
##
#
C)#
##
###
D)3#
2#
1#
53.执行以下语句的输出结果是 C 。
Print Format(32548.5, "000,000.00")
A)32548.5
B)32,548.5
C)032,548.50
D)32,548.50
54.下面程序的运行结果不同是 D 。
A）For I=100 To 200
Pset(100,I)
Next i
B）Line(100,100)-(100,200)
C）Line(100,100)-Step(0,100)
D）Line Step(100,100)-Step(100,200)
55表达式Left("how are you",3)的值是 A 。
A）how
B）are
C）you
D）how are you
56.表达式Abs(-5)+Len("ABCDE")的值是 C 。
A）5ABCDE
B）-5ABCDE
C）10
D）0
57.函数Int(Rnd*6+1)的取值范围是 C 。
A）从1到7共7个整数
B）从0到7共8个整数
C）从1到6共6个整数
D）从0到6共7个整数
58.有如下程序：
a=3:b=4
Print b>a
End
运行后，输出结果是 A 。
A）Ture
B）False
C）4>3
D）显示出错信息
59.有如下程序：
DefStr X-Z
X="123"
Y="456"
Z=X＄+Y＄
Print Z＄
End
运行后，输出结果是 B 。
A）显示出错信息
B）123456
C）“579”
D）579
60.窗体上有一个按钮和一个列表框（Sorted属性为True），执行下列过程后的输出结果为 B 。
Private Sub Command1_Click()
List1.AddItem "China"
List1.AddItem "Great"
List1.AddItem "Is",1
List1.AddItem "!",3
Print List1.List(2)
End Sub
A）China
B）Great
C）Is
D）!
61.使用 D 方法不能让控件获得焦点。
A）通过Tab切换
B）单击该控件
C）使用SetFocus方法
D）使用键盘上的方向键
62.若想要建立一个学生管理系统的输入界面，其中要求选择学生的性别/政治面貌（党/团/群众）及选课情况（共有5门课，可任选），下列设置方法正确的是 B 。
A）将5门课程用一组5个选择框来表示，将性别和政治面貌用5个单选按钮来表示
B）将5门课程用一组5个选择框来表示，用两个框架分别将性别用两个单选按钮，政治面貌用3个单选按钮来表示
C）将5门课程用一组5个单选按钮来表示，将性别和政治面貌用5个选择框来表示
D）用一组10个选择框来表示课程、性别和政治面貌
63.下列不是标准控件的是 D 。
A）图像框
B）图片框
C）框架
D）对话框
64.列表框中TabIndex属性表示的意义是 C 。
A）被选中列表项的序号
B）列表框的项的总数
C）列表框获取Tab焦点的序号
D）无此属性
65.窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是 A 。
Private Sub Command1_Click()
Picture1.Picture=LoadPicture("c:＼1.jpg")
Picture1.Cls
Picture1.Print "Test"
End Sub
A)窗体无显示，图片框显示图片和文字Tes
t
B)窗体上出现Test文本，图片框无显示
C)窗体上出现Test文本，图片框显示图片1.jpg
D)窗体无显示，图片框只显示Test文字
66.以下不属于标签属性的是 B 。
A）Font
B）Value
C）Caption
D）Index
67.窗体上有一个

真题答案

按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输
出结果为 C 。
Private Sub Command1_Click()
Dim A As Integer,B As Integer
Text1. SelStart=2
Text1.SelLength=2
A=Val(Text1.SelText)
B=Len(Text1.Text)
Print A*B
End Sub
A）68
B）115
C）170
D）1170
68.以下控件没有Click事件是 C 。
A)TextBox
B)Label
C)Timer
D)Image
69.可以接受焦点的控件是 B 。
A）Frame
B）Command
C）Label
D）Timer
70.给程序的空白行选择适当的语句。
窗体上有一个命令按钮Command2和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：
Private Sub Command2_Click（）。
Dim Ind As Integer
Ind= B
List1.Remove Ind
End Sub
A）List1.Index
B）List1.ListIndex
C）List1.Text
D）List1.ListCount
71.下列关于图片框的语句中错误的是 D 。
A）Picture1.Picture=Picture2.Picture
B）Picture1.Picture=LoadPicture("C:＼vb60＼Arw04Up.ico")
C）Picture1.Print Tab(20); CurrentX, CurrentY
D）Picture1.Stretch=True
72.关于Image控件和PictureBox控件的说明，其中错误的是 B 。
A）Image控件和PictureBox控件都有Picture属性
B）Image控件和PictureBox控件都支持Print方法
C）Image控件和PictureBox控件都可以用LoadPicture函数把图形文件装入控件中
D)Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件
73.许多常用控件都有Value属性，Value属性的作用是 D 。
A）确定控件的属性
B）确定控件的位置
C）确定控件的状态和位置
D）确定控件的状态、内容及位置
74.窗体上有一个名为Label1的标签，为了使该标签透明并且没有边框，正确的属性能设置为 A 。
A）Label1.BackStyle=0
Label1.BorderStyle=0
B）Label1.BackStyle=1
Label1.BorderStyle=1
C）Label1.BackStyle=true
Label1.BorderStyle=true
D）Label1.BackStyle=False
Label1.BorderStyle=False
75.窗体上有一个列表框和一个文本框，编写如下两个事件过程：
Private Sub Form_Load()
List1.AddItem "Beijing"
List1.AddItem "Tianjin"
List1.AddItem "Shanghai"
Text1.Text=""
End Sub
Private Sub List1_Click()
x=List1.Text
Print x+Text1.Text
End Sub
程序运行后，在文本框中输入“China”，然后单击列表框中的“Shanghai”，则输出结果为 D 。
A）China Beijing
B）China Tianjin
C）China Shanghai
D）Shanghai China
76.为了暂时关闭计时器，应把该计时器控件的 C 属性设置为False。
A）Visible
B）Timer
C）Enabled
D）Interval
77.下列各控件不包含有滚动条的控件是 D 。
A）ListBox
B）ComboBox
C）T
extBox
D）LabelBox
78.下列每组控件中，都包含有滚动条的一组控件是 D 。
A）ListBox和LabelBox
B）TextBox和DriveListBox
C）ComboBox和CheckBox
D）FileListBox和DirListBox

真题答案

79.给程序的空白行选择适当的语句。
程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。程序如下：
Do While List2.ListCount
A
List2.RemoveItem 0
Loop
A）List1.AddItem List2.List(0)
B）List1.AddItem List2.Text
C）List2.AddItem List1.List(0)
D）List2.AddItem List1.Text
80.如下程序运行后输出的结果是 B 。
x=0
For k=3 To 5
x=x+2
s=s+x
Next k
Print s
A）3
B）12
C）6
D）9
81.下述程序的功能是 C 。
x="((a+B)*A)-(a*b+C)"
n=Len(x)
m=0
For k=1 To n
p&=Mid(x,k,1)
If p&="(" Then
m=m-1
ElseIf p&=")" Then
m=m+1
End If
If m>0 Then
Print ":-p"
End If
Next k
Print ":-)"
A）统计输入的字符串中括号的总数
B）统计输入的字符串中匹配的括号的对数
C）检查输入的字符串中的括号是否能够匹配
D）删除字符串的括号
82.下述程序段中，与其他3个程序段作用不同的是 A 。
A）s=0
i=0
While i>100
s=s+i
Wend
B）s=0
i=0
While i<100
i=i+1
Wend
C）s=0
i=1
Do While i<100
s=s+1
Loop
D）s=0
i=0
Do Until i>100
s=s+1
Loop
83.下列程序段的执行结果为 A 。
a=0:b=1
Do
a=a+b
b=b+1
Loop While a<10
Print a;b
A）10 5
B）a b
C）0 1
D）10 30
84.下列程序的运行结果是 B 。
s=0:t=0:u=0
For x=1 To 3
For y=1 To x
For z=y To 3
s=s+1
Next z
t=t+1
Next y
u=u+1
Next x
Print s;t;u
A）3 6 14
B）14 6 3
C）14 3 6
D）16 4 3
85.下述程序的运行结果是 B 。
j=0
Do While j<30
j=(j+1)*(j+2)
k=k+1
Loop
Print k;j
A）0 1
B）3 182
C）30 30
D）4 30
86.下列程序的执行结果为 C 。
n=0
j=1
Do Until n>2
n=n+1
j=j+n*(n+1)
Loop
Print n;j
A）0 1
B）3 7
C）3 21
D）3 13
87.在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次
在输入对话框中输入5，4，3，2，1，-1，输出结果为 A 。
Private Sub Command1_Click()
x=0
Do Until x=-1
a=Val(InputBox("请输入A的值"))
b=Val(InputBox("请输入B的值"))
x=Val(InputBox("请输入X的值"))
a=a+b+x
Loop
Print a
End Sub
A）2
B）3
C）14
D）15
88.下面的数组声明语句中是 B 正确的。
A）Dim A［3,4］As Integer
B）Dim A（3,4）As Integer
C）Dim A［3；4］As Integer
D）Dim A（3；4）As Integer
89.下述语句的运行结果是 A 。
Dim a
i=0
a=Array (1,-2,9,0,-1,9)
Do
K=a(i)
For m=10 To k Step-2
n=k+m
Next m
Print n+m
i=i+1
Loop While Abs(m+n)<>27
A）3 -8 27
B）3 27 -8
C）-8 27 3
D）-8 3 27
90.下列程序段的执行结果为 C 。
Dim M(2)
For i=1 To 2
M(i)=0
Next i
k=2
For i=1 To k
For j=1 To k
M(j)=M(i)+1
Print M(k);
Next j

Next i
A）1 2 2 3
B）1 2 3 4
C）0 2 2 3
D）0 1 2 3
91.有如下程序：
Dim arr (3,3)
For j=1 To 3
For k=1 To 3
arr(j,k)=(j-1)*3+k
Next

真题答案

k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k,j);
Next k
Print
Next j
运行后，输出的结果是 B 。
A）2 5
3 6
B）5 8
6 9
C）4 7
5 8
D）5 9
92.语句Dim abc(-2 To 4,0 To 4,5)As Long 定义的三维数组，其数组元素有 D 。
A）96个
B）112个
C）140个
D）210个
93下列程序段的执行结果为 B 。
Dim A(4)
n=3
A(1)=1
For k=0 To n-1
For l=1 To k+1
X=k+2-1
A(X)=A(X)+A(X-1)
If k<n-1 Then Exit For
Print A(X);
Next 1
Next k
A）1 2 1
B）1 2 3
C）2 4 6
D）1 3 1
94.有如下程序，运行后输出的是 D 。
Option Base 1
Private Sub Command1_Click()
Dim aj(1 To 10)
For j=6 To 10
aj(j)=j*2
Next j
Print aj(1)+aj(j)
End Sub
A）5
B）20
C）22
D）显示出错信息
95.下列程序的输出结果为 A 。
Private Sub Command1_Click()
Dim a(20)
For j=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub
A）4
B）5
C）6
D）7
96.使用ReDim Preserve可以改变数组的 A 。
A）最后一维的大小
B）第一维的大小
C）所有维的大小
D）改变维数和所有维的大小
97.以下程序的输出结果是 C 。
Private Sub Command1_Click()
Dim a(-5 To 6)
For i=LBound (a,1) To UBound (a,1)
a(i)=i
Next i
Print a(LBound(a,1));a(UBound(a,1))
End Sub
A）0 0
B）-5 0
C）-5 6
D）0 6
98.下列程序段的执行结果为 C 。
K=0
For J=1 To 2
For I=1 To 3
K=I+1
Next I
For I=1 To 7
K=K+1
Next I
Next J
Print K
A）10
B）6
C）11
D）16
99.下列程序段的执行结果为 B 。
x=Int(Rnd+4)
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 5
Print "合格"
Case Else
Print "不合格"
End Select
A）优秀
B）良好
C）合格
D）不合格
100.已知数组a(1 To 10)As Integer,下面调用GetValue函数正确的是 B 。
Private Function GetValue(a() As Integer) As Integer
For i=1 To 10
GetValue=GetValue+a(i)
Next i
End Function
A)S=GetValue(a(1 To 10))
B)S=GetValue(a)
C)S=GetValue(a(10))
D)S=GetValue a
101.运行下面程序后，输出结果为 B 。
Private Sub Command1_Click()
a=1:b=2:c=3
Call test(a,b+3,c)
Print "main:";a;b;c
End Sub
Private sub test(p,m,n)
p=p+1:m=m+1:n=n+1
Print "sub:";p;m;n
End sub
A)sub:2 6 4
main:1 2 3
B)sub:2 4 6
main:2 2 3
C)sub:2 6 4
main:2 6 4
D)sub:2 6 4
main:1 6 4
102.下面程序的运行结果为 B 。
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print F(a)
Next i
End Sub
Private Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
f=a+b+c
End Function
A)4
4
4
B)4
5
6
C)4
6
8
D)4
7
9
103.执行按钮单击事件，输出结果为 A 。
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8
P a()
For i=1 To 4
Print a(i)
Next i
End Sub
Private Sub P(b() As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
A)2
4
6
8
B)5
6
7
8
C)10
12
14

真题答案

16
D)出错
104.调用并执行C盘计算器程序，让窗口具有焦点，且会还原到它原来的大小和位置，下列调用方法正确的是 B 。
A)Shell "C:WINDOWS＼CALC.EXE",vbHide
B)Shell "C:＼WINDOWS＼CALC.EXE",vbNormalFocus
C)Shell "C:＼WINDOWS＼CALC.EXE",vbMinimizedNoFocus
D)Shell "C:＼WINDOWS＼CALC.EXE",vbNormalNoFocus
105.下列程序输出结果为 B 。
Private Sub Command1_Click()
a%=10
b%=5
Change a,b
Print a,b
End Sub
Private Sub Change(ByVal a As Integer,b As Integer)
Tmp=a
a=b
b=tmp
End Sub
A)5 5
B)10 10
C)10 5
D)5 10
106.下述程序的运行结果是 A 。
Private Sub Command1_Click()
a=1.5
b=1.5
Call fun(a,b)
Print a,b
End Sub
Private Sub fun(x,y)
x=y*y
y=y+x
End Sub
A)2.253.75
B)1.52.25
C)1.50.75
D)0.751.5
107.下述程序的运行结果是 A 。
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=5
b=5
showValue a,b
End Sub
Sub ShowValue(a As Integer,b As Integer)
calc1 a,b
calc2 a,b
Print a;
Print b
End Sub
Private Sub calc1(a As Integer,b As Integer)
a=a+b
End Sub
Private Sub calc2(a As Integer,b As Integer)
b=a*b
End Sub
A)10 50
B)5 25
C)5 5
D)10 5
108.下列程序运行后，输出的结果是 C 。
Private Sub Command1_Click()
Sum=0
For k=3 To 5
Call Multi(k,s)
Sum=Sum+s
Next k
Print Sum
End Sub
Private Sub Multi(k,s)
s=1
For j=1 To k
s=s*j
Next j
End Sub
A)9
B)120
C)150
D)30
109.下列程序运行后，输出的结果是 B 。
Private Sub Command1_Click()
a=1:b=1
Print "a=";a;",b=";b
Call multi(a,b)
Print "a=";a;",b=";b
End Sub
Private Sub multi(x,y)
x=2*x
y=3*y
Print "x=";x",y=";y
End Sub
A)a=1,b=1
x=2,y=3
a=1,b=1
B)a=1,b=1
x=2,y=3
a=2,b=3
C)a=1,b=1
x=2,y=3
a=1,b=3
D)a=1,b=1
x=2,b=3
a=2,b=1
110.单击一次命令按钮后，下列程序代码的执行结果为 B 。
Private Sub Command1_Click()
Dim m As Integer,i As Integer,x(10)As Integer
For i=0 To 4:x(i)=i+1:Next i
For i=1 To 2:Call Prioc(x):Next i
For i=0 To 4:Print x(i);:Next i
End Sub
Private Sub Prioc(a()As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
A)3 4 7 5 6
B)3 5 7 4 5
C)1 2 3 4 5
D)1 2 3 5 7
111.单击一次命令按钮，下列程序代码的执行结果为 A 。
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
a=2:b=3:c=4
Print P2(c,b,a)
End Sub
Private Function P1(x As Integer,y As Integer,z As Integer)
P1=2*x+y+3*z
End Function
Private Function P2(x As Integer,y As Integer,z As Integer)
P2=P1(z,x,y)+x
End Function
A)21 B)19 C)17 D)34
112.有如下程序，运行后单击按钮输出的结果是 A 。
Private Sub Command1_Click()
m=5:n=4
Call A(m,n)
Print m,n

End Sub
Private Sub A(m,n)
s=m
m=s/n
n=s Mod n
End Sub
A)1.25 1
B)5 4
C)1 4
D)5 1
113.通用过程可以通过 A 执行“工具”菜单中的命令来建立。
A）添加过

真题答案

程
B）通用过程
C）添加窗体
D）添加模块
114.Sub过程与Function过程最根本的区别是 D 。
A）Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
B）Function过程可以有参数，Sub过程不可以
C）两种过程参数的传递方式不同
D）Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
115.单击窗体时，下列程序代码的执行结果是 C 。
Private Sub Invert(ByVal xstr As String,ystr As String)
Dim tempstr As String
Dim I As Integer
I=Len(xstr)
Do While I>=1
Tempstr=tempstr+Mid(xstr,I,1)
I=I-1
Loop
ystr=tempstr
End Sub
Private Sub Form_Click()
Dim s1 As String,s2 As String
S1="abcdef"
Invert s1,s2
Print s2
End Sub
A)abcdef
B)afbecd
C)fedcba
D)defabc
116.下面程序段的运行结果是 B 。
Private Sub Command1_Click()
Dim a(1 To 3,1 To 3),x
x=Array(1,4,7,2,5,8,3,6,9)
For m=1 To 3
For n=1 To 3
a(m,n)=x(m*n-1)
Next n
Next m
Call mat(m,n,a)
End Sub
Private Sub mat(m,n,a)
For m=1 To 3
For n=1 To 3
Print a(m,n);
Next n
Print
Next m
End Sub
A)1 4 7
2 5 8
3 6 9
B)1 4 7
4 2 8
7 8 9
C)3 6 9
2 5 8
1 4 7
D)7 8 9
4 2 8
1 4 7
117.下面过程定义语句中合法的是 D 。
A）Sub Proc(ByVal n())
B)Sub Proc(n)As Integer
C)Function Proc(Proc)
D)Function Proc(ByVal n)
119.下述程序的运行结果是 A 。
Private Sub Command1_Click()
y=10
Print fnt(1+fnt(fnt(fnt(y)))*10)
End Sub
Private Function fnt(X)
fnt=1/x
End Function
A)0.5
B)2
C)909090
D)1.001
119．要想在过程调用后返回两个结果，下面的过程定义语句中合法是 C 。
A）Sub Proc(ByVal n,ByVal m)
B)Sub Proc(n,ByVal m)
C)Sub Proc(n,m)
D）Sub Proc(ByVal n,m)
120．显示打印对话框需要使用CommonDialog控件的方法为 B 。
A）ShowOpen
B）ShowPrinter
C）ShowColor
D）ShowFont
121．使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印字体，必须设置通用对话框控件的Flags属性为 D 。
A）0
B）1
C）2
D）3
122．通用对话框MsgBox作为函数的返回值一般为 A 。
A）Integer
B）String
C）Variant
D）Long

123．对话框Filter属性为“Text(*.txt)|*.txt|Pictures(*.bmp,*ico)|*.bmp;*ico”,若在使用ShowOpen方法时默认过滤器为*.bmp;*.ico，需将对话框的FilterIndex属性设置为 B 。
A）1
B）2
C）（*.bmp;*.ico）|*.bmp;*.ico
D）*.bmp;*.ico
124．下列属性属于颜色对话框的是 D 。
A）FileName
B）Min
C）FontSize
D）Color
125．要使用打印对话框，应首先在“部件”对话框中选择 B 控件。
A）MsgBox
B）MicroSoft Comm
on Dialog 6.0
C）MicroSoft Comm Control 6.0
D）InputBox
126．MsgBox函数的Buttons参数的表达错误的是 B 。
A）一个Visual Basic的内部常量
B）一个用加号连接着3个Visual Basic内部

真题答案

常量的表达
C）一个整数值
D）一个用加号连接着3个标号值的表达式
127．下列函数调用语句正确的是 C 。
A）x=MsgBox "关闭窗口前应先存盘！"
B）MsgBox "关闭窗口前应先存盘！"，6
C）MsgBox（"关闭窗口前应先存盘！"）
D）x=MsgBox（"是否继续？"，"询问对话框"）
128．关于自定义对话框概念的说法中，错误的是 D 。
A）建立自定义对话框时必须执行添加窗体的操作
B）自定义对话框实际上是Visual Basic的窗体
C）在窗体上还要使用其他控件才能组成自定义对话框
D）自定义对话框不一定要有与之对应的事件过程
129．关于自定义对话框的说法中，正确的是 A 。
A）自定义对话框中必须有命令按钮
B）定义了自定义对话框，对话框的外观和特征在运行过程中不能改变
C）自定义对话框是模式的
D）自定义对话框只能用来接收数据
130．关于通用对话框概念的说法中，错误的是 A 。
A）是用系统提供的控件制作的标准对话框
B）是由用户定义的自定义对话框
C）是执行某函数弹出的对话框
D）可以由用户定义，也可以是通过执行某种特殊函数弹出的对话框
131．在窗体上建立通用对话框必须先将 C 添加到工具箱中。
A）Data控件
B）Form控件
C）CommonDialog控件
D）VBComboBox控件
132．在窗体上已经添加了名为CommonDialog控件，用Show方法显示“打开”对话框的正确方法是 D 。
A）Show.Open
B）ShowOpen
C）CommonDialog1.Show.Open
D）CommonDialog1.ShowOpen
133．打开菜单编辑器的快捷键是 A 。
A）Ctrl+E
B）Shift+E
C）Alt+E
D）Tab+E
134．下列不能打开菜单编辑器的操作是 D 。
A）单击工具栏中的“菜单编辑器”按钮
B）单击“工具”下拉菜单中的“菜单编辑器”命令
C）从右击鼠标弹出的快捷菜单中单击“菜单编辑器”命令
D）单击“窗口”下拉菜单中的“菜单编辑器”命令
135．要使用菜单项MentOne在程序运行时失效，使用的语句是 D 。
A）MentOne.Visble=True
B）MentOne.Visble=False
C）MentOne.Enabled=True
D）MentOne.Enabled=False
136．下列关于菜单的说法中，错误是 C 。
A）每个菜单项都是一个控件，与其他控件一样也有其属性和事件。
B）除了Click事件之外，菜单项不可能影响其他事件
C）菜单项的索引号必须从1开始
D）菜单项的索引号可以不连续
137．使用通用对话框控件打开字体对话框时，如果要在字体对话框中显示样式和颜色，必须设置通
用对话框控件的Flags属性为 C 。
A）128
B）225
C）256
D）127
138．在用菜单编辑器设计菜单时，必须输入的项是 D 。
A）快捷键
B）标题
C）索引
D）名称
139．设已经在窗体上添加了一个通用对话框控件CommonDialo

真题答案

g1，以下正确的语句是 D 。
A）Commondialog1.Filter=All Files ∣*.*∣Pictures(*.Bmp)∣*.Bmp
B）Commondialog1.Filter="All Filesl" ∣*.*∣Pictures(*.Bmp)∣*.Bmp
C）Commondialog1.Filter=All Filesl*.*∣Pictures(*.Bmp)∣*.Bmp∣
D）CommonDialog1.Filter="All Files|*.*|Pictures(*.Bmp)|*.Bmp"
140．窗体上有文本框Text1，执行下列程序后在文本框输入123abc，单击按钮后输出结果为 A 。
Private Sub From_Load()
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
Eud Sub
Private Sub Command1_Click()
Print Text1.Text
End Sub
A）123ABC
B）ABC
C）!@#ABC
D）123abc
141．执行下列程序，按下回车键后输出结果为 C 。
Option Base 1
Private Sub From_KeyPress(KeyAscii As Integer)
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
If KeyAscii=13Then
For i=2 To 5
If a(i)>m1 Then
m1=a(i)
m2=i
End If
Next i
End If
Print m1
Print m2
End Sub
A）48
4
B）237
1
C）498
5
D）498
4
142．执行下列程序，在文本框中输入字符“a”，则输出结果为 B 。
Private Sub Form_Load()
Text1.Text=""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Text1.Text=KeyCode
Print Text1.Text
End Sub
A）a
B）65
C）A
D）97
143．下列控件不支持MouseDown事件的是 A 。
A）HSrcollBar
B）Command Button
C）PictureBox
D）TextBox
144．下列说法正确的是 A 。
A）KeyDown事件在KeyPress事件前发生
B）KeyPress过程等不可以使用Call语句来调用
C）MouseUp事件在Click事件之后发生
D）控件响应Click事件后不再响应MouseUp事件
145．执行下列程序后，在文本框中输入字符“d”，输出结果为 D 。
Private Sub Form_Load()
Text1=""
End Sub
Private Sub Text1_Change()
Print Text1.Text
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Print Chr (KeyAscii)
End Sub
A）D
d
D
B）d
d
D
C）d
D
d
D）D
d
d
146．窗体上有一个图片框和一个命令按钮（拖动模式为自动），执行程序后，拖动按钮经过图片框时输出结果为 C 。
Private Sub Picture1_DragOver(Source As Control,X As Single,Y As Single,State As Integer)
Static a As Boolean
If Not a Then
Print "AA"
A=True
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer,X As Shingle,Y As Single)
Static b As Boolean
If Not b Then
Print "BB"
b=True
End If
End Sub
A）AABB
B）BBAA
C）AA
D）BB
147．鼠标移动经过控件时，将触发控件的 C 事件。

A）MouseDown
B）MouseUp
C）MouseMove
D）Click
148.使用Public Const语句声明一个全局的符号常量时，该语句应放在 C 。
A）过程中
B）窗体模块的通用声明段
C）标准模块的通用声明段
D）窗体模块或标准模块的通用声

真题答案

明段
149.工程中有两个普通窗体From1和From2，其中From1中有一个按钮，启动程序后，单击From1中的按钮，输出结果为 B 。
Private Sub Command1_Click（）
Print "A"
Form2.Show vbModal
Print "B"
End Sub
A）From1中显示A，From2中显示B
B）From1中显示A，From2中无显示
C）From1中无显示，From2中显示AB
D）From1中无显示，From2中显示B
150.DirListBox可以用来显示和返回 B 。
A）文件名
B）目录名
C）磁盘驱动器区
D）文件数
151.能对顺序文件进行输出的语句是 C 。
A）Put
B）Get
C）Write
D）Read
152.关闭程序打开的所有文件，语句为 D 。
A）Close 1
B）Close all
C）Close *
D）Close
153.使用FileListBox，如果只显示系统文件，需要设置的属性为 D 。
A）Path
B）Pattern
C）System
D）FileName
154.返回文件大小应使用的函数为 B 。
A）Loc
B）LOF
C）EOF
D）FileAttr
155.下列程序输出结果为 D 。
Private Sub M1_Click（Index As Integer）
Print FreeFile（1）
End Sub
A）0
B）256
C）1~255不定
D）256~511不定
156.使用Open语句打开文件时需果指定参数Len的是 C 。
A）打开顺序文件
B）打开文本文件
C）打开随机文件
D）打开二进制文件
157.下列控件没有Change事件的是 C 。
A）DriveListBox
B）DirListBox
C）FileListBox
D）TextBox

158.要设置工程中某一个窗体作为启动窗体，必需的操作步骤是 C 。
A）打开“属性窗口”，选择作为启动窗体的窗体名称
B）打开“代码窗口”，选择作为启动窗体的窗体名称
C）打开“工程窗口”，选择作为启动窗体的窗体名称
D）打开“窗体设计器”窗口，选择作为启动窗体的窗体名称
159.要将名为MyForm的窗体显示出来，正确的使用方法是 D 。
A）MyForm Show
B）Show.MyForm
C）MyForm Load
D）MyForm.Show
160.要打开一个名为Data1的只读随机文件，正确的Open语句是 D 。
A)Open Data For Random Access Read As #1
B)Open "Data1" For Random Access Read
C)Open "Data1" For Binary Access Write As #1
D)Open "Data1" For Random Access Read As #1
161.下列关于顺序文件中使用Put语句、Get语句、Print语句和Write语句的说法中，错误的是 C 。
A）每执行一次Put［#］语句，会在随机文件中产生一个记录
B）每执行一次Get［#］语句，会在随机文件中读取一个记录的数据
C）一条Print#（或Write#）语句可以将若干个数据项写入数据文件中，但这些数据项类型必须是相同的
D）一条Print#（或Write#）语句可以将若干个数据项写入数据文件中，但这些数据项类型可以是不同的

162.设x=10，y=20，z=30。要按如下的格式将x，y，z的值写入顺序文件中该使用 A 语句。
A）Print #1 x,y,z
B）Print #1 x;y; z
C）Write #1 x,y,z
D）Write #1 x;y; z



二、填空

真题答案

题
(1) 下列程序是判断一个整数(>=3) 是否为素数，请补充完整。
Dim n As Integer
n=InputBox("请输入一个整数(>=3) ")
k=Int(Sqr(n) )
i=2
swit=0
While i <=k And swit=0
If n Mod i=0 Then
【1】 swit=1
Else
【2】i=i+1
End If
Wend
If swit=0 Then
Print n; "是一个素数。"
Else
Print n; "不是一个素数。"
End If
解析：素数是只能被1和本身整除的正整数，在本题的程序中，swit是一个标志变量，如果“swit＝0”，则表示n不能被整除；如果能被一个整数整除，则swit变为1；
While循环执行的条件有两个，一个是“I<=k”,另一个是“swit=0”,必须两个条件同时成立才执行循环，当I>k时，显然不必再检查n是否能被I整除；而如果“swit=1”，则表示n已被整除，肯定不是素数，也不必检查了。
只有“I<=k”和“swit=0”两者同时成立时才需要检查“n是否为素数”，循环只有一个判断操作，即判断n能否被I整除，如果不能，则I=I+1。以便为下一次判断作准备。
(2) 下面程序是用来打印九九乘法表的，请补充完整。
Dim i As Integer, j As Integer, Str1$
Str1=""
For i=1 To 9
For j=1 To 9
If 【3】j<=i Then
Str1=Str1 + Str$(j) + "×" + Str$(i) + "=" + Str$(Val(i  j) )
Else
Str1=Str1 & Chr(13)
【4】Exit For
End If
Next j
Next i
Print Str1
解析： (1) Exit语句总是出现在If语句或Select Case语句内部，而If语句或Select Case语句在循环内嵌套，用Exit语句中断循环。函数首先定义了两个Integer型变量i、j，并将空格赋给Str1；第一个For循环的变量I从1到9步长为1，第二个循环的变量i也是从1到9步长为1，循环体为选择结构，它是用来输出i*j的值，所以j的值应该小于此时i的值，那么If的判断语句为j<=i，当满足条件时执行Then后面的语句，即输出i*j的值，如果不满足执行Else后面的语句，并跳出内循环。

(3) 在窗体上有一个命令按钮，然后编写如下程序：
Function Trans(ByVal num As Long) As Long
Dim k As Long
k=1
Do While num
k=k * (num Mod 10)
num=num ＼ 10
Loop
Trans=k
Print Trans
End Function
Private Sub Command1_Click()
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 【5】504 ,在输入
对话框中输入“987”输出 【6】
504 ,在输入对话框中输入“879”，输出结果为 【7】504 。
解析： 关键字ByVal用来实现传值，也就是说在定义通用过程时，如果形参前面有关键字Byval，则该参数用传值方式传递，否则用传址方式传递；在Sub过程中，先将输入的“456”赋给变量m，m作为参数，调用

真题答案

Trans过程；在Trans过程中以num作为Do While的循环条件；在循环体中，调用Mod函数，将num的个位数字与k相乘，然后赋给k，第一次循环时，num的值是789，所以k的值为9，执行num = num ＼ 10后，num的值为78，循环三次后，num变为0，退出循环，k值等于9×8×7＝504，并将k的值作为返回值；当输入“987”或“879”时执行相同的操作，结果都为504。可以看出，此程序可用于求一个数值各位上数值的乘积。

(4) 下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For j=1 To 10
a(i) =Int( 【8】(99*Rnd)+1 )
If 【9】a(j)Mod5=0 Then k=k + 1
Print a(j)
Next j
Print
Print k / 10
End Sub
解析： 小于100的随机正整数用(99 * Rnd）+ 1来表示；求倍数用取模来表示，即a(j) Mod 5 = 0，用k作计数器，累计计算能被5整除的数的个数。
(5) 完成下面的程序，使显示结果如下图所示。
Private Sub Form_Click()
FontSize=18
Sample＄=" 【10】Wecome to Beijing! "
x=(ScaleWidth-TextWidth(Sample＄) ) /2
y=(ScaleHeight-TextHeight(Sample＄) ) /2
CurrentX=x
CurrentY=y
【11】Print Sample＄
End Sub


(6) 下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值！")
【12】 Select Case x
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【13】 Case Else
Print "输入的数据出界！"
End Select
Print x, y
End Sub
(7) 下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
Dim PaintStart As Boolean
编写如下事件过程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【14】PaintStart=True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【15】PaintStart=False
End Sub
Private Sub Form_DblClick()
【16】Cls
End Sub
(8) 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗
体，程序如下：
Private Sub Command1_Click()
【17】Me.Hide或者Form1.Hide或者Unload Me
Form2. 【18】Show
End Sub
试补充完整。
(9) 以下程序的功能是从键盘输入若

真题答案

干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。
Dim x, amax, amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While 【19】x>=0
If x > amax Then
amax=x
End If
If 【20】x<amin Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print "max="; amax, "min="; amin
(10) 以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。
Sub RecArea(L, W)
Dim S As Double
S=L * W
MsgBox "Total Area is " & Str(S)
End Sub
Private Sub Command1_Click()
Dim M, N
M=InputBox("What is the L?")
M=Val(M)
【21】N=InputBox(“What is the W?”)
N=Val(N)
【22】Call RecArea(M,N)
End Sub
(11) 有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click()
Dim x As Single, y As Single
Open "NM1.txt" For Input As #1
Open "NM2.txt" For Input As #2
Do While Not EOF(1)
【23】Input #1,x
Print x
y=x ^ 2
【24】Print #2,x,y
Print y
Loop
Close #1, #2
End Sub
(12) 下面的程序是用选择法将数组a中的10个整数按升序排列，并将程序补充完整。
Private Sub Command1_Click()
Dim a
Dim Tmp As Integer
Dim imin% ,i%,j%
a=Array(678,45,324,528,439,387,87,875,273,823)
For i= 【25】0 to 8
imin=i
For j= 【26】1 to 9
If a(j) 【27】 < a(imin) Then imin=j
Next j
Tmp=a(i)
a(i)=a(imin)
a(imin)=Tmp
Next i
For i=0 To 9
Print a(i)
Next i
End Sub
(13) 下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素完成下列程序。
Private Sub Backward(a())
Dim i As Integer, Tmp As Integer
For i=1 To 5
Tmp=a(i)
【28】 a(i)=a(10-i+1)
【29】a(10-i+1)=Tmp
Next i
End Sub
(14) 下列程序的功能是，计算1！+3！+…9！的值。请将程序补充完整。
Dim nt1 As Single
Sub naa(ByVal n As Single)
nt1=1
For i%=1 To n
nt1=nt1*i%
Next i%
End Sub
Private Sub Form_Click()

Dim nsum As Single
nsum=0
For nlp%=【30】1 to 9 step 2
naa(【31】 nlp% )
nsum= 【32】nsum+nt1
Next nlp%
Print nsum
End Sub

本文来源：https://www.bwwdw.com/article/y68j.html