Question

VB高手帮下忙

编写程序，将任意输入的三个数字按照从小到大，从大到小大顺序输出。

输入三个数字 ___ ____ ______
由小到大的顺序 _________
由大到小大顺序 _________

'补充要求1：判断三个文本框中的内容是否为“数字”
'如果是数字就处理，……
'否则，给出信息框提示错误，清空非“数字”文本框，重新输入

'这里可以使用参考答案中的代码，不要使用文本框来输出排序的结果
'要使用窗体中空白的“标签”输出结果。
'lblLtoB标签用来输出“由小到大”的顺序
'lblBtoL标签用来输出“由大到小”的顺序
'每个标签中要输出三个数，用字符串连接，中间夹有“顿号”即可
'一个按钮要把这些事情都做了。
'两个结果要针对一组数排序，同时输出。

求代码，有高手来帮下忙，万分感谢

Answer 1

我用一个命令按钮来完成你所说的效果 其中'代表其后内容为注释内容
Private Sub Command1_Click()

'IsNumeric（） 用来判断文本框内容是否为全数字

If IsNumeric(Text3) <> True Then
Text3.Text = ""
MsgBox "text3中有其他字符"
Text3.SetFocus
End If

If IsNumeric(Text2) <> True Then
Text2.Text = ""
MsgBox "text2中有其他字符"
Text2.SetFocus
End If

If IsNumeric(Text1) <> True Then
Text1.Text = ""
MsgBox "text1中有其他字符"
Text1.SetFocus
End If

a = Text1.Text
b = Text2.Text
c = Text3.Text
w = 0
LblLtoB.Caption = ""
LblLtoL.Caption = ""

'对三个数字进行排序，排序结果为a最大、b次之、c最小
If a < b Then
w = a
a = b
b = w
End If
If a < c Then
w = a
a = c
c = w
End If
If b < c Then
w = b
b = c
c = w
End If
LblLtoB.Caption = a + Space(5) + b + Space(5) + c
LblLtoL.Caption = c + Space(5) + b + Space(5) + a
End Sub

效果我已经在电脑上试过了，应该满足你的要求！！！