UC知道阅读程序题
来源：百度知道 编辑：UC知道 时间：2024/06/02 19:18:15
1、Sub test(i As Ingeger)
i=i+1
end sub
Private sub Form_click()
Dim x As Integer
x=4
Print "x=" ;x
Call test(x)
Print "x=" ;x
End Sub
i=i+1
end sub
Private sub Form_click()
Dim x As Integer
x=4
Print "x=" ;x
Call test(x)
Print "x=" ;x
End Sub
Sub test(i As Ingeger) 定义了一个函数TEST,包括一个整数参数I
i=i+1 进入函数后，使I加1后重新赋值回I自身
end sub 函数结束
Private sub Form_click() 定义一按键，名为“Form_click”
Dim x As Integer 定义一个整数变量X
x=4 将X赋值为4
Print "x=" ;x 显示“x=”后，紧跟X的实际数值，即4
Call test(x) 调用TEST函数，并将目前值为4的函数X带入
Print "x=" ;x 显示“x=”后，紧跟X的实际数值，经过TEST函数的计算，即4+1=5
End Sub 结束按键的定义
手打的辛苦啊，赏两分吧^_^
4,5