vb上机考试操作题.doc

Vb上机操作题四、基本操作题1在考生文件夹中，完成以下要求：解题步骤：(重点提示)（1）通过浏览器进入考生文件夹，双击“Sjt.Vbp”（如果看不到扩展名，则需要在浏览器的“工具”“文件夹选项”“查看”中，把“隐藏已知文件类型的扩展名”前面的去掉）；在“工程”菜单中选择“工程属性”，把工程名称改为Spks；把窗体的“名称”改为vbbc；把窗体的caption属性值改为 二级VB考试（2）以下各个控件的位置，参照下土。在窗体上添加时钟控件（其名称默认为Timer1），把它的interval属性设置为10；添加图片框（picturebox），在picture1添加标签，将这个标签的autosize属性设置为true；在窗体上添加标签，将其caption属性设置为快；在窗体上添加文本框、水平滚动条，将这个水平滚动条的min属性设置为0，max属性设置为100；（3）按如下方式在各个对象的相应事件里写入代码：（4）运行这个程序；点击保存 （1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”，窗体的标题为“二级VB考试”。（2）在窗体上增加以下控件：定时器Timer1，时间间隔值为10；图片框Picture1；标签Label1放置在图片框中，标签的大小自动调整；标签Label2的标题为“快”；文本框Text1放置在图片框下方；水平滚动条HScroll1，最小值为0,最大值为100 。（3）按如下要求编写代码： 文本框中输入的字符自动显示为标签的标题；标签自动向左移动，移出图片框后又从右边进入（提示：编程使得当标签的Left-1000时，重置Left10000）；拖动水平滚动条时，将调整移动的速度。 （4）请先调试、运行，然后将工程、窗体保存。参考程序代码如下：Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value 水平滚动条的值越小，timer事件执行间隔越小，标签运动越快End SubPrivate Sub Text1_Change() Label1.Caption = Text1.TextEnd SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left 100 标签距离picture1左边界的距离减少100单位 If Label1.Left -1000 Then Label1.Left = 10000End Sub2在考生文件夹中，完成以下要求：解题步骤：（1）通过浏览器进入考生文件夹，双击“Sjt.Vbp”（如果看不到扩展名，则需要在浏览器的“工具”“文件夹选项”“查看”中，把“隐藏已知文件类型的扩展名”前面的去掉）；在“工程”菜单中选择“工程属性”，把工程名称改为Spks；把窗体的“名称”改为vbbc（2）参照下图，在相应位置添加各个控件，并更改相应属性；左边红色内容，应当更改option1的value属性为true；（3）打开窗体的代码窗口，在“通用”声明段里，写上public xb,jg ；在窗体的load事件里，写上图下所示代码，（4）运行这个程序；点击保存 （1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。（2）请在适当位置添加控件：三个标签，Label1标题为“姓名：”，Label2标题为“籍贯：”， Label3标题为空；一个框架Frame1标题为“性别”；两个单选按钮在框架Frame1中，Option1标题为“男”,Style属性为1且为选中状态，Option2标题为“女”，Style属性为1；一个文本框Text1内容为空，且Tabindex属性值为0；一个列表框List1；一个命令按钮Command1，标题为“确定”。（以上操作在属性窗口中完成）（3）在窗体模块中声明全局变量xb，jg；在窗体的装载事件中完成：列表框添加三项内容：“北京”，“上海”，“合肥”，且“北京”选项默认被选中，xb变量的初始值为“男”。(4)按如下要求编写代码：选中Option1时，为变量xb赋值为“男”；选中Option2时，为变量xb赋值为“女”；选中列表框的某一项时，把选中的内容赋值给jg (要求在列表框的Click事件中实现)；单击按钮Command1时，在Label3中顺次显示姓名（Text1中的内容），籍贯（变量jg的值）,性别（变量xb的值）。运行后如图所示：(5)请先调试、运行，然后将工程、窗体保存。参考程序如下： Public jg, xbPrivate Sub Command1_Click()Label3.Caption = Text1.Text & ： & jg & , & xbEnd SubPrivate Sub Form_Load()List1.AddItem 北京List1.AddItem 上海List1.AddItem 合肥xb = 男List1.ListIndex = 0 使得运行时列表框中被选中的初始值为“北京”End SubPrivate Sub List1_Click()jg = List1.TextEnd SubPrivate Sub Option1_Click() xb = 男End SubPrivate Sub Option2_Click() xb = 女End Sub3在考生文件夹中，完成以下要求：(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。(2)请在适当位置添加控件：一个驱动器列表框Drive1；一个目录列表框Dir1；一个文件列表框File1，自动过滤出扩展名为bmp和jpg的图形文件；一个图像框Image1，其中的图片自动匹配图像框的大小。（以上操作在属性窗口中完成）(3)按要求编写代码使得驱动器列表框、目录列表框和文件列表框同步工作；文件列表框中显示扩展名为bmp和jpg的图形文件；当单击文件列表框中的某个图形文件时，图像框中显示出该图片（可为机器上任意扩展名为bmp和jpg的图形文件）。运行后，如下图所示： 本题较容易，是课本第八章前两面的原题（仅仅过滤的文件类型不同）(4)请先调试、运行，然后将工程、窗体保存。参考程序如下：Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Image1.Picture = LoadPicture(File1.Path & & File1.FileName)End Sub4在考生文件夹中，完成以下要求：(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。文本框的maxlength属性值为11(2)请在适当位置添加控件：一个标签Label1,标题改为“请输入手机号：”；一个文本框Text1,其值设为空，允许输入的字符数最多为11个；两个命令按钮Command1、Command2，标题分别改为“确定”、“取消”（以上操作在属性窗口中完成）。(3)要求窗体装载时，文本框的值取“13”，输入手机号码时，一旦键入非数字字符，用Msgbox给出“请输入数字符号”的提示信息；输入手机号码后，单击“确定”按钮，如果数字符号不足11位，用Msgbox给出“手机号码为11位数字”的提示信息，反之，用Msgbox给出是“联通用户”还是“移动用户”或者是“空号”的判定结果（第三位数字为0、1、3是联通用户，5、6、7、8、9为移动用户，其它为“空号”，要求用Select Case 结构实现）；单击“取消”按钮可结束程序运行。运行界面如下图。(4)请先调试、运行，然后将工程、窗体保存。参考程序如下：Private Sub Command1_Click() If Len(Trim(Text1.Text) 11 Then MsgBox (手机号为11数字) Text1.Text = 13 Text1.SelStart = 3 text1.setfocus Else Select Case Mid(Text1.Text, 3, 1) 从Text1的第3位取1个字符 Case 0, 1, 3 MsgBox (联通用户) Case 5, 6, 7, 8, 9 MsgBox (移动用户) Case Else MsgBox (空号) End Select End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1.Text = 13text1.tabindex=0Text1.SelStart = 3End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) 9 Then MsgBox (请输入数字符号) KeyAscii = 0End IfEnd Sub5在考生文件夹中，完成以下要求：(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。(2)请在适当位置添加控件：一个文本框Text1，其值置为空，两个命令按钮Command1、Command2，标题分别为“添加”、“删除” ，Command2的Enabled属性值设为假；一个列表框List1。（以上操作在属性窗口中完成）(3)要求程序运行时，单击“添加”按钮，若文本框中有内容，则将文本框中的内容添加到列表框中。选中列表框中的某一项，命令按钮“删除”有效，单击“删除”按钮可将该项删除。运行效果如下图。 (4)请先调试、运行，然后将工程、窗体保存。参考程序如下：Private Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text End IfEnd SubPrivate Sub Command2_Click() If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex End IfEnd SubPrivate Sub Form_Activate() Text1.SetFocusEnd SubPrivate Sub List1_Click() Command2.Enabled = True End Sub6在考生文件夹中，完成以下要求：(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。(2)请在适当位置添加控件：一个标签Label1，标题为“等级考试”；两个命令按钮Command1、command2标题分别为“移动”、“暂停”，Command2的Enabled属性值设为False，一个时钟控件Timer1，其Enabled属性值设为False,Interval属性值设置为500。（以上操作在属性窗口中完成）(3)要求程序运行时，单击“移动”按钮可使Timer1、 Command2有效；时钟控件每隔半秒触发一次Timer事件，该事件触发时可将标签向左移动60缇，一旦整个标签出了窗体左端，要求标签再从窗体的右端开始移动，单击“暂停”按钮可使时钟控件失效。运行效果如下图。 (4)请先调试、运行，然后将工程、窗体保存。参考程序如下：Private Sub Command1_Click() Command2.Enabled = True Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If Label1.Left + Label1.Width = 0 Then Label1.Left = Label1.Left - 60 Else Label1.Left = Form1.Width End IfEnd Sub五、简单应用题1在考生文件夹中，完成以下要求：(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“数据计算”。(2)请在窗体适当位置增加以下控件：一个标签Label1，标题为“计算结果”；一个文本框Text1；两个命令按钮（名称分别为C1和C2，标题分别为“计算”和“保存”），如图所示。本题先执行第5条要求，再执行才能达到效果 (3)编写程序计算S的近似值，直到最后一项的绝对值小于10-5为止（要求将存放结果的变量类型定义成单精度浮点型）。(4)要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，将结果存入考生文件夹中的文件“kssj.dat”中。(5)在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前的工程中，直接调用该过程。(6)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。第（5）步添加的prog1.bas文件中的代码如下：Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End Sub 参考程序如下：Private Sub Command1_Click() For n = 101 To 200 Step 2 f = 1 For i = 2 To n - 1 If n Mod i = 0 Then f = 0: Exit For Next i If f = 1 Then s = s + n Next n Text1.Text = sEnd SubPrivate Sub Command2_Click() Call putdata(kssj.dat, Text1.Text)End Sub2在考生文件夹中，完成以下要求：(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“字符串个数”。(2)请在窗体适当位置增加以下控件：文本框1（名称为Text1，Multiline属性为True，ScrollBars属性为2）；文本框2（名称为Text2）和三个命令按钮（名称分别为C1、 C2和C3，标题分别为“读入数据”、“显示结果”和“保存”），如图所示。本题必须先执行第4条要求，并研究所添加模块中的代码。在所添加模块中定义了对文件进行操作的过程，必须弄清楚这个过程的参数含义，明确调用参数的个数、顺序和类型。 (3)要求程序运行后，单击“读入数据”按钮，读入“ini.txt”文件中的内容，同时在文本框text1中显示出来；然后单击“显示结果”按钮，统计出字符串“and”出现的次数，并把结果在文本框Text2中显示出来；最后单击“保存”按钮，把该结果（Text2的值）存入考生文件夹中的文件“kssj.dat”中。（4）在考生文件夹下有标准模块Prog1.bas，其中的getdata过程可以读出文件“ini.txt”中的内容，Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前工程中，直接调用过程。(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。第（4）步添加的prog1.bas文件中的代码如下：Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End SubSub getdata(t_FileName As String, t_Str As Variant)读文件函数 Dim sFile As String, Strname As String sFile = & t_FileName Open App.Path & sFile For Input As #1 Do While Not EOF(1) Line Input #1, strname t_Str = t_Str & strname & chr(13) & chr(10) Loop Close #1 End Sub 参考程序如下： Dim Count1 As IntegerPrivate Sub C1_Click( ) Call getdata(ini.txt, Str1) Text1.Text = Str1End SubPrivate Sub C2_Click( ) Dim Len1 As Integer Dim i As Integer Dim Str1 As String Str1 = Text1.Text i = 1 Len1 = Len(Text1.Text) For i = 1 To Len1 - 3 If Mid(Str1, i, 3) = and Then Count1 = Count1 + 1 End If Next i Text2.Text = Count1End SubPrivate Sub C3_Click( ) putdata kssj.dat, Count1End Sub3在考生文件夹中，完成以下要求：(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”。(2)请在窗体适当位置增加以下控件：两个标签label1，label2，标题分别为“平均数为：”，“大于平均数的个数为：”；三个文本框Text1，Text2，Text3；Text1的Multiline的属性为True，ScrollBars属性为2，文本均为空白；两个命令按钮Command1,Command2，标题分别为：“读数并计算”，“保存”；将窗体标题改为“求平均数”（如图所示）。(3)要求程序运行后，单击“读数并计算”按钮，则读入“ini.txt”文件中的50个整数显示在Text1中，同时在Text2中显示这些整数的平均数，在Text3中显示大于平均数的个数。单击“保存”按钮将大于平均数的个数（Text3的值）存入考生文件夹中的文件“kssj.dat”中。(4)在考生文件夹下有标准模块Prog1.bas，其中Getdata过程可以读出文件“ini.txt”中的数据，Putdata过程可以把结果存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。第（4）步添加的prog1.bas文件中的代码如下：Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End Sub 参考程序如下:Private Sub Command1_Click() Dim s As Integer Dim Sum As Integer Dim Ave As Single Dim A(50) As Integer Dim strName As String Sum = 0 Ave = 0 Text1 = sFile = & t_FileName Open App.Path & ini.txt For Input As #1 读数到数组中 Do While Not EOF(1) Line Input #1, strName i = i + 1 A(i) = Val(strName) Sum = Sum + A(i) Text1.Text = Text1 & A(i) & Chr(13) & Chr(10) Loop Close #1 Ave = Sum / 50 计算大于平均数的个数 For i = 1 To 50 If A(i) Ave Then s = s + 1 End If Next i Text2.Text = Ave Text3.Text = sEnd SubPrivate Sub Command2_Click() Print s putdata kssj.dat, Text3.TextEnd Sub4在考生文件夹中，完成以下要求：(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“排序”。(2)请在窗体适当位置增加以下控件：两个标签Label1和Label2(标题分别为“排序之前”和“排序之后”)；两个列表框List1和 List2；三个命令按钮（均为默认名称，标题分别为“读取数据”、“排序”和“写入文件”），如图所示。 (3) 要求：程序运行后(1) 单击“读取数据”按钮，读入“ini.txt”文件中的50个数据，同时在列表框List1中显示出来(2) 单击“排序”按钮，在List2中显示出从大到小的排列顺序(3) 单击“写入文件”按钮，把List2中内容存入考生文件夹中的文件“kssj.dat”中。(4)考生文件夹下有标准模块Prog1.Bas，其中getdata过程可以读出文件“ini.txt”中的数据，putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前的工程中，直接调用过程。(5)将工程、窗体与模块保存，然后调试、运行并生成可执行文件Prog1.exe。第（4）步添加的prog1.bas文件中的代码如下： Option Explicit public A(500) as integer public N as integerSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For APPEND As #1 Print #1, t_Str Close #1End Subsub getdata() 读文件函数 dim i as integer open app.path & ini.txt for input as #1 i=1 do while not eof(1) input #1,A(i) i=i+1 loop N=i-1 close #1end sub 编程题评卷结果如下： 所建工程得分：0分 所建的窗体得分：0分 尚未生成.exe文件！ 尚未生成答案文件！编程题最后得分：0分排序的方法有多种，下面给出冒泡排序的算法，其它排序算法请参考有关书籍。参考程序如下：Private Sub Command1_Click() getdata For i = 1 To 50 List1.AddItem A(i) Next iEnd SubPrivate Sub Command2_Click() For i = 1 To 50 For j = 1 To 50 - i If A(j) 男 女其中,括号内的字符为热键；各菜单与子菜单的名称与标题相同，但不含热键； - ：下一级菜单；“女”：该菜单项不可见。注意本图的各菜单项顺序及级别所有标点符号（括号）为英文符号“工程”菜单，“添加窗体”，“现存” （2）将考生文件夹下的窗体文件Sjt.frm添加进本工程。“文件”菜单，“生成.exe”执行的时候一定要把每一个菜单项都执行一下Form1.show 因为这个窗体名称为form1 （3）除“专业”菜单的Click()事件调用Sjt.frm窗体，“退出”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。 （4）调试运行并生成可执行程序： Menu1.exe。2在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求： （1）菜单格式与内容如下:方法类同上题分隔符的标题值是一个英文的减号- 格式(O) 窗口(W) 图层 ()水平平铺 颜色 垂直平铺 - 返回（Ctrl+B）其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键；()：复选标记； Ctrl+B：设置为快捷键。 （2）将考生文件夹下的窗体文件SJT.frm添加进本工程。 （3）除“图层”菜单的Click()事件调用SJT.frm窗体，“返回”子菜单的Click()事件执行End语句，其它菜单和子菜单不执行任何操作。 （4）调试运行并生成可执行程序：Menu1.exe。方法类同上题分隔符的标题值是一个英文的减号-3在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：（1）菜单格式与内容如下: 插入(I) 窗口(W) 曲面 ()水平平铺 特征 排列图标 - 返回(Ctrl+B. 其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键；()：复选标记；Ctrl+B：设置为快捷键；“特征”：该菜单项呈浅灰色，无效，不可用。（2）将考生文件夹下的窗体文件Sjt.frm添加进本工程。（3）除“曲面”子菜单的Click()事件调用Sjt.frm窗体，“返回”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。（4）调试运行并生成可执行程序：Menu1.exe。4在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：（1）菜单格式与内容如下:方法类同上题分隔符的标题值是一个英文的减号- 编辑(E) 插入(I) 查找 图片 替换(Ctrl+H) 文本框 - 退出其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键； Ctrl+H：设置为快捷键。（2）将考生文件夹下的窗体文件Sjt.frm添加进该工程。（3）除“替换”菜单的Click()事件调用Sjt.frm 窗体，“退出”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。（4）调试运行并生成可执行文件：Menu1.exe。5在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：方法类同上题分隔符的标题值是一个英文的减号-（1）菜单格式与内容如下: 排序(S) 窗口(W) 升序 ()平铺 降序 层叠 - 退出 (Ctrl+X)其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键；()：复选标记；Ctrl+X：设置为快捷键。（2）将考生文件夹下的窗体文件Sjt.frm添加进该工程。（3）除“降序”菜单的Click()事件调用Sjt.frm 窗体，“退出”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。（4）调试运行并生成可执行程序：Menu1.exe。6在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：（1）菜单格式与内容如下:方法类同上题分隔符的标题值是一个英文的减号- 视图(V) 插入(I) 工具栏 单元格 显示比例 图片 -剪贴画 - 艺术字 退出 (Ctrl+S)其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单与子菜单的名称与标题相同，但不含热键；Ctrl+S：设置为快捷键；- ：下一级菜单。（2）将考生文件夹下的窗体文件Sjt.frm添加进该工程。（3）除“工具栏”子菜单的Click()事件调用Sjt.frm 窗体，子菜单“显示比例”的Click()事件执行语句：Msgbox 选择显示的比例,其它菜单和子菜单不执行任何操作。（4）调试运行并生成可执行文件：Menu1.exe。 =2006年5月新增考题：（一）在考生文件夹中，完成以下要求：L 启动工程文件Sjt.Vbp,将该工程文件的工程名称改为“Spks”并将该工程中的窗体文件Sjt.frm的窗体名称改为“Vbbc”。2.请在窗体适当位置添加控件：一个标签Label1,标题为“字体”且自动调整大小；一个组合框Combo1;一个文本框Text1,文本内容为“计算机水平考试”，举重现实；一个框架Frame1标题为“颜色”；两个单选按钮在框架Frame1中,Option1标题为“红色”，Option2标题为“蓝色”。（以上操作在属性窗口中完成）3窗体装载事件中编写代码，为组合框添加三个选项：“隶书”，“黑体”，“宋体”，且默认选项为“隶书”；程序运行时，选中组合框某项，相应改变文本框中的字体；选中某个单选按钮，相应改变文本框中字的颜色。程序运行界面如下图所示：4请调试、运行，然后将工程、窗体保存。参考代码如下：Private Sub Combo1_Click() Text1.FontName=Combo1.TextEnd SubPrivate Sub Form_Load() Combo1.AddItem 隶书 Combo1.AddItem 黑体 Combo1.AddItem 宋体 Combo1.ListIndex=0End SubPrivate Sub Option1_Click() Text1.ForeColor=RGB(255,0,0)End SubPrivate Sub Option2_Click() Text1.ForeColor=RGB(0,0,255)End Sub（二）在考生文件夹中，完成以下要求：1启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“Vbbc”。2.请在窗体适当位置上添加控件：一个标签Label1,标题为“请输入一个自然数”，自动调整大小；一个文本框Text1,文本内容为空，且Tabindex属性值为0；一个命令按钮Command1,标题为“添加”；一个列表框List1。（以上操作在属性窗口中完成）3按要求编写代码：程序运行时，在文本框中输入一个自然数，单击“添加”按钮时，首先清除列表框中的内容然后在列表框中列出小于等于该自然数的所有偶数。程序运行界面如下图所示：4请先调试、运行，然后将工程、窗体保存。参考代码如下：Private Sub Command1_Click() List1.Clear X=Val(Text1.Text) For i=2 to x Step 2List1.AddItem i Next iEnd Sub（三）在考生文件夹中，完成以下要求：1启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”,窗体的标题为“统计计算”。2.请在窗体适当位置上添加控件：四个标签（均为默认名称，标题分别为“原始