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 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 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
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
相关推荐：
loading