两道简单的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