VB编程题：任意输入三个数，找出其中最大数？
2个回答
展开全部
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
已赞过
已踩过<
你对这个回答的评价是？
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程，scratch和python也是其中的一种，属于入门级编程，以其简单生动的画面获得无数学生的喜爱，深圳市创客火科技有限公司是一家做教育无人机的公司，旗下有编程无人机，积木无人机及室内外编队，每款飞机含有...
点击进入详情页
本回答由--提供
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
