VB编程题：任意输入三个数，找出其中最大数？
答案:2 悬赏:0 手机版
解决时间 2021-04-28 21:29
- 提问者网友：末路
- 2021-04-27 22:37
VB编程题：任意输入三个数，找出其中最大数？
最佳答案
- 五星知识达人网友：爱难随人意
- 2021-04-27 22:56
form添加一个按钮,复制代码,运行,输出最大数
Private Sub Command1_Click()
Dim a, b, c
a = Val(InputBox("请输入a:"))
b = Val(InputBox("请输入b:"))
c = Val(InputBox("请输入c:"))
If a < b Then a = b
If a < c Then a = c
MsgBox "最大数是: " & a
End Sub
Private Sub Command1_Click()
Dim a, b, c
a = Val(InputBox("请输入a:"))
b = Val(InputBox("请输入b:"))
c = Val(InputBox("请输入c:"))
If a < b Then a = b
If a < c Then a = c
MsgBox "最大数是: " & a
End Sub
全部回答
- 1楼网友：等灯
- 2021-04-27 23:25
Private Sub Command1_Click()
Dim a, b, c
a = Val(InputBox("请输入a:"))
b = Val(InputBox("请输入b:"))
c = Val(InputBox("请输入c:"))
if a>b then d=a
else d=b
if c>d then x= c
else x=c
MsgBox "最大数是: " & a
End Sub
Dim a, b, c
a = Val(InputBox("请输入a:"))
b = Val(InputBox("请输入b:"))
c = Val(InputBox("请输入c:"))
if a>b then d=a
else d=b
if c>d then x= c
else x=c
MsgBox "最大数是: " & a
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯