我介绍一种方法你看看！
我就直接写主程序了（自己定义）！
'Option Base 1 这一句话不能少，加在整个程序前面！
For i = 1 To 3
a(i) = InputBox("请输入一个整数：")
Next i
For i = 1 To 3
m=i
For j = i + 1 To 3
If a(j) < a(m) Then
m=j
End if
Next j
t=a(i)
a(i)=a(m)
a(m)=t
Next i
For i= 1 to 3
Print a(i)
Next i本回答被网友采纳
on error goto NotInt
dim aa as string
dim a1 as integer
dim a2 as integer
dim a3 as integer
aa=inputbox("请输入第1个任意整数")
a1=cint(aa)
aa=inputbox("请输入第2个任意整数")
a2=cint(aa)
aa=inputbox("请输入第3个任意整数")
a3=cint(aa)
if a1<a2 then
if a1<a3 then
s=cstr(a1)
if a2<a3 then
s=s & "<" & cstr(a2) & "<" & cstr(a3)
else
s=s & "<" & cstr(a3) & "<" & cstr(a2)
end if
else
if a2<a3 then
if a2<a3 then
s=s & "<" & cstr(a2) & "<" & cstr(a3)
else
s=s & "<" & cstr(a3) & "<" & cstr(a2)
end if
end if
end if
else
end if
exit sub
NotInt:
msgbox "您输入的" & aa &"不是整数",64,"请确认"
end sub本回答被网友采纳
vb 用inputbox函数输入3个任意整数,安从大到小顺序输出 (块if语句)
Private Sub Form_Click()Dim a As Single, b As Single, c As Single, z As Single a = InputBox("输入a的值", "")b = InputBox("输入b的值", "")c = InputBox("输入c的值", "")If a < b Then z = a: b = a: b = z '先把这个较小值给z，把a的值给b，然后把...
vb问题用inputbox函数输入三个数
为解决上述问题，首先需明确程序的目的，即对输入的三个数进行排序。在修正后的代码中，我们定义数组`aNum(1 To 3)`用于存储输入的三个数值，并使用`InputBox`函数接收输入。接着，通过双层循环实现数值交换，确保数组中的数值按照从大到小的顺序排列。具体实现如下：vb Dim aNum(1 To 3) As Sing...
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制作“输入三个数,从大到小排序”的代码
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编程题 输入xyz三个数,按从小到大的次序显示
源程序如下：1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。3 .要显示多个数据，可以用“；”逐一显示，也可利用“&”字符串连接将多个变量连接显示。解题：先在窗体上画一个按钮，代码如下：Priva...
用VB编写一个程序,输入三个数,按从小到大的顺序输出
Private Sub Form_Load()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...
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求教就是输入3个数字 然后按大小顺序输出
Sub temp()On Error GoTo ErrHandler:Nos = InputBox("请输入3个数字并用半角逗号“,”分开")Dim ResultArray(3)Nos = Nos & ","Start = 1 For i = 1 To 3 NextPos = InStr(Start, Nos, ",")ResultArray(i) = Mid(Nos, Start, NextPos - Start) * 1 Start = NextPos + 1 N...
利用inputbox输入三个数(x、y、z),使它们从大到小显示
i, tmv: Integer;Ok: boolean;begin tm := InputBox('等待输入', '请输入三个数值：', 'x=1000y=200z=30');xv := AnsiPos('x=', tm) + 2;yv := AnsiPos('y=', tm) + 2;zv := AnsiPos('z=', tm) + 2;Value3[0] := StrToIntDef(copy(tm, xv, yv - 2 - xv), ...
使用vb对输入的三个数字由大到小进行排序?
Dim a#, b#, c#, x#, y#, z i: a = InputBox("请输入a")b = InputBox("请输入b")c = InputBox("请输入c")If a = b Or b = c Or a = c Then Print "输入数据无法运算，请重新输入"GoToi End If If a < b Then x = b If x < c Then x = c y = b z =...
