内工大V实验报告-滚动字幕.doc

内蒙古工业大学信息工程学院 实 验 报 告 课程名称： 实验名称： 常用控件综合程序设计 实验类型： 验证性□ 综合性√ 设计性□ 实验室名称： 班级： 学号： 姓名： 组别： 同组人： 成绩： 实验日期： 实验报告撰写要求 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 实验目的 实验用仪器设备、器材或软件环境 实验原理、方案设计、程序框图、预编程序等 实验过程中需要记录的实验数据表格 实验过程中，要认真观察，仔细记录 完成实验后用实验报告纸撰写实验报告，包括以下内容 仪器设备型号及编号 实验器材或软件环境 实验步骤、程序调试方法 实验数据处理及结果分析 实验中存在的问题 体会及思考题 报告撰写时，要求格式规范、书写整齐 内蒙古工业大学信息工程学院 第 页 预习报告成绩： 指导教师审核（签名）： 年 月 日 预习报告 实验一 实验目的 学会综合运用常用控件进行程序设计的方法。 实验用仪器设备、器材、软件环境 1、普通计算机 2、VB 三、 实验内容 设计一个能控制字体、字号、字形和速度的滚动字幕程序 四、 预编程序 Const mLen = 100? 移动步长值Const mVMin = 400 慢速Const mV = 200 中速Const mVMax = 10 快速 Private Sub ChFonB_Click()Label1.FontBold = IIf(ChFonB.Value = 0, False, True)End Sub Private Sub ChFonI_Click()Label1.FontItalic = IIf(ChFonI.Value = 0, False, True)End Sub Private Sub ChFonU_Click()Label1.FontUnderline = IIf(ChFonU.Value = 0, False, True)End Sub Private Sub Form_Load()初始化 Timer1.Interval = mVMin With Label1? .FontName = OpFonS.Font.Name? .FontSize = OpFonSizeMin.FontSize End With Label1.Top = (Me.Height - Frame1(0).Height) / 3 End Sub Private Sub OpFonH_Click()Label1.FontName = OpFonH.Font.Name Label1.Top = (Me.Height - Frame1(0).Height) / 3End Sub Private Sub OpFonK_Click()Label1.FontName = OpFonK.Font.Name Label1.Top = (Me.Height - Frame1(0).Height) / 3 End Sub Private Sub OpFonS_Click()Label1.FontName = OpFonS.Font.Name Label1.Top = (Me.Height - Frame1(0).Height) / 3 End Sub Private Sub OpFonSize_Click()Label1.FontSize = OpFonSize.FontSize Label1.Top = (Me.Height - Frame1(0).Height) / 3 End Sub Private Sub OpFonSizeMax_Click()Label1.FontSize = OpFonSizeMax.FontSize Label1.Top = (Me.Height - Frame1(0).Height) / 3 End Sub Private Sub OpFonSizeMin_Click()Label1.FontSize = OpFonSizeMin.FontSize Label1.Top = (Me.Height - Frame1(0).Height) / 3 End Sub Private Sub OpV_Click()Timer1