这个VB程序求三个数中最大值有什么问题?

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入", "a=")
b = InputBox("输入", "b=")
c = InputBox("输入", "c=")
a = Max
If b > a Then b = Max
If c > a Then c = Max
Print Max
End Sub

Dim Max as Integer = a '假设 a 是最大 (它也是已知最大的数)
If b > max Then Max = b '如果b 比 max(已知最大的数) 大,更新max
If c > max Then Max = c '同上

赋值是右向左。

每次都和已知最大的比,比已知最大的大,更新已知最大的数值。
温馨提示:内容为网友见解,仅供参考
第1个回答  2015-10-20

先设定某个值为最大,然后和其它的两个比较一下,就得出结果了。

代码如下:

'假设三个数分别是x,y,z
dim maxium as integer '定义变量
maxium =x '先设置某个值
if  y>maxium then maxium=y '如果Y比它大,变量改为Y
if z>maxium then maxium=z '如果z比它大,变量改为z
Print "最大值:" & maxium

第2个回答  2012-06-19
a =str( InputBox("输入", "a="))
b = str(InputBox("输入", "b="))
c = str(InputBox("输入", "c="))
If b > a Then max = a
If c > a Then max = b

VB题“判断三个数中最大的数”其中的问题
strtemp = strtemp & "三个数中最大的数:"'这时,strtemp的内容就是 “1,2,3三个数中最大的数:”If a > b And a > c Then strtemp = strtemp & a End If '如果条件 a大于b 并且 a大于c那么 strtemp的内容是 ' 1,2,3三个数中最大的数:1 If b > a And b > c Then st...

用vb编程:输入三个数,求出最大的数
这个思路就是永远让a的值保持在三个数中最大的 最后输出x就可以了 三个数的比较有点特殊 所以冒泡和遍历看起来差别不大 如果是n个数的话 推荐遍历法比较简便 逻辑也更清晰

编写VB程序,求三个数中最大值MAX。要求:用文本框输入整数,用标签显示结 ...
if max<a then max =a if max

vb编程题,输入3个数,然后输出其中的最大数
MsgBox("输入的三个数分别是" & x & "、" & y & "、" & z & "中最大的数为:" & Max)End Sub End Class

求编一个 vb程序 任意输入三个数,找出其中的最大值。
Dim Max%, i%, t$, a 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:定义并调用函数,求任意三个整数中的最大值
请输入一个数字!", "提示")Print a(i)Next i Print "最大数是" & largenum(a)End Sub Function largenum(a() As Double) As Double Dim i As Integer, max As Double max = a(1)For i = 1 To 3 If max < a(i) Then max = a(i)Next i largenum = max End Function ...

在VB编程中求最大和最小数
在VB编程中,求解最大和最小数的问题可以通过多种算法解决,其中冒泡排序法是其中一种。下面,我们就通过冒泡排序法来实现这个问题。首先,我们需要一个数组来存储这些数。例如,我们有五个数:X[1] = 2, X[2] = 5, X[3] = 1, X[4] = 4, X[5] = 3。我们将这些数赋给数组。然后,...

vb程序设计,求三个数的最大值和最小值,代码怎么打,尽量简单点不要太...
Val(InputBox("输入第2个数:"))z = Val(InputBox("输入第3个数:"))If x < y Then t = x x = y y = t End If If x < z Then t = x x = z z = t End If If y < z Then t = y y = z z = t End If Print "最大值:";x Print "最小值:";z ...

VB代码 求三个数中的最大数和最小数
for j= i+1 to 3 if a(i)》a(j) then temp=a(i)a(i)=a(j)a(j)=temp end if next j next i 这个代码是选择出最小数字的。比较方法还有很多,比如,直接排序法,冒泡排序法,等等。看你需要什么了,上面的方法是比较排序法,是最基础的,你因该能看的明白~祝你VB学习一路顺风!

VB 编写一个程序求3个数的最大和最小值
Picture1.Print "最大值是" & MaxABC & "," & MaxABC & "=" & Max End Sub Private Sub Command2_Click()Call MaxAndMin Picture1.Cls Picture1.Print "最小值是" & MinABC & "," & MinABC & "=" & Min End Sub Private Sub MaxAndMin()'定义3个变量存放3个text的值,并计算...

相似回答