[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有三个Labe1控件和两个名称分别为COMSTART和COMEXIT，标题分别为“开始”和“退出”的命令按钮。要求程序运行后，单击“开始”按钮后，能将下面给出的三角形写入考生文件夹下的 pictur

在窗体上建立好控件后，先设置控件属性，再编写事件过程。命令按钮的标题由其Caption属性设置，单击命令按钮触发其Click事件；标签的Caption属性用来显示其内容：程序用到String$函数。String函数返回Variant(String)，其中包含指定长度重复字符的字符串。语法：String(number,character)String函数的语法有下面的命名参数：number必要参数；Long。返回的字符串长度。如果number包含Null，将返回Null。character必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串；解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表10-3。第二步：编写程序代码。程序提供的代码：PrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimA(4)AsStringDimB(4)AsStringDimkAsInteger,1AsIntegermyfilel=App.Path&""&"picture.dat"OpenmyfilelForOutputAs#1Fork=1To4’A()=StringS()’B()=StringS()NextkFork=1To4’Print#1,NextkFork=4To1Step-1’Print#1,NextkClose#1’COMSTART.="完成"’COMSTART.Enabled=EndSub参考代码:PrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimA(4)AsStringDimB(4)AsStringDimkAsInteger,1AsIntegermyfilel=App.Path&""&"picture.dat"OpenmyfilelForOutputAs#1Fork=1To4A(k)=String$(k*2-1,"A")B(k)=String$(k*2-1,"B")NextkFork=1To4Print#1,A(k)NextkFork=4To1Step-1Print#1,B(k)NextkClose#1COMSTART.Caption="完成"COMSTART.Enabled=FalseEndSub第三步：调试并运行程序。第四步：按题目要求存盘。(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。程序里用的Screen．Font是系统的字型(类似一个字型数组)，Screen.FontCount是系统字型的个数，其下标从0开始的，所以最后一个下标是Screen.FontCount-1。解题步骤：第一步：编写程序代码。程序提供的代码：PrivateSubCommand1_Click()DimIAsLong’ForI=0To-1’Comb01.AddltemNextEndSub参考代码：PrivateSubCommand1_Click()DimIAsLongForI=0ToScreen.FontCount-1Combol.AddltemScreen.Fonts(I)NextEndSub第二步：调试并运行程序。第三步：按题目要求存盘。