Dim x As Integer, y As Integer, z As Integer
Dim diyige As Integer
Dim dierge As String, disange As String, disige As String
diyige = InputBox("请输入第一个数据:", "数据输入窗口")
dierge = InputBox("请输入第二个数据", "数据输入窗口")
disange = InputBox("请输入第三个数据", "数据输入窗口")
x = Val(diyige)
y = Val(dierge)
z = Val(disange)
If x > y And y > z Then
Print z, y, x
ElseIf y > z And z > x Then
Print x, z, y
ElseIf z > x And x > y Then
Print y, x, z
End If
Print "你输入的数据按从小到大的顺序是:"
End Sub追问
我第一次学，真心不会，print什么意思
VB的:输入三个数X、Y、Z,按从小到大的顺序输出这三个数
If X>Z Then m = X : X = Z : Z = m If Y>Z Then m = Y : Y = Z : Z = m Label1.Caption = X & " < " & Y & " < " Z End Sub
用VB编写一个程序,输入三个数,按从小到大的顺序输出
Me.Show a = Val(InputBox("请输入第一个数"))b = Val(InputBox("请输入第二个数"))c = Val(InputBox("请输入第三个数"))If a > b Then If a > c Then Print a; c; b Else Print c; a; b End If Else If b > c Then Print b; c; a Else Print c, b, a End ...
VB编程题 输入xyz三个数,按从小到大的次序显示
1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。3 .要显示多个数据，可以用“；”逐一显示，也可利用“&”字符串连接将多个变量连接显示。解题：先在窗体上画一个按钮，代码如下：Private Sub Comma...
用VB制作“输入三个数,从大到小排序”的代码
a=inputbox("输入数字a")b=inputbox("输入数字b")c=inputbox("输入数字c")print a,b,c if b<c then t=b b=c c=t end if if a<b then t=a a=b b=t end if if b<c then t=b b=c c=t end if print"排序后的结果为";a,b,c 貌似我的方法是笨了点 但是我试了...
vb任意输入3个整数,按照由小到大排序输出。
用户的这一行 If a > b > c Then是错误的，任何一门语言都是按照运算符优先级从左至右依次计算得出结果的，显然两个>运算符优先级是相同的，所以从左至右依次算。可以参考以下代码：Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = Text3.Text '无...
用VB编写三个数比较大小的程序
print "三个数："for i=1 to 3 print a(i);next print For I=1 to 3 B=false for J=1 to I-1 if a(j)>a(j+1) then a(0)=a(j)a(j)=a(j+1)a(j+1)=a(0)b=true endif next j if b=false then exit for next i print "按照从小到大的顺序："for i=1 to 3 ...
vb程序设计,求三个数的最大值和最小值,代码怎么打,尽量简单点不要太...
y = Val(InputBox("输入第2个数："))z = Val(InputBox("输入第3个数："))If x < y Then t = x x = y y = t End If If x < z Then t = x x = z z = t End If If y < z Then t = y y = z z = t End If Print "最大值：";x Print "最小值：";...
使用vb对输入的三个数字由大到小进行排序?
= c Then Print "输入数据无法运算，请重新输入"GoToi End If If a < b Then x = b If x < c Then x = c y = b z = a End If Else x = a If b > c Then y = b z = c Else y = c z = b End If End If Print "自大至小排序为："; x, y, z End Sub ...
VB6.0三个数排序完全代码
s = "输入的三个数为：" & a & ", " & b & ", " & c & vbCrLf If a > b Then t = a: a = b: b = t If a > c Then t = a: a = c: c = t If b > c Then t = b: b = c: c = t MsgBox s & "三个数从小到大为：" & a & ", " & b & ",...
用VB,把ABC3个数字从大到小排序,高手写下程序,谢谢!
用IF和inputbox - - Private Sub Command1_Click()Dim s As String s = InputBox("输入3个字符")If Asc(Mid(s, 1, 1)) < Asc(Mid(s, 2, 1)) Then t = Mid(s, 1, 1)Mid(s, 1, 1) = Mid(s, 2, 1)Mid(s, 2, 1) = t End If If Asc(Mid(s, 1, 1)) < Asc...
