Private Sub Command1_Click()
Dim i As Integer
Randomize
Text1.Text = ""
For i = 1 To 20
Text1.Text = Text1.Text & Int(Rnd() * 100 + 1) & " "
If i Mod 5 = 0 Then Text1.Text = Text1 & vbCrLf 'æ¯çæ5个æ°æ¢è¡ éè¦æText1çMultiLineå±æ§ 设置为 True
Next
Text1.Text = Left(Text1, Len(Text1) - 1) 'å é¤å符串æåé¢å¤ä½çç©ºæ ¼
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim a As Integer
If Len(Text1) = 0 Then Exit Sub
For i = 0 To UBound(Split(Text1, " ")) 'æ±å
a = a + Val(Split(Text1, " ")(i))
Next
Text2.Text = Round(a / (UBound(Split(Text1, " ")) + 1) * 100) / 100 'å¹³åå¼åèäºå
¥ ç两ä½å°æ°
End Sub
温馨提示:内容为网友见解,仅供参考