a = CInt(InputBox("a="))
b = CInt(InputBox("b="))
c = CInt(InputBox("c="))
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
Print "最大:"; a
Print "最小:"; c
End Sub追问
出现子程序未定义怎么办？
本回答被提问者采纳vb inputbox输入三个数字,选出其中最大数和最小数,显示于窗体上怎么弄...
Print "最大:"; a Print "最小:"; c End Sub
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 ...
用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程序 任意输入三个数,找出其中的最大值。
t = InputBox("请输入三个数，中间用空格隔开")a = Split(t, " ")For i = 0 To UBound(a)If a(i) > Max Then Max = a(i)Next MsgBox t & " 中最大值是：" & vbCrLf & Max
vb程序设计,求三个数的最大值和最小值,代码怎么打,尽量简单点不要太...
dim i as integer \/\/使用循环输入的方式输入三个数，并赋值到列表中 for i=0 to 2 Redim list(i)=inputbox()\/\/申明求最大值函数 Function max(list):dim len as integer \/\/申明临时变量用来记录数组长度 dim i as integer,m as integer \/\/申明临时变量 len=ubound(list) \/\/求...
vb编程题,输入3个数,然后输出其中的最大数
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load x = InputBox("键入第一个数")y = InputBox("键入第二个数")z = InputBox("键入第三个数")Max = x If Max < y Then Max = y If Max < z Then Max = z MsgBox("...
用vb编程:输入三个数,求出最大的数
先设abc三个变量作为输入变量 设x为缓冲变量 冒泡法：如果 a>=b 那么 x=a 否则 x=b 如果 x>=c 输出c 否则 输出x 其实这个思路就是 随便两个数比较 ，取出较大的数，然后再与第三个数比较，取出较大的数 最后得出那个一定是最大的。遍历法 ：如果a>=b 那么a=a 否则 a=b 如果a>=c ...
vb 用inputbox函数输入3个任意整数,安从大到小顺序输出 (块if语句...
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: c = z '同理，先把这个较小值给z，把c的值给b，然后把较小值z...
编写VB程序,从键盘上输入三个整数,输出绝对值最小的数
Private Sub Command1_Click()a = Abs(InputBox("请输入第一个整数", "输入数据"))b = Abs(InputBox("请输入第二个整数", "输入数据"))c = Abs(InputBox("请输入第三个整数", "输入数据"))Min = a If b < Min Then Min = b End If If c < Min Then Min = c End If Prin...
从键盘输入任意三个数A,B,C,找出其中的最大数用VB做
a = InputBox("请输入第一个数")b = InputBox("请输入第二个数")c = InputBox("请输入第三个数")If a > b And a > c Then Print "最大数是" & a If b > a And b > c Then Print "最大数是" & b If c > b And c > a Then Print "最大数是" & c End Sub ...
