vb编程题,输入3个数,然后输出其中的最大数

发布网友 发布时间：2022-04-29 17:19

我来回答

共5个回答

热心网友 时间：2023-10-22 21:26

Public Class Form1
Dim x, y, z As Integer
Private Property Max As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
MsgBox("输入的三个数分别是" & x & "、" & y & "、" & z & "中最大的数为：" & Max)
End Sub
End Class

热心网友 时间：2023-10-22 21:27

Private Sub Command1_Click()
x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
Print "最大值"; Max
End Sub

热心网友 时间：2023-10-22 21:26

Public Class Form1
Dim x, y, z As Integer
Private Property Max As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
MsgBox("输入的三个数分别是" & x & "、" & y & "、" & z & "中最大的数为：" & Max)
End Sub
End Class

热心网友 时间：2023-10-22 21:27

a=inputbox("输入","输入")
b=inputbox("输入","输入")
c=inputbox("输入","输入")
if a>b then max=a
else max=b
next if
if c>max then max=c
next if
帮帮你吧 自己编的 不会问我 欢迎

热心网友 时间：2023-10-22 21:28

Private Sub Command1_Click()
If Val(Text1)>Val(Text2) Then Max=Val(Text1)
If Val(Text3)>Max Then Max=Val(Text3)
Text4=Max
End Sub
按下按钮,比较3个文本框中数字大小
输出到文本框4

热心网友 时间：2023-10-22 21:27

Private Sub Command1_Click()
x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
Print "最大值"; Max
End Sub

热心网友 时间：2023-10-22 21:27

a=inputbox("输入","输入")
b=inputbox("输入","输入")
c=inputbox("输入","输入")
if a>b then max=a
else max=b
next if
if c>max then max=c
next if
帮帮你吧 自己编的 不会问我 欢迎

热心网友 时间：2023-10-22 21:28

private sub command1_click()
dim max
for i = 1 to 3
n=val(inputbox("输入第" & i & "个数"))
if n>max then
max =n
end if
next
print "三个数中最大的数是" & max

热心网友 时间：2023-10-22 21:28

Private Sub Command1_Click()
If Val(Text1)>Val(Text2) Then Max=Val(Text1)
If Val(Text3)>Max Then Max=Val(Text3)
Text4=Max
End Sub
按下按钮,比较3个文本框中数字大小
输出到文本框4

热心网友 时间：2023-10-22 21:26

Public Class Form1
Dim x, y, z As Integer
Private Property Max As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
MsgBox("输入的三个数分别是" & x & "、" & y & "、" & z & "中最大的数为：" & Max)
End Sub
End Class

热心网友 时间：2023-10-22 21:28

private sub command1_click()
dim max
for i = 1 to 3
n=val(inputbox("输入第" & i & "个数"))
if n>max then
max =n
end if
next
print "三个数中最大的数是" & max

热心网友 时间：2023-10-22 21:27

Private Sub Command1_Click()
x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
Print "最大值"; Max
End Sub

热心网友 时间：2023-10-22 21:27

a=inputbox("输入","输入")
b=inputbox("输入","输入")
c=inputbox("输入","输入")
if a>b then max=a
else max=b
next if
if c>max then max=c
next if
帮帮你吧 自己编的 不会问我 欢迎

热心网友 时间：2023-10-22 21:28

Private Sub Command1_Click()
If Val(Text1)>Val(Text2) Then Max=Val(Text1)
If Val(Text3)>Max Then Max=Val(Text3)
Text4=Max
End Sub
按下按钮,比较3个文本框中数字大小
输出到文本框4

热心网友 时间：2023-10-22 21:28

private sub command1_click()
dim max
for i = 1 to 3
n=val(inputbox("输入第" & i & "个数"))
if n>max then
max =n
end if
next
print "三个数中最大的数是" & max

热心网友 时间：2023-10-22 21:26

Public Class Form1
Dim x, y, z As Integer
Private Property Max As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
MsgBox("输入的三个数分别是" & x & "、" & y & "、" & z & "中最大的数为：" & Max)
End Sub
End Class

热心网友 时间：2023-10-22 21:27

Private Sub Command1_Click()
x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
Print "最大值"; Max
End Sub

热心网友 时间：2023-10-22 21:27

a=inputbox("输入","输入")
b=inputbox("输入","输入")
c=inputbox("输入","输入")
if a>b then max=a
else max=b
next if
if c>max then max=c
next if
帮帮你吧 自己编的 不会问我 欢迎

热心网友 时间：2023-10-22 21:28

Private Sub Command1_Click()
If Val(Text1)>Val(Text2) Then Max=Val(Text1)
If Val(Text3)>Max Then Max=Val(Text3)
Text4=Max
End Sub
按下按钮,比较3个文本框中数字大小
输出到文本框4

热心网友 时间：2023-10-22 21:26

Public Class Form1
Dim x, y, z As Integer
Private Property Max As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
MsgBox("输入的三个数分别是" & x & "、" & y & "、" & z & "中最大的数为：" & Max)
End Sub
End Class