vb教材课后作业答案

习题参考答案
第1章（P17）
一、选择题
1)C 2( D 3) B 4)A 5)B 6)D 7)B
二、填空题
1．对象列表框排序方式属性列表框属性说明框
2．Text1.Text=”Hello!”
3．内部控件Activx控件可插入对象
4．Top和Left，Width和Height
5．F4、视图菜单、工具栏按钮、工程窗口中右键、窗体中使用右键6．Shift或Ctrl
第2章(P30—31)
一、选择题
1．B、C
2．A
3．B、C、D
4．D
5．B
6．B
7．C
8．D
二、填空题
3．（8+6）^(4/(-2))+sin(2*3.14)
4．（（x+y）+z）*50-5*(C+D)
6．5+（a+b）^2
8．EXP（2）
9．2*a*(7+b)
10．8*EXP(3)*Log(2)
第3章（P42）
一、选择题
1．C
2．D
3．C
5．B
二、填空题
1．25+32=57
2．Beijing
3．3
4．10 15 20
10 15 20
20+25=45
第4章习题一（P54---55）
一、选择题
1．A
2．B
3．D
4．A
5．C
二、填空题
1．9
2． 1
2
3
3．x>5或x>6或x>=7
4．11
三、编程题
1．我国现有人口……
Dim p As Single
Dim n As Integer
p = 13: n = 0
Do
p = p * 1.01
n = n + 1
Loop Until p >= 16
Print n
2．编写程序，打印如下所示……
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 6
Print Tab(30 - 3 * i);
For j = 1 To 2 * i - 1
Print Str(i - Abs(i - j)); Spc(1);
Next j
Print
Next i
End Sub
习题二（P70---72）
一、选择题
1．D
2．C
3．D
4．D
三、填空题
1．名称Index
2．变体
3．4
4．123246
四、编程题
1．从键盘上输入10个数……
Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
Dim b(1 To 10) As Integer
Print "原始数据："
For i = 1 To 10
a(i) = Val(InputBox("请输入数组的第" & i & "个元素：")) Print a(i);
Next i
For i = 1 To 10
b(i) = a(10 - i + 1)
Next i
Print
Print "对换后的数据："
For i = 1 To 10
Print b(i);
Next i
End Sub
3．有一个n*m的矩阵……
Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim max As Integer
Dim m As Integer, n As Integer
Dim a(3, 4) As Integer
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(Rnd * 100)
Print a(i, j);
Next j
Print
Next i
max = a(1, 1): m = 1: n = 1
For i = 1 To 3
For j = 1 To 4
If max < a(i, j) Then
max = a(i, j): m = i: n = j
End If
Next j
Next i
Print "最大元素是："; max
Print "其位置是："; "第" & m; "行"; "第" & n; "列" End Sub
习题三（P79---82）
一、选择题
1．B
2．D
3．B
4．A
二、填空题
1．形式，变量、表达式、常量、数组，实际2．2 5 9
3．2
三、编程题
1．编写程序，求S=A！+B！+C！。

法1：用SUB过程
Private Sub fact(n As Integer, f As Long)
Dim i As Integer
f = 1
For i = 1 To n
f = f * i
Next i
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim f1 As Long, f2 As Long, f3 As Long
a = V al(InputBox("输入a的值："))
b = V al(InputBox("输入b的值："))
c = V al(InputBox("输入c的值："))
Call fact(a, f1)
Call fact(b, f2)
fact c, f3
Print "a!+b!+c!="; f1 + f2 + f3
End Sub
法2：用Function函数
Public Function fact(n As Integer) As Long
Dim i As Integer
fact = 1
For i = 1 To n
fact = fact * i
Next
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = V al(InputBox("输入a的值："))
b = V al(InputBox("输入b的值："))
c = V al(InputBox("输入c的值："))
Print "a!+b!+c!="; fact(a) + fact(b) + fact(c)
End Sub
第5章（P102）一、选择题
1．B
2．C
3．D
二、填空题
1．Load;Unload
2．Show;Hide
3．略
4．工程属性，工程，属性
5．窗体、类、标准
6．标准模块，Public <变量名> as 类型
7．局部，全局，标准
第6章（P160---162）
一、选择题
1．C
2．B
3．D
4．B
5．A
6．D
7．C
8．B
9．C
10．C
11．D
12．B
13．C
14．B
15．B
16．A
17．B
18．D
19．C
20．C
21．C
二、填空题
1．AutoSzie
2．ScrollBars，MultiLine True
3．Text1.SetFocus
4．0，0
5．Picture1.picture=LoadPicture(“pic2.gif”)
6．True
7．Picture
8．Interval
9．Enabled
10．下拉组合框、简单组合框、下拉列表框，Style,0、1、2 11．下拉列表框
12．ItemA
ItemC
三、编程题
2．在窗体上建立3个个文本框。

Private Sub Command1_Click()
Text1.Text = "Microsoft Visual Basic"
Call Text1_Change
End Sub
Private Sub Text1_Change()
Text2.Text = UCase(Text1.Text)
Text3.Text = LCase(Text1.Text)
End Sub
4．编写程序，用计时器按秒计时。

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
Label1.Caption = Str(n) Beep
End Sub。