Question

这个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

Answer 1

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

赋值是右向左。

每次都和已知最大的比，比已知最大的大，更新已知最大的数值。

Answer 2

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

代码如下：

'假设三个数分别是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

Answer 3

a =str（ InputBox("输入", "a=")）
b = str(InputBox("输入", "b="))
c = str(InputBox("输入", "c=")）
If b > a Then max = a
If c > a Then max = b