VB程序设计试题及答案（一） 一、单选题
1. VB6.0是一种面向 B 的编程环境。 (A) 机器 (B) 对象 (C) 过程 (D) 应用
2. 要使FormI窗体的标题栏显示\欢迎使用VB\，以下 D 语句是正确的。
(A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption=\欢迎使用VB\
3. 若要使命令按钮不可操作，要对 A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption
4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面 A 是合法的变量名。
(A) X_yz (B) 123ab。 (C) integer (D) X-Y 6. 以下关系表达式 中，其值为False的是 A 。 (A) \(B) \女\男\ (C) \(D) \
7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是 A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1
8. VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
(A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构
9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A) If sex=\男\，\教授\n=n+l
(B) If sex=\男\教授\副教授\Then n=n+l
(C) If sex=\男\，2)=\教授\n=n+l
(D) If sex=\男\教授\副教授\
10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
.. ..
(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行
(D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次
11.以下 B 是正确的For…Next结构。
(A) For x=1 To Step 10 (B) For x=3 To -3
Step -3
… … Next x Next x (C) For x=1 To 10 (D) For x=3 to 10 step 3 re: … … Next x Next y If i=10 Then GoTO re
12.如下数组声明语句， B 是正确的。
(A) Dim a[3,4] As Integer (B) Dim a(3,4) As Integer (C) Dim a(n,n) As Integer (D) Dim a(3 4) As Integer
13.下列语句中（假定变量n有值），能正确声明可变长数组的是 A 。
(A) Dim a( ) As Integer (B) Dim a( ) As Integer
ReDim a(n) ReDim a(n) As String
(C) Dim a( ) As Integer (D) Dim a(10) As Integer
ReDim a(3, 4) ReDim a(n+10) ReDim Preserve a(4, 4)
14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 C 。
(A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1(n%, ByVal m%)
(C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%)
15.设有如下程序段：
Public Sub F1(n%)
… n=3*n+4 … End Sub
Private Sub Command1_Click( ) Dim n%, m%
n=3 m=4
…
‘调用F1语句 … End Sub
则在Command1_Click事件中有效的调用语句是 B 。
(A) Call F1(n+m) (B) Call
F1(m) (C) Call F1(5) (D) Call F1(m+5)
16.用来设置粗体字的属性是 C 。
(A) FontItalic (B) FontName (C) FontBold (D) FontSize
17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D 。 Dim x As Integer
Sub Timer1_Timer( ) For i=1 to 10 x=x+1 Next i End Sub
(A) 1000 (B) 10000 (C) 10 (D) 以上都不对
18.在下列关于通用对话框的叙述中，错误的是 B 。 (A) CommonDialog1.ShowFont显示“字体”对话框 (B) 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回
(C) 在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回 (D)
19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 C 。
(A) KeyPress、KeyDown、KeyUp (B) KeyDown、KeyUp、KeyPress (C) KeyDown、KeyPress、KeyUp
(D) 没有规律
20.在下面关于顺序文件的描述中，正确的是 C 。 (A) 顺序文件中每行的长度都是相同的。 (B) 可以通过编程对文件中的某行方便地进行修改
(C) 数据以ASCII码的形式存放在文件中，所以可通过记事本打开 (D) 文件的组织结构复杂 21.随机文件是因为 C 。 (A) 文件中的内容是通过随机数产生的 (B) 文件中的记录号通过随机数产生的
.. ..
(C) 可对文件中的记录根据记录号随机地读/写 (D) 文件的每条记录的长度是随机的
22.从磁盘上读入一个文件名为“c:\\t1.txt”顺序文件，如下 A 正确。
(A) F=“c:\\t1.txt” Open F For Input As #1 (B) F=“c:\\t1.txt”
Open “F” For Input As #2 (C) Open “c:\\t1.txt” For Input As #1 (D) Open c:\\t1.txt For Input As #2
23.坐标度量单位可由通过来 D 改变。
(A)Drawstyle属性 (B) DrawWidth属性 (C) Scale方法 (D) ScaleMode属性 24.指令“Circle (1000, 1000), 500, 8, -6, -3”将绘制 A 。 (A) 画圆 (B) 椭圆 (C) 圆弧 (D) 扇形 25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。
①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；④指定记录源
(A) ① ② ③ ④ (B) ② ③ ④ ① (C) ③ ① ② ④ (D) ① ③ ② ④ 二、填空题
1．VB是建立在BASIC语言基础上的 可见 化编程语言或编程环境。
2．在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 TabIndex 属性的值为 0 。
3．在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表示 整形 、 长整形 、 单精度 、 双精度 类型。
4．表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0 。
5．数组声明时下标下界默认为0，利用 Opation Base 1 语句可以使下标为1。
6．传地址方式是当过程被调用时，形参和实参共享 存储单元 。 7．窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的 全局范围 。
8．当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。
9．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“ - (减号) ”符号，那么显示时形成一个分隔符。 10．使用 Scale 方法可以自定义坐标系。
11．使用Line方法画矩形，不许在指令中使用关键字 B 。
12．使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成 1(adCmdText)或者(adCmdUnknown) 。
13．为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方法为__Hide_____。
14．如果要将某个命令按钮不显示，则可将___Visible________属性设置为False
15．在VB中窗体文件的扩展名为_____.FRM______。 三、编程应用题
1.程序阅读，写出下列程序的运行结果。 (1)
Private Sub Command1_Click( )
Dim a, i%, min%, imin%, sum%, t% a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)
min=a(0): imin=0: sum=a(0) For i=1 to UBound(a) sum=sum+a(i)
If a(i)< min Then min=a(i): imin=i Next i
t=a(0): a(0)=a(imin): a(imin)=t Print sum; a(0) End Sub
输出结果：
510 19 (2)
Private Sub Command1_Click( ) Dim ch as String*1 ch=＂8＂
If UCase(ch)>= ＂A＂And UCase<=＂Z＂Then
VB程序设计试题及答案（二） 一、单选题
1. VB6.0集成开发环境不包括 A 窗口。 (A) DOS界面窗口 (B) 窗体窗口 (C) 代码窗口 (D) 属性窗口 2. 有程序代码如下: C
Tex1.Text=\
则Tex1、Text、\分别代表
(A) 对象、值、属性 (B) 对象、方法、属性
(C) 对象、属性、值 (D) 属性、对象、值 3. 下面关于对象的描述中， A 是错误的。 (A) 对象就是自定义结构变量
(B) 对象代表正在创建的系统中的一个实体
.. ..
(C) 对象是一个特征和操作的封装体 (D) 对象之间的信息传递是通过消息进行的
4. 要使某控件在运行时不可显示，应对 B 属性进行设置。 (A) EnabIed
(B) Visible
(C) Backco lor (D) Caption
5. 与数学表达式 对应 ，不正确的VB算术表达式是 D 。 (A) a*b/(3*c*d) (B)
a/3*b/c/d
(C) a*b/3/c/d (D) a*b/3*c*d
6. InputBox函数返回值的类型是 B 。
(A) 整型数值 (B) 字符串 (C) 变体 （D） 数值或
字符串
7. 下面正确的赋值语句是 C 。
(A) x+y=30 (B) y= *r*r (C) y=x+30 (D) 3y=x
8. 下面程序段运行后，显示的结果是 C 。
Dim x
If x Then Print x Else Print x+1
(A)l (B)O (C)-1 (D)显示出错信
息
9. 下面程序段，运行后显示的结果是 A 。
Dim x
x=Int(Rnd)+5 Select Case x Case 5 Print \优秀\ Case 4 Print \良好\ Case 3 Print \通过\ CaseE Else Print \不通过\ EndSelect
(A) 优秀 (B) 良好 (C) 通过 (D) 不通过 10.下列循环结构能正常结束循环的是 C 。
(A) i=5 (B) i=1
Do Do i=i+1 i=i+2 Loop Until i<0 Loop Until i=10
(C) i=10 (D) i=6 Do Do i=i+1 i=i-2
Loop Until i>0 Loop Until i=1
11.下面的程序段的运行结果为多少？ D
Private Sub
Command1_Click( ) For i=1 to 5 n=0 For j=i to 5 n=n+1 Next j Next i Print n End Sub
(A) 10 (B) 5 (C) 15 (D) 1
12.要分配存放如下矩阵的数据， C 数组声明语句能实现（不浪费空间）。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9
(A) Dim a(9) As Single
(B) Dim a(3,3) As Single
(C) Dim a(-1 to 1, -5 to -3) As Single (D) Dim a(-3 to -1, 5 to 7) As Integer
13.在窗体的通用声明段自定义了数据类型Students，下列 A 定义方式是正确的。
(A) Private Type Students (B) Type Students Name As
Sting*10 Name As Sting*10 Studno As
Integer Studno As Integer End Type End Students
(C) Type Students (D) Type Students
.. ..
Name
String*10 Name As Sting*10 Studno
Integer Studno As Integer End Type End Type
14.下面子过程说明合法的是 D 。
(A) Sub f1(ByVal n%( ) ) (B) Sub
f1(n%) As Integer
(C) Function f1%(f1%) (D) Function f1(ByVal n%)
15.下面过程运行后显示的结果是 C 。
Private Sub F1(m%, 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
(A) 2 34 (B) 12 34 (C) 2 3 (D) 12 3
16.下列控件中，没有Caption属性的是 D 。
(A) 框架 (B) 列表框 (C) 复选框 (D) 单选按钮
17.在用菜单编辑器设计菜单时，必须输入的项有 B 。 (A) 快捷键 (B) 标题 (C) 索引 (D) 名称
18.以下正确的语句是 D 。
(A) CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|(*.Bmp) (B) CommonDialog1.Filter=”All
Files”|”*.*”|”Pictures(*.Bmp)”|”(*.Bmp)”
(C) CommonDialog1.Filter=”All
Files|*.*|Pictures(*.Bmp)|(*.Bmp)” (D) CommonDialog1.Filter={All Files|*.*|Pictures(*.Bmp)|(*.Bmp)}
19.如果Form1是启动窗体，并且Form1的Load事件过程中有语句Form2.Show，则程序启动后 D 。 (A) 发生一个运行时错误 (B) 发生一个编译错误
(C) 在所有的初始化代码运行后Form1是活动窗体 (D) 在所有的初始化代码运行后Form2是活动窗体 20.按存储信息的形式分类，文件可以分为 B 。
(A) 顺序文件和随机文件 (B) ASCII文件和二进制文件
(C) 程序文件和数据文件 (D) 磁盘文件和打印文件
21.下面关于随机文件的描述不正确的是 B 。 (A) 每条记录的长度必须相同 (B) 一个文件中记录号不必唯一
(C) 可通过编程对文件中的某条记录方便地修改 (D) 文件的组织结构比顺序文件复杂
22.为了建立一个随机文件，其中每一天记录由多个不同数据类型的数据项组成，应使用 C 。
(A) 记录类型 (B) 数字 (C) 字符串类型 (D) 变体类型
23.当使用Line方法画直线后，当前坐标在。C
(A) (0, 0) (B) 直线起点 (C) 直线终点 (D) 容器的中心
24.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过属性 B 来控制
(A) Appearance (B) Style (C) DisabledPicture (D) DownPicture
25.设置ADO数据控件RecordSource属性为数据库中的单个表名，则CommandType属性需设置为 B 。
(A) adCmdText (B) adCmdTable
(C) adCmdStoreProc (D) adCmdUnknown
二、填空题
1．对文本框的ScrollBars属性设置为2（有垂直滚动条），但没有垂直滚动条显示，是因为没有将 MultiLine 属性设置为True。
2．对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有将 Style 属性设置为1（Graphical）。
3．Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别
为 4 、 3 、 -3 、 3 、 -4 、 4 。 4．若定义一维数组为：Dim a(N to M)，则该数组的元素为 M-N+1 个。
5．按如下要求书写函数过程定义的首语句，即Function MyF(a as int,b(n)as int) 定义语句，要求为：形参有两
.. ..
个a为整型，b为一位整型数组，函数过程名为MyF，函数返回值为逻辑型。
6．滚动条产生Change事件是因为 Value 值改变了。 7．如果要每隔15s产生一个计时器事件，则Interval属性应设置为 15000 。
8．在VB中，除了可以指定某个窗体作为启动对象之外，还可以指定 Main子过程 作为启动对象。
9．用Show方法显示自定义对话框时，如果Show方法后带 vbModal 参数就将窗体作为模式对话框显示。
10．容器的实际可用高度和宽度由 右 和 上 属性确定。 11．使用Circle方法正向采用 逆 时针方向。 12．启动窗体时，为了初始化窗体中的各控件，可选作窗体的____load_____事件。
13．结构化程序设计中，三种基本结构是___分支结构______、__顺序结构______和循环结构。 三、编程应用题 1.程序阅读
(1)Private Sub Command1_Click()
Dim x() As Integer Dim n%, i% n = 10
ReDim x(n - 1) x(0) = 1 x(1) = 1
For i = 2 To n - 1
x(i) = x(i - 1) + x(i - 2) Next i
For i = 0 To n - 1 Print x(i),
If (i + 1) Mod 5 = 0 Then Print Next End Sub
输出结果：
1 1 2 3 8 13 21 34 (2) Public Function f(m%, n%) Do While m< >n
Do While m> n: m=m-n: Loop Do While m< n: n=n-m: Loop Loop f=m End Function
Private Command1_Click( ) Print f(24, 18)
End Sub 输出结果：6 (3)
Public x as Integer Private Sub Fomr_Click( ) Dim x as Integer x=10
print ＂x=＂;x End Sub 输出结果: x=10 2.补充程序
(1)以下是冒泡法排序的程序，要求将数组里的数按升序排列，将其补充完整。
Private Sub Command1_Click()
Dim a(), iMin%, n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7)
n = ubound(a) ' 获得数组的下标上界 For i = 0 To n - 1 For j = 0 To n-i-1 If a(j)>a(i) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i For i = 0 To n Print a(i); Next i End Sub
(2) 用递归的方法求n!
Private Sub Command1_Click() Print \ End Sub
Public Function fac As Integer If n = 1 Then fac = 1 Else
Fac=fac*n End If End Function
VB程序设计试题及答案（三） 一、单选题
1. Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。
(A) 事件驱动 (B) 按过程顺序执行
.. ..
(C) 从主程序开始执行 (D) 按模块顺序执行 2. 若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。
(A) Backcolor (B) BorderStyle
(C) Forecolor (D) Backstyle
3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。
(A) 文本框 (B) 命令按钮
(C) 窗体 (D) 标签
4. 要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。
(A) Change (B)KeyDown
(C) Click (D)KeyPress
5. 数学表达式3≤x (A) 3<=x<10 (B) 3<=x AND x>10 (C) x>=3 Or x<10 (D) x>=3 AND x<10 6. Rnd函数不可能为下列 B 值。 (A) 0 (B) 1 (C) 0.1234 (D) 0.0005 7. 赋值语句:a=123+Mid(\，3，2)执行后，a变量中的值是 D 。 (A) \(B) 123 (C) 12334 (D) 157 8. 对于语句If x=l Then y=l，下列说法正确的是 C 。 (A) x=l和y=l均为赋值语句 (B) x=l和y=l均为关系表达式 (C) x=l为关系表达式，y=l为赋值语句 (D) x=l为赋值语句，y=l为关系表达式 9. 下面程序段表示求两个数中的大数， D 不正确。 (A) Max=IIf(x>y，x，y) (B) If x>y Then Max=x Else Max=y (C) Max=x (D) Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C 。 Private Sub Text1_Change( ) Print Text1; End Sub (A) ABCD (B) A (C) AABABCABCD (D) A B AB C ABC D ABCD 11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B 。 (A) Dim (B) Private (C) Public (D) Static 15.如下程序，运行的结果是 B 。 Dim a%, b%, c% Public Sub p1(x%, y%) Dim c% x=2*x: y=y+2: c=x+y (A) For i=1 to 4 (B) For i=1 to 4 n=1 For j=1 to i For j=1 to I n=1 n=n*j n=n*j Next j Next j Print n Print n Next I Next i (C) n=1 (D) n=1 For j=1 to4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 12.如下数组声明语句，则数组a包含元素的个数有 A 。 Dim a(3, -2 to 2, 5) (A) 120 (B) 75 (C) 60 (D) 13 13.以下程序的输出结果是 D 。 Dim a a=Array(1, 2, 3, 4, 5, 6, 7) For i=Lbound(a) to Ubound(a) a(i)=a(i)*a(i) Next i Print a(i) (A) 49 (B) 0 (C) 不确定 (D) 程序出错 14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 D 在过程中定义局部变量。 .. .. End Sub Public Sub p2(x%, ByVal y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Private Sub Command1_Click( ) a=2: b=4: c=6 Call p1(a, b) Print “a=”; a; “b=”; b; “c=”; c Call p2(a, b) Print “a=”; a; “b=”; b; “c=”; c End Sub (A) a=2 b=4 c=6 (B) a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16 (C) a=4 b=6 c=6 (D) a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.复选框的Value属性为1时，表示 B 。 (A) 复选框未被选中 (B) 复选框被选中 (C) 复选框内有灰色的勾 (D) 复选框操作有误 17.下面关于菜单的说法中，错误的是 B 。 (A)每个菜单项都是一个控件与其他控件一样也有自己的属性和事件 (B) 除了Click事件之外，菜单项还能响应其他的，如DbClick事件 (C) 菜单项的快捷键不能任意设置 (D) 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择 18.下面关于多重窗体的叙述中，正确的是 B 。 (A) 作为启动对象的Main子过程中能放在窗体模块中 (B) 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体 (C) 没有启动窗体，程序不能执行 (D) 以上都不对 19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D 。 (A) 发生DeActivate事件 (B) 发生LostFocus事件 (C) 发生DeActivate和LostFocus事件 (D) DeActivate和LostFocus事件都不发生 20.顺序文件是因为 D 。 (A) 文件中的数据按每行的长度从小到大排序好的 (B) 文件中的数据按某个关键数据项从大到小进行排序 (C) 文件中的数据按某个关键数据项从小到大进行排序 (D) 数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出 21.文件号最大可取值为 B 。 (A) 255 (B) 511 (C) 512 (D) 256 22.Print #1, STR$1中的Print是 A 。 (A) 文件的写语句 (B) 在窗体上显示的方法 (C) 子程序名 (D) 以上均不是 23.以下的属性和方法中 C 可重定义坐标系。 (A)Drawstyle属性 (B) DrawWidth属性 (C) Scale方法 (D) ScaleMode属性 24.封闭图形的填充方式由下列 C 属性决定。 (A) DrawStyle, DrawMode (B) AutoRedraw, ClipControls (C) FillStyle, FillColor (D) ForeColor, BorderColor 25.下列字符串中， D 不包含在ADO数据控件的ConnectionString属性中。 (A) Microsoft Jet 4.0 OLE DB Provider (B) Data Source=C:\\Mydb.mdb (C) Persist Security Info=False (D) 2-adCmdTable 二、填空题 1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 在运行时设计是无效的 。 2．在文本框中，通过 SelStart 属性能活得当前插入点所在的位置。 .. .. 3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF 。 4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是 False 。 5．要获得动态数组的上界通过 UBound 函数，下界通过 LBound 函数。 6．由Array函数建立的数组，其变量类型必须是 variant 类型。 7．VB中的变量按其作用域分为全局变量、模块变量和 局部变量 变量。 8．复选框的 Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。 9．滚动条响应的重要事件有 Scroll 和Change。 10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用 showcolor 方法显示。 11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300, -150)，则X轴的正向向 右 ，Y轴的正向向 上 。 12．使用Circle方法画扇形，起始角、终止角取值范围为 0~2π 。 13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用 Refresh 方法激活这些变化。 14．VB中工程文件的扩展名为 vbg 。 15．如果在窗体上已经创建了一个文本框对象Text1，可以通过 Keypress 事件获得输入键值的ASCII码。 16．VB中对象的三要素是 属性 、 事件 和 方法 。 三、编程应用题 1.程序阅读 (1) Private Sub Command1_Click( ) Dim s as String, i% s=＂abcd＂ For i=Len(s) to 1 step -1 Print Mid(s, i, 1) Next i End Sub 输出结果： d c b a (2) Sub Swap1(ByVal x%, ByVal y%) Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%) Dim t% t = x: x = y: y = t End Sub Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print \调用Swap1前 a和b的值为：\ a; b Call Swap1(a, b) Print \调用Swap1后按传值方式 a和b的值为：\ a; b a = 10: b = 20 Call Swap2(a, b) Print \调用Swap2后按传地址方式 a和b的值为：\ a; b End Sub 输出结果 调用Swap1前 a和b的值为：10 20 调用Swap1后按传值方式 a和b的值为：10 20 调用Swap2后按传地址方式 a和b的值为： 20 10 (3) Private Sub Command1_Click( ) Dim x%, y%, z% x=242: y=44 z=x*y Do Until x=y If x>y Then x=x-y Else y=y-x Loop Print x, z/x End Sub 输出结果: 22 484 2.补充程序 (1) 以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。 Private Sub HScroll1_Change() Dim i As Integer, s As Double s = 1 .. .. n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If Label2.Caption = n & \ Label3.Caption = s End Sub (2)以下程序的功能是：已知数组a，删除数组中某个元素。 Private Sub Command1_Click( ) Dim a( ), key%, i%, j% a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7) key=9 For i=0 to UBound(a) If a(i)=9 Then For j=i+1 to UBound(a) a(j)=a(j+1) Next j ReDim a(j)=a(i) MsgBox(＂删除完成＂) Exit Sub End If Next i MsgBox(＂找不到要删除的元素＂) End Sub 读程序并填空 1．给定程序的功能是输出一组数的最大值和最小值，在画线处填入适当内容，将程序补充完整。 Private Sub Command1_Click( ) X=Array( -112, 18, 20, -5, -100, 82, 91, 56, 78, 99, 100) Max=x( 0 ) Min=x( 0 ) For I=1 To 10 If x( I )>Max Then _____________ End if If x( I )>Min Then _____________ End if Next I Print “MAX=” ; Max , “MIN=” ; Min End Sub 2．若A2+B2+C2 , 则A，B，C称为一组勾股数，如下程序是找出100以内的所有勾股数，并按A，B，C顺序输出。请在画线处填入适当内容。 Private Sub Command1_Click( ) For A=2 To 99 For B=A+1 To 100 C=_____________ If ____________ And C<=100 Then Print A, B, C End If Next B Next A End Sub 3．本程序的功能是计算输入数的阶乘，请在画线处填上适当的内容使程序完整。 Private Sub form_Click( ) Do N=Val(InputBox(“请输入一个大于0的整数：”)) Loop Until N>0 Print Fact( N) End Sub Private Function Fact( M ) Fact= _______________（1分） For I=2 To ____________（2分） Fact = ______________（2分） Next I End Function 4．给定程序的功能是建立并输出除主、副对角线上的元素为5外，其余元素都为1的方阵，在画线处填入适当内容，将程序补充完整。 Private Sub Command1_Click( ) Dim A( 10,10 ) For I=1 To 10 For J=_______________（2分） If __ _____________ Then A( I, J )=5 Else A( I, J)=1 （1分） Next J Next I For I=1 To 10 For J=1 To 10 Print A( I, J ); Next J __ __________ （2分） Next I .. .. End Sub 编写一个程序，在程序运行时输入一个0—99999之间的整数，判断输入的是几位数，并在窗体输出结果。 编写一个程序，在窗体上添加两个命令按钮，运行程序时，单击[开始]按钮，在窗体输出1~100之间所有能被3整除的数。单击[结束]按钮，结束程序。 欢迎您的光临，Word文档下载后可修改编辑.双击可删除页眉页脚.谢谢！你的意见是我进步的动力，希望您提出您宝贵的意见！让我们共同学习共同进步！学无止境.更上一层楼。
VB程序的设计试题和答案（一）
