46、(1分)
在程序设计中容易出现的错误主要有：编辑时出现的错误、编译时出现的错误、运行时的错误和逻辑错误。
47、(1分)
已知三角形的两边分别为a、b，它们的夹角为60度，圆周率取3.14，在VB中可用公式(a * b * Sin(60 * 3.14 / 180) / 2)求出该三角形的面积。
48、(1分)
在VB中，可将调试好的程序编译生成能够脱离VB集成环境在Windows平台上独立运行的可执行文件。
49、(1分)
在VB中，Int(100 * Rnd + 1)的取值范围是1～100之间的所有实数（包括1和100）
（错误。是“整数”而不是“实数”） 50、(1分)
算法是有限步骤内求解问题所使用的一组定义明确的规则。
三、操作题 51、(15分)
21
有一数列A1、A2、A3、A4、A5、......，已知 A1=0、A2=1、A3=1、A4=A1+2*A2＋A3、A5=A2+2*A3+A4、......，依此类推编程输出第23项的值。
Private Sub Command1_Click() Print f(23) End Sub
Private Function f(n As Integer) As Single If n = 1 Then f = 0 Else
If n = 2 Or n = 3 Then f = 1 Else
f = f(n - 3) + 2 * f(n - 2) + f(n - 1) End If End If End Function 52、(10分)
编程求12709到45368之间有多少个其各位数字之和为5的倍数的正整数。
Private Sub Command1_Click()
22
s = 0
For i = 12709 To 45368 a = Int(i / 10000)
b = Int((i - a * 10000) / 1000) c = Int((i - a * 10000 - b * 1000) / 100) d = Int((i - a * 10000 - b * 1000 - c * 100) / 10) e = i - a * 10000 - b * 1000 - c * 100 - d * 10 If (a + b + c + d + e) Mod 5 = 0 Then s = s + 1 Next Print s End Sub 53、(10分)
已知三角形的两边分别为13、17，它们的夹角为36度，圆周率取3.14，编程求该三角形的面积（精度：四舍五入保留小数点后6位）。 Private Sub Command1_Click() Print (13 * 17 * Sin(36 * 3.14 / 180) / 2) End Sub
23
参考答案 一、 单选题： 1 D 2 C 3 A 4 D 5 A 6 B 7 C 8 D 9 C 10 11 12 13 14 15 A A C C C C 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 D
二、 判断题： 31 × 41 √
三、 操作题 51、 答案: 5736961 Private Sub Command1_Click() Print f(23) End Sub
Function f(n As Integer) As Single If n = 1 Then
24
C A B A B C D C D B D B A B 32 × 42 √ 33 × 43 √ 34 × 44 × 35 × 45 × 36 × 46 √ 37 √ 47 √ 38 × 48 √ 39 √ 49 × 40 × 50 √
f = 0 Else
If n = 2 Or n = 3 Then f = 1 Else
f = f(n - 3) + 2 * f(n - 2) + f(n - 1) End If End If End Function 52、 答案: 6532 s = 0
For i = 12709 To 45368 a = Int(i / 10000)
b = Int((i - a * 10000) / 1000) c = Int((i - a * 10000 - b * 1000) / 100) d = Int((i - a * 10000 - b * 1000 - c * 100) / 10) e = i - a * 10000 - b * 1000 - c * 100 - d * 10 If (a + b + c + d + e) Mod 5 = 0 Then s = s + 1 Next Print s
53、答案: 64.921792
Print (13 * 17 * Sin(36 * 3.14 / 180) / 2)
25