对于用户输入的3个数值a,b,c,请输出他们中间最大的数vb中经过我看了一遍,大概的是这样的代码.我只是自己做的,可能会不正确哦.Dim a%,b%,c%a = Val(InputBox("输入a"))b = Val(InputBox("输入b"))c = Val(Input
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/28 00:39:10
对于用户输入的3个数值a,b,c,请输出他们中间最大的数vb中经过我看了一遍,大概的是这样的代码.我只是自己做的,可能会不正确哦.Dim a%,b%,c%a = Val(InputBox("输入a"))b = Val(InputBox("输入b"))c = Val(Input
对于用户输入的3个数值a,b,c,请输出他们中间最大的数
vb中
经过我看了一遍,大概的是这样的代码.我只是自己做的,可能会不正确哦.
Dim a%,b%,c%
a = Val(InputBox("输入a"))
b = Val(InputBox("输入b"))
c = Val(InputBox("输入c"))
If a = a Then
Print c
Else
Print a
End If
If a < b And b > c Then Print b
对于用户输入的3个数值a,b,c,请输出他们中间最大的数vb中经过我看了一遍,大概的是这样的代码.我只是自己做的,可能会不正确哦.Dim a%,b%,c%a = Val(InputBox("输入a"))b = Val(InputBox("输入b"))c = Val(Input
private sub command1.click()
dim a,b,c as double '由于不知道用户会输入什么类型的数,所以我觉得最好定义为双精度型
a = CDbl(inputbox("请输入a"))'由用户输入一个值,将它转化为双精度型,并赋给a
b = CDbl(inputbox("请输入b"))'由用户输入一个值,将它转化为双精度型,并赋给b
c = CDbl(inputbox("请输入c"))'由用户输入一个值,将它转化为双精度型,并赋给c
if a < b then a = b'如果a比b小,就把b的值赋给a;如果a不比b小就跳过这一步.结果是使a的值等于原先a与b中较大的那个值
if a < c then a = c'如果a比c小,就把c的值赋给a;如果a不比c小就跳过这一步.结果是使a的值等于原先a与c中较大的那个值,此时也就是原先abc三个数中最大的那个值
call msgbox("最大的数是" & a)'将最后得到的那个最大值以交互函数msgbox()的形式输出给用户
end sub