Question

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

详细的编程代码

Answer 1

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

Answer 2

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

Answer 3

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
帮帮你吧 自己编的 不会问我 欢迎

Answer 4

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

Answer 5

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