题目

小王编写了VB程序，功能如下：在窗体Form1的文本框Text1中输入要统计的人数，单击"统计"按钮运行程序，统计前n人的每科选课情况，数组a(1 to 300)中保存了每位同学的7选3科目(例如:a(1)="物化技")，数组b(1 to 7)用来保存“政史地物化生技”各科选课人数。 （1） 窗体Form1的属性中没有的是（单选，填字母：A .Text /B .Caption/ C .Width） （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。 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 ① ② ③  （3） 程序中加框处代码有错，请改正。 答案： 【1】A 【1】Val(Text1.text)【2】pos (i)【3】str( b(i) ) Mid(temp, j ,1) = Mid(s, k, 1)

查看本题答案和解析