1、实 验 报 告课 程 Visual Basic 程序设计 实验项目 顺序结构程序设计专业班级 姓 名 学 号实验日期 指导教师 成 绩实验目的：(1) 熟练掌握窗体、命令按钮、标签、文本框控件的使用。(2) 掌握 Visual Basic 基本数据类型(3) 掌握 Visual Basic 基本语句、常用函数的使用。(4) 掌握数据输入输出方法。实验内容：(1) 在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：A. 在文本框中可以显示多行文本B. 在文本框中显示垂直滚动条C. 文本框中显示的初始信息为“程序设计”D. 文本
2、框中显示的字体为三号规则黑体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
3、(“请输入第二个系数“)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
4、-3.frm，工程名保存为 sy2-3.vbp。程序代码：Private Sub Text1_Change()m = Right(Text1.Text, 1)If m = “a“ And m = “A“ And m = “Z“ ThenText2.Text = Text2.Text & LCase(m)End IfEnd Sub(4) 在名称为 Form1 的窗体上画两个图片框，名称分别为 Picture1 和 Picture1，利用属性窗口在 Picture1 装入任意一个图象文件（比如 P1.jpg） ，并设置两个图片框的高度和宽度都为 1500；再画三个命令按钮，名称分别为 C1、C2、
5、 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 = LoadPicture(“)Picture2.Picture = LoadPicture(“)Picture1.ClsPicture2.ClsEnd Sub
