期中考试(后)

众所周知,期中考试是一件非常令人愉悦的事情。

首先,回到上个星期五。那时的我刚刚写完了一篇博客,准备借牙套损坏的机会好好休息一下,满足自己受到辣鸡学校折磨的心灵。那篇博客中,有这样几段话:

首先是考试。这次月考我本来想的是没有复习凑合一下,为期中考留点进步空间,但万万没有想到的是,我居然 居然 居然 就考出了个总分全班第二,3+3 全班第一。真的是我自己都没有想到,因为根据上学期的经验,我应该是在班级第三十几的。

班主任(就是那个想把我们全班大头照印在大塑料板上贴墙上但未遂的疯狂陕西大汉)突然对我寄托厚望,我……emmm……突然好慌啊。

我,毒奶成功了。

语文?爆炸。数学?爆炸。英语?更爆炸。就连最有信心的技术,也因为信息技术的粗心、通用技术的落后而变得不再有竞争力。

下周二或三,就是万众瞩目的家长会。我还能不能活着回来接着写博客,就要看老师们的语言水平了。

值得注意的是,班主任(数学老师)在考试前说:

“这次考试是 XX 教育(没听清)出的卷,质量还是可以的,所以总体难度值也会大一点…….”

要是让我知道这个出卷的是谁,我……emmm……也干不了什么。十五校联考的卷,果然不负众望。


以下附上令人恶心、过时、高考还在考的、本次考试中的压轴 VB 大题。

袜子颜色配对问题。现有不同颜色的袜子若干(袜子的颜色用数字编号 1~15 表示),颜色相同的袜子才能组成一双,其中有几只袜子是落单的。现要求找出落单袜子的颜色以及能够配对的袜子数量。

编写程序解决该问题,程序运行时,在文本框 Text1 中依次输入袜子的颜色编号(数据都用逗号分隔并以逗号结尾),单击“查找”按钮,在列表框 List1 中输出落单袜子的颜色编号,在标签 Label1 中显示能配对的袜子数量。运行界面如图所示,实现上述功能的 VB 程序如下。

请回答下列问题。

(1)写出 VB 代码中的方法名_____(只需填一个方法名);

(2)根据题意,请在划线处填入合适代码;

(3)第 21 行程序代码有错,请改正。

basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Const n = 15
Private Sub Command1_Click
Dim a(1 To n) As Integer '数组a存放不同颜色袜子的数量,默认值为0
Dim s As String, ch As String
Dim c As Integer, i As Integer, t As Integer
List1.Clear
s = Text1.Text
t = 0 : c = 0 : i = 1
Do While i <= Len(s)
ch = Mid(s,i,1)
If ch >= "0" And ch <= "9" Then
t = t * 10 + Val(ch)
Else
a(t) = ___①___
t = 0
End If
i = i + 1
Loop
For i = 1 To n
If ___②___ Then List1.AddItem "落单袜子的颜色为" + Str(i)
c = c + a(i)
Next i
Label1.Caption = "能配对的袜子有" + Str(c) + "双"
End Sub

第三小题能写出来的都是大佬。

分享到: