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

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

ID:2268508

大小:222.50 KB

页数:3页

时间:2017-11-15

vb课程设计之顺序结构程序设计_第1页
vb课程设计之顺序结构程序设计_第2页
vb课程设计之顺序结构程序设计_第3页
资源描述:

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

1、实验报告课程VisualBasic程序设计实验项目顺序结构程序设计专业班级姓名学号实验日期指导教师成绩实验目的:(1)熟练掌握窗体、命令按钮、标签、文本框控件的使用。(2)掌握VisualBasic基本数据类型(3)掌握VisualBasic基本语句、常用函数的使用。(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。程序代码:PrivateSubCommand1_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)PrintX1,X2EndSub(1)在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,编写适当的程序,如果往Text1中输入一个小写字母,就在Text2中显示输入字母所对应的大写字母;如果往Text1中输入一个大写字母,就在Text2中显示输入字母所对应的小写字母。要求:窗

4、体名称保存为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)在名称为Form1的窗体上画两个图片框,名称分别为Picture1和Picture1,利用属性窗口在Picture1装入任意一个

5、图象文件(比如P1.jpg),并设置两个图片框的高度和宽度都为1500;再画三个命令按钮,名称分别为C1、C2、C3,标题属性分别为“加载”、“打印”、“清除”。如图所示,单击命令按钮“加载”时,在Picture2装入另外一个图象文件(比如P2.jpg);单击命令按钮“打印”时,在Picture1上显示“你好!”;单击命令按钮“清除”时,清除Picture1和Picture2中的所图片和文字。要求:窗体名称保存为sy2-4.frm,工程名保存为sy2-4.vbp。程序代码:PrivateSubC1_Click()Picture

6、2.Picture=LoadPicture("1.jpg")EndSubPrivateSubC2_Click()Picture1.Print"你好"EndSubPrivateSubC3_Click()Picture1.Picture=LoadPicture("")Picture2.Picture=LoadPicture("")Picture1.ClsPicture2.ClsEndSub

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。