VB课程设计之顺序结构程序设计.doc

实 验 报 告课 程Visual Basic程序设计实验项目顺序结构程序设计专业班级姓 名学 号实验日期指导教师成 绩实验目的：(1) 熟练掌握窗体、命令按钮、标签、文本框控件的使用。(2) 掌握Visual Basic基本数据类型(3) 掌握Visual Basic基本语句、常用函数的使用。(4) 掌握数据输入输出方法。实验内容：(1) 在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：A. 在文本框中可以显示多行文本B. 在文本框中显示垂直滚动条C. 文本框中显示的初始信息为“程序设计”D. 文本框中显示的字体为三号规则黑体E. 窗体的标题为“设置文本框属性”F. 完成设置后的窗体如图所示。要求：不编写任何代码。窗体名称保存为sy2-1.frm，工程名保存为sy2-1.vbp。(2) 在名称为Form1的窗体上有一个命令按钮，名称为command1,标题为计算。要求：单击命令按钮输入一元二次方程的三个系数，根据系数求解方程的两个实根，并将结果打印在窗体上。窗体名称保存为sy2-1.frm，工程名保存为sy2-2.vbp。程序代码：Private Sub Command1_Click() a = Val(InputBox(请输入第一个系数) b = Val(InputBox(请输入第二个系数) c = Val(InputBox(请输入第三个系数) X1 = (-b + Sqr(b 2 - 4 * a * c) / (2 * a) X2 = (-b - Sqr(b 2 - 4 * a * c) / (2 * a) Print X1, X2End Sub(3) 在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，编写适当的程序，如果往 Text1中输入一个小写字母，就在Text2中显示输入字母所对应的大写字母；如果往 Text1中输入一个大写字母，就在Text2中显示输入字母所对应的小写字母。要求：窗体名称保存为sy2-3.frm，工程名保存为sy2-3.vbp。程序代码：Private Sub Text1_Change() m = Right(Text1.Text, 1) If m = a And m = A And m = Z Then Text2.Text = Text2.Text & LCase(m) End IfEnd Sub(4) 在名称为Form1的窗体上画两个图片框，名称分别为Picture1和Picture1，利用属性窗口在Picture1装入任意一个图象文件（比如P1.jpg），并设置两个图片框的高度和宽度都为1500；再画三个命令按钮，名称分别为C1、C2、C3，标题属性分别为“加载”、“打印”、“清除”。如图所示，单击命令按钮“加载”时，在Picture2装入另外一个图象文件（比如P2.jpg）；单击命令按钮“打印”时，在Picture1上显示“你好！”；单击命令按钮“清除”时，清除Picture1和Picture2中的所图片和文字。要求：窗体名称保存为sy2-4.frm，工程名保存为sy2-4.vbp。程序代码：Private Sub C1_Click() Picture2.Picture = LoadPicture(1.jpg)End SubPrivate Sub C2_Click() Picture1.Print 你好End SubPrivate Sub C3_Click() Picture1.Picture = L