VB输入任意2个数,选择较大的输出
答案:5 悬赏:80 手机版
解决时间 2021-01-17 21:56
- 提问者网友：鐵馬踏冰河
- 2021-01-17 02:28
VB输入任意2个数,选择较大的输出
最佳答案
- 五星知识达人网友：你可爱的野爹
- 2021-01-17 02:47
Private Sub Command1_Click()
a = Val(InputBox("请输入第一个数"))
b = Val(InputBox("请输入第二个数"))
Print "你输入的数分别是："; a; "和"; b
Print "其中较大数是：";
If a > b Then
Print a
Else
Print b
End If
End Sub
a = Val(InputBox("请输入第一个数"))
b = Val(InputBox("请输入第二个数"))
Print "你输入的数分别是："; a; "和"; b
Print "其中较大数是：";
If a > b Then
Print a
Else
Print b
End If
End Sub
全部回答
- 1楼网友：琴狂剑也妄
- 2021-01-17 05:18
Private Sub Command1_Click()
a = Val(InputBox("输入第一个数"))
b = Val(InputBox("输入第二个数"))
c = IIf(a > b, a, b)
Print "你输入的数分别是："; a; "和"; b; ",较大数是："; c
End Sub
a = Val(InputBox("输入第一个数"))
b = Val(InputBox("输入第二个数"))
c = IIf(a > b, a, b)
Print "你输入的数分别是："; a; "和"; b; ",较大数是："; c
End Sub
- 2楼网友：青尢
- 2021-01-17 05:06
新建工程, 添加一个按钮Command1
Function Max(ByVal a As Doube, ByVal b As Doube) As Doube
If a > b Then
Max = a
Else
Max = b
End if
End Function
Private Sub Command1_Click()
Dim a as Double = val(InputBox("请输入一个数"))
Dim b as Double = val(InputBox("请输入一个数"))
Dim Max as Double =
MsgBox("较大的数为", Max(a,b), "输出")
End Sub
希望对你有帮助.
Function Max(ByVal a As Doube, ByVal b As Doube) As Doube
If a > b Then
Max = a
Else
Max = b
End if
End Function
Private Sub Command1_Click()
Dim a as Double = val(InputBox("请输入一个数"))
Dim b as Double = val(InputBox("请输入一个数"))
Dim Max as Double =
MsgBox("较大的数为", Max(a,b), "输出")
End Sub
希望对你有帮助.
- 3楼网友：零点过十分
- 2021-01-17 04:43
dim a string
dim b string
a=text1.text
b=text2.text
if atext3.text=b
if a=b then
msgbox"两个数相等"
endif
else
text3.text=a
endif
现写的，我没测试 应该 是正确的~
dim b string
a=text1.text
b=text2.text
if atext3.text=b
if a=b then
msgbox"两个数相等"
endif
else
text3.text=a
endif
现写的，我没测试 应该 是正确的~
- 4楼网友：一叶十三刺
- 2021-01-17 03:14
新建一个窗体，在窗体里放入2个textbox，一个Label，一个确定按钮
在确定按钮的click事件里写如下代码：
private sub Command1_Click()
Dim num1,num2 as Double
num1=Val(TextBox1.Text)
num2=Val(TextBox2.Text)
If num1>num2 Then
Label1.Caption="最大数是" & num1
else if num1
Else
Label1.Caption="两个数相等"
End IF
End Sub
在确定按钮的click事件里写如下代码：
private sub Command1_Click()
Dim num1,num2 as Double
num1=Val(TextBox1.Text)
num2=Val(TextBox2.Text)
If num1>num2 Then
Label1.Caption="最大数是" & num1
else if num1
Else
Label1.Caption="两个数相等"
End IF
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯