[VB]（更正：此前理解错误，static在整个程序运行中保留原值，每次调用过程static都应该保留上次原值，答案懒得改了）常见小程序积累

【程序说明】找出两个正整数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