对于用户输入的3个数值a,b,c,请输出他们中间最大的数vb中经过我看了一遍,大概的是这样的代码.我只是自己做的,可能会不正确哦.Dim a%,b%,c%a = Val(InputBox("输入a"))b = Val(InputBox("输入b"))c = Val(Input
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 12:23:36
![对于用户输入的3个数值a,b,c,请输出他们中间最大的数vb中经过我看了一遍,大概的是这样的代码.我只是自己做的,可能会不正确哦.Dim a%,b%,c%a = Val(InputBox(](/uploads/image/z/14473444-4-4.jpg?t=%E5%AF%B9%E4%BA%8E%E7%94%A8%E6%88%B7%E8%BE%93%E5%85%A5%E7%9A%843%E4%B8%AA%E6%95%B0%E5%80%BCa%2Cb%2Cc%2C%E8%AF%B7%E8%BE%93%E5%87%BA%E4%BB%96%E4%BB%AC%E4%B8%AD%E9%97%B4%E6%9C%80%E5%A4%A7%E7%9A%84%E6%95%B0vb%E4%B8%AD%E7%BB%8F%E8%BF%87%E6%88%91%E7%9C%8B%E4%BA%86%E4%B8%80%E9%81%8D%2C%E5%A4%A7%E6%A6%82%E7%9A%84%E6%98%AF%E8%BF%99%E6%A0%B7%E7%9A%84%E4%BB%A3%E7%A0%81.%E6%88%91%E5%8F%AA%E6%98%AF%E8%87%AA%E5%B7%B1%E5%81%9A%E7%9A%84%2C%E5%8F%AF%E8%83%BD%E4%BC%9A%E4%B8%8D%E6%AD%A3%E7%A1%AE%E5%93%A6.Dim+a%25%2Cb%25%2Cc%25a+%3D+Val%28InputBox%28%22%E8%BE%93%E5%85%A5a%22%29%29b+%3D+Val%28InputBox%28%22%E8%BE%93%E5%85%A5b%22%29%29c+%3D+Val%28Input)
对于用户输入的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