练习卷五一、语言基础题（40分）判断题（本题10分，每小题1分）1. 可以在窗体的通用部分声明静态变量。
2. 事件过程也可以用Sub过程调用语句进行调用。
3. 表达式#5/22/99 6:22:30 PM# - #4/22/99#的值是数值型的。
4. 表达式 -5^2 > Rnd*10 的值为False.5. 对象的Top和Left属性值都必须大于或等于零。
6. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值。
7. 执行Hscroll1.Value=Hscroll1.Value+1赋值语句，就会产生Hscroll1滚动条的Change事件。
8. 每个Vb对象都有Name属性。
9. 组合框ComboBox和列表框ListBox都有Selected属性。
10. CommonDialog 对象的ShowSave方法能保存用户指定的文件。
单选题（本题10分，每小题1分）1. 菜单条的顶层菜单控件＿＿。
[A] 不允许设置快捷键[B] 允许设置快捷键[C] 不存在ShortOut属性[D] 有子菜单时允许有快捷键2. 当某文本框对象具有焦点时，击键盘上的一个键会触发该文本框对象的KeyPress事件，＿＿。
[A] 该事件发生在文本框对象的KeyDown事件前。
[B] 该事件发生在文本框对象的KeyDown事件后。
[C] 随后便发生文本框对象的Lick事件。
[D] 随后便发生文本框对象的 GotFocus事件。
3. 程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值＿＿。
[A] 增加一个SmallChange量[B] 减少一个SmallChange量[C] 增加一个LargeChange量[D] 减少一个LargeChange量4. 执行Form1.Scale (10,-20)-(-30,20)语句后，Form1窗体座标系X和Y轴的正方向是＿＿。
[A] 向左和向下[B] 向右和向上[C] 向左和向上[D] 向右和向下5. 执行List1.List(List1.ListCount)= “80”语句后，＿＿。
[A]会产生出错信息[B] List1列表框最后一个表项被改为“80”[C] List1列表框会增加一个“80”表项[D] 指定List1列表框的表项个数为80个6. 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在＿＿。
[A] Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive和在Dir1的Change事件过程中加入File1.Path=Dir1.Path代码[B] Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path ,在Dir1的Change事件中加入Dir1.Path = File1.Path代码[C] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程中加入File1.Path=File1.Filename代码[D] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程中加入File1.Path=Dir1.Path代码7. 在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form_Load事件过程中加入＿＿语句。
[A] Text1.Index=0 [B] Text1.TabIndex=0[C] Text1.Appearance=0 [D] Text1.Tag=08. 窗体Form、框架Frame、图片框Picture、图像框Image中＿＿是容器控件。
[A] Image、Form、Frame [B] Frame、Picture、Image[C] Picture、Image、Form [D] Form、Frame、Picture9. Dim B1,B2 As Boolean语句显式声明变量＿＿。
[A] B1和B2都为布尔型变量[B] B1是整型，B2是布尔型变量[C] B1是变体型，B2是布尔型变量[D] B1和B2都为是变体型变量10. 如果文本框Text1的GotFocus事件过程有Text1.Text=“abcd”: Text1.SelStart=1 :Text1.SelLength=2代码，程序运行时，当文本框获得焦点后，文本框内会＿＿。
[A] 显示abcd且ab字符被选取[B] 显示abcd且bc字符被选取[C] 显示选取的ab字符[D] 显示选取的bc字符填空题（本题20分，每小题2分）1. 表达式-2^2+43\5的值是＿＿＿＿。
2. 函数Int(Rnd*10)产生的随机数范围是＿＿＿＿。
3. 循环语句For I=20 To 10 Step –3.3 … Next的循环次数是＿＿＿＿。
4. 用＿＿＿＿方法可以在列表框中插入列表项。
5. Do Until 条件… Loop 循环结构中，当条件为＿＿＿＿时结束循环。
6. Text文本框能接受的最长字符数由文本框的＿＿＿＿属性确定。
7. 执行＿＿＿＿语句，会清除Picture1l图片框内的图片。
8. 如果要新建一个顺序文件，用Open语句时，操作方式关键词是＿＿＿＿。
9. 要设置命令按钮的背景色，首先必须使它的Style属性值设置为＿＿＿＿。
10.Msgbox函数的数据类型是＿＿＿＿。
二、程序阅读题（本题20分，每小题5分）1. 写出单击窗体的运行结果Private Sub Form_Click()For I=1 To 5Print Tab(11-I);For J=1 To I*2-1Print “*”;NextPrintNext IEnd Sub2. 写出单击窗体的运行结果Option Base 1Private Sub Form_Click()Dim a(5, 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 5For j = 1 To 5If j <= i Thena(i, j) = 1End IfPrint a(i, j); " ";Next jPrintNext iEnd Sub3. 程序运行时，连续二次单击窗体后，写出屏幕上显示的结果：Dim x As IntegerPrivate Sub Form_Load()x = 2End SubPrivate Sub Form_Click()Static a As IntegerDim b As Integer,y As Integerb = x ^ 2abc x, ba =a+ xy=y+bPrint a, b, x,yEnd SubSub abc(ByRef y As Integer, ByVal z As Integer)y = y + zz = y - zEnd Sub4. 写出单击窗体的运行结果Private Sub Form_Click()Dim a(4, 4) As IntegerDim c As Integer, r As IntegerDim i As Integer, j As Integer, k As Integerc = 4: r = 1: i = 1: j = 1For k = 1 To 16a(i, j) = kIf i < c And j = r Theni = i + 1ElseIf i = c And j < c Thenj = j + 1ElseIf i > r And j = c Theni = i - 1ElseIf i = r And j > r + 1 Thenj = j - 1End IfIf i = r And j = r + 1 Thenc = c - 1r = r + 1End IfNextFor i = 1 To 4For j = 1 To 4Print Tab(j * 4); a(i, j);If j = 4 Then PrintNextNextEnd Sub三、程序填空题（本题20分，每空2分）1.程序启动后，界面如右图所示：输入两点坐标，单击命令按钮，显示座标系、座标原点和两点的连线.Private Sub Form_Load()Command1.Caption = "显示连线"Picture1.Scale (-100, 100)-(100, -100)Frame1.＿＿(1)＿＿= "输入两点坐标"Label1.Caption = "x1"Label2.Caption = "y1"Label3.Caption = "x2"Label4.Caption = "y2"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text1.TabIndex = 0End SubPrivate Sub Command1_Click()Picture1.Currentx=-30Picture1.Currenty=0Picture1.Print ＿＿(2)＿＿Picture1.Line ＿＿(3)＿＿Picture1.Line ＿＿(4)＿＿Picture1.Line ＿＿(5)＿＿End Sub2.冒泡排序BubbleSort过程是冒泡排序过程,使a数组中的数按降序排列。
Swap过程交换两个变量数值。
GenerateData过程产生10个[1，20]之间互不相同的随机整数存入a数组。
程序如下：Private Const n = 10Private a(1 To n) As IntegerPublic Sub BubbleSort()Dim i As Integer, j As IntegerGenerateDatai = 1DoFor j = i + 1 To nIf a(j) > a(i) Then＿＿(1)＿＿End IfNext ji = i + 1Loop While ＿＿(2)＿＿Form1.Print "排序结果"For i = 1 To nForm1.Print a(i);Next iEnd SubPublic Sub GenerateData()Dim i As IntegerDim j As IntegerDim b As BooleanFor i = 1 To nb = FalseDo While ＿＿(3)＿＿a(i) = Int(20 * Rnd + 1)b = TrueFor j = 1 To ＿＿(4)＿＿If a(i) = a(j) Thenb = FalseExit ForEnd IfNext jLoopForm1.Print a(i)Next iEnd SubPublic Sub Swap(Byref a As Integer, Byref b As Integer)Dim temp As Integertemp = aa =＿＿(5)＿＿b = tempEnd Sub四、 程序设计题（本题20分，每小题10分）1. 通讯录程序设计：程序启动后，界面如右图所示：(1)当用户在文本框内输入完一个同学的记录后，单击“添加”命令按钮，则记录字段加入各数组和组合框的List 集内。