第1章测试题答案一、AABD
第2章测试题答案
一、BCDACACC
二、1．Gotfocus
2．Lostfocus
3．Setfocus
4．Style，1
5．S(165)
6．Vbp
7. 1
8. ScrollBars
三、1．答：
Private Sub Form_Click()
Form1.BackColor = vbBlue End Sub
Private Sub Form_DblClick() Form1.BackColor = vbRed End Sub
2．答：（1）若在设计状态完成：
（2）若在运行状态完成：
编写窗体的Load事件过程如下：
Private Sub Form_Load()
Form1.BackColor = vbWhite
Label1.Caption = "欢迎使用VB6.0！"
Label1.ForeColor = vbYellow
Label1.BackColor = vbBlue
Label1.FontName = "黑体"
Label1.FontItalic = True
Label1.FontSize = 20
End Sub
第3章测试题答案
一、BBDBCADA
二、1．True ”cde”
2．”bcd”-12
3．True ”abc123xy”
4．A*exp(-2*t)*sin(50*t+ 3) 5．4/3*3.1416*r^3 6．Long & 7．Double # 8．关系逻辑
第4章测试题答案
一、BBBAB ADBDA ADBAC
二、1．判断奇偶数
InputBox("输入一个整数")
If a Mod 2 = 1 Then
Else
MsgBox a & "是偶数"
2．计算Y值
Val(Text1.Text)
x > 100 Then
x > 0 Then
Else
3．购物优惠
x
VB实验指导书测试题答案
Is > 5000 Is > 3000 Is > 2000 Is > 1000 Case Else 4．1+2+。。。+N>1000的最小N 值 Until s > 1000
s = s + n 5．输出图形 i = 1 To 6 j = 1 To 2 * i - 1 Print "*"; Next j 三、1．判断任意一个三位正整数是否为水仙花数。 Private Sub Command1_Click() k = InputBox("输入3位正整数") s1 = Val(Mid(k, 1, 1)) s2 = Val(Mid(k, 2, 1)) s3 = Val(Mid(k, 3, 1)) If s1 ^ 3 + s2 ^ 3 + s3 ^ 3 = Val(k) Then MsgBox k + "是水仙花数" Else MsgBox k + "不是水仙花数" End If End Sub 2．找出不大于1000的最大素数。 Private Sub Command1_Click() Dim I As Integer, J As Integer For I = 1000 To 1 Step -1 K = "I 是素数" '先假设I 是素数 '以下判断I 是否是素数 For J = 2 To I - 1 If I Mod J = 0 Then K = "I 不是素数"
Next J If K = "I 是素数" Then Print I Exit For
Next I End Sub 3．用近似公式计算e x
值：!
...!2!112n x x x e n x
+
+++≈ Private Sub Command1_Click()
Dim x As Integer, i As Integer, k As Double Dim ex As Double, t As Double x = Val(Text1.Text)
ex = 1: i = 0: k = 1: t = 1 Do While Abs(t) >= 0. i = i + 1 k = k * i
t = x ^ i / k
ex = ex + t Loop
Text2.Text = ex End Sub
4．求100
1
991...4131211-++-+-的值。
Private Sub Form_Click()
Dim i As Integer, s As Double s = 0
For i = 1 To 100 s = s + (-1) ^ (i - 1) / i Next i
Print "s="; s End Sub
5．求)!
2()1(...!4!21)cos(242n x x x x n
n -+++-=的值。 Private Sub Command1_Click()
Dim x, n, s, i, j, k, m s = 1
x = Val(Text1.Text) n = Val(Text2.Text) m = 1
For i = 1 To n
m = m * x * x
k = 1
For j = 2 To 2 * n k = k * j Next j
s = s + (-1) ^ n * m / k Next i
营销1042
3
Text3.Text = s End Sub 第5章 测试题及答案
一、AACBC CCCDB BABCCB 二、1．找最大数组元素： Explicit Option A(4, 5) Randomize i = 1 To 4 j = 1 To 5 Int(90 * Rnd) + 10 Next i
A(1,1) i = 1 To 4 j = 1 To 5 A(i, j) A(i, j) i j 2．互不相同的数组元素： While n < 6 Int(((9 - 1 + 1) * Rnd) + 1) k "不是重复数" n = n + 1 A(n) Text1.Text + Str(A(i)) 3．插入数组元素： A() Val(Text1.Text) Val(Text2.Text) 插入的下标 + 1 A(i - 1) 插入的数组元素 " A(" & i & ")=" & A(i) 4．4个数排序：
If k1 < k3 Then t = k1: k1 = k3: k3 = t '到此时，k1是三个数中最大数 If k2 < k3 Then t = k2: k2 = k3: k3 = t '到此时，k3是三个数中最小数 Text2.Text
Val(Text3.Text) d = Val(Text4.Text) a, b, d
三个数排序 b, c, d
" " + CStr(b) + " " + CStr(c) + " " + CStr(d) 5．判断完全数： k + 1 A(k) i Sum + i 完全数 完全数(N) A(k) N; "不是完全数" 6．升序数： Mid(s, 2, 1) k3 = Mid(s, 3, 1) k1 <= k2 And k2 <= k3 True 升序数 Randomize
Int((999 - 100 + 1) * Rnd) + 100 A(i); i / 5 =INT(i / 5) i = 1 To 10 A(i) 三、1．找最小数组元素：
'在（通用）处：要求强制显式声明变量，定义数组的默认下界为1 Option Explicit
Option Base 1
'在窗体模块的（通用）处定义数组A，该数组可被本窗体的所有过程调用
Dim A(3, 4) As Integer
'“产生数组”按钮
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Randomize '初始化随机数发生器
'生成一个3行4列的数组，并输出到图片框中
For i = 1 To 3 'i是行号，i从1循环到3
For j = 1 To 4 'j是列号，j从1循环到4
A(i, j) = Int((999 - 100 + 1) * Rnd) + 100 '用随机函数产生一个3位正整数赋给数组元素A(i, j)
Picture1.Print A(i, j); '在图片框中输出A(i, j)，不换行
Next j '列号增加1
Picture1.Print '当1行结束后(行号要增加1时)再换行
Next i '行号增加1
End Sub
'“开始查找”按钮
Private Sub Command2_Click()
Dim i As Integer, j As Integer
Dim 最小值As Integer
Dim 最小值行下标As Integer, 最小值列下标As Integer
最小值= A(1, 1) '先假设A(1, 1)是最小值
'用穷举法将所有的数组元素与最小值比较
For i = 1 To 3 'i是行号，i从1循环到3
For j = 1 To 4 'j是列号，j从1循环到4
If A(i, j) < 最小值Then '如果有更小的数组元素A(i, j)，那么
最小值= A(i, j) '最小值等于A(i, j)
最小值行下标= i '记录最小值的行下标
最小值列下标= j '记录最小值的列下标
End If
Next j
Next i
Picture1.Print '在图片框中输出一个空行
'输出最小数组元素及下标位置
Picture1.Print " 最小元素A(" & 最小值行下标& "," & 最小值列下标& ")=" & 最小值
End Sub
2．找自然数对：
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim m As Integer, n As Integer, k As Integer, i As Integer
Dim A(30) As Integer, B(30) As Integer
k = 0 '用k来记录数组元素的个数，也是数组下标，k的初值为0
营销1042
5
For m = 1 To 30
For n = m + 1 To 30
If Sqr(m + n) = Int(Sqr(m + n)) And Sqr(n - m) = Int(Sqr(n - m)) Then k = k + 1 A(k) = m B(k) = n End If Next n Next m
For i = 1 To k
Print Tab(5); A(i), Tab(15); B(i) Next i End Sub 3．求算式：)!
(!!
n m n m c n
m -=
Sub 阶乘(n As Integer , p As Integer) Dim i As Integer p = 1
For i = 1 To n p = p * i Next i End Sub
Private Sub Command1_Click() Dim m As Integer , n As Integer Dim p1 As Integer , p2 As Integer , p3 As Integer
m = Val(Text1.Text) n = Val(Text2.Text) Call 阶乘(m, p1) Call 阶乘(n, p2) Call 阶乘(m - n, p3) Text3.Text = p1 / (p2 * p3) End Sub
4．求最小公倍数：
Option Explicit
'自定义函数"最小公倍数"，参数M>N ，求出M 和N 的最小公倍数 Function 最小公倍数(M As Integer , N As Integer) As Integer Dim K As Integer
For K = M To M * N
If K \ M = K / M And K \ N = K / N Then 最小公倍数 = K
Exit For End If Next K
End Function
Private Sub Command1_Click()
Dim M As Integer , N As Integer , R As Integer M = Val(Text1.Text) N = Val(Text2.Text) ' 让N 中保存小数
If M < N Then R = M: M = N: N = R
' 调用函数“最小公倍数(M, N)”求出M 和N 的最小公倍数 Text3.Text = 最小公倍数(M, N)
End Sub
第6章测试题答案
一、1A 2 A 3B 4C 5D 6D 7C 8B 9B 10C 11B 12B 13C14B 15B16 A
二、1.AddItem
2.ListCount
3．选中状态
4．框架
5．LoadPicture
6．SmallChange
7．Scroll
8．False
9．毫秒
10．Pict1.Picture=loadPicture(“c:\abc.jpg”)
11.选中
12．不可以
13 1
14 True
15 100 16 Enabeld
17 BorderStyle
18 选中
19 Timer
20 Scroll
21 clear
22 0
List1.ListIndex List1.ListCount 23 Change
AddItem
24单击了窗体空白处文本框的文字已改变25 True
第7 章测试题答案
1 c:\ab\cd\ab.txt，ab.txt
2 a）OpenFile
b）Word文档(*.Doc)
C）所有文件(*.*)
Word文档(*.Doc)
文本文件(*.Txt)
3 cdlCFBoth Or cdlCFEffects
4“Microsoft CommonDialog Contral 6.0”
5 CommonDialog1.ShowSave
6 D
7 C
8 D
第8章测试题答案
1D 2C 3C 4D 5A
6D 7A
8MouseDown(MouseUp) , PopupMenu
第9章测试题答案一、ABBDDB
二、通用声明段定义为：
Private Type Stud
Name As String *8
Sex As String *4
Age As Integer
Sort As Integer
End Type
‘首先要自定义用户类型，写在窗体的通用部分
Private Type stud
name As String * 8
sex As String * 4
age As Integer
sort As Integer
End Type
Private Sub C1_Click()
Dim t As stud
‘向随机文件中写记录
Open "out.txt" For Random As #1 Len = Len(t) ‘打开随机文件，注意要有Len = Len(t)
For I=1 to 3 ‘用FOR循环写入三条记录
https://www.doczj.com/doc/a22997506.html,=inputbox(“请输入学生姓名”)
营销1042
7
t.sex=inputbox(“请输入学生性别”) t.age=inputbox(“请输入学生年龄”) t.sort=inputbox(“请输入学生名次”) put #1，I ，t ‘随机文件记录写入的命令 next i Close #1 End Sub
Private Sub C2_Click() Dim t As stud
‘从随机文件中读记录，并从文本框text1中输出
Open "out.txt" For Random As #1 Len = Len(t) ‘打开随机文件，注意要有Len = Len(t)
Do While Not EOF(1) ‘此处也可用用FOR 结构
i = i + 1
Get #1, i, t ‘随机文件记录读取的命令
第10章 测试题答案
DABAA BBCAD
16.1综合练习一答案
一、 ACA BBA AAA DBA BAA ABA DAB DAC DCD ADB CCA DDC 二、根据程序写运行结果(每小题4分，共24分) 1．8 2 2．12 3．t ＝6
4．-50 5．0 6．1
三、填空题 (1) 0 (2) True
(3) 5000 (4) End
(5) Caption (6) Click
(7) C3.SetFocus (8) Action
(9) CommonDialog1.Color (10) 2
四、判断题(每题1分，共10分,对的打√,错的打
五、1．As Integer 2．Y 3．Case Else(或Is>5) 4．End Select 5．Z 六、编程题 答案不唯一
Dim A(6) As Integer
Private Sub Command1_Click()
Randomize
' 初始化随机发生器 Text1.Text = "" ' 清空第一个文本框
For i = 1 To 6
A(i) = Int((999 - 100 + 1) * Rnd + 100)
' 随机产生2位正整数
Text1.Text = Text1.Text + Str(A(i)) ' 在文本框输出数组 Next i
End Sub
Private Sub Command2_Click()
' 选择排序 Text2.Text =
""
' 清空第二个文本框 For i = 1 To 5 For j = i + 1 To 6
If A(i) > A(j) Then t = A(i): A(i) = A(j): A(j) = t Next j Next i
' 输出排序结果
For i = 1 To 6
Text2.Text = Text2.Text & " " & A(i) ' 在
第二个文本框输出排序结果 Next i End Sub 16.2综合练习二答案 一、 CDBBB CDBDB CAABC BCBCC CBDBD AACAA
二、填空题(1)Exe (2)Form1.Hide
(3)分号或 ； (4)Print 或Form1.Print (5)Form1.Caption=“计算机程序” (6)Command2.SetFocus (7)Text1. PasswordChar=”＃”
(8)Change (9)Dim X As Single
(10)False 四、读程序，写运行结果
1. [参考答案] 2
2. [参考答案] 13 4
3. [参考答案] 1
4. [参考答案] 50 78
5. [参考答案] 中国韩国香港
五、[1] 100+Int(899*Rnd)
[2] Put#1,i,k
[3]Close #1 [4] Dim i As Integer
[5] i Mod 10
[6]x1^3+x2^3+x3^3=i
六、编程题(每题9分，共18分),说明: 程序答案并不唯一
1.(1)、进行部分对象的属性设置，共3分，每个空1分。
①True ② ScrollBars ③ Text
(2)、事件代码设计，共6分。
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub
2、事件代码设计，共9分
Private Sub Command1_Click()
X=Val(Text1.T ext)
Text2.Text=“是素数”
For i=2 to X-1
If x/i=int(x/i) Then
Text2.Text =“不是素数”
Exit For
End if
Next i
End Sub
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
第二部分综合练习 理论练习一 一单选 1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA 二多选 1 ABCE 2CE 3 BCE 4 ADE 5 ABCD 6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE 三判断 1-5 X V X V V6-10 V X V V V 四填空 1 x=int(Rnd*101)End If avg=s/8 2 i=l to 10Right(str(i),l)或Right(str(i mod 10)) 3 m*n/GCD(m,n)GCD(b, a mod b) 4 Exit For i & “是素数”Next i 五阅读程序 1-4 DDCB 六程序设计 1 Option Base 1 Private Sub Form_click() Dim a( 10) Cis createdata a() sort a()
Fori= ITo 10 Print a(i); Next i End Sub Sub createdata(a()) Fori = ITo 10 a(i) = Int(Rnd * 101) Next i End Sub Sub sort(a()) For i = 1 To 9 Forj = 1 To 10-i If a(j) > a(j + l)Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i End Sub 2 Private Type ks no As String * 8 Bscj As Integer Sjcj As Integer End Type Dim student As ks Private Sub Form_Load() Open "c:\ksxx.dat" For Random As#l Len = Len(student) End Sub Private Sub cmdadd_Click() student.no = Text 1.Text student.Bscj = Val(Text2.Text) student.Sjcj = Vai (Tex t3.Text) lastrecord = LOF( 1) / Len(student) + 1 Put # 1, lastrecord, student Textl.Text = Text2.Text = ”” Text3.Text =" End Sub Private Sub cmdquit_Click() Close #1 End End Sub
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件
【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
计算机程序设计基础（VB）实验指导书主编：刘华伟 单位：信息工程学院
实验报告要求：每次实验要求写实验报告（word电子版），包括实验名称，实验目的，实验内容，所有主要界面（需把界面图贴上,用截图工具）和所有源程序（将代码复制粘贴到word报告里），每次上机课后的周五理论课对上机题目进行讲解，每次上机实验报告要求在上机内结束前提交，如果没做完最迟当天内提交给教师信箱458007844@https://www.doczj.com/doc/a22997506.html, 只能用自己的邮箱在这个时间段提交。 提交格式：邮件名和word文件名均为： 公141班张三000000第1次作业 第一次上机课要做实验指导书中前两次实验的内容，将两次上机的实验报告都写在同一个word文档里提交。以后每次上机均做一次实验的内容。
实验一VB6.0环境和程序设计初步 一、实验目的 1．学会使用VB开发环境。 2．学会建立、编辑、运行一个简单的VB应用程序的全过程。 3．掌握变量的概念及使用。 4．通过程序实践结合课堂例子，理解类、对象的概念，掌握属性、事件、方法的应用。 二、实验内容： 1．熟悉VB开发环境的标题栏、菜单栏、工具栏、窗体窗口、属性窗口、工程资源管理器窗口、代码窗口、立即窗口、窗体布局窗口、工具箱窗口的位置以及用法。（此题不需要写实验报告） 2．编写一个四则运算的功能，在界面上输入两个数，并设置加减乘除四个按钮，点击不同的按钮，显示不同的运算结果。 步骤： （1）建立用户界面的对象。 （2）对象属性的设置。 （3）对象事件过程及编程。 （4）保存和运行程序
实验二选择结构程序设计 一、实验目的 1．掌握逻辑表达式的正确书写形式。 2．掌握单分支与双分支语句的使用。 3．掌握多分支条件语句的使用。 4．掌握情况语句的使用与多分支条件语句的区别。 二、实验内容 1．P272实验C的1，2题，界面按自己思路设计。其中第1题要求用两种方法实现。 2．在界面上输入4个数，求最大值和最小值并显示，要求用两种方法实现。提示：先编写求最大值的程序，然后再编写求最小值的程序。 3．输入三门功课的成绩，评定某个学生是否得奖学金。 评奖学金标准如下： 平均分大于95分或两门100分第三门不低于80分。
九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
第五章 实验5-1 知识点 1．数组与普通变量得区别在于数组是一组具有相同类型的有序变量的集合；而变量之间相互独立，没有内在的联系，并与其所在的位置无关。 2．VB中可以通过Dim,private,public,static这几个语句定义数组，他们之间得区别在于所定义的数组作用域不同。Static语句用于过程中，定义静态数组；private语句用于模块的通用声明处，定义模块级数组；public语句用于标准模块的声明处，定义全局数组；Dim 语句既可以用于过程中，定义局部数组，也可以用于模块的通用声明处，定义模块级数组。3．语句option base 1 Dim b(3) as integer 定义了3个数组元素，分别是b(1)，b(2)和b(3)，这两个b(3)的区别在于前者是定义数组使用的数组说明符，后者是数组元素b(3). 4. VB中的二维数组在存放的时候是按列_存储的。 5.常见的数组函数及语句有哪些？他们的功能各是什么？ Lbound函数，用于返回数组某维的维下界的值； Ubound函数，用于返回数组某维的维下界的值； Erase语句，功能有二，一是重新初始化固定大小数组的元素，二是释放动态数组的存储空间 Option base n 语句，用于说明数组的维下界从n开始计数 For-each-next语句，用于数组或对象集合中的每个元素重复执行一组语句。 6.For-each-next语句与For-next语句的区别在于前者专门用于数组或对象集合中的每个元素，而后者多用于普通变量。 课前练习 1.①13 ②6 ③15 ④105 ⑤9 ⑥44 2．option base语句和redim语句。 3.33 4. 12 5 实验5-2 知识点 1.数组元素 2.数组元素的本质是变量，但是与之不同的是数组元素是有序的，通过改变下标就可以访问不同的数组元素。 3.数组元素赋值的方法有： ①用赋值语句给数组元素赋值②通过循环逐一给数组元素赋值③用inputbox函数给数组元素赋值④用array函数给数组赋值 课前练习 1. D 2.LSP HXF BGJ 3. 1 5 9
请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下： 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题：拖动滚动条时有没有触发滚动条的Change事件？ 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。
3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件： Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示:
程序代码 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = True End Sub Private Sub Command3_Click() = True End Sub Private Sub Command4_Click() = 10 = False = False End Sub 初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口： 自测2 单击还原之后窗口：
Private Sub Command1_Click() Label1 = "visual basic" Text1 = " 程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = " 程序设计题" End Sub 初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = + 30 End Sub = + 20 = 1 初始窗口：
单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4 程序代码 Private Sub Command1_Click() = "VB 学习" Print"简单的VB程序设计" End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command3_Click() End End Sub 初始化窗口：单击显示之后的窗口：单击清除之后的窗口： 自测题5 单击退出之后的窗口：
大一的vb期末考试题和答案 1．在代码中引用一个控件时，应使用控件的（）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（）的值为“假”。 A．x+a <=b-y B．x>0 AND y<0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（）类型数据。 A．整型 B．单精度浮点数 C．货币 型 D．长整型 6．下列变量名中正确的是（）。
A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（）是有效的。 A.sum=sum-sum B.x+2=x+2 C.x+y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（）。 A．Print B．Textbox C．Optionbutto n D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。 https://www.doczj.com/doc/a22997506.html, B.ListIndex C．ListCount D．Text 10．下列代码的运行结果为（）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5
Visual Basic实验指导 前言 本课程共安排9个上机实验（36学时），每次实验要求上机之前做好预习及教材上有关内容的复习,对每次上机实验的内容及实验目的要做到心中有数。 每次实验完成后，都要进行小结并写出实验报告。 实验一VB环境和程序设计初步 一、实验目的 1、了解VB系统对计算机软硬件的要求。 2、掌握启动与退出VB的方法。 3、初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。 4、掌握建立、编辑、运行一个简单的VB应用程序的全过程。 5、掌握常用控件（文本框、标签、命令按钮）的应用。 二、实验内容 1、编写一程序，在屏幕上显示”欢迎您使用Visual Basic”，并输入你的名字。
Private Sub Command1_Click() Label1.Caption = Text1.Text & "欢迎使用visual basic 6.0 !" End Sub Private Sub Form_Load() Text1.Text = "" End Sub 2、设计一程序程序，运行结果如下： 附：主要代码： Private Sub cmdClear_Click() txtDisplay.Text = "" End Sub Private Sub cmdExit_Click() End End Sub Private Sub cmdInput_Click() txtDisplay.Text = "欢迎来到Visual Basic6.0编程世界" End Sub 实验二数据类型、运算符和表达式 一、实验目的 1、掌握Visual Basic 6.0数据类型的概念。 2、掌握常量和变量的概念、定义方法和作用域。 3、掌握各种运算符的功能、表达式的构成、表达式中运算符的运算顺序和如何求表达式的 值。
下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示: 1. 各题必须按要求用通用过程或函数过程进行编程。 2. “第一题”：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 阶乘自定义函数F(n)的编写参考上课讲义 计算二项式系数Cmn可以通过调用F(n)函数完成：cmn=F(m)/(F(n)*F(m-n)) 3. “第二题”：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 自定义函数Sum(n)的编写： Function Sum(n As Integer) As Long ……'编写s=1+2+...+n的程序段 Sum=s '将计算结果赋值给函数名 End Function 计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和就转化为计算Sum(1)+Sum(2)+Sum(3)+……+Sum(100)的编程。 参考计算1!+2!+……+10！的程序 4. “第三题”：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/a22997506.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“查找“按钮，则开始查找并在列表框中显示结果，并在文本框中显示荣幸数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是荣幸数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()
End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；
VB实验指导书答案 P10 第一章 1. CAACD ABCCB 2.（1）视图工具箱 （2）代码窗体设计 （3）对象事件驱动 （4）工程 （5）中断 P21 第二章 1. CBDCD CCCDA DBCBA BDACB BCADA C 2.（1）事件 （2）Shift Ctrl （3）工具选项编辑器 （4）窗体font （5）Selstart （6）强制显式声明变量 （7）类 P35 第三章 1. CBAAA BCDAD ABBBC ADDBD 2.（1）integer （2）????（3）text （4）a=0 or b=0 （5）(x+y)*sin(30*3.14/180) （6）int(rnd*100+1) （7）# （8）0
（9）int(rnd*30+70) (10) CDEF P53 第四章 1. BCADC CABCA AADDC BCABB 2.（1）3 （2）X mod 5 x （3）randomize （4）9 j mod 3=0 （5）66 (6）5 （7）顺序分支（或选择）循环（8）33 （9）4 8 4 （10) 退出子过程（11）1 （12）提示信息标题默认值 第6章过程 一、单选题 1.B 2.B 3.B 4.A（更正：选项④应该是Private Function F1(x As Integer) As Integer） 5.D 6.C 7.C 8.B 9.C 10.C 11.A 12.A 13.D 14.D 15.C 16.B 17.C 18.A 19.C 20.B 二、填空题 1. 形式，实际 2. 地址，值
3. SS=t 4. sq(x As Integer)，Function 5. V al(t.Text) 6. 30,70 7. 5 8. tmpLabel1.Caption = tmpCombo.Text 9. 30 10. nAA N, X ，N1，nT1 * X1 11. Dim F As Double，i，Dim nfactor As Double，F = nfactor 第七章单选题 1. C 2. C 3. D 4. D 5. B 6. C 7. A 8. B 9. A 10. D 11. B 12. B 13. A 14. C 15. C 16. D 17. B 18. A 19. C 20. A 21. A 22. B 23. D 24. C 25. C 26. B 27. D 28. A 29. B 30. A 31. D 32. C 33. D 34. D 35. A 36. A 37. A 38. D 39. B 40. B 41. B 42. B 43. C 44. C 45. C 46. B 47. B 48. C 49. C 50. A 第8章界面设计 一、单选题 1.D 2.D 3.D 4.C 5.C 6.D 7.A 8.B 9.B 10.A 11.B 12.B 13.D 14.B
试卷方案：201105 Visual Basic 期末考试方案 一、单项选择_共50题（选：20题*1’=20分） 第1题 以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题
习题参考答案 第1章Visual Basic编程环境与简单程序设计 一、选择题 二、填空 三、问答题 1.主要有以下特点： (1)具有面向对象的可视化设计工具。 Visual Basic 6.0提供可视化平台,把Windows界面设计的复杂性封装起来,编程人员不必为界而的设计编写大量的代码。界面的设计代码是山Visual Basic 6.0自动产生的, 大大提高了编程效率。 (2)事件驱动的编程机制。 在事件驱动的应用程序中，代码是在响应不同的事件时执行不同的代码片段。事件可以山用户操作或应用程序本身的消息及操作系统或其他应用程序的消息触发。 (3)结构化的程序设计语言。 (4)开放的数据库功能与网络支持。 (5)充分利用Windows资源。 2.主要窗口有： (1)窗体窗口。 (2)工程资源管理器。 (3)属性窗口。 (4)窗体布局窗口。
(5)代码窗口。 它们均可通过Visual Basic 6. 0集成环境中“视图”菜单的相关选项打开；关闭时单. 击各个窗口右上角的“X”即可。 3.工程资源管理器显示当前所打开的工程的信息状态和文件内容。利用工程资源管理器可以进行与工程相关的管理操作，比如添加、删除文件等。在工程资源管理器中所能进行的工程管理操作主要有： (1)查看对象：单击该对象，单击工具栏上的“查看对象”按钮，包含该对象的窗体窗口将出现在屏幕上。 (2)查看代码：单击该对象，单击工具栏上的“查看代码”按钮，与该对象相关的代码窗口将被打开。 (3)添加对象：用鼠标指针指向工程名称，单击右键，系统会弹出一个快捷菜单。在该菜单上选择“添加”选项，稍候出现二级菜单，选择所要添加的对象类型即可。 (4)删除对象：选择要删除的对象，在要删除的对象项上单击右键，在弹出的快捷菜单中选择“删除”即可。 (5)保存对象：当某些文件修改后，要及时保存这些文件。选择要保存的对象，在要保存的对象项上单击右键，在弹出的快捷菜单中选择“保存”或“另存为”叩可。 4 .工程所可以包含的文件类型为： (1)工程文件(.vbp)：跟踪所有对象。 (2)窗体文件(.fun)：存储有关窗体的信息。 (3)二进制数据文件(.frx)：每个窗体都有一个相应的二进制数据文件，它包含窗体上控件的属性数据。对含有二进制属性的任何.frx文件都是不可编辑的，这些文件都是由系统自动产生的。 (4)模块文件(.bas)：每个标准模块的一个文件，该文件是可选项。 (5)类模块文件(.cis)：每个类模块的一-个文件，该文件是可选项。 (6)Active X控件文件(.ocx)：包含Active X控件的文件，该文件是可选项。 (7)资源文件(.res)：包含无须重新编辑代码便可以改变的位图、字符冷和其他数据, 该文件是可选项。 第2章数据类型、运算符与表达式 一、选择题 二、填空题
练习卷五 一、语言基础题（40分） 判断题（本题10分，每小题1分） 1. 可以在窗体的通用部分声明静态变量。 2. 事件过程也可以用Sub过程调用语句进行调用。 3. 表达式#5/22/99 6:22:30 PM# - #4/22/99#的值是数值型的。 4. 表达式 -5^2 > Rnd*10 的值为False. 5. 对象的Top和Left属性值都必须大于或等于零。 6. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值。 7. 执行Hscroll1.Value=Hscroll1.Value+1赋值语句，就会产生Hscroll1滚动条的Change事件。 8. 每个Vb对象都有Name属性。 9. 组合框ComboBox和列表框ListBox都有Selected属性。 10. CommonDialog 对象的ShowSave方法能保存用户指定的文件。 单选题（本题10分，每小题1分） 1. 菜单条的顶层菜单控件＿＿。 [A] 不允许设置快捷键[B] 允许设置快捷键 [C] 不存在ShortOut属性[D] 有子菜单时允许有快捷键 2. 当某文本框对象具有焦点时，击键盘上的一个键会触发该文本框对象的KeyPress事件，＿＿。 [A] 该事件发生在文本框对象的KeyDown事件前。 [B] 该事件发生在文本框对象的KeyDown事件后。 [C] 随后便发生文本框对象的Lick事件。 [D] 随后便发生文本框对象的 GotFocus事件。 3. 程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值＿＿。 [A] 增加一个SmallChange量[B] 减少一个SmallChange量 [C] 增加一个LargeChange量[D] 减少一个LargeChange量 4. 执行Form1.Scale (10,-20)-(-30,20)语句后，Form1窗体座标系X和Y轴的正方向是＿＿。 [A] 向左和向下[B] 向右和向上 [C] 向左和向上[D] 向右和向下 5. 执行List1.List(List1.ListCount)= “80”语句后，＿＿。 [A]会产生出错信息 [B] List1列表框最后一个表项被改为“80” [C] List1列表框会增加一个“80”表项 [D] 指定List1列表框的表项个数为80个 6. 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要 在＿＿。 [A] Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive和在Dir1的Change事件过程 中加入File1.Path=Dir1.Path代码 [B] Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path ,在Dir1的Change事件中加 入Dir1.Path = File1.Path代码 [C] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程 中加入File1.Path=File1.Filename代码 [D] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程 中加入File1.Path=Dir1.Path代码 7. 在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form_Load事件 过程中加入＿＿语句。 [A] Text1.Index=0 [B] Text1.TabIndex=0 [C] Text1.Appearance=0 [D] Text1.Tag=0 8. 窗体Form、框架Frame、图片框Picture、图像框Image中＿＿是容器控件。 [A] Image、Form、Frame [B] Frame、Picture、Image