Dim m As String, i As Integer For i = Len(ss) To 1 Step -1 m = m + Mid(ss, i, 1) Next
Text1.Text = UCase(m) End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是 D）001REMBUN
（33）窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名称为Timer1的计时器控件，其属性值为True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：
Private Sub Timer1_Timer()
For k = Line1.X1 To Line2.X1 Step 100
If Shape1.Left + Shape1.Width < Line2.X1 Then Shape1.Left = Shape1.Left + 100 End If Next k End Sub
运行程序时发现圆立即移动到右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是
B）把 For k = Line1.X1 To Line2.X1 Step 100 和Next k两行删除 （34）下列有关文件的叙述中，正确的是
C）随机文件中，每个记录的长度是固定的
（35）窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：
Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text)
For k = 0 To List1.ListCount - 1
If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub
在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”２项，结果如图２所示。这说明程序不能适应所有情况，需要改正。正确的修改方案是把For k=0 to List1.ListCount-1改为
A）For k = List1.ListCount - 1 To 0 Step -1 二、填空题（每空2分，共30分）
（1）某二叉树有5个度为2的结点以及3个度为1的结点，则该二叉树中共有 【1】14 个结点。
（2）程序流程图中的菱形框表示的是【2】 逻辑条件 或 逻辑判断 或 条件或判断。 （3）软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中【3】需求分析 阶段产生“软件需求规格说明书”。
（4）在数据库技术中，实体集之间的联系可以是一对一或一对多的，那么“学生”和“可选课程”的联系为【4】多对多。
（5）人员基本信息一般包括：身份证号，姓名，性别，年龄等。其中可以作为主关键字的是【5】身份证号。
（6）工程中有Form1和Form2两个窗体。Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Command1），则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”。请填空。
Private Sub Command1_Click() If Text1.Text = \ magbox \请输入半径！\
ElseIf Not IsNumeric(【6】Text1.Text) Then MsgBox \请输入数值数据！\Else
r = Val(【7】Text1.Text) Form2.Show
【8】Form2.Print \圆的面积是\ End If End Sub
（7）设有整型变量s，取值范围为0～100，表示学生的成绩，有如下程序段： If s >= 90 Then Level = \ ElseIf s >= 75 Then
Level = \ ElseIf s >= 60 Then Level = \Else Level = \ End If
下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同，请填空。 Select Case s Case【9】 Is >= 95 Level = \ Case 75 To 90 Level = \ Case 60 To 74 Level = \
Case 【10】Else 或 Is<60 Level = \ 【11】End Select
（8）窗体上有名称为Command1的命令按钮。事件过程及2个函数过程如下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z x = 3
y = 5 z = fy(y) Print fx(fx(x)), y End Sub
Function fx(ByVal a As Integer) a = a + a fx = a End Function
Function fy(ByRef a As Integer) a = a + a fy = a End Function
运行程序，并单击命令按钮，则窗体上显示的2个值依次是【12】12和【13】10。 （9）窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此能的程序，请填空。
Private Sub Command1_Click() Text1 = \ Number = FreeFile
Open \ Do While Not EOF(【14】Number) Line Input #Number, s