题型：综合题 题类：常考题 难易度：普通
浙江省温州新力量联盟2019-2020学年高二下学期信息技术期中联考试卷
Dim n As Integer, i As Integer, m As Integer, s As String, temp As String
Dim a(1 to 300) As String, b(1 to 7) As Integer
Private Sub Form_Load()
'读取每位同学的选课科目，保存到数组a(1 to 300)中，代码略
End Sub
Private Sub Command1_Click()
n = ①
s = "政史地物化生技" : temp=""
For i = 1 to n
temp = temp + a( i )
Next i
For i = 1 to len(temp)
m = ②
b(m) = b(m) + 1
Next i
For i = 1 to len(s)
list1.Additem Mid( s, i, 1 ) + ③ + "人"
Next i
End Sub
Function pos(j As Integer ) As Integer '该函数用于查找科目在s中的位置
Dim k as Integer
For k = 1 to len(s)
If 
Then pos = k : Exit For
Next k
End Function
① ② ③
试题篮
