VB输入任意2个数,选择较大的输出

Posted 2023-04-22

如何写程序，要求任意输入2个数，选择较大的输出
我需要代码

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 新建一个窗体，在窗体里放入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<num Then
Label1.Caption="最小数是" & num2
Else
Label1.Caption="两个数相等"
End IF

End Sub 参考技术B 新建工程, 添加一个按钮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

希望对你有帮助. 参考技术C dim a string
dim b string
a=text1.text
b=text2.text

if a<b then
text3.text=b
if a=b then
msgbox"两个数相等"
endif
else
text3.text=a
endif

现写的，我没测试 应该 是正确的~ 参考技术D Private Sub Command1_Click()

a = Val(InputBox("输入第一个数"))
b = Val(InputBox("输入第二个数"))
c = IIf(a > b, a, b)
Print "你输入的数分别是："; a; "和"; b; ",较大数是："; c
End Sub

VB编程题 输入xyz三个数,按从小到大的次序显示

参考技术A 这是
我按照你的要求改的
你看看
x=inputbox("请输入第一个数！")
y=inputbox("请输入第一个数！")
z=inputbox("请输入第一个数！")
print"排序前"
&
x
&
y
&
z
if
x>y
then
a=x:x=y:y=a
endif
if
y>z
then
a=y:y=z:z=a
endif
if
x>y
then
a=x:x=y:y=a
endif
print
"排序后"
&
x
&
y
&
z
就完了
我建议你用
第一种
方法
不懂的可以联系我！！！！