还有这吧呢。

要水在这里说
有什么问题也在这里讲

我爱你！

Public Class Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(100) As Integer
Dim i As Integer = 0
Dim mx As Integer = 0
Dim rnd As New Random
Label2.Text = ""
For i = 1 To 100
a(i) = rnd.Next(1, 100)
If a(i) < 60 Then
mx = mx + 1
Label2.Text += a(i).ToString + " "
If mx Mod 10 = 0 Then Label2.Text += Chr(13) + Chr(10)
End If
Next
Label4.Text = mx.ToString
End Sub
End Class