VB两道题,求大神解答,万分感谢

发布网友发布时间：2023-08-27 18:54

共2个回答

热心网友时间：2024-12-13 12:10

第一个问题：

Private Sub ch(ByRef x As Integer)
Static t As Integer
t = t + 10 '第一次调用时t的值是10，第二次调用t的值是20
x = x + t '第一次调用时x的值是10+10，第二次调用x的值是20+20
End Sub

Private Sub Command1_Click()
Dim a As Integer
a = 10
ch a   '第一次调用ch过程，这时以10的值传输，返回结果是20
ch a   '第二次调用ch过程，这时以20的值传输，返回结果是40
Print a   '打印结果是40
End Sub

第二个问题：

Private Sub Command1_Click()
Dim a As Integer, b As Integer, j As Integer
    a = 10: b = 4
For j = 0 To 10 Step -2   '第一次循环初值由0变为-2，小于初值，不会进入循环，直接退出
    a = a + 5
    b = b + 4
Next
Print a, b   '因此输出就是a、b的初值：10、4
End Sub

Static 是过程级静态变量声明的关键字，ch 是自定义过程，ByRef 是表示变量x是以地址传输的，ch a 是调用ch 过程，传输变量是a的值。

热心网友时间：2024-12-13 12:10

Static是静态变量
Static下变量在同一过程中值不会因为过程结束而重新变化
ch调用了 ch过程，Byref代表传地址。
print a,b代表输出a b的值，还有问题可以联系我