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制作“输入三个数,从大到小排序”的代码
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编写一个程序, 输入a、b、c三个数,要求按由大到小的顺序显示
Private Sub Form_Click()Dim A(1 To 3), I, J, X As Integer For I = 1 To 3 A(I) = Val(InputBox("请输入数字"))Next I For I = 1 To 2 For J = I + 1 To 3 If A(I) < A(J) Then X = A(I)A(I) = A(J)A(J) = X End If Next J Next I For I =...
vb程序设计,求三个数的最大值和最小值,代码怎么打,尽量简单点不要太...
思路，把三个数存放到变量x，y，z，里，然后按照从大到小排列，最后x里是最大值，z里是最小值。Dim x As Single, y As Single,z As Single Dim t As Single x = Val(InputBox("输入第1个数："))y = Val(InputBox("输入第2个数："))z = Val(InputBox("输入第3个数："))If ...
输入x,y,z三个数,按从大到小的次序显示用VB程序怎么写
Print Tab(5); "随机产生数字从大到小排序:"; x; y; z End Sub
VB6.0三个数排序完全代码
a = Val(InputBox("请输入第一个数:"))b = Val(InputBox("请输入第二个数:"))c = Val(InputBox("请输入第三个数:"))s = "输入的三个数为：" & a & ", " & b & ", " & c & vbCrLf If a > b Then t = a: a = b: b = t If a > c Then t = a: a = ...
VB表达式,输入x,y,z三个数,按照从大到小的次序显示
简单啊，给你吧。Private Sub Command1_Click()x = InputBox("输入第一个数：")y = InputBox("输入第二个数：")z = InputBox("输入第三个数：")Print " x y z"Print "排序前 ", x, y, z Print "排序后 ";If x > y And x > z Then If y > z Then Print "...
vb任意输入3个整数,按照由小到大排序输出。
Private Sub Command1_Click()Dim a As Single, b As Single, c As Single,t as single a = val(Text1.Text)b = Teval(xt2.Text)c = val(Text3.Text)If a > b Then t=b:b=a:a=t If a > c Then t=c:c=a:a=t If b > c Then t=c:c=b:b=t Text1.Text = ...
vb编程,输入xyz三个数,按从大倒小排列
y=inputbox("请输入第一个数！")z=inputbox("请输入第一个数！")print"排序前" & x & y & z if x>y then a=x:x=y:y=a endif if y>z then a=y:y=z:z=a endif if x>y then a=x:x=y:y=a endif print "排序后" & x & y & z 就完了 我建议你用 第一种 方法 ...
VB编程题 输入xyz三个数,按从小到大的次序显示
源程序如下：1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。3 .要显示多个数据，可以用“；”逐一显示，也可利用“&”字符串连接将多个变量连接显示。解题：先在窗体上画一个按钮，代码如下：Priva...
用VB编写一个程序,输入三个数,按从小到大的顺序输出
"请输入第一个数"))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 If End If End Sub ...
