Private Sub Text2_Click()
Dim i As Integer, j As Integer, tstr As String
For i = 1 To M
score(i, 4) = score(i, 1) * 0.15 + score(i, 2) * 0.25 + score(i, 3) * 0.6
Next i
For i = 1 To M
tstr = tstr + num(i, 1) + Space$(10 - Len(num(i, 1)))
tstr = tstr + num(i, 2) + Space$(10 - Len(num(i, 2)))
For j = 1 To 4
tstr = tstr + Str$((score(i, j))) + Space$(10 - Len(Str$(score(i, j))))
Next j
Text2.Text = tstr & Chr$(10) & Chr$(13)
Next i
End Sub
这就是代码
|