[小学教育]b答案.doc

HUBEI UNIVERSITY OF AUTOMOTIVE TECHNOLOGY计算机工程系 实验指导书 苗暹编 吴年志 审班级 学号 姓名 电气与信息工程学院2010年2月前 言一、本课程实验教学的地位和作用Visual Basic程序设计课程是一门重要的公共基础课。其主要任务是使学生掌握VB的基本概念与面向对象程序设计等方面的知识。实验课是本课程重要的教学环节，通过本课程的学习使学生加深对讲授内容的理解，熟悉所用计算机系统的操作方法，学会上机调试程序基本操作，能够运用VB语言程序解决某些实际问题，并养成严谨的科学态度和科学的思维方法，从而提高分析和解决问题的能力，为后续课程的学习和在毕业设计时使用计算机解决实际问题打下良好的基础。二、本课程应讲授的基本实验理论1、掌握所用Visual Basic 6.0系统的基本操作方法，学会独立使用该系统；了解在该系统上如何编辑、编译和运行VB程序；2、初步掌握面向对象程序设计方法。三、本课程实验教学应达到的能力要求1、掌握建立和运行VB程序的方法。2、掌握常见控件的使用。3、掌握数据类型、顺序、选择、循环程序设计方法。4、掌握函数和过程的使用。5、掌握界面的设计。6、了解文件的操作。7、了解VB如何使用数据库。四、本课程实验教学目的与要求学生在实验过程中注意自始至终贯彻课程中所介绍的程序设计风格，养成良好的编程习惯。应独立完成所布置的上机作业，为保证尽量在统一安排的上机时间内编译运行通过程序，在每次实验前应事先预习，按照要求提前做好预习，编写好程序。课后撰写实验报告。1、了解所用的计算机系统的性能和使用方法。2、复习和掌握与本实验有关的教学内容。3、准备好上机所需的程序，在上机实验时必须完成预习要求中规定的任务，切忌不编程或抄别人的程序去上机。4、对程序中出现的问题应事先估计，对程序中自己有疑问的地方应先作上记号，以便上机时给予注意。5、准备好调试程序和运行程序所需的数据。6、在实验中，学生根据实验指导中的内容进行验证与总结，然后再去完成实验内容中安排的任务。五、本课程实验教学考核办法实验课成绩占本课程总成绩的20%。对无故缺实验者，本门课程实验成绩以零分计。目 录实验一 VB语言环境实验4实验二 简单程序设计实验10实验三 条件结构程序设计13实验四 循环结构程序设计16实验五 数组程序设计19实验六 过程程序设计22实验七 界面设计25实验八 综合程序设计28实验一 VB语言环境实验选课班号： 序号： 姓名： 实验日期： 【实验目的】1 熟悉Visual Basic 6.0集成开发环境。2 学习如何用对象（窗体和控件）建立界面。3 学习用属性窗口设置对象属性的方法。 4 了解窗体及控件所执行的操作。5 掌握开发一个简单程序的基本步骤。【相关知识】1 窗体是VB中的对象，具有自己的属性、事件和方法。窗体属性：（1）Name属性对象的名称，是所有对象都具有的属性，用来唯一标识该控件。在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。所有的控件在创建时由VB自动提供一个默认名称。（2）Height、Width、Top和Left属性图1-1 窗体位置、大小Height和Width属性决定了控件的高度和宽度，Top表示控件到窗体顶部的距离，Left表示控件到窗体左边框的距离。默认单位为twip，1 twip=1/20点=1/1440英寸=1/567cm 。窗体位置、大小如图1-1所示。（3）Caption 标题属性Caption属性的值是显示在窗体标题栏上的文字。（4）BackColor属性和ForeColor属性 BackColor属性用于返回或设置对象的背景颜色，ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色。（5）BorderStyle属性此属性决定边框风格, 通过改变 BorderStyle 属性，可以控制窗体如何调整大小。（6）MaxButton、MinButton和ControlBox属性MaxButton最大化按钮和MinButton最小化按，当值为 True，有最大或最小化按钮，False则无。ControlBox控制菜单框属性，其值设置为Ture时，有控件菜单；设置为False时，则无控件菜单，同时窗体也无“最大化”按钮和“最小化”按钮，即使MaxButton属性和MinButton属性设置为Ture。（7）Picture属性使用Picture属性可以指定一幅图片显示在窗体的表面上，作为控件的背景。（8）WindowsState属性0：正常窗口状态，有窗口边界；1：最小化状态，以图标方式运行；2：最大化状态，无边框，充满整个屏幕。（9）字体Font属性组 FontName属性是字符型，决定对象上正文的字体（缺省为宋体）。 FontSize属性是整型，决定对象上正文的字体大小（缺省为9磅）。 FontBold属性是逻辑型，决定对象上正文是否是粗体（缺省为False）。 FontItalic属性是逻辑型，决定对象上正文是否是斜体（缺省为False）。 FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线（缺省为False）。 FontUnderLine属性是逻辑型，决定对象上正文是否带下划线（缺省为False）。（10）AutoRedraw属性该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示时，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。当为True时，重新还原该窗体以前的画面。当为False时，则不重画。窗体常用事件：窗体常用的事件有Load、Click、DblClick、Activate、Resize等。其中Load事件是当窗体被装入工作区时触发的事件，常用来在启动应用程序时对属性和变量进行初始化。Activate是当一个窗体成为活动窗口时所触发的事件，Resize是当窗体大小发生改变时所触发的事件。窗体常用方法：窗体常用的方法有Print（打印输出）、Cls（清除）、Show（显示）、Hide（隐藏）以及（Move）移动等。2 在窗体上添加控件图1-2 设置启动窗体窗体是设计VB应用程序的一个基本平台，几乎所有的控件都是添加在窗体上的。对于生成的控件，可以调整控件大小、移动控件位置、使用网格精确定位控件；对于多个控件，还可以对它们进行排列、调整大小等操作。另外，在VB中还允许可视地创建和编辑控件数组，这对于编组使用选择框、命令按钮等控件提供了很大方便。3 设置启动窗体在默认情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来。如果想在应用程序启动时显示别的窗体，可以将其他窗体设置为启动窗体。设置方法：在“工程”菜单或者“工程资源管理器”快捷菜单中选择工程“属性”，会弹出“工程属性”对话框，如图1-2所示，在“启动对象”的选择列表中选择窗体名称即可把该窗体设为启动窗体。【实验例题】例：使用VB建立一个简单的应用程序，在窗体上输出“大家好！”“欢迎来到这里”。设计思路：窗体上通常是不直接输出文本信息，一般通过窗体上的对象输出文本信息。例如，可以用标签输出“大家好！”，用文本框输出“欢迎来到这里！”，因此可以在窗体上放置一个标签、一个文本框和一个命令按钮，单击命令按钮，则在标签上显示“大家好！”，在文本框显示“欢迎来到这里！”。设计步骤：（1）新建工程单击Windows任务栏中的“开始”“程序”“Microsoft Visual Basic6.0中文版”“Microsoft Visual Basic6.0中文版”命令，进入Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0进入设计模式，并自动创建了一个窗体模块Form1，这就是将要建立的应用程序的窗体。在这个窗体上添加控件，即可建立应用程序界面。（2）创建应用程序界面 设置窗体属性图1-3 例 界面设计A在属性窗口中双击“Caption”属性条，输入“我的第一个VB程序”。B在属性窗口中选择“BackColor”属性条，然后单击右端的箭头，在所显示的“调色板”中选择一种颜色（例如浅黄色）。 在窗体上添加控件A单击工具箱中的标签(Label)控件类型图标，鼠标指针变为十字形，再在“对象”窗口的窗体上单击并拖动，然后释放鼠标键，窗体上就会出现一个标签类型的控件对象，同时鼠标指针恢复为箭头形状。B用同样方法将文本框（TextBox）控件放置在窗体上。C放置命令按钮（CommandButton）到窗体上。 设置控件属性在窗体上选中命令按钮，然后在属性窗口中双击“Caption”属性条，输入“显示”。通过鼠标的几个简单操作，我们已经建立好了应用程序界面，如图1-3所示。图4-4 例 代码编辑窗口（3）编写应用程序代码创建好了应用程序界面，下面就开始编写应用程序代码，控制程序的运行。编写的程序具有这样的功能：当用户在应用程序窗体中用鼠标单击“显示”按钮时，窗体中的标签上会显示“大家好！”，文本框中会显示“欢迎来到这里！”。图1-5 例 运行结果在这里要对“显示”命令按钮（Command1）进行编程，在窗体上双击“显示”命令按钮（Command1），会弹出代码编辑窗口，在编辑窗口上部左侧的对象列表框中显示对象名为“Command1”,在右侧的过程列表框中显示的过程是“Click”，如图1-4所示。此时，在代码编辑窗口会出现如下代码：Private Sub Command1_Click()End Sub说明我们是对命令按钮Command1的单击事件进行编程。在这两条语句之间输入如下代码：Label1.Caption = 大家好！Label1.FontName = 宋体Label1.FontSize = 15Label1.FontBold = TrueText1.Text = 欢迎来到这里！Text1.FontName = 黑体Text1.FontSize = 16Text1.FontBold = True至此，我们完成了对命令按钮Command1（“显示”按钮）的编程。（4）运行程序点击工具栏中的“启动”按钮，开始运行程序，单击命令按钮（显示），结果如图1-5所示。（5）保存文件图1-6 窗体文件保存程序在编写过程中或运行结束后常常要将有关文件保存到磁盘上，以便以后多次使用。通常一个工程中会涉及到多种文件类型，但本例比较简单，它仅涉及到一个窗体，因此在保存文件时，只需保存一个窗体文件和工程文件即可。保存文件的步骤如下：A选择“文件”“保存Form1”（窗体文件）命令，系统弹出“文件另存为”对话框，提示用户输入文件名。如图1-6所示。用户在“保存在”文本框选择保存的文件夹，在“文件名”文本框输入窗体文件名（后缀名由系统根据不同的文件类型自动添加，这里是.frm）。本例窗体文件名为 vblx.frm，保存在G盘的VBpro文件夹下。B选择“文件”“保存工程”（工程文件）命令，系统弹出“工程另存为”对话框，提示用户输入文件名，操作同上。本例工程文件名为vblx.vbp。在保存了文件后，用户若要再次调入文件进行修改或运行，只需选择“文件”“打开工程”命令，输入要打开的工程文件名，就可把硬盘上的文件调入内存进行所需的操作。图1-7 生成工程对话框（6）生成可执行文件在前面的程序运行时，我们直接选择在工具栏单击“”启动按钮，或选择“运行”“启动”命令运行程序，这时的运行是在解释运行模式下，仍然在VB环境中。有时我们需要程序的运行能脱离VB环境，可像任何基于Windows的应用程序那样，双击程序文件图标就可运行。这就必须对应用程序源代码进行编译，生成可执行文件（.EXE文件）。生成可执行文件的步骤如下：A选择“文件”“生成.exe”命令，系统显示“生成工程”对话框，如图1-7所示。B在“文件名”文本框内显示与原工程文件名一致的可执行文件名，用户也可修改文件名，本例文件名为vblx1_1.exe。【实验内容】1、熟悉新建工程和窗体1. 启动Visual Basic2. 创建界面3. 设置属性1) 将文本框Text1和命令按钮Command1的名字改为txtyou和cmdrun。2) 将文本框txtyou的“BackColor”和“Forcolor”分别设置为黄色和蓝色。3) 将文本框txtyou中的字体设置为“粗体”和“小二”。4) 设置Form1的图标，并将其标题改为“你好”。5) 修改txtyou的“Text”为“你好”，cmdrun的标题（“Caption”为“运行”）。4. 修改代码修改cmdrun的Click事件的代码，使得按下按钮后txtyou的“你好”变成消失。Private Sub cmdrun_Click()txtyou.Visible = FalseEnd Sub2、熟悉多窗体的操作1. 创建3个窗体。分别为Form1，Form2，Form3。 2. 设置Form1为启动窗体。3. 创建控件。属性表窗体名控件名属性表属性值Form1Label1CaptionAlignment Font欢迎使用本系统2-Center宋体，小三，粗体Label2Caption请输入用户名Label3Caption请输入口令TxtpasswordText PasswordChar空*TxtnameText空CmdokCaption确定CmdexitCaption退出Form2Label1Caption系统信息：Text1MullineLockedScrollBarsTrueTrue2-VerticalcmdbackCaption返回Form3Form3Picture图片文件Label1CaptionBackStyleFont谢谢使用！0-Transparent宋体，二号，粗体4. 编写代码。a) 在窗体1的文本框中输入用户名和口令，单击“确定”按钮，当用户名为“lx”并且口令为“1234”时显示窗体2，否则显示窗体3。单击“退出”按钮结束程序。具体代码如下：Private Sub cmdexit_Click()Unload MeEnd SubPrivate Sub cmdok_Click()If txtname.Text = lx And txtpassword.Text = 1234 Then Form2.Show Me.HideElse Form3.Show Unload MeEnd IfEnd Subb) 在Form2中单击“返回”按钮，卸载From2并显示Form1。Private Sub cmdback_Click()Form1.ShowUnload MeEnd Sub在Form2的加载事件中显示文字信息。Private Sub Form_Load()Text1.Text = 硬件资源 & vbCrLf & 软件资源End Subc) 在Form3中显示图片，并单击窗体，卸载Form3。Private Sub Form_Click()Unload MeEnd Sub【实验思考题】1. 什么是工程？什么是工程文件？2. 什么是对象？什么是方法？什么是事件？方法和事情有啥不同？3. 编写VB程序的一般步骤是什么？【实验报告要求】1. 提前预习实验相关资料，充分做好实验准备工作。2. 如实记录实验中的数据。3. 实事求是地回答相关问题，严禁抄袭。得 分_评阅日期_教师签名_实验二 简单程序设计实验选课班号： 序号： 姓名： 实验日期： 【实验目的】1 掌握VB的常用数据类型。2 学习使用VB的各种运算符及表达式。3 学习VB内部函数的使用和数据输入、输出方法。4 掌握命令按钮、文本框和标签常用属性的设置方法。 5 进一步学习使用命令按钮、文本框和标签在窗体上建立用户界面的方法。6 掌握命令按钮的主要事件的使用。7 学习用赋值语句构造简单的顺序结构程序。220VR1R2R3图2-1 题1电路图 【实验内容】1计算如图2-1所示电路中的电流I，已知电路图中电阻R1=200、R2=300、R3=400。设计思路：根据欧姆定律：R=R1+R3*R2/（R3+R2），I=U/R。在窗体上放置两个文本框和一个命令按钮，通过文本框Text1输入电压U，单击命令按钮（Command1）开始运算，在文本框Text2中输出计算的电流I。设计思路：在Form1窗口中放置两个Label控件、两个TextBox控件和一个CommandButton控件，属性设置如表2-1所示。界面安排如图2-2所示。表2-1 各控件属性设置对象控件名称属性名称属性值LabelLabel1Label2CaptionCaption输入电压输出电流TexBoxText1Text2TextText空空CommandButtonCommand1Caption计算图2-2 计算电流界面添加代码：Private Sub Command1_Click()Dim r1, r2, r3, r, u, i As Singler1 = 200r2 = 300r3 = 400r = r1 + r2 * r3 / (r2 + r3)i = Val(Text1.Text) / rText2.Text = iEnd Sub 程序分析：图2-3 运行结果 由于文本框Text1的属性是字符型，因此在计算时应用Val 函数进行转换。 定义r1、r2、r3、r、U和I为单精度型的变量。(4) 保存工程单击“文件”菜单，选择“保存工程”命令，将窗体保存为“21.frm”，将工程保存为“21.vbp”。(5) 运行单击“运行”菜单，选择“启动”命令，或单击工具栏的“启动”按钮，在窗体的文本框Text1中输入电压值，然后单击按钮“计算“则出现运行结果，运行结果如图2-3所示。思考：在电路图中，将变量r1，r2，r3的数据类型设置为Double，则在文本框中显示的数据会有何变化？如果数据类型为Integer则在文本框中的数据如何显示？ 你的回答： 2设计一个程序，计算圆的周长，要求用InputBox函数输入半径，用MsgBox输出周长值。添加代码：Private Sub Command1_Click()Const PI = 3.14159Dim r, l As Singler = Val(InputBox(请输入半径, 输入半径)l = 2 * PI * rMsgBox (半径= & r & ，圆的周长= & l)End Sub图2-4 设置属性后的界面图2-5 输入对话框图2-6 输出对话框3用三种除法运算符（/、Mod）做计算。要求：在窗体上画5个标签、5个文本框和一个命令按钮。如图2-7所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击击命令按钮，即可得到三种不同的相除结果。添加代码：Private Sub Command1_Click()Dim beichushu, chushu As Singlebeichushu = Val(Text1.Text)chushu = Val(Text2.Text)Text3.Text = beichushu / chushuText4.Text = beichushu chushuText5.Text = beichushu Mod chushuEnd Sub图2-7 实验内容4界面【实验报告要求】1. 提前预习实验相关资料，充分做好实验准备工作。2. 如实记录实验中的数据。3. 实事求是地回答相关问题，严禁抄袭。得 分_评阅日期_教师签名_实验三 条件结构程序设计选课班号： 序号： 姓名： 实验日期： 【实验目的】1 掌握单分支和双分支结构程序的使用。2 掌握多分支条件语句的使用。3 掌握情况语句的使用，弄清情况语句和多分支条件语句的区别。4 掌握单选按钮、复选框和框架控件的常用属性、重要事件和基本方法。 5 熟练掌握在窗体上建立上述三种控件的操作方法。6 熟练掌握事件过程代码的编写。【实验内容】1设计一个应用程序，界面设计如图3-1 所示。要求当用户在此两组不同的单选钮和一组复选钮上作出选择后，文本框中正文的字体、字号和风格能发生相应的变化。图3-1 题1 运行界面添加代码：Private Sub Command1_Click()Dim zihao As IntegerDim ziti As StringIf Option1.Value = True Then zihao = 16 Else zihao = 20End IfIf Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfIf Check2.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic = FalseEnd IfIf Option3.Value = True Then ziti = 宋体 Else ziti = 黑体End IfText1.FontSize = zihaoText1.FontName = zitiEnd Sub图3-2 简易计算器界面2设计一个模拟简易计算器的程序，界面如图3-2所示，要求：输入两个操作数和一个操作符，根据操作符决定所进行的计算。如果除数为0，用MsgBox提示出错信息。要求用if语句和case语句两种结构实现。运算为加减乘除（+，-，* ，/）四种运算，其他符号为非法。单击“if结构”按钮，添加代码：Private Sub Command2_Click()Dim num1, num2, result As SingleDim op As Stringnum1 = Val(Text1.Text)num2 = Val(Text3.Text)op = Trim(Text2.Text)If op = + Then result = num1 + num2ElseIf op = - Then result = num1 - num2ElseIf op = * Then result = num1 * num2ElseIf op = / Then If num2 = 0 Then MsgBox (运算符不能为0，请重新输入第二个数!) Text3.Text = Text4.Text = Text3.SetFocus Exit Sub Else result = num1 / num2 End IfElse MsgBox (运算符不符合要求，请重新输入运算符!) Text2.Text = Text4.Text = Text2.SetFocus Exit SubEnd IfText4.Text = resultEnd Sub单击“case结构”按钮，添加代码：Private Sub Command1_Click()Dim num1, num2, result As SingleDim op As Stringnum1 = Val(Text1.Text)num2 = Val(Text3.Text)op = Trim(Text2.Text)Select Case op Case + result = num1 + num2 Case - result = num1 - num2 Case * result = num1 * num2 Case / If num2 = 0 Then MsgBox (运算符不能为0，请重新输入第二个数!) Text3.Text = Text4.Text = Text3.SetFocus Exit Sub Else result = num1 / num2 End If Case Else MsgBox (运算符不符合要求，请重新输入运算符!) Text2.Text = Text4.Text = Text2.SetFocus Exit SubEnd SelectText4.Text = resultEnd Sub3完成编程：输入二次方程ax2+bx+c=0的系数a、b、c，计算并输出二次方程的根x1，x2。界面如图3-3（按下“复位”按钮也就是如图3-3效果）：当a0时（弹出警惕框如图3-4，然后光标定位a下方的文本框处）图3-3图3-4当= 0 Then x1 = (-b + Sqr(delta) / (2 * a) x2 = (-b - Sqr(delta) / (2 * a) Lblx1.Caption = Round(x1, 2) Lblx2.Caption = Round(x2, 2)Else x1str = Round(-b) / (2 * a), 2) & + & Round(Sqr(-delta) / (2 * a), 2) & i x2str = Round(-b) / (2 * a), 2) & - & Round(Sqr(-delta) / (2 * a), 2) & i Lblx1.Caption = x1str Lblx2.Caption = x2strEnd IfEnd Sub Private Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Lblx1.Caption = Lblx2.Caption = End Sub【实验报告要求】1. 提前预习实验相关资料，充分做好实验准备工作。2. 如实记录实验中的数据。3. 实事求是地回答相关问题，严禁抄袭。得 分_评阅日期_教师签名_实验四 循环结构程序设计选课班号： 序号： 姓名： 实验日期： 【实验目的】1理解循环结构程序设计的特点。2掌握For语句的使用。3掌握Do While/UntilLoop语句和DoLoop While/Until语句的使用。4学习多重循环的规则和程序设计方法。5学习循环退出语句的使用与应用。6掌握图片框、图像框、定时器的使用方法。7. 掌握一些简单的算法。 8了解基本图形Line和Circle方式。【实验内容】1计算n!，要求分别用Do WhileLoop、DoLoop While和ForNext结构实现。设计分析：语句结构用单选按钮来选择，用条件语句对单选按钮的值作出判断，根据判断结果转向不同的循环结构语句块。要求创建一个新窗体Form1，在Form1中放置二个Text控件、三个Command控件、三个标签控件、一个框架控件和三个单选按钮。界面如图4-1所示。图4-1 题1用户界面添加代码：Private Sub Command1_Click()Dim f As LongDim i, n As Integerf = 1n = Int(Val(Text1.Text)If Option1.Value = True Then i = 1 Do While i = n f = f * i i = i + 1 LoopElseIf Option2.Value = True Then i = 1 Do f = f * i i = i + 1 Loop While i = nElse For i = 1 To n f = f * i NextEnd IfText2.Text = fEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End SubPrivate Sub Command3_Click()Unload MeEnd Sub2输入一个整数n（n1），请n以内的所有素数（n1000）。界面如图4-2所示。添加代码：Private Sub Command1_Click()Dim i, j, n As Integern = Int(Val(Text1.Text)If n 1000 Then MsgBox 输入的数值范围不对！, vbOKOnly Text1.SetFocus Text1.Text = Else For i = 1 To n For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next If j = i Then Text2.Text = Text2.Text & i & NextEnd If End Sub图4-2 题2用户界面图4-3 题3用户界面3在处理图像时，经常会遇到使图像水平或垂直移动的情况。要求编程实现该功能，运行程序，单击“水平移动”按钮，图片便沿着水平方向移动；单击“垂直移动”按钮，图片便沿着垂直方向移动；单击“沿对角线移动”按钮，图片便沿着对角线方向移动。效果如图4-3所示。图片任意选择电脑上一幅图片即可。设计思路：使用Move方法，使图片产生移动效果。添加代码：Dim i, flag As IntegerPrivate Sub Command1_Click()If flag = 0 Then For i = 1 To 3645 Image1.Move i Next flag = 1Else Image1.Move 0, 0 flag = 0End IfEnd SubPrivate Sub Command2_Click()If flag = 0 Then For i = 1 To 1740 Image1.Move 0, i Next flag = 1Else Image1.Move 0, 0 flag = 0End IfEnd SubPrivate Sub Command3_Click()If flag = 0 Then For j = 1 To 1740 Image1.Move Image1.Left + 3640 / 1740, j Next flag = 1Else Image1.Move 0, 0 flag = 0End IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()Image1.Left = 0Image1.Top = 0End Sub4在电视节目中，经常会有滚动的广告字幕。要求编程实现该功能。运行程序，单击“演示”按钮，字幕开始水平滚动；单击“暂停”按钮，字幕停止滚动。效果如图4-4所示。设计思路：在Timer事件中，控制Label控件的Left属性值，从而实现滚动字幕的效果。图4-4 题4用户界面添加代码：Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Timer1_Timer()Static f As BooleanIf f = False Then If Form1.Width - Label1.Left Label1.Width Then Label1.Left = Label1.Left + 40 Else f = True End IfElse If Label1.Left 0 Then Label1.Left = Label1.Left - 40 Else f = False End IfEnd IfEnd Sub【实验报告要求】1. 提前预习实验相关资料，充分做好实验准备工作。2. 如实记录实验中的数据。3. 实事求是地回答相关问题，严禁抄袭。得 分_评阅日期_教师签名_实验五 数组程序设计选课班号： 序号： 姓名： 实验日期： 【实验目的】1掌握数组的声明和数组元素的引用。2掌握固定数组和动态数组的使用方法。3掌握控件数组的使用方法。4学会用数组解决一些实际的问题。5掌握列表框、组合框的使用方法。6学习直线控件和形状控件的使用方法。【实验内容】1矩阵转置。设计思路：矩阵转置，即将二维数组的行、列元素互换。先用随机函数生成一个2位整数的3行4列矩阵，然后进行转置，最后在文本框中分别输出原来的矩阵和转置后的矩阵。如图5-1所示。添加代码：Dim a(3, 4), b(4, 3) As IntegerPrivate Sub Command1_Click()Dim i, j As IntegerFor i = 0 To 2 For j = 0 To 3 b(j, i) = a(i, j) NextNext For i = 0 To 3 For j = 0 To 2 Text2.Text = Text2.Text & b(i, j) & Next Text2.Text = Text2.Text & vbCrLfNextEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 0 To 2 For j = 0 To 3 Randomize a(i, j) = Int(Rnd * 90) + 10) Text1.Text = Text1.Text & a(i, j) & Next Text1.Text = Text1.Text & vbCrLfNextEnd Sub图5-1 “矩阵转置”运行界面2定义一个数据类型，用来存储个人的基本信息，包括姓名、性别、出生日期、电话号码、单位地址、家庭住址等。并使用该数据类型定义一个数组，存放各个人员的信息，并将信息显示在列表框中。设计思路：VB中，数据类型的定义可以在放在标准模块中定义。然后定义一个该类型的动态数组，存放各个人员的基本信息，并将信息显示在列表框中。如图5-2所示。图5-2 “自定义数据类型示例”运行界面添加代码：Private Type student xm As String * 8 xb As String * 1 csrq As Date dh As String * 10 dw As String * 10 jt As String * 12End TypeDim stu(100) As studentDim i As IntegerPrivate Sub Command1_Click()stu(i).xm = Trim(Text1.Text)stu(i).xb