1、3. 综合应用题在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个图片框，名称为Pic1、Pic2，分别用来表示信号灯和汽车，其中在Pic1 中轮流装入考生文件夹下的“yellow.ico“和“red.ico“、“green.ico“文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车移动。运行时，信号灯不断变换，单击“开始开车“按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯等，则停止移动，当变为绿灯后再继续移动。要求：在窗体中已经给出了全部控件和全部程序，但程序结构有误
2、，程序运行时不能实现所述功能。要求改变现有程序的顺序，但不可添加或删减任何程序代码，以实现题目所述功能。最后把修改后的文件以原文件名存盘。程序运行时的窗体界面如图62-5所示。Private s As IntegerPrivate Sub Cmd1_Click()Timer2.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Enabled = TrueTimer2.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()s = s + 1If s 6 Thens = 1End IfSelect Cas
3、e sCase 1Pic1.Picture = LoadPicture(App.Path Text1.TextClose #3综合应用（1小题，计30分）在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为 datain.txt的文本文件，其内容如下：86 97 13 24 35 46 57 68 79 80 59 37 32 43 76 58 28 12 98 57 31 42 53 64 75程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat 中，在窗体上按5行5列的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗
4、体上显示出来，如图43-5所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。Option Base 1Private Sub Form_Click()Const N = 5Const M = 5Dim Mat(5, 5)Dim Sum, i, jOpen App.Path Mat(i, j);Next jPrintNext iSum = 0For j = 1 To MSum = Sum + Mat(3, j)Next jP
5、rintPrint “第三行各项的和为：“;Print SumEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。2简单应用（2小题，每题20分，计40分）（1）在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符(即 号)，但不能修改其他其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有三个Label控件和两个名称分别为 COMSTART和COMEXIT，标题分别为“开始“和“退出“的命令按钮。要求程序运行后，单击“开始“按钮后，能将下面给出的三角形写入考生文件夹下的picture.
6、dat文件中；执行完毕 “开始 “按钮,变成“完成“，且无效（变灰）。程序运行界面如图10-4所示。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB图 10-4（2）在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符(即 号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有一个名称为Command1,标题为“读取字型“的命令按钮，一个名称为Combo1的下拉组合框和一个提示标签Label1。要求程序运行后，单击“读取字型“按钮读取系统的字型，在Combo1中显示。
7、如图10-5所示。参考代码：Private Sub COMEXIT_Click()EndEnd SubPrivate Sub COMSTART_Click()Dim A(4) As StringDim B(4) As StringDim k As Integer, l As Integermyfile1 = App.Path SumOpen App.Path & “ & “sjt5.dat“ For Output As #1Print #1, SumClose #1COMSTART.Caption = “完成“COMSTART.Enabled = FalseEnd SubFunction Item(A, k)Dim P As String, Q As String, S As SingleDim i As Integer, H As SingleP = “For i = 1 To kQ$ = Str$(A)P$ = P$ + Q$Next iS = Val(P$)H = H + SItem = HEnd Function第二步：调试并运行程序。第三步：按题目要求存盘
