计算机专业第二次月考试题

List1.Text = s End Sub

七、程序填空（本大题共4个空，每空5分，共20分，按程序要求在答题纸上填入相应的内容，使程序完整正确）

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值改为组合框中选定的值，四是把定时

5

器的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

一、选择题:

1-5 6-10 二、判断题：

1-5： 三、填空题：

1、 2、

答题卡

3、 4、 5、 四、程序分析题：

五、运行结果题：

1、 2、 3、 六、改错题：

1、错误行 正确行 2、错误行 正确行 3、错误行 正确行 4、错误行 正确行 七、程序填空题：

1、 2、 3、 4、

6