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

2024-12-21 15:22:13

推荐回答（3个）

回答1：

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

赋值是右向左。

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

回答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

回答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