Question

vb中label如何输出多个数

Dim t As Integer, x As Integer, y As Integer, z As Integer, t As Integer
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
If x > y Then
t = y: y = x: x = t
ElseIf y > z Then
t = z: z = y: y = t
Else
t = x: x = z: z = t
Label6.Caption = "x=" & x;"y=" & y; "z=" & z
End If

Answer 1

见下面程序，在一个Label上，输出多个数

Option Explicit

'在Label1上显示多个数，每行显示1个数
Private Sub PrintOnLabel(ByVal x)
    Dim s As String
    '转换成字符串
    s = Trim(CStr(x))
    '如果字符串为空，则不显示并退出Sub
    If s = "" Then Exit Sub
    '在Label1上显示数字！注意：这里使用了拼接字符串以及换行符vbCrLf
    Label1.Caption = Label1.Caption & CStr(x) & vbCrLf
End Sub

Private Sub Command1_Click()
    Dim s As String
    '获取输入
    s = Text1.Text
    '在Label1上显示
    PrintOnLabel s
    '清空Text1内容，以便再次输入
    Text1.Text = ""
End Sub

Private Sub Form_Load()
    '清空Label1的内容
    Label1.Caption = ""
    '清空Text1的内容
    Text1.Text = ""
End Sub

运行结果

Answer 2

Label6.Caption = "x=" & x;"y=" & y; "z=" & z修改成Label6.Caption = "x=" & x & " y=" & y & " z=" & z