vb实验报告(4)完整版.doc

实验报告

课程

VB程序设计

实验项目

循环结构程序设计

成绩

专业班级

材料成型及控制工程

指导教师

钟原

姓名

李子逸

学号

1116030217

实验日期

2012.04.26

实验目的：

（1）掌握For-Next循环、While-Wend循环、Do-Loop循环

（2）掌握多重循环的使用

（3）掌握列表框和组合框的使用

实验内容：

【实验4-1】编写一个简易的字体格式设置程序。在当前窗体上，有1个文本框，单选按钮、复选框，要让其运行后，在文本框中输入文本，并分别选中不同的单选框和复选框，点击确定按钮后,文本框中的文本可以根据选择的效果显示(参考附件图片所示窗体界面)。保存工程文件名为sy4-1.vbp,窗体文件名为sy4-1.frm。

实验提示:设置字体,设置Text1.FontName属性=某个单选按钮的Caption,

设置大小,设置Text1.FontSize属性=某个单选按钮的Caption

设置下划线,设置Text1.FontUnderline=True,不设置为False

设置斜体,设置Text1.FontItalic=True,不设置为False

（1）程序代码(粘贴程序代码到此栏目下)

PrivateSubCommand1_Click()

IfOption1=tureThen

Text1.FontName=宋体

ElseIfOption2=TrueThen

Text1.FontName=黑体

ElseIfOption3=TrueThen

Text1.FontName=幼体

EndIf

IfOption4=TrueThen

Text1.FontSize=12

ElseIfOption5=TrueThen

Text1.FontSize=18

ElseIfOption6=TrueThen

Text1.FontSize=20

EndIf

IfCheck1.Value=CheckedThen

Text1.FontUnderline=True

Else:Text1.FontUnderline=False

IfCheck2.Value=CheckedThen

Text1.FontItalic=True

Else:Text1.FontItalic=False

EndIf

Text1.Text=全国计算机等级考试

EndIf

EndSub

（2）运行结果窗体(截取运行结果图粘贴到此栏目下)

【实验4-2】由键盘输入10个0~100之间的任意整数，找出其中的最大数和最小数，并将其在窗体上打印输出。保存工程文件名为sy4-2.vbp,窗体文件名为sy4-2.frm。

实验提示：用For-Next循环完成，由InputBox函数获得用户输入的值。

（1）程序代码(粘贴程序代码到此栏目下)

PrivateSubForm_Click()

a=Val(InputBox(请输入一个0到100的整数))

Max=a:Min=a

Fori=1To9

b=Val(InputBox(请输入一个0到100的整数))

IfbMaxThenMax=b

IfbMinThenMin=b

Nexti

Print最大数是:;Max

Print最小数是:;Min

EndSub

（2）运行结果窗体(截取运行结果图粘贴到此栏目下)

【实验4-3】建立如附件内图片文件中所示窗体界面，程序运行时，在文本框Text1中输入一个正整数，选择“奇数和”或“偶数和”，则在Label2中显示所选的计算类别。单击“计算”按钮时，将按照选定的“计算类别”计算小于或等于输入数据的奇数和或偶数和，并将计算结果显示在Label3中。

要求：工程文件名为sy4-3.vbp,窗体文件名为sy4-3.frm。

（1）程序代码

a=Val(Text1.Text)

s=0

IfOption1.Value=TrueThen

Fori=1ToaStep2

s=s+i

Nexti

Label3=s

Label2=奇数和

ElseIfOption2.Value=TrueThen

Fori=0ToaStep2

s=s+i

Nexti

Label3=s

Label2=偶数和

EndIf

（2）运行结果界面

【实验4-4】设计一个程序，可以在运行时向列表框中添加或删除项目，并可清除列表框中