61S咖过程 武汉职业技术学晚 例6.1编一个交换两个整型变量值的子过程。 Private Sub Swap( X As Integer, Y As Integer) Dim temp As Integer Temp=X: XEY: YETemp End sub Private Sub command1 cl icko Dim a%. b% a=va|( i inputbox(“a=“) b=val( inputbox(“"b=“) print a=w; a, mb=, b call swap(a, b) pr int a=w; a, mb=n, b End Sub6.1 Sub过程 例6.1 编一个交换两个整型变量值的子过程。 Private Sub Swap( X As Integer, Y As Integer) Dim temp As Integer Temp=X : X=Y : Y=Temp End Sub Private Sub command1_click() Dim a%,b% a=val(inputbox(“a=“)) b=val(inputbox(“b=“)) print “a=“;a,”b=“,b call swap(a,b) print “a=“;a,”b=“,b End Sub