编写VB程序:输入三个数,然后按从大到小的顺序在窗体上显示出来

很急!

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim max As Integer, min As Integer

a = Val(InputBox("输入第1个整数", "Input"))
b = Val(InputBox("输入第2个整数", "Input"))
c = Val(InputBox("输入第3个整数", "Input"))

max = a
If b > max Then max = b
If c > max Then max = c

min = a
If b < min Then min = b
If c < min Then min = c

Print max, a + b + c - max - min, min
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-06-04
Dim i, j As Integer
Dim a(1 To 3) As Integer
Dim maxa As Integer
For i = 1 To 3
a(i) = Val(InputBox("请输入第" & i & "个数"))
Next i

For i = 1 To 3
maxa = a(i)
For j = i To 3
If maxa < a(j) Then

maxa = a(j)
a(j) = a(i)
a(i) = maxa
End If
Next j

Next i
For i = 1 To 3
Print a(i)
Next i
第2个回答  2010-06-05
Option Base 1
Dim a(3) As String
Dim i As Integer
Dim j As Integer
Dim x As String
Private Sub Command1_Click()
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "个值")
Next i
For i = 1 To 2
For j = i + 1 To 3
If a(i) > a(j) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next j
Next i
For i = 1 To 3
Print Tab((i * 5) - 1); a(i);
Next i
End Sub
第3个回答  2019-09-28
使用一个输入框的话就需要确定3个数字的分隔符,然后用split函数把inputbox的字符串拆开。
如果使用三个字符串可以这样写:
dim
a,
b,
c,
d,
e
as
single
a
=
val(inputbox("请输入第一个数字"))
b
=
val(inputbox("请输入第二个数字"))
c
=
val(inputbox("请输入第三个数字"))
d
=
a
+
b
+
c
e
=
d
/
3
msgbox
"和值:"
&
d
&
"
"
&
"平均值:"
&
e

VB编程题 输入xyz三个数,按从小到大的次序显示
源程序如下:1. 利用InputBoxb函数输入3个数,存放到数值型变量中,然后对其进行比较。2. 对三个数进行排序,只能通过两两对比,一般可用三条单分支IF语句来实现。3 .要显示多个数据,可以用“;”逐一显示,也可利用“&”字符串连接将多个变量连接显示。解题:先在窗体上画一个按钮,代码如下:Priva...

用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 > ...

vb inputbox输入三个数字,选出其中最大数和最小数,显示于窗体上怎么弄...
Print "最大:"; a Print "最小:"; c End Sub

用vb编程在文本框输入一个三位数,单击窗体后,在窗本打印输出该数的个...
VB内置的常用函数里就有这个功能 mid函数:比如你在text1中输入的三位数是123 a=text1.text text2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前两个字符,再比如是mid(a,1,3)意思就是从第一个开始的前三个字符,要实现你要求的功能就是text2.text=mid(a,1,1)+" ...

用VB怎么设计程序在窗体上就建立三个命令按纽 单机后分别使窗体最大化...
代码如下:Option Explicit Private Sub Command1_Click() '最小化 Me.WindowState = 1 End Sub Private Sub Command2_Click() '最大化 Me.WindowState = 2 End Sub Private Sub Command3_Click() '还原 Me.WindowState = 0 End Sub

用vb编程在文本框输入一个三位数,单击窗体后,在窗本打印输出该数的个...
用这样的语句:dim k,m(3) as integer 'K为一个三位数'dim i as integer=0 while i<3 m(i)=k mod 10 k=(k-(k mod 10))\/10 i=i+1 end while m(i)就可以表示个位百位十位了 然后用窗体输出就可以了 试一下吧

用VB,任意输入三个实数a,b,c(用inputbox实现输入),求三个数中的最大数...
Private Sub Form_Click()a = InputBox("输入第一个数")b = InputBox("输入第二个数")c = InputBox("输入第三个数")If a > b And a > c Then Print a; b; c & vbCrLf & a; "是最大值"If b > a And b > c Then Print a; b; c & vbCrLf & b; "是最大值"If c ...

VB中给三个数排序的具体程序
1、启动VB6.0,新建一个标准exe工程。2、在窗体上绘制一个命令按钮,名称为Command1。3、双击命令按钮进入代码窗口。4、编写命令按钮的单击事件。定义一个一维数组A有10个元素(1-10),随机产生一批两位数的随机数,有序地装入A(i)中,输出A(i),排序完成时方便观察比较。5、编写程序中核心的...

编写VB程序,求三个数中最大值MAX。要求:用文本框输入整数,用标签显示结 ...
窗体上放3个文本框text1,text2,text3和一个标签Label1,一个按钮Command1,双击按钮,里边输入以下代码 max=val(text1.text)a=val(text2.text)b=val(text3.text)if max<a then max =a if max

用vb编写在文本框输入一个三位数,单击窗体后,在窗本打印输出该数的个...
参答案:贝多芬《第五"命运"交响曲》是贝多芬九部交响曲中最通俗的一部,也是所有交响曲中最为人们津津乐道的一部。这部交响曲完成于1805年,有人这样评论:"贝多芬就是在这部交响曲上成为一个巨人的"。"命运"二字,源于第一乐章的主部主题,贝多芬曾说:"命运就是这样敲门的。"这部作品的主题是"从黑暗到...

相似回答