vb这道题怎么解

题目：从键盘输入5个整数，输出所有输入的数据和其中的最大数。

Private Sub Command1_Click()
Dim num(5) As Integer
Dim i%, max%
For i = 1 To 5
num(i) = InputBox("请输入第" & i & "个整数")
If max < num(i) Then max = num(i)
Next
Print "输入的五个整数是："
For i = 1 To 5
Print num(i);
Next
Print
Print "最大的整数是："; max
End Sub

如果还要算出最小数该怎么改？

Private Sub Command1_Click()
Dim num(5) As Integer
Dim i%, max%,min%
For i = 1 To 5
num(i) = InputBox("请输入第" & i & "个整数")
Next
max=num(1):min=num(1)
for i = 2 to 5
If max < num(i) Then max = num(i)
If min > num(i) Then min = num(i)
next i
Print "输入的五个整数是："
For i = 1 To 5
Print num(i);
Next
Print
Print "最大的整数是："; max
Print "最小的整数是："; min
End Sub
先要让最大数和最小数为num(1)
不然你输入比0小的数就出错了

Private Sub Command1_Click()
Dim num(5) As Integer
Dim i%, max%,min%
For i = 1 To 5
num(i) = InputBox("请输入第" & i & "个整数")
If max < num(i) Then max = num(i)
If min > num(i) Then min = num(i)
Next
Print "输入的五个整数是："
For i = 1 To 5
Print num(i);
Next
Print
Print "最大的整数是："; max
Print "最小的整数是："; min
End Sub

<

vb这道题怎么做 vb这样的语句怎么解? VB这样的过程怎么解 怎么学好VB啊 怎么下载VB软件 递归怎么解释 VB vb换行怎么用 怎么才能学会VB VB怎么申请内存 怎么去学VB