求VBA编程语法,要求“输入a,b,c三个数，按从大到小的次数显示”

在word里的VBE里，用户窗体有　a，b，c．三个文字框，有几个标题框，还有一个显示大小顺序的框框，那么，在哪个框框里输入什么啊

我用CAD VBA来编:excel vba不太会
Sub k()
Dim a
Dim b
Dim c
a = ThisDrawing.Utility.GetReal("请输入第一个数：")
b = ThisDrawing.Utility.GetReal("请输入第二个数：")
c = ThisDrawing.Utility.GetReal("请输入第三个数：")
Dim n(2) As Double
n(0) = a
n(1) = b
n(2) = c
Dim max As Double
Dim mi As Double
max = a
mi = a
For i = o To 2
If n(i) > max Then
max = n(i)
End If
If n(i) < mi Then
mi = n(i)
End If
Next
Dim m As Double
For j = 0 To 2
If n(j) <> mi And n(j) <> max Then
m = n(j)
End If
Next
MsgBox mi & vbLf & m & vbLf & max
End Sub

Private Sub a() cals 1, 2, 3 End Sub Public Sub cals(ByVal x As Double, ByVal y As Double, ByVal z As Double) Dim a, b, c As Double a = WorksheetFunction.Max(x, y, z) c = WorksheetFunction.Min(x, y, z) b = WorksheetFunction.Median(x, y, z) MsgBox a & b & c End Sub

其一：你的程序小于号"<"要全都变成大于号">"或者大于号">"全改成小于号"<"这样你的逻辑和结果才正确 其二：不知道你的 a = val(textbox1.text) b = val(textbox2.text) c = val(textbox3.text) 是否有问题，我vba中，我没见过这种写法，我是基于excel中的vba，当然这个写法在vb中成立 三：建议你把private sub userform_activate()改掉，基本上问题出在这 写个private sub aa() 写上上面的逻辑 end sub 再用command_click控件执行