Private Sub jf click()
Dim s As String, d As string, i As Integer
Dim f1 As Single, f2 As Single, f3 As Single
s= Text1. Text
i=1
Do while
d= Mid(s,i,3)
If Mid(d,1,1)="1"Then
f1= f1+ Val(Mid(d.2.2))
Else lf mid(d,1.1)="2 Then
f2= f2+ Val(Mid(d,2,2)
Else
f3=f3+val(Mid(d. 2.2)
End If
Loop
Labell. Caption=”作品1平均分为:"+Str(/5)+”作品2平均分为:" Str(2/5)+″作品3平均分为:"+Str(f3/5)
‘以下省略“处理并列最高平均分,并在 Label2中输出选取的参赛作品”的代码End Sub
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮,则Label1中显示的结果 (选填:会/不会)发生改变。