|
#2
流星10272015-09-30 22:00
只有本站会员才能查看附件，请 登录 Public Class Form1 Dim mark(9) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer Randomize() Label1.Text = "" For i = 0 To 9 mark(i) = Int(Rnd() * 71) + 30 & " " Label1.Text &= mark(i) & " " Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim b, max As Integer Dim c, min As Integer max = mark(0) For b = 0 To 9 If mark(b) > max Then max = mark(b) End If Next Label3.Text = max min = mark(0) For c = 0 To 9 If mark(c) < min Then min = mark(c) End If Next Label5.Text = min End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim aver, a, p, g As Single For a = 0 To 9 aver = aver + mark(a) Next p = aver / 10 For a = 0 To 9 If mark(a) > p Then g = g + 1 Next Label7.Text = p Label9.Text = g End Sub End Class 自己附上答案 |
Public Class Form1
Dim mark(9) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Randomize()
Label1.Text = ""
For i = 1 To 10
Label1.Text &= Int(Rnd() * 71) + 30 & " "
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim b, c, max, min As Integer
max = mark(0)
For b = mark(0) To mark(9)
If mark(b) > mark(0) Then
max = mark(b)
End If
Next
min = mark(0)
For c = 0 To 9
If mark(c) > mark(0) Then
max = mark(c)
End If
Next
Label3.Text = max
Label5.Text = min
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim aver, a As Single
aver = 0
For a = mark(0) To mark(9)
mark(a) &= Int(Rnd() * 71) + 30 & " "
aver = aver + mark(a)
Next
mark(9) = aver / 10
Label7.Text = mark(9)
End Sub
End Class