vb课后练习答案
《Visual Basic程序设计》参考答案
第1章程序设计及VB概述
一、选择题
1、C
2、A
3、A
4、C
5、B
6、C
7、D
8、A
9、D 10、C
二、填空题
1、对象Windows 事件驱动
2、窗体工程
3、查看对象查看代码
4、CmdExam Click lbldisp
5、“启动”按钮“运行”菜单“启动”命令F5
6、Click事件
7、Cancel
8、Label1
9、Width Height
10、frmEg_Click
三、（略）
第2章Visual Basic程序设计基础
一、选择题
1、A
2、C
3、D
4、B
5、C
6、A
7、B
8、A
9、B 10、D
二、写出下列表达式的值
1、4
2、29
3、0
4、8
5、False
6、False
7、True
8、123445
9、True 10、6241.36
三、写出函数表达式的值
1、-1
2、16.7
3、“C”
4、“Basic”
5、“VISUAL”
6、5
7、0
8、0037.3
9、6 5 10、4
四、将代数式改写成VB表达式
1、(a + b) / (c * d - Sqr(1 - a * a)) + 5 ^ (1 / 3) * Cos(3.14159 / 3) ^ 2
2、Sin(45 * 3.14159 / 180) + Abs(x - y)
3、2 * Exp(x) + Log(x * y)
4、(Log(50) / Log(10) - Log(20)) / (9 * Exp(3))
5、a <= b And b < c
6、Int(41 * Rnd + 60)
7、Abs(x) >= Y And Abs(x) <> Z
8、m < 100 And m >= 0
9、(A Mod 3 = 0) Or (A Mod 7 = 0)
10、(N Mod 4 = 0 And N Mod 100 <> 0) Or (N Mod 400 = 0)
第3章程序的基本控制结构
一、选择题
1、⑴C ⑵D
2、B
3、B
4、B
5、C
6、A
7、D
8、BD
9、C 10、CD
11、A 12、A 13、D 14、A 15、A 16、D
二、填空题
1、15 15
2、x= 3 y=10
3、1 2 3 4 5 6 7 8 9 0
* * * * *
* * * * *
* * * * *
4、⑴12345 54321 ⑵倒序
5、ABCDE
6、32
7、⑴k ⑵If x < n Then n = x : nk = i ⑶mk ⑷m
8、⑴Then Exit for ⑵f1 And f2 Then ⑶f1 = f2
9、⑴n ⑵ Len(CStr(nn) - 1) ⑶ c-1
⑷ Loop Until nn = 0 ⑸ n = m Then
10、⑴ Opt1.Value = True ⑵ Opt2.Value ⑶ Opt3.Value
⑷ CStr(k) ⑸ k-10 ⑹ Asc("A")
三、编程题（略）
1、
Private Sub Command1_Click()
Dim a%, b%, c%, m1!, m2!, d!
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
d = b * b - 4 * a * c
If d < 0 Then
m1 = -b / (2 * a)
m2 = Sqr(-d) / (2 * a)
x1 = m1 & "+" & m2 & "i"
x2 = m1 & "-" & m2 & "i"
Print "x1="; x1
Print "x2="; x2
End If
End Sub
2.
Private Sub Command1_Click()
For n = 1 To 100
If n Mod 8 <> 0 And n Mod 3 <> 0 Then
Print n
End If
Next n
End Sub
3.
Private Sub Command1_Click() Dim N As Integer
N = InputBox("N=")
For i = 1 To N
x = Val(InputBox("x="))
If x > 0 Then
s1 = s1 + x
n1 = n1 + 1
ElseIf x < 0 Then
s2 = s2 + x
n2 = n2 + 1
End If
Next i
Print n1; "个正数，和为："; s1 Print n2; "个负数，和为："; s2 End Sub
4.
Private Sub Command1_Click() x = Val(InputBox("x="))
i = 2: Print x; "=";
Do While x >= i
If x Mod i = 0 Then
If x = i Then
Print i
Else
Print i; "*";
End If
x = x \ i
Else
i = i + 1
End If
Loop
End Sub
5.
Private Sub Command1_Click() Dim n As Integer Randomize
For i = 1 To 20
x = Int(100 * Rnd)
If x / 2 = x \ 2 Then
Print x
n = n + 1
End If
Next
Print "偶数个数是："; n
End Sub
6.
Private Sub Command1_Click()
Dim x As Integer
x = InputBox("x=")
If x <= -1 Then
y = Exp(x)
ElseIf x < 1 Then
y = x * x + x + 1
Else
y = Log(x) / Log(10)
End If
Print "x="; x, "y="; y
End Sub
7.
Private Sub Command1_Click()
If Option1.Value Then
If Option3.Value Then
Label1.Caption = "去城市1的硬座票价：22元"
End If
If Option4.Value Then
Label1.Caption = "去城市1的硬卧票价：50元"
End If
ElseIf Option2.V alue Then
If Option3.Value Then
Label1.Caption = "去城市2的硬座票价：88元"
End If
If Option4.Value Then
Label1.Caption = "去城市2的硬卧票价：180元"
End If
End If
End Sub
8. (1)单循环：
Private Sub Command1_Click()
For i = 1 To 30
a = a + i
s = s + a
Next
Print s
End Sub
Private Sub Command2_Click()
n = 30
m = 1
Do
a = n * m
s = s + a
n = n - 1
m = m + 1
Loop While n >= 1
Print "s="; s
End Sub
二重循环：
Private Sub Command1_Click()
For i = 1 To 30
a = 0
For j = 1 To i
a = a + j
Next j
s = s + a
Next
Print "s="; s
End Sub
(2)
Private Sub Command1_Click()
i = 1
Do Until t > 200
t = t + i
s = s + t
i = i + 1
Loop
Print "s="; s
End Sub
9.
方法1
Private Sub Command1_Click()
For m = 1 To 1000
gw = m Mod 10
sw = (m \ 10) Mod 10
bw = m \ 100
If (gw + sw) Mod 10 = bw Then
For i = 2 To Sqr(m)
If m Mod i = 0 Then Exit For
Next i
If i > Sqr(m) Then
Print m;
n = n + 1
If n Mod 5 = 0 Then Print
End If
End If
Next m
End Sub
第4章数组
一、选择题
1、B
2、C
3、A
4、D 4、C
二、填空题
1、Option Base 1
2、ReDim Preserve
3、Lbound UBound
4、可变
5、Index
6、4 11
7、27
8、arr(1) Fmax=1 max = arr(i)
三、编程题（参考）
1、
Private Sub Command1_Click()
Dim a(100) As Integer
For i = 1 To 100
If i Mod 2 <> 0 Then
a(i) = 0
Else
a(i) = 1
End If
Next
For i = 1 To 100
Print a(i);
If i Mod 10 = 0 Then Print
Next
End Sub
2、
Option Base 1
Private Sub Form_Click()
Dim a, B, C(10) As Integer
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) B = Array(2, 4, 6, 8, 10, 1, 3, 5, 7, 9) For i = 1 To 10
C(i) = a(i) * B(i)
Print C(i);
Next
End Sub
3、
Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(100 * Rnd)
Print a(i);
Next
For i = 1 To 5
t = a(i): a(i) = a(11 - i): a(11 - i) = t Next
For i = 1 To 10
Print a(i);
Next
End Sub
4、
Option Base 1
Dim a() As Integer, n As Integer Private Sub Command1_Click()
n = 10
ReDim a(n)
Randomize
For i = 1 To n
a(i) = Int(100 * Rnd)
Print a(i);
Next i
For i = 1 To n - 1
t = i
For j = i + 1 To n
If a(j) > a(t) Then t = j
Next j
Max = a(t): a(t) = a(i): a(i) = Max
For i = 1 To n
Print a(i);
Next i
End Sub
5、续上题
Private Sub Command2_Click()
ReDim Preserve a(n + 1)
x = Val(InputBox("x="))
For i = 1 To n
If x > a(i) Then k = i: Exit For Next i
For i = n To k Step -1
a(i + 1) = a(i)
Next
a(k) = x
For i = 1 To n + 1
Print a(i);
Next
y = Val(InputBox("输入要删除的数")) For i = 1 To n + 1
If y = a(i) Then k = i: Exit For
Next
For i = k To n
a(i) = a(i + 1)
Next
For i = 1 To n
Print a(i);
Next
End Sub
6、
Option Base 1
Dim a(5, 5) As Integer
Private Sub Command1_Click() Randomize
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(90 * Rnd + 10)
Print a(i, j);
Next j
End Sub
Private Sub Command2_Click()
Max = a(1, 1): tmaxi = 1: tmaxj = 1
For i = 1 To 5
For j = 1 To 5
If a(i, j) > Max Then
Max = a(i, j)
tmaxi = i: tmaxj = j
End If
Next j
Next i
Print "最大值为："; "a("; tmaxi; ","; tmaxj; ")="; Max Print
End Sub
Private Sub Command3_Click()
Sum = 0
For i = 1 To 5
For j = i To 5
Print Tab(4 * j - 3); a(i, j);
Sum = Sum + a(i, j)
Next j
Next i
Print "sum="; Sum
End Sub
Private Sub Command4_Click()
For i = 1 To 5
t = a(i, 2): a(i, 2) = a(i, 4): a(i, 4) = t
Next
For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next j
Next i
End Sub
7、
Private Sub Form_Click()
Dim a() As Integer, n As Integer
n = InputBox("n=")
ReDim a(n, n)
For i = 1 To n
a(i, 1) = 1
a(i, i) = 1
Next
For i = 3 To n
For j = 2 To i - 1
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Next j, i
For i = 1 To n
For j = 1 To i
Print a(i, j); '或者Print Tab(30 - 3 * i + 6 * (j - 1)); a(i, j);
Next j
Next i
End Sub
第5章应用程序界面设计
一、选择题
1、C
2、B
3、A
4、B
5、D
6、D
7、D
8、DA
9、BC 10、A 11、A 12、A 13、A 14、A B 15、B 16、A 17、B 18、C 19、C 20、D
21、C 22、C
二、填空题
1、通用
2、Style
3、Print lstEx.List(2)
4、CmbEx.ListIndex = 4
5、“—”
6、PopupMenu
7、Enabled Interval True 大于0
8、窗体、图片框、框架等
9、MultiLine ScrollBars
10、AutoSize Stretch
11、Image1.Picture = LoadPicture("c:\pic1.jpg")
12、Change
13、另存为
14、顶级
15、⑴ListIndex List(List1.ListIndex) 或Text
⑵List(2)
⑶x , Lst1.ListIndex +1
⑷ListCount – 1 Selected RemoveItem i
16、Load UnLoad
17、Show Hide
18、呈灰色
19、图片框
20、图片框、计时器、Data控件
三、简答题（略）
第6章过程
一、选择题
1、C
2、C
3、C
4、A
5、D
二、填空题
1、同一地址的存储单元
2、传值传址
3、Sub TestAB(a As Single, b!, c As Boolean)
4、过程名＝<表达式>
5、局部变量
6、Static
7、本过程模块整个工程
8、模块级工程级
9、过程调用自身递归结束递归描述
10、6 8 4
6 4 3
11、0.6 1.8
12、2 5 8 11
13、3 1 3
0 1 3
4 1 3
0 1 3
1 1 3
三、编程题（参考）
1、
Private Function P(t%, a%) As Single
If t * t > a Then
P = Log(t * t - a)
Else
P = Log(t * t)
End If
End Function
2、
Private Sub sub1(n As Integer, sum As Long) sum = 0
For i = 1 To n Step 2
P = 1
For j = 1 To i
P = P * j
Next j
sum = sum + P
Next i
End Sub
Private Function fun1(n As Integer) As Long sum = 0
For i = 1 To n Step 2
P = 1
For j = 1 To i
P = P * j
Next j
sum = sum + P
Next i
fun1 = sum
End Function
3、
Private Function F1(s As String) As String Dim min As Integer, st As String
n = Len(s)
min = Asc(Mid(s, 1, 1))
For i = 2 To n
st = Mid(s, i, 1)
If Asc(st) < min Then min = Asc(st) Next i
F1 = Chr(min)
End Function
4、
Private Sub subT(x!, s As String)
If x > 0 Then s = "Positive"
If x = 0 Then s = "Zero"
If x < 0 Then s = "Negative"
End Sub
5、
Private Function gcd_dgfun(x%, y%)
Dim r%
r = x Mod y
If r = 0 Then
gcd_dgfun = y
Else
x = y
y = r
gcd_dgfun = gcd_dgfun(x, y)
End If
End Function
Private Sub gcd_dgsub(x%, y%, gcd%)
Dim r%
r = x Mod y
If r = 0 Then
gcd = y
Else
x = y: y = r
Call gcd_dgsub(x, y, gcd)
End If
End Sub
第7章鼠标和键盘
一、填空题
1、11
2、MouseDown MouseUp MouseMove
3、Shift Ctrl Alt
4、MouseDown MouseUp MouseUp
5、A a
6、Ctrl + Alt + 单击鼠标右键
7、Form-66
Text-66
二、编程题
1、（参考）
Dim x1 As Long, y1&, x2&, y2&
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X
Form1.CurrentY = Y
x1 = X: y1 = Y
Print "("; X; ","; Y; ")"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim L As Long
Form1.CurrentX = X
Form1.CurrentY = Y
x2 = X: y2 = Y
Print "("; X; ","; Y; ")"
L = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
MsgBox "两点之间的距离是：" & Str(L)
End Sub
2、（参考）
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim st1 As String, st2 As String
If KeyAscii = 13 Then
st1 = Text1.Text
Call sort(st1, st2)
Print st2
End If
End Sub
Private Sub sort(str1 As String, str2 As String)
Dim n As Integer, b() As Integer
n = Len(str1)
ReDim b(n)
For i = 1 To n
b(i) = Asc(Mid(str1, i, 1))
Next
For i = 1 To n - 1
For j = i + 1 To n
If b(j) < b(i) Then
t = b(j): b(j) = b(i): b(i) = t
End If
Next j
Next i
For i = 1 To n
str2 = str2 + Chr(b(i))
Next
End Sub
第8章文件
一、选择题
1、C
2、B
3、A
4、D
5、D
二、填空题
1、顺序随机二进制
2、Output Append Input Random Binary Random
3、打开（建立）读/写关闭
4、Input# LineInput# Input() Get Put
5、Input As #10 Output As #20
三、编程题
1、Private Sub Form_Click()
Dim a(5, 5) As Integer
Open App.Path & "\a1.txt" For Output As #1
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(90 * Rnd + 10)
Print #1, a(i, j);
Next j
Print #1,
Next i
Max = a(1, 1)
For i = 1 To 5
For j = 1 To 5
If a(i, j) > Max Then
Max = a(i, j)
End If
Next j, i
Print #1, Max
End Sub
2、Private Sub Command1_Click()
Open App.Path & "\file1.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, s$
str1 = str1 + s + vbCrLf
Loop
Text1 = str1
Close #2
End Sub
Private Sub Command2_Click()
Open App.Path & "\file2.txt" For Output As #1
Print #1, Text1.Text
Close
End Sub
3、Private Type TelBook
Num As String * 5
Name As String * 4
TelNum As String * 8
Addr As String * 30
End Type
Dim Tel As TelBook
Private Sub Command1_Click()
Open App.Path & "\TelBook.txt" For Random As #1 Len = Len(Tel) i = 1
flag = 0
Do While Not EOF(1)
Get #1, i, Tel
If Trim(Tel.Num) = Trim(txtNum.Text) Then
txtName.Text = https://www.wendangku.net/doc/cc11791977.html,
txtTelNum.Text = Tel.TelNum
txtAddr.Text = Tel.Addr
flag = 1
Exit Do
End If
i = i + 1
If flag = 0 Then MsgBox "没有这条记录！"
Close #1
End Sub
第9章VB绘图基础
一、选择题
1、A
2、C
3、A
4、B
5、C
二、编程题（略）
VB程序设计课后习题答案(科学出版社)
同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1．可视 2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序 4．查看代码 5．工具、编辑器 6．FORM窗体、FONT 7．MULTILINE 8．在运行时设计是无效的 9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1．整型、长整型、单精度型、双精度型 2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB
11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3 3．X>=7 4．X 二、选择题 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 。 2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较 实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5 （3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③ vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23 25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb 第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5 VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。 《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile | 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", 第5章数组与记录 5．1 填空题 1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（）。 答案：Dim s(1 To 10) As String 2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（）。 答案：Dim a(0 To 5,-3 To 6) As Integer 3．如果数组元素的下标值为实数，则VB系统会按（）进行处理。 答案：四舍五入原则 4．数组元素个数可以改变的数组称为（）；数组元素可以存放不同类型数据的数组称为（）。 答案：可调数组、可变类型数组 5．数组刷新语句用于（）。若被刷新的数组是数值数组，则把所有元素置（）；若被刷新的数组为字符串数组，则把所有元素置（）。 答案：清除指定数组内容、０、空字符串 10．控件数组是由一组类型和（）相同的控件组成，共享（）。 答案：名字、同一个事件过程 11．控件数组中的每一个控件都有唯一的下标，下标值由（）属性指定。 答案：Index 12．建立控件数组有两种方法：（）和（）。 答案：在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法 5．2 选择题 1．下列一维数组说明语句错误的是（）。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 答案：c 2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（）。 a) 5 b) 8 c) 11 d) 12 答案：d 3．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（）是错误的。 a) c(i-1) b) c(5+0.5) c) c(0) d) c(10) 答案：c 4.下列数组说明语句中正确的是（）。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double 《VB程序设计》综合复习资料 第一章 Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化 B．面向对象 C．面向图形 D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） 1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。 Microsoft ” B )print “Microsoft Microsoft ” D ) Debug.print Microsoft 输入inputbox 返回值的类型是( A )字符型B )整型 C )浮点型 D )长整型 (3) 用来设置设置文本框有无滚动条的属性的值为( A ) D)selle ngth (4) i nt(rnd*50)+10 表示的是(D )范围内的整数。 A) [0，50] B)[1 ，60] C)[10 ，60] D)[10 ，59] (5) 下列各控件不包含滚动条的是(D )。 A)listbox B)combobox C)textboa D)labelbox (6) 为了暂时关闭计时器，应把该计时器控件的( C )属性 设置为false. A)visible B)timer C)e nabled D)i nterval (7) 设置列表框选中的文本，用(C )属性。 A ) Selected B ) List C ) Text D ) Caption (8) 未选中复选框控件时，Value 属性的值为(C ) A ) True B ) False C ) 0 D ) 1 (9) 某一 VB 工程含F1. F2两个窗体，执行“F1. Show F2. Hide ” 语句后，F1. F2 复习题及参考答案 、选择题 (1)使“ Microsoft 在当前窗口上输出的语句是( A ) Picture.print C ) printer.print A)Scrollbars B)Multili ne C)Seltext 窗体显示的结果为 C 。 A) 都显示B)都不显示C)仅显示F1窗体D)仅显示F2窗体 (10) 在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2 ; 六个标签，名称分别为Labell、Label2、Labe l3、Label4、Label5、Label6，其中标签Label 4~ Label6 分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值， Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2 中显示的 两个值求积，并将结果显示在Label3中。以下不能实现上 述功能的事件过程是(A )。 A) Private Sub Command1_Click() Label3.Caption = Str(Val(Label1. Caption )*Val( Label2.Captio n)) End Sub B) Private Sub Command1_Click() Label3.Caption = HScroll1.Value * HScroll2.Value End Sub C) Private Sub Command1_Click() Label3.Caption = Val(Label1. Caption )*Val( Label2.Captio n) End Sub D) Private Sub Comma nd1_Click() 课后习题解答 第一、二章： 1、简述VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否需要再次安装VB6.0？ 答：要重新安装的。因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在VB6.0的启动界面上，能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是VB98 8、安装Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定容有关的帮助信息。 10、什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的Autosize属性值设置为true。 13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？ 答：命令按钮的显示形式通过将Style属性值设置为Graphical来实现。通过Picture属性来装入图VB期末考试试题及答案
2016年计算机二级《VB》基础练习题及答案(2)
vb程序设计实验教程习题答案
vb练习题及答案.doc
VB练习题含答案
VB程序设计教程(第3版)课后实验答案最新版2
vb试题及答案
《VB程序设计》习题答案-林卓然编著
VB考试题及答案
vb题库及答案
vb课后练习答案习题解答 (5)
visual_Basic程序的设计教程_课后习题答案及练习
vb经典题目及答案
VB复习题及参考答案
VB程序的设计教程课后答案