sub
command1_click()
dim
a
as
long,
b
as
long,
c
as
long
a
=
inputbox("请输入第1个数的值",
"提示")
b
=
inputbox("请输入第2个数的值",
"提示")
c
=
inputbox("请输入第3个数的值",
"提示")
d
=
iif(iif(a
>
b,
a,
b)
>
c,
iif(a
>
b,
a,
b),
c)
x
=
iif(iif(a
<
b,
a,
b)
<
c,
iif(a
<
b,
a,
b),
c)
z
=
a
+
b
+
c
-
d
-
x
cls
a
&
"
,
"
&
b
&
"
,
"
&
c
&
"按从大到小排列为"
&
d
&
"
>
"
&
z
&
"
>
"
&
x
end
sub
==============================
如果是vb.net
，可以用math类的max，min方法，呵
a = Val(InputBox("请输入数值："))
b = Val(InputBox("请输入数值："))
c = Val(InputBox("请输入数值："))
If b > a Then
d = a: a = b: b = d
End If
If c > a Then
d = a: a = c: c = d
End If
If c > b Then
d = b: b = c: c = d
End If
Print a, b, c
End Sub本回答被网友采纳
vb 用inputbox函数输入3个任意整数,安从大到小顺序输出 (块if语句)
a = InputBox("输入a的值", "")b = InputBox("输入b的值", "")c = InputBox("输入c的值", "")If a < b Then z = a: b = a: b = z '先把这个较小值给z，把a的值给b，然后把较小值z传递给b，保证a最后存储大的数，b存储较小数 If a < c Then z = a: c = a...
用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求教就是输入3个数字 然后按大小顺序输出
Exit Sub ErrHandler:MsgBox ("需要输入3个数字并用半角逗号“,”分开")Exit Sub End Sub
VB的:输入三个数X、Y、Z,按从小到大的顺序输出这三个数
THEN 后面直接换行！（或加冒号 : ）你的程序太乱！题目中是X、Y、Z，程序中是a、b、c，一会儿又有m、n 这样写：Private Sub Command1_Click()X = Text1.Text: Y = Text2.Text: Z = Text3.Text If X>Y Then m = X : X = Y : Y = m If X>Z Then m = X : X = Z :...
vb问题用inputbox函数输入三个数
为解决上述问题，首先需明确程序的目的，即对输入的三个数进行排序。在修正后的代码中，我们定义数组`aNum(1 To 3)`用于存储输入的三个数值，并使用`InputBox`函数接收输入。接着，通过双层循环实现数值交换，确保数组中的数值按照从大到小的顺序排列。具体实现如下：vb Dim aNum(1 To 3) As ...
用VB编写程序,使得任意输入3个整数按大到小的顺序输出。能用if...
当然能用If嵌套。在窗体上添加4个文本框和1个按钮，Text1、Text2和Text3输入，Text4输出。Private Sub Command1_Click()Dim a As Integer Dim b As Integer Dim c As Integer a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a > b Then If a > c Then If b > ...
...从键盘上任意输入3个数,按从大到小的顺序输出他们
Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer a = InputBox("请输入一个整数：")b = InputBox("请再输入一个整数：")c = InputBox("请输入最后一个整数：")Print a, b, c If a < b Then d = a a = b b = d End If If a < c Then d = a...
输入abc三个数,按从小到大的顺序输出vb语言
a = Val(InputBox("请输入a"))b = Val(InputBox("请输入b"))c = Val(InputBox("请输入c"))If a < b Then If b < c Then Print a; b; c ElseIf a < c Then Print a; c; b Else Print c; a; b End IfElse If a < c Then Print b; a...
“编写程序,输入三个整数,按照由大到小的顺序进行输出。”求程序代码...
import java.util.Scanner;\/** * 由控制台输入三个数，并升序排序 * * @author young * *\/public class Example {public static void main(String[] args) {int num1, num2, num3;Scanner sc = new Scanner(System.in);System.out.println("输入第一个数：");num1 = sc.nextInt();...
编写一个程序从键盘输入三个整数,将它们按由大到小的顺序输出到屏幕...
void main(){ int a[3];int t,cc=0;printf("请输入三个整数：\\n");for(int i=0;i<=2;i++)scanf("%d",&a[i]);for(i=0;i<2;i++){ for(j=i+1;j<3;j++){ if(a[i]>a[j]){t=a[i];a[i]=a[j];a[j]=t;cc++;} c++;} } printf("结果是：")for(int i=...
