【程序说明】找出两个正整数a和b,使得a < b、a + b = 99、a和b的最大公约数是3的倍数,并统计满足条件的数对的个数。
答案:CAB
注:其实求最大公约数的程序,a比b小也同样适用,程序第一次循环就会把顺序倒过来。
【程序】
Dim a As Integer, b As Integer, n As Integer, c As Integer
Private Function Gcd(ByVal a As Integer, ByVal b As Integer) As Integer
Do
c = a Mod b
a = b
b = c
Loop While c <> 0
Gcd = a
End Function
Private Sub Command1_Click()
n = 0
For a = 1 To 49
b = 23
c = 24
If c Mod 3 = 0 Then
25
Print a, b, c
End If
Next a
Print n
End Sub
【供选择的答案】
23. A.99 B.1
C.99 - a D.99-n
24.A.Gcd(b, a) B.Gcd(a, b)
C.Gcd(b, n) D.Gcd(n, b)
25.A.n = n - 1 B.n = n + 1
C.n = 0 D.n = a
【程序】答案:CCC 考点:函数默认传址方式的参数传递方式,全局变量与局部变量,事件创建,静态变量特征
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x = 2
Text1.Text = P2(P1(x), y)
Text2.Text = P1(x)
End Sub
Private Function P1(x As Integer) As Integer
x = x + y
y = x + y
P1 = x + y
End Function
Private Function P2(x As Integer, y As Integer) As Integer
P2 = 2 * x + y
End Function
【供选择的答案】
31.当一次单击命令按钮后,文本框Text1和Text2的值分别是
A.2、4 B.4、8
C.10、10 D.4、4
32.当两次单击命令按钮后,文本框Text1和Text2的值分别是
A.2、4 B.8、8
C.58、58 D.4、8
33.将x的声明方式改为Static,程序运行时,当两次单击命令按钮后,文本框Text1和Text2的值分别是
A.2、4 B.8、8
C.58、58 D.4、8