用vb脚本语言编写一个小程序，程序实现功能如下：任意输入三个整数，使其按大到小的顺序输出。紧急！谢谢

程序功能:输入3个整数,按从大到小的顺序进行输出.~

#include int main (void){ int a[3], tem; scanf("%d %d %d", &a[0], &a[1], &a[2]); for (int i = 0; i a[j+1]) { tem = a[j]; a[j] = a[j+1]; a[j+1] = tem; } } } printf("%d %d %d
", a[0], a[1], a[2]); return 0;}

当然能用If嵌套。在窗体上添加4个文本框和1个按钮，Text1、Text2和Text3输入，Text4输出。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b Then
If a > c Then
If b > c Then
Text4.Text = a & " " & b & " " & c
Else
Text4.Text = a & " " & c & " " & b
End If
Else
Text4.Text = c & " " & a & " " & b
End If
Else
If b > c Then
If a > c Then
Text4.Text = b & " " & a & " " & c
Else
Text4.Text = b & " " & c & " " & a
End If
Else
Text4.Text = c & " " & b & " " & a
End If
End If
End Sub

a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
If a < b Then
t = a
a = b
b = t
End If
If a < c Then
t = a
a = c
c = t
End If
If b < c Then
t = b
b = c
c = t
End If
MsgBox a & " " & b & " " & c, vbOKOnly, "从大到小的顺序"

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
Dim mid As Integer
Dim min As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a > b Then
If a > c Then
If b > c Then
TextBox4.Text = a
TextBox5.Text = b
TextBox6.Text = c
Else
TextBox4.Text = a
TextBox5.Text = c
TextBox6.Text = b
End If
Else
TextBox4.Text = c
TextBox5.Text = a
TextBox6.Text = b
End If
Else
If b > c Then
If a > c Then
TextBox4.Text = b
TextBox5.Text = a
TextBox6.Text = c
Else
TextBox4.Text = b
TextBox5.Text = c
TextBox6.Text = a
End If
Else
TextBox4.Text = c
TextBox5.Text = b
TextBox6.Text = a
End If
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

---

用vb脚本语言编写一个小程序，程序实现功能如下：任意输入三个整数，使其按大到小的顺序输出。紧急！谢谢视频