vb达人帮忙写个程序,谢谢
来源:百度知道 编辑:UC知道 时间:2024/09/21 04:25:24
加我百度HI 我给你搞定
正在做,稍等。。。
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button19.Click
Dim banji(12) As Integer, ar(12) As Integer, i As Integer, j As Integer
Dim x As Integer, y As Integer, z As Integer, str As String, str1 As String
For i = 0 To 11
x = CInt(Rnd() * 3) '内容3分,
y = CInt(Rnd() * 3) '语言4分,
z = CInt(Rnd() * 3) '台风3分
banji(i) = x + y + z
Next
ar = banji
Array.Sort(ar)
For i = 0 To 11
If str1 = "" Then
str1 = CStr("第1班得分为" & banji(i))
Else
str1 = str1 + CStr(" 第" & (i + 1) & "班得分为" & banji(i))
End If
Next
'输出每个班的得分
For i = 0 To 11
For j = i To 11