vb读程序

Option Explicit

Private Sub t1(ByVal x As Integer, ByVal y As Integer)
x = x + 100
y = y * 5
Print "x="; x, "y="; y
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True

t1 3, 4
End Sub

结果 103，20

sub t1(by val x as integer,by val y as integer,)'有错误，最后一个逗号去了，定义函数t1，参数为x，y
x=x+100'x=x+100
y=y*5'y=y*5
print"x=";x,"y=";y'打印x、y的值
end sub

1、声明一个叫t1的子过程。子过程中包含两个按值传递的实参x,y。
2、将x当前值（由按值传递所得）加上100的值赋给x。
3、将y当前值（由按值传递所得)乘以5的值赋给y。
4、打印输出x和y的最后数值。
5、结束子过程。