[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