两道简单的VB．NET遍程题～麻烦高手了！

来源：百度知道 编辑：UC知道 时间：2024/06/16 04:22:00
1. 编写程序段，用随机函数产生10个1～100之间整数，输出最大值
2. 编写程序，在数组A中输入10个整数，输出它们的平均值

开头用什么DIM什么的好了～我大一学生，要期末考试了～可是这个一窍不通，呵呵，麻烦亲了

1.
Private Sub Form_click()
Dim a(10) As Integer
For i = 0 To 9
a(i) = Int(Rnd * 100)
Next i
For i = 0 To 9
Print a(i):
Next i
Max = a(0)
For i = 1 To 9
If a(i) > Max Then
Max = a(i)
End If
Next i
Print "Max="; Max
End Sub

2.
Private Sub Form_click()
Dim a(10) As Integer
For i = 0 To 9
a(i) = InputBox("输入数组中的整数")
Next i
For i = 0 To 9
Print a(i):
Next i
Sum = 0
For i = 0 To 9
Sum = Sum + a(i)
Next i
aver = Sum / 10
Print "平均值="; aver
End Sub

woyebuhui