实验报告成绩1.docx

实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告一、实验目的学会综合运用常用控件进行程序设计的方法。二、实验内容设计一个能控制一行文字的字体、字号、字形、移动速度和移动方向的滚动字幕程序。三、实验要求1用标签或文本框显示一行文字。2文字的字体包括宋体、黑体和楷体3种，分别用3个单选按钮表示并用框架框住。3文字的字号包括小号字（可设置为20）、中号字（可设置为30）和大号字（可设置为40）3种，分别用3个单选按钮表示并用框架框住。4文字的字形包括粗体、斜体和下划线3种，分别用3个复选框表示并用框架框住。5文字移动的速度包括慢速、中速和快速3种（可用时钟控件的Interval属性进行控制），分别用3个单选按钮表示并用框架框住。6文字的移动方向包括从左向右和从右向左2种，分别用2个单选按钮表示并用框架框住。7程序界面可参照下图进行设计，要求在窗体上添加的各个控件布局合理、大小适中。对象属性的设置要求用表格填写，包括对象名、属性名、属性值和说明（可参照前面章节的实验内容）。8程序运行后，单击图中的某一单选按钮或复选框，标签或文本框中文字的字体、字号、字形、移动速度和移动方向都能做相应的改变，并实现文字从左向右循环滚动或从右向左循环滚动的效果。9实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。属性设置对象名属性名属性值Form1caption滚动字幕程序Text1text欢迎学习visual basic程序设计Check1caption粗体Check2caption斜体Check3caption下划线Option1caption宋体Option2caption黑体Option3captionOption4caption小号字Option5caption中号字Option6caption大号字Option7caption慢速Option8caption中速Option9caption快速Option10caption从左向右Option11caption从右向左Frame1caption字体Frame2caption字号Frame3caption字形Frame4caption移动速度Frame5caption移动方向程序代码：Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Option1_Click()Text1.FontName = 宋体End SubPrivate Sub Option2_Click()Text1.FontName = 黑体End SubPrivate Sub Option3_Click()Text1.FontName = 楷体_GB2312End SubPrivate Sub Option4_Click()Text1.FontSize = 20End SubPrivate Sub Option5_Click()Text1.FontSize = 30End SubPrivate Sub Option6_Click()Text1.FontSize = 40End SubPrivate Sub Option7_Click()Timer1.Interval = 5000End SubPrivate Sub Option8_Click()Timer1.Interval = 3000End SubPrivate Sub Option9_Click()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Dim m As Integer, i$, k$, n$, j$, a%, b%, c%a = Int(Rnd * 256)b = Int(Rnd * 256)c = Int(Rnd * 256)Text1.ForeColor = RGB(a, b, c)m = Len(Text1.Text) - 1n = Left(Text1.Text, 1)j = Right(Text1.Text, m)k = Left(Text1.Text, m)i = Right(Text1.Text, 1)If Option10.Value = True ThenTimer1.Enabled