发布时间 : 星期五 文章VB第七八章节课后编程更新完毕开始阅读
第七章 VB控制结构 课后习题第三题 1、编写程序，计算1+2+3+……+100。 程序代码如下： Private Sub Form_Click() i = 1 s = 0
For i = 1 To 100 s = s + i Next i Print s
End Sub
2、我国人口约为12亿，设年增长率为1%，编写程序，计算多少年后增加到20亿。 程序代码如下
Private Sub Form_Click()
Dim p As Double, r As Single, n As Integer p = 1200000000# r = 0.01 n = 0
Do Until p >= 2000000000# p = p * (1 + r)
n = n + 1 Loop
Print n; \年后人口增加到期20亿\
End Sub
3、给定3三角形的3条边长，计算三角形的面积。首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 程序代码如下：
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer Dim cc As Integer, s As Integer, area As Integer a = InputBox(\请输入第一条边：\b = InputBox(\请输入第二条边：\c = InputBox(\请输入第三条边：\
cc = ((a + b > c) And (c > 0)) And ((a + c > b) And (b > 0)) And ((b + c > a) And (a > 0)) If a > 0 And b > 0 And c > 0 Then If cc Then
MsgBox \输入的三边能构成三角形\ s = (a + b + c) / 2
area = Sqr(s * (s - a) * (s - b) * (s - c)) Print area
Else
MsgBox \输入的三边不能构成三角形，请重新输入\ End If
Else
End End If End Sub
第八章 数组课后习题第三
1、从键盘上输入10个数，并放入一个一维数组中，然后将其前5个元素与后5个元素进行交换，即第1个元素与第10个元素进行互换，第2个元素与第9个元素互换……分别输出数组原来的元素和对换后的各元素的值。 程序代码如下： Option Base 1
Private Sub Form_Click()
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) Print \原来的数组：\For i = 1 To 10 Print a(i); Next i
For i = 1 To 5
For j = 6 To 10 t = a(i) a(i) = a(j)
a(j) = t Next j Next i
Print \对换后的数组：\For i = 1 To 10 Print a(i);
Next i End Sub
2、设有如下两数组：
A：2，8，7，6，4，28，70，25
B：79，27，32，41，57，66，78，80
编写一个程序，把上面的数组分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，……，25+80，然后把相应的结果放入第三个数组中，最后输出第三个数组的值。
程序代码如下： Option Base 1
Private Sub Form_Click() Dim A, B, C(8) As Integer A = Array(2, 8, 7, 6, 4, 28, 70, 25) B = Array(79, 27, 32, 41, 57, 66, 78, 80) For i = 1 To 8 C(i) = A(i) + B(i) Next i
Print \第一个数组为：\For i = 1 To 8
Print Tab(10 + 5 * i); A(i); Next i
Print \第二个数组为：\For i = 1 To 8
Print Tab(10 + 5 * i); B(i); Next i
Print \结果数组为：\For i = 1 To 8
Print Tab(10 + 5 * i); C(i);
Next i End Sub
7、编写程序，建立并输出一个10X10的矩阵，该矩阵两条对角线元素为1，其余元素均为0。
程序代码：
Private Sub Form_Click()
Dim s(10, 10) As Integer
For n = 1 To 10 ‘控制行数 For m = 1 To 10 ‘控制列数 If n = m Or n = 11 - m Then ‘对角线元素 s(n, m) = 1
Else ‘非对角线元素 s(n, m) = 0
End If Next m, n Print
For n = 1 To 10 ‘控制行数 For m = 1 To 10 ‘控制列数
Print Tab(4 + m * 3); s(n, m); ‘输出各元素的值 Next m
Print ‘换行 Next n End Sub