程序设计基础实验与上机考试教程最全答案.doc

实 验 报 告实验日期_实验名称： 实验一 常用标准控件一 【实验目的与要求】1.掌握Visual Basic的启动与退出。2.熟悉Visual Basic的集成开发环境。3.掌握在窗体中放置控件的方法。4.掌握在“属性窗口”中设置控件属性的方法。5.掌握在“代码编辑器”窗口中输入程序代码的方法。6.掌握工具栏上启动按钮、结束按钮的使用方法。7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。【实验内容与步骤】实验1.1.1 标签的使用(一)1.题目与要求：在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：1)标签的内容为“计算机等级考试”；2)标签可根据显示内容自动调整其大小；3)标签带有边框，且标签内容显示为三号字。2.实验步骤1)界面设置：在名称为Form1的窗体上放置一个标签控件Label1；2)属性设置（请将表格补充完整）表1.1.1 对象属性对 象属性名称属性值Form1Caption标签Label1Caption计算机等级考试AutoSizeTrueFont三号BorderStyle13)保存文件：存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。实验1.1.2 标签的使用(二)1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图所示。实 验 报 告2属性设置（请将表格补充完整）表1.1.2 对象属性对 象属性名称属性值Label1Width2000Height300BorderStyle1Alignment2Caption等级考试3.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。实验1.1.3 文本框的使用1.题目与要求：在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中。程序中不得使用任何变量。2.实验步骤1)界面设置：在名称为Form1的窗体上放置两个文本框；2)属性设置表1.1.3 对象属性对 象属性名称属性值Text1NameT1TextText2NameT2Text3)完善程序代码Private Sub T1_Change() T2.Text=T1.Text (T2=T1) End Sub3)保存文件：存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。实验1.1.4 命令按钮的使用(一)1.在名称为Form1的窗体上画一个名称为C1、标题为“变宽”的命令按钮，窗体标题为“改变按钮大小”。编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100。要求：程序中不得使用变量，每个事件过程中只能写一条语句。实 验 报 告2属性设置（请将表格补充完整）表1.1.4 对象属性对 象属性名称属性值Form1Caption改变按钮大小CommandButton1NameC1Caption变宽3.完善程序代码Private Sub C1_Click() C1.Width=C1.Width+100 End Sub4.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。实验1.1.5 命令按钮的使用(二)1.在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800。请在属性窗口中设置适当的属性满足以下要求：1)窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；2)在任何情况下，按回车键都相当于单击“是”按钮；按ESC键都相当于单击“否”按钮。2.属性设置（请将表格补充完整）表1.1.5 对象属性对 象属性名称属性值Form1Caption确认MaxButtonFalseMinButtonFalseLabel1NameL1Caption请确认CommandButton1NameC1Caption是Height300Width800DefaultTrueCommandButton2NameC2Caption否Height300Width800CancelTrue3存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。实 验 报 告实验1.1.6 列表框的使用1.在名称为Form1的窗体上画1个名称为Label1、标题为“列表框的使用”的标签。再画1个名称为List1的列表框，列表中含有5个表项，表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，并且可以在列表中同时选择多个表项。2.属性设置（请将表格补充完整）表1.1.6 对象属性对 象属性名称属性值Label1Caption列表框的使用List1List北京List山西List辽宁List浙江List广东MultiSelect23.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。实验1.1.7 命令按钮与文本框的使用(一)请根据以下要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为From1的窗体上画二个文本框，名称分别为Text1、Text2，都显示垂直滚动条和水平滚动条，都可以显示多行文本；再画一个命令按钮，名称为C1，标题为“复制”。请编写适当的事件过程，使得在运行时，在Text1中输入文本后，单击“复制”按钮，就把Text1中的文本全部复制到Text2中，程序中不得使用任何变量。2.属性设置（请将表格补充完整）表1.1.7 对象属性对 象属性名称属性值Text1MultiLineTrueScrollBars3Text2MultiLineTrueScrollBars3CommandButton1NameC1Caption复制3.完善程序代码Private Sub C1_Click() Text2.Text=Text1.Text (Text2=Text1) End Sub4.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt7.vbp，窗体文件名为sjt7.frm。实 验 报 告实验1.1.8 命令按钮与文本框的使用(二)1.在名称为Form1的窗体上画一个文本框，名称为Text1，初始内容为空；再画一个命令按钮，名称为C1，标题为“移动”。请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端。程序中不得使用任何变量。2.属性设置（请将表格补充完整）表1.1.8 对象属性对 象属性名称属性值Text1Text空CommandButton1NameC1Caption移动3.完善程序代码Private Sub C1_Click() Text1.Left=0 End Sub4.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt8.vbp，窗体文件名为sjt8.frm。实验1.1.9 命令按钮与文本框的使用(三)请根据以下要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上面画一个名称为Text1，内容为“程序设计”的文本框，且显示为三号字、居中；再画两个命令按钮，标题分别是“粗体”和“斜体”，名称分别为Command1、Command2。如图1.1.9所示。要求：编写两个命令按钮的Click事件过程，使得单击“粗体”按钮时，文本框的内容显示为粗体格式，单击“斜体”按钮时，文本框的内容显示为斜体格式。注意：程序中不得使用变量，每个事件过程中只能写一条语句。2.属性设置（请将表格补充完整）表1.1.9 对象属性对 象属性名称属性值Text1Text程序设计Font三号Alignment2CommandButton1Caption粗体CommandButton2Caption斜体3.完善程序代码Private Sub Command1_Click() Text1.FontBold = True End Sub实 验 报 告Private Sub Command2_Click() Text1.Font.Italic = True End Sub4.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt9.vbp，窗体文件名为sjt9.frm。成 绩_批改日期_实 验 报 告实验日期_实验名称： 实验二 常用标准控件二 【实验目的与要求】1.掌握选项按钮、复选框和框架的使用方法。2.掌握图像控件和图片框的使用方法。3.掌握水平滚动条和垂直滚动条的使用方法4.掌握图形控件的使用方法。5.掌握计时器控件的使用方法。【实验内容与步骤】实验1.2.1 选项按钮的使用1.在名称为Form1的窗体上画一个名称为Text1的文本框，初始内容为“计算机等级考试”；画两个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为Option1、Option2 、Option3；在Frame2框架中画二个单选按钮，标题分别为“宋体”、“黑体”，名称分别为Option4、Option5。要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。2.属性设置（请将表格补充完整）表1.2.1 对象属性对 象属性名称属性值Text1Text计算机等级考试Frame1Caption对齐方式Frame2Caption字体Option1Caption左对齐Option2Caption居中Option3Caption右对齐Option4Caption宋体Option5Caption黑体3.完善程序代码Private Sub Option1_Click() Text1.Alignment = 0 End SubPrivate Sub Option2_Click() Text1.Alignment =2 End Sub实 验 报 告Private Sub Option3_Click() Text1.Alignment =1 End SubPrivate Sub Option4_Click() Text1.FontName = 宋体 End SubPrivate Sub Option5_Click() Text1.FontName = 黑体 End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。实验1.2.2 复选框的使用1.在名称为Form1标题为“选课”的窗体上画四个复选框，名称分别为CH1、CH2、CH3、CH4，标题分别是“数学”、“语文”、“外语”、“计算机”，其中 “语文”、“计算机”复选框处在选中状态下。请画控件并设置相应属性。2.属性设置（请将表格补充完整）表1.2.2 对象属性对 象属性名称属性值Form1Caption选课Check1NameCH1Caption数学Value0Check2NameCH2Caption语文Value1Check3NameCH3Caption英语Value0Check4NameCH4Caption计算机Value13.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。实验1.2.3 图像的使用1.在名称为Form1的窗体上画一个名为Image1的图像框，其高、宽分别为2000、3000，且不随图片大小而变化；再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为Cmd1、Cmd2。需编写两个命令按钮的Click事件过程，使得当单击“显示图片”按钮时，将C:VBSy02文件夹下的图片文件“图片1.jpg”显示在图像框中；而如果单击实 验 报 告“隐藏图片”按钮，则清除图像框中的图片。要求：程序中不得使用变量，每个事件过程中只能写一条语句。2.属性设置（请将表格补充完整）表1.2.3 对象属性对 象属性名称属性值Image1Height2000Width3000StretchTrueCommandButton1NameCmd1Caption显示图片CommandButton2NameCmd2Caption隐藏图片3.完善程序代码Private Sub Cmd1_Click() Image1.Picture = LoadPicture(C:VBSy02图片1.jpg) End Sub Private Sub Cmd2_Click() Image1.Picture = LoadPicture() End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。实验1.2.4 图片框和滚动条的使用1.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个垂直滚动条（名称为VScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为图片2.jpg，位于C:VBSy02文件夹下），图片框的宽度和图形的宽度相同，图片框的高度任意。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：Min 100Max 2400LargeChange 200SmallChange 20之后就可以通过滚动条上的滚动块来放大或缩小图片框的高度。要求程序中不得使用变量。2.属性设置（请将表格补充完整）表1.2.4 对象属性对 象属性名称属性值Pciture1AutoSizeTruePictureC:VBSy02图片2.jpgCommandButton1Caption设置属性实 验 报 告3.完善程序代码Private Sub Command1_Click() VScroll1.Min = 100 VScroll1.Max = 2400 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End SubPrivate Sub VScroll1_Scroll() Picture1.Height=VScroll1.Value End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。实验1.2.5 滚动条的使用1.在名为Form1的窗体上画一个名称为HScroll1的水平滚动条，其刻度范围为1100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动条的当前位置。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。2.属性设置（请将表格补充完整）表1.2.5 对象属性对 象属性名称属性值HScroll1Min1Max100Text1Text13.完善程序代码Private Sub Form_Activate() HScroll1.SetFoucs End SubPrivate Sub HScroll1_Change() Text1.Text=CStr(HScroll1.Value) End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。实验1.2.6 图形的使用(一)1.在名称为Form1的窗体上画一个名称为Shape1的形状控件，画一个名称为L1的列表框，并在属性窗口中设置列表项的值为1、2、3、4、5。将窗体的标题设置为“图形控件”。单击列表框中的某一项，则按照所选的值改变形状控件的形状。例如，选择3，则形状控件被设为圆形。要求：程序中不得使用变量，每个事件过程中只能写一条语句。实 验 报 告2.属性设置（请将表格补充完整）表1.2.6 对象属性对 象属性名称属性值Form1Caption图形控件List1NameL1List1 2 3 4 53.完善程序代码Private Sub L1_Click() Shape1.Shape=Val(L1.Text) End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。实验1.2.7 图形的使用(二)1.在名称为From1的窗体上画一个名称为Shape1的形状控件，画两个名称分别为Command1、Command2，标题分别为“圆形”、“红色边框”的命令按钮，将窗体的标题设置为“图形控件”。请编写适当的事件过程使得在运行时，单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮，将形状控件的边框颜色设为红色（&HFF&）。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。2.属性设置（请将表格补充完整）表1.2.7 对象属性对 象属性名称属性值Form1Caption图形控件CommandButton1Caption圆形CommandButton2Caption红色边框3.完善程序代码Private Sub Command1_Click() Shape1.Shape=3 End SubPrivate Sub Command2_Click() Shape1.BorderColor = &HFF& End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt7.vbp，窗体文件名为sjt7.frm。实验1.2.8 计时器的使用1.在名称为From1的窗体上画一个名称为Label1的标签，标签的内容为空，大小为三号字，标签可根据显示内容自动调整其大小，再画一个名称为Timer1的计时器控件，设置其Interval属性为1000，编写适当的事件过程，要求在标签上显示日期与时间，并且时间每秒钟变化一次。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。实 验 报 告2.属性设置（请将表格补充完整）表1.2.8 对象属性对 象属性名称属性值Label1AutoSizeTrueCaption空Font三号Timer1InterVal10003.完善程序代码Private Sub Timer1_Timer() Label1.Caption=Now End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt8.vbp，窗体文件名为sjt8.frm。成 绩_批改日期_实 验 报 告实验日期_实验名称： 实验三 选择结构 【实验目的与要求】1.掌握IfThenElseEnd If结构。2.掌握ElseIf结构。3.掌握Select CaseEnd Select结构。4.掌握选择（分支）结构的程序设计方法。【实验内容与步骤】实验1.3.1 汽车移动1.在C:VBSy03文件夹下有一个工程文件sjt1.vbp，窗体Form1上有图像框、计时器和两个命令按钮，如图所示。要求当单击 “开始”按钮，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体左边界重新移动。单击“停止”按钮时，小汽车停止移动。注意：不得修改窗体文件中已存在的程序和控件，最后程序按原文件名存盘。 2.完善程序代码Private Sub Command1_Click() Timer1.Enabled = True End SubPrivate Sub Command2_Click() Timer1.Enabled = False End SubPrivate Sub Form_Load() Picture1.Picture = LoadPicture(C:VBSy03CARS.ICO)End SubPrivate Sub Timer1_Timer() Picture1.Left = Picture1.Left + 100 If Picture1.Left + Picture1.Width = Form1.Width Then实 验 报 告 Picture1.Left = 0 End IfEnd Sub实验1.3.2 爱好选择1.在C:VBSy03文件夹下有一个工程文件sjt2.vbp，其窗体上已有部分控件，请按照如图所示添加框架和单选按钮。要求：画两个框架，名称分别为Frame1、Frame2，在Frame1中添加两个单选按钮，名称分别为Option1、Option2，标题分别为“古典音乐”、“流行音乐”，在名称为Frame2中添加两个单选按钮，名称分别为Option3、Option4，标题分别为“篮球”、“羽毛球”。开始运行程序时，“古典音乐”和“篮球”单选钮为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签Label2中。如果“音乐”或“体育”未被选中，相应的单选钮不可选。要求：按照题目要求添加控件。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 2.完善程序代码Dim s As StringPrivate Sub Check1_Click() If Check1.Value = 1 Then Frame1.Enabled = True Else Frame1.Enabled = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Frame2.Enabled = True Else Frame2.Enabled = False End IfEnd SubPrivate Sub Command1_Click() If Check1.Value = 1 Then If Option1.Value = True Then s = 古典音乐 Else s = 流行音乐实 验 报 告 End If End If If Check2.Value = 1 Then If Option3.Value = True Then s = s & 篮球 Else s = s & 羽毛球 End If End If Label2.Caption = S End SubPrivate Sub Form_Load() Check1.Value = 1 Check2.Value = 1End Sub实验1.3.3 圆的运动1.在C:VBSy03文件夹下有一个工程文件sjt3.vbp，窗体中有一个矩形和一个圆，程序运行时单击开始按钮，圆可以纵向或横向运动（通过选择单选按钮来决定），碰到矩形的边时，则向相反的方向运动，单击“停止”按钮，则停止运动，如图所示。可以选择单选按钮随时改变运动方向。已经给出所有控件和程序，但程序不完整。注意：不得修改已经存在的内容和控件属性，最后把修改的文件按原文件名存盘。2.完善程序代码Dim d As IntegerPrivate Sub Command1_Click() Timer1.Enabled = True End Sub实 验 报 告Private Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() d = 1End SubPrivate Sub Timer1_Timer() If Option1 Then Shape2.Top = Shape2.Top + d * 50 If Shape2.Top = Shape1.Top + Shape1.Height Then d = -d End If ElseIf Option2 Then Shape2.Left = Shape2.Left + d * 50 If Shape2.Left =Shape1.Left + Shape1.Width Then d = -d End If End IfEnd Sub实验1.3.4 交通工具和目的地选择1.在C:VBSy03文件夹下有一个工程文件sjt4.vbp，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆明”。画一个标签，其名称为Lab1，宽度为3000，高度为375。编写适当事件过程，程序运行后，选择不同单选按扭并单击窗体后在标签上显示的结果见下表：选中的单选按钮单击窗体后产生的结果（标签中显示的内容）交通工具，到达目标第1种情况飞机 广州坐飞机去广州第2中情况飞机 昆明坐飞机去昆明第3种情况火车 广州坐火车去广州第4中情况火车 昆明坐火车去昆明请编写窗体的单击事件，存盘时，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。注意：不得修改窗体文件中已存在的程序，在结束程序之前，必须至少进行上面的一种操作，退出程序时必须通过单击窗体右上角的关闭按钮。2.完善程序代码实 验 报 告Private Sub Form_Click()学生编写 If Op1.Value = True Then If Op3.Value = True Then Lab1.Caption = 坐飞机去广州 Else Lab1.Caption = 坐飞机去昆明 End If Else If Op3.Value = True Then Lab1.Caption = 坐火车去广州 Else Lab1.Caption = 坐火车去昆明 End If End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Open out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Lab1.Caption Close #1End Sub实验1.3.5 交换与连接1.在C:VBSy03文件夹下有一个工程文件sjt5.vbp，请在窗体上画两个文本框，其名称分别为Text1、Text2，文本框内容分别设置为“等级考试”、“计算机”。然后画一个标签，其名称为Lab1，高度为375，宽度为2000。再画两个单选按钮，名称分别为Op1和Op2，标题分别为“交换”和“连接”，编写适当的事件程序。程序运行后，如果选中“交换”单选按钮并单击窗体，则Text1文本框中内容与Text2文本框中内容进行交换，并在标签中显示“交换成功”；如果选中“连接”单选按钮并单击窗体，则把Text1和Text2的内容按Text1在前、Text2在后的顺序连接起来并在标签中显示。请编写窗体的单击事件，存盘时，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。注意：不得修改已经给出的程序。在结束程序之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮。2.完善程序代码 Private Sub Form_Click() 学生编写 Dim s As String If Op1.Value = True Then s = Text1.Text Text1.Text = Text2.Text Text2.Text = s Lab1.Caption = 交换成功实 验 报 告 End If If Op2.Value = True Then Lab1.Caption = Text1 + Text2End SubPrivate Sub Form_Unload(Cancel As Integer) Open out5.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Lab1.Caption Close #1End Sub实验1.3.6 大小写转换1.在C:VBSy03文件夹下有一个工程文件sjt6.vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则把它的大写形式显示在Label1中，若是大写字母，则把它的小写形式显示在Label1中，若是其他字符，则把该字符直接显示在Label1中。输入的字母总数则显示在标签Label2中。注意：不得修改已经存在的程序，最后把修改后的文件按原文件名存盘。2.完善程序代码Dim n As IntegerPrivate Sub Text1_Change() Dim ch As String ch = Right$( Text1.Text,1 ) If ch = A And ch = a And ch = z Then Label1.Caption = UCase(ch) n = n + 1 Else Label1.Caption = ch End If Label2.Caption = CStr(n) End Sub成 绩_批改日期_实 验 报 告实验日期_实验名称： 实验四 循环结构 【实验目的与要求】1.掌握DoLoop循环结构。2.掌握WhileWend循环结构。3.掌握ForNext循环结构。4.掌握循环结构的程序设计方法。【实验内容与步骤】实验1.4.1 分解单词1.在C:VBSy04文件夹下有一个工程文件sjt1.vbp，相应的窗体文件为sjt1.frm。在窗体上有一个命令按钮，其名称为Command1，标题为“添加”；有一个文本框，名称为Text1，初始内容为空白；有一个列表框，名称为List1。程序运行后，在文本框中输入一个英文句子（由多个单词组成，各单词之间用一个空格分开），然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中。该程序不完整，请把它补充完整。要求：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。2.程序代码Private Sub Command1_Click() Dim S1 As String, S2 As String注意双引号中有一个空格 Dim I1 As Integer S1 = Text1.Text I1 = 1 Do Do While Mid(S1, I1, 1) And I1 = Len(S1) S2 = S2 & Mid(S1, I1, 1) I1 = I1 + 1注意双引号中没有空格 Loop List1.AddItem S2 S2 = I1 = I1 + 1 Loop While I1 = Len(S1)End Sub实验1.4.2 列表框内容移动2.在C:VBSy04文件夹下有一个工程文件sjt2.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮，名称分别为C1、C2，实 验 报 告标题分别为“添加”、“清除”。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。2.完善程序代码Private Sub C1_Click() Dim k As Integer k = 0 While (k List2. ListCount ) If List2 .Selected(k) = True Then List1.AddItem List2.Text List2.RemoveItem k End If k = k + 1 WendEnd SubPrivate Sub C2_Click() List2.AddItem List1.Text List1.RemoveItem List1. ListIndex End Sub实验1.4.3 图案输出1.在C:VBSy04文件夹下有一个工程文件sjt3.vbp。程序运行时，单击窗体则显示如图所示的图案。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。2.完善程序代码Private Sub Form_Click() For i = 1 To 5 For j = 1 To 6 - i实 验 报 告 Print ; Next j For j = 1 To 2*i-1 Print *; Next j Print Next i For i = 1 To 4 For j = 1 To i+1 Print ; Next j For j = 1 To 9-2*i Print *; Next j Print Next iEnd Sub实验1.4.4 因子个数1.在C:VBSy04文件夹下有一个工程文件sjt4.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。已经给出了全部控件和程序，但程序不完整。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。2.完善程序代码Private Sub Command1_Click() Dim m As Integer, s As Integer Cls m = InputBox(请输入一个整数) s = 0 For k = 1 To Abs(m) / 2 If m Mod k = 0 Then s = s + 1 Print k End If Next k Print 因子数=; s End Sub实验1.4.5 城市选择 1.在C:VBSy04文件夹下有一个工程文件sjt5.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项，单击“选中”按钮实 验 报 告则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些选中的城市，如图所示。已经给出了所有控件和程序，但程序不完整。但不能修改程序中的其他部分和控件属性。最后用原来的