UC知道你12分钟能编出一个VB。NET 交换两个数的函数么
来源：百度知道 编辑：UC知道 时间：2024/05/17 04:47:28
你12分钟能编出一个VB。NET 交换两个数的函数么
Module Module1
Sub Main()
Dim no1, no2 As Integer
no1 = 3
no2 = 33
change(no1, no2)
Console.WriteLine(no1, no2)
Console.ReadLine()
End Sub
Sub change(ByRef a As Integer, ByRef b As Integer)
Dim keep As Integer
keep = a
a = b
b = keep
End Sub
End Module
上面的程序有什么问题？怎样改
Module Module1
Sub Main()
Dim no1, no2 As Integer
no1 = 3
no2 = 33
change(no1, no2)
Console.WriteLine(no1, no2)
Console.ReadLine()
End Sub
Sub change(ByRef a As Integer, ByRef b As Integer)
Dim keep As Integer
keep = a
a = b
b = keep
End Sub
End Module
上面的程序有什么问题？怎样改
Sub Main()
Dim no1, no2 As Integer
no1 = 3
no2 = 33
no1=no1+no2 '36
no2=no1-no2 '33
no1=no1-no2 '3
Console.WriteLine(no1, no2)
Console.ReadLine()
Sub change(ByRef a As Integer, ByRef b As Integer)
Dim keep As Integer
keep = a
a = b
b = keep
End Sub
Public Sub 交换函数()
Dim no1 As Integer = 3, no2 As Integer = 33, num As Integer
num = no1 '将no1的值存入num中
no1 = no2 '将no2的值存入no1中
no2 = num '将num的值存入no2中
Console.WriteLine(no1, no2)
Console.ReadLine()
End Sub
Sub Main()
Dim no1, no2 As Integer
no1 = 3
no2 = 33
no1=no1+no2 '36
no2=no1-no2 '33
no1=no1-no2 '3
Console.WriteLine(no1, no2)
Console.ReadLine()
End Sub