1、实 验 报 告 课 程 Visual Basic程序设计 实验项目 顺序结构程序设计 专业班级 姓 名 学 号 实验日期 指导教师 成 绩 实验目的： (1) 熟练掌握窗体、命令按钮、标签、文本框控件的使用。 (2) 掌握 Visual Basic基本数据类型 (3) 掌握 Visual Basic基本语句、常用函数的使用 。 (4) 掌握数据输入输出方法 。 实验内容： (1) 在名称为 Form1的窗体上画一个文本框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能： A. 在文本框中可以显示 多行文本 B. 在文本框中显示垂直滚动条 C. 文本框中显示的初始信息
2、为 “程序设计 ” 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(
3、“请输入第一个系数 “) 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, X2 End Sub (3) 在名称为 Form1 的 窗体上画 两 个文本框，其名称 分别 为 Text1 和 Text2，编写适当的程序，如果往 Text1中输入一个小写字母，就在 Text2中显示输入字母所对应的大写字母；如果往 Text1中输入一个大写字母，
4、就在 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 If End Sub (4) 在名称为 Form1 的窗体上画两个图片框，名称分别为Picture1 和 Picture1，利用属性窗口在 Picture1 装入 任意一个 图象文件 （比如 P1
5、.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 Sub Private Sub C2_Click() Picture1.Print “你好 “ End Sub Private Sub C3_Click() Picture1.Picture = LoadPicture(“) Picture2.Picture = LoadPicture(“) Picture1.Cls Picture2.Cls End Sub
