For i = 1 To 5 b(i) = 0
For j = 1 To Len(s(i))
If Mid(s(i), j, 1) >= \
Next j b(i) = total Next i For i = 1 To 5 Print b(i); Next i
2． 如图所示，窗体有两个框架，左边框架中有三个单选按钮（名称分别为Option1，Option2和Option3），单选按钮分别设置了标题为小学、初中、高中；右边的框架中是一个列表框（名称为List1）；两个框架中间是命令按钮（标题为存放结果，名称为Command1），命令按钮功能：单击命令按钮，清除列表框中的内容，然后将选中单选按钮的标题放入列表框中。
程序中有两处错误，分布在两行，请将完整的错误行和相应的正确行写在答题纸横线上。（不能改变程序行数，不能增加函数）
Private Sub Command1_Click() Dim s As String List1.Clear s = \Select Case 1 Case Option1.Value s = s + Option1.Caption Case Option2.Value s = s + Option2.Caption Case Option3.Value
计算机专业理论试题A卷 第17页 共 13页
s = s + Option3.Caption End Select List1.Text = s End Sub
八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序完整正确）
1．(Visual Basic试题)下面程序是从键盘输入少于20个字符的字符串，然后对字符串从左端进行处理。处理方法：把字符串中后跟“#”的数字放入数组a中，如果是数字但后面没有“#”则不存放。如输入的字符串为“12#a2bc3#d45#6e7”,则12、3、45分别存放到数组a的前三个元素中。请填空。
Option Base 0
Private Sub Command1_Click() Dim s As String Dim c As String Dim i As Integer Dim j As Integer Dim a(10) As Integer Dim num As Integer Dim w As Integer
Dim flag As Integer '标志：为0表示前一个字符非数字，为1表示前一
字符为数字
num = 0: i = 1: flag = 0: j = 0 s = InputBox(\w = Len(s) Do While i <= w c = Mid(s, i, 1)
If c >= \
num = num * 10 + Val(c): (1) End If
If flag = 1 And c = \
(2) : j = j + 1: flag = 0: num = 0 End If
If (c < \ flag = 0: num = 0 End If i = i + 1 Loop
For i = 0 To j - 1
计算机专业理论试题A卷 第18页 共 13页
Print a(i); Next i End Sub
2、(Visual Basic试题)
窗体中有一文本框(名称Text1)，一组合框(名称Combo1，已添加5个条目)，一滚动条（名称Hs1，min和max分别为1和5），一定时器控件（名称Timer1），定时器的Enabled属性初始为False，Interval属性值1000（1秒），一命令按钮(标题为开始，名称Command1)。程序功能：（1）开始命令按钮功能：启动定时器工作；（2）定时器Timer1事件功能：一是清空文本框，二是在文本框中显示组合框中选中的数字，选中数字几，就在文本框中显示几个该数字，如选中3，则在文本框中显示3个3，三是把滚动条的Value值改为组合框中选定的值，四是把定时器的Timer1事件触发时间改为与所选中的组合框的值一致的秒数。不完整的空白位置请写出正确的内容。
Private Sub Command1_Click() Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Dim i As Integer Dim k As Integer Text1.Text = \
k = Val( (3) ) For i = 1 To k
Text1.Text = Text1.Text + Combo1.Text Next i
计算机专业理论试题A卷 第19页 共 13页
Hs1.Value = Combo1.Text
(4) = Combo1.Text * 1000 End Sub
3．(Visual FoxPro试题)程序的功能是：输入字符串，将字符串中的所有不是数字、字母的字符删除；将字母字符移到数字字符尾部，各自保持原来的先后顺序，形成新的字符串输出。如输入的字符串为“1Wq+2_3A”，则输出“123WqA”。程序如下，请在空白位置填写正确的代码。
CLEAR
ACCEPT \请输入字符串：\ （5） ?XX
FUNCTION SHUCHU PARAMETERS SS N=LEN(SS) DIME A(N) FOR I=1 TO N
A(I)=SUBSTR(SS,I,1) ENDFOR B=\ C=\ FOR I=1 TO N
IF (A(I)>=\ （6） ELSE
IF (A(I)>=\ （7） ENDIF ENDIF ENDFOR SS=B+C RETURN SS
计算机专业理论试题A卷 第20页 共 13页