算法 VB编程 将流程图转成伪代码 求援手 真心不会做 速度给解 感激不尽噶！！

Question

1.
2.
3.

Answer 1

'1
Dim x,y
x=inputbox("input x","input x")
If x>3 Then
y=x^2
Else
If x>=0 Then
y=2*x+1
Else
y=3*x-1
End If
End If
Print y

'2
Dim n
n=inuptbox("input n","input n")
If int(n/7)=n/7 Then
Print "能！"
Else
Print "不能！"
End If

'3
Dim a,b,c
a=Inputbox("a")
b=Inputbox("b")
c=Inputbox("c")
If a<b Then Swap a,b
If a<c Then Swap a,c
If b<c Then Swap b,c
Print a,b,c追问

第3个好像不对，代码输到那个里面不能运行，麻烦再看一下，谢谢

追答

在外面加个函数
Private Sub Command1_Click()
Dim a, b, c
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
If a < b Then swap a, b
If a < c Then swap a, c
If b < c Then swap b, c
Print a, b, c
End Sub

Sub swap(m, n)
Dim q
q = m
m = n
n = q
End Sub