题型：综合题 题类：常考题 难易度：普通
浙江省绍兴市2019-2020学年高二下学期信息技术期末调测技术试卷
编写程序实现如下功能：Text1输入7课成绩“,”分隔，单击“分析”按钮Command1后，在标签Label2上显示三门优势学科与总分，程序运行界面如图所示：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, sum As Integer
Dim s As String, ch As String, t As String, dm As String, xk As String
Dim a(1 To 7)As Integer, b(1 To 7)As Integer, c(1 To 7)As Integer
dm = "物化生政史地技"
s = Text1.Text
n = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = "," Then
n = n + 1
a(n) = Val(t)
Else
t = t + ch
End If
Next i
For i = 1 To 7
b(i) = 1
Next i
For i = 1 To 6
For j = i + 1 To 7
If a(i) < a(j) Then
b(i) = b(i) + 1
Else
End If
Next j
Next i
For i = 1 To 7
Next i
xk = "你的优势科目为："
sum = 0
For i = 1 To 3
xk = xk + Mid(dm, c(i), 1)
sum = sum + a(c(i))
Next i
Label2.Caption = xk + ",三科总分：" + Str(sum)
End Sub
试题篮
