vb程序设计教程课后答案与实验题答案（第三版）(3)

If Int(i / 7) = i / 7 Then n7 = n7 + 1 Next i

Print \中3的倍数有\个\Print \中7的倍数有\个\

（3）

Dim s1 As String, s2 As String, i As Integer s1 = InputBox(\s2 = \

For i = 1 To Len(s1)

s2 = Mid(s1, i, 1) + s2 Next i

Print \原序：\Print \反序：\ 或

For i = Len(s1) To 1 Step -1 s2 = s2 + Mid(s1, i, 1) Next i

13. 输出字符串“10100”。该程序功能是将十进制数转化为二进制。

说明：要理解该程序需要了解数制转换的计算方法（有兴趣者参看百度百科http://baike.http://m.wodefanwen.com//view/1426817.htm）。48是字符\的ASCII码。

14. 运行时输出 22 484

该程序功能是求x和y最大公约数和最小公倍数。

说明：此算法称为“辗转相减法”。可对照例4.17的辗转相除（辗转求余）法。

15．[50，100]间的20个随机数，求最大值、最小值、平均值。

Dim x As Integer, sum As Integer, aver As Single Dim n%, i%, max%, min% Randomize

max = 50: min = 100: n = 20

For i = 1 To n

x = Int(Rnd * 51 + 50) List1.AddItem x sum = sum + x

If x > max Then max = x If x < min Then min = x Next i

aver = sum / n

Print \最大值：\最小值：\平均值：\

习题五

1. 指定数组的默认下界 Option Base 1

2．合理的数组声明

（1）错。定义数组不可用变量（教材99页）。 （2）正确。该数组下标为0-11。 （3）错。VB中数组下标用圆括号。

（4）正确。三维数组三个下标分别为0-1，0-1，0-2，共12个元素。 （5）错误。非动态数组，不可重定义。

（6）错误。动态数组重定义时不可改变数据类型。

（7）正确。二维数组两个下标分别为0-2，0-3，共12个元素。

（8）语法错误，二维数组定义中漏写逗号——可能是印刷错误，加上此逗号则正确。 3．当引用数组元素时下标值小于定义的最小下标，或大于最大下标时，会发生“下标越界”错误。

4．数组名：a ；数组类型：Single（单精度浮点型）；维数：二维； 各维的上下界：第一维下界（最小下标）为 -1，上界（最大下标）为2， 第二维下界（最小下标）为 0，上界（最大下标）为3； 数组的大小：4行4列共16个元素 以矩阵的格式输出二维数组： For i = -1 To 2 For j = 0 To 3 Print a(i, j); Next j Print Next i

或写成更加通用的代码形式：

For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) Print Tab(j * 8); a(i, j); Next j

Print Next i

6．一维字符数组

Dim a(1 To 20) As String

Private Sub Command1_Click() '(1)随机产生字符串

Dim i As Integer, j As Integer, n As Integer, c As String * 1 Randomize For i = 1 To 20

a(i) = \ '将第i个元素清空

n = Int(Rnd * 10 + 1) '产生[1,10]的随机数 For j = 1 To n 'a(i)中有n个字符

c = Chr(Int(Rnd * 26 + 97)) '随机产生字母97是字母a的ASCII码

a(i) = a(i) + c Next j Next i End Sub

Private Sub Command2_Click() '(2)输出字符串 Dim i As Integer For i = 1 To 20

Print Tab(((i - 1) Mod 5) * 11); a(i); If i Mod 5 = 0 Then Print Next i End Sub

Private Sub Command3_Click() '(3)最长的字符串 Dim i As Integer, imax As Integer imax = 1

For i = 2 To 20

If Len(a(i)) > Len(a(imax)) Then imax = i End If Next i

Print \最长的字符串：\End Sub

第7，8题答案在教材中找。

第9题“自定义变量”含义不明，暂时无法回答。

第5，10 题 [暂略]

习题六

第1，2，6-8题答案可在教材中找到。

3．指出过程说明中的错误

（1）Sub子过程不应该定义类型 （2）函数与形式参数不应该同名

（3）数组作为形式参数时，应使用传地址方式，不可使用传值（ByVal） （4）形式参数应该是变量或数组名，不可以是一个数组元素

4．指出调用过程语句的错误

（1）无语法错误，但因形参sum所对应的实参是常量3，故计算结果无法传递给主调程序。

（2）实参变量c与形参sum的类型不一致。

（3）类似于（1），形参sum所对应的实参是表达式a+b，故计算结果无法传递给主调程序。

（4）类似于（1）和（2），形参sum所对应的实参是表达式Sqr(c)，故计算结果无法传递给主调程序。另外srq(a)存在语法错误（拼写错）。 （5）与（2）相同，实参c与形参sum的类型不一致。

5．迭代法求平方根

（1）自定义函数的定义及调用

Function FSqr1(a As Single) As Single Dim x0 As Single, x As Single x = a Do

x0 = x

x = (x0 + a / x0) / 2

Loop While Abs(x - x0) > 0.00001 FSqr1 = x End Function

Private Sub Command1_Click() Dim x!, y!

x = Val(InputBox(\ If x >= 0 Then y = FSqr1(x) Print y End If End Sub

（2）自定义子过程的定义及调用

Sub FSqr2(a As Single, x As Single) Dim x0 As Single x = a Do

x0 = x

x = (x0 + a / x0) / 2

Loop While Abs(x - x0) > 0.00001 End Sub

Private Sub Command2_Click() Dim x!, y!

x = Val(InputBox(\ If x >= 0 Then

Call FSqr2(x, y) Print y End If End Sub

（3）递归函数及调用 [略]

习题七

第1-9题，答案在教材上找；第10，12-14题，略。

11．检测Ctrl和F3同时按下的代码：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = 2 And KeyCode = 114 Then MsgBox \

End Sub

习题八

第1，2，6，7，9题答案可阅读教材找到。

3．写Open语句

（1） Open \ '重写 或 Open \ '添加 （2）Open \

（3）Open \