Question

Visual Basic问题

请写出VB代码（要用到if…then…else语句、print语句）
题目：从键盘任意输入三个数，求其中的最大数和最小数

Answer 1

刚才那个错了 没看清楚要最小的 我重新改下
Private Sub Form_Click()
Dim a(3) As Integer, b As Integer, c As Integer, d As Integer
a(1) = InputBox("请输入第1个数")
c = a(1)
d = a(1)
For b = 2 To 3
a(b) = Val(InputBox("请输入第" & b & "个数"))
If a(b) > c Then
c = a(b)
End If
If a(b) < d Then
d = a(b)
End If
Next b
Print c; Space(5); d
End Sub

这样可以吗

Answer 2

Private Sub Command1_Click()
Dim a(3) As Integer
For i = 1 To 3
a(i) = InputBox("请输入第" & i & 个数, "数据输入")
Next i
maxx = a(1)
For j = 1 To 2
For k = 1 To 3 - j
If a(k) > a(k + 1) Then
t = a(k)
a(k) = a(k + 1)
a(k + 1) = t
End If
Next k
Next j
Print "最大数是:"; a(3)
Print "最小数是:"; a(1)
End Sub

Answer 3

楼上的太麻烦了，看我的
Private Sub Command2_Click()
a = InputBox("输入第一个数")
b = InputBox("输入第二个数")
c = InputBox("输入第三个数")
IF a<b then t=a:a=b:b=t
if a<c then t=a:a=c:c=t
if b<c then t=b:b=c:c=t
print "最大数：";a
print "最小数：";c

End Sub