vb课程设计之顺序结构程序设计

《vb课程设计之顺序结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验报告课程VisualBasic程序设计实验项目顺序结构程序设计专业班级姓名学号实验日期指导教师成绩实验目的：(1)熟练掌握窗体、命令按钮、标签、文本框控件的使用。(2)掌握VisualBasic基本数据类型(3)掌握VisualBasic基本语句、常用函数的使用。(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。程序代码：PrivateSubCommand1_C

3、lick()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)PrintX1,X2EndSub(1)在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，编写适当的程序，如果往Text1中输入一个小写字母，就在Text2中显示输入字母所对应的大写字母；如果往

4、Text1中输入一个大写字母，就在Text2中显示输入字母所对应的小写字母。要求：窗体名称保存为sy2-3.frm，工程名保存为sy2-3.vbp。程序代码：PrivateSubText1_Change()m=Right(Text1.Text,1)Ifm>="a"Andm<="z"ThenText2.Text=Text2.Text&UCase(m)ElseIfm>="A"Andm<="Z"ThenText2.Text=Text2.Text&LCase(m)EndIfEndSub(2)在名称为Form

5、1的窗体上画两个图片框，名称分别为Picture1和Picture1，利用属性窗口在Picture1装入任意一个图象文件（比如P1.jpg），并设置两个图片框的高度和宽度都为1500；再画三个命令按钮，名称分别为C1、C2、C3，标题属性分别为“加载”、“打印”、“清除”。如图所示，单击命令按钮“加载”时，在Picture2装入另外一个图象文件（比如P2.jpg）；单击命令按钮“打印”时，在Picture1上显示“你好！”；单击命令按钮“清除”时，清除Picture1和Picture2中的所图片和文

6、字。要求：窗体名称保存为sy2-4.frm，工程名保存为sy2-4.vbp。程序代码：PrivateSubC1_Click()Picture2.Picture=LoadPicture("1.jpg")EndSubPrivateSubC2_Click()Picture1.Print"你好"EndSubPrivateSubC3_Click()Picture1.Picture=LoadPicture("")Picture2.Picture=LoadPicture("")Picture1.ClsPictur

7、e2.ClsEndSub