Print #1, Name,TelNum Close #1 End Sub
二、填空题（每空2分，共计30分）
(1)假设用一个长度为50的数组(数组元素的下标从0到49)作为栈的存储空间,栈底 指针bottom指向栈底元素,栈顶指针top指向栈顶元素,如果bottom=49,top=30(数
租下标),则栈中具有【1】个元素
(2)软件测试可分为白盒测试和黑盒测试。基本路径测试属于【2】测试 (3)符合结构化原则的三种基本控制结构是:选择结构、循环结构和【3】 (4)数据库系统的核心是【4】
(5)在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是【5】框 (6)窗体如图所示,其中汽车是名称为Image1的图像框，命令按钮的名称Command1, 计时器的名称为Timer1,直线的名称为Line1。程序运行时，单击命令按钮，则 汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面 的属性设置和程序，以便实现上述功能。
1)Timer1的Interval属性的值应事先设置为【6】 2)Private Sub Command1_Click() Timer1.Enabled = True End Sub
3)Private Sub Timer1_Timer() If Image1.Left > 【7】 Then Image1.Left = 【8】 - 100 End If End Sub
7.上题【7】的答案是 8.上一题【8】的答案是
9. (7)设窗体上有一个名称为Combo1的组合框,并有以下程序： Private Sub Combo1_KeyPress(KeyAscii As Integer) If 【9】 = 13 Then
For k = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(k) Then Combo1.Text = \Exit For End If Next k
If Combo1.Text <> \
Combo1.AddItem 【10】 End If End If End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中 有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑 区中的文本添加到列表的尾部。请填空。 10. 上一题【10】的答案是
11. (8)在当前目录下有一个名为\的文本文件,其中有若干行文本。下面程序的
功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。
请填空
Private Sub Command1_Click() Dim ch$, ascii As Integer
Open \ For 【11】 As #1 While Not EOF(1) Line Input #1, ch ascii = toascii(【12】) Print ascii Wend Close #1
End Sub
Private Function toascii(mystr$) As Integer n = 0
For k = 1 To 【13】
n = n + Asc(Mid(mystr, k, 1)) Next k toascii = n End Function
12. 上一题【12】的答案是 13. 上一题【13】的答案是
14. (9)本程序实现文本加密。先给定序列:a1,a2,...,an,它们的取值范围是1~n,而且互 不相同。加密算法是:把原文本中第k个字符放到加密后文本的第ak个位置处。若原 文本长度大于n，则只对前面n个字符加密,后面的字符不变；若原文本长度小于n，则
在后面补字符\使文本长度为n后再加密。 例如：若给定序列a1,a2,...a7分别为2,5,3,7,6,1,4 当文本为“PROGRAM\时，加密后的文本为\ 当文本为\时，加密后的文本为\
下面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素
个数相等)a1,a2,a3...的值，要加密的文本放在参数变量mystr中，过程执行完毕，加 密后的文本仍然放在变量mystr中。请填空。
Option Base 1
Private Sub code(a() As Integer, mystr As String) Dim ch As String, c1 As String n = UBound(a) - Len(mystr) If n > 0 Then
mystr = mystr & String$(n, \ End If ch = mystr
For k = 【14】 To UBound(a) c1 = Mid(mystr, k, 1) n = 【15】 Mid(ch, n) = c1 Next k mystr = ch End Sub
15. 上一题【15】的答案是