内蒙古工业大学vb作业实验报告.doc

实验报告成绩： 指导教师审核（签名）： 年 月 日 实验报告 一实验目的 学会综合运用进行程序设计的方法。 二实验内容 三实验要求 1． 2． 3．．．．． 1.DELL 2.VB 五、实验编程 Dim zimu As String Private Sub Check1_Click() Text1.FontBold = Check1.Value End Sub Private Sub Check2_Click() Text1.FontItalic = Check2.Value End Sub Private Sub Check3_Click() Text1.FontUnderline = Check3.Value End Sub Private Sub Form_Load() Option1.Value = True Option4.Value = True Option7.Value = True Option10.Value = True Text1.FontSize = 24 zimu = 欢迎学习Visual Basic程序设计！ End Sub Private Sub Option1_Click() Text1.Font = 宋体 End Sub Private Sub Option2_Click() Text1.Font = 黑体 End Sub Private Sub Option3_Click() Text1.Font = 楷体_GB2312 End Sub Private Sub Option4_Click() Text1.FontSize = 20 End Sub Private Sub Option5_Click() Text1.FontSize = 30 End Sub Private Sub Option6_Click() Text1.FontSize = 40 End Sub Private Sub Option7_Click() Timer1.Interval = 300 End Sub Private Sub Option8_Click() Timer1.Interval = 200 End Sub Private Sub Option9_Click() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Dim length As Integer length = Len(zimu) If Option10.Value = True Then 将字符串最后一个汉字移动到字符串最前面,形成从左向右的滚动效果 zimu = Right(zimu, 1) Left(zimu, length - 1) Else 将字符串第一个汉字移动到字符串最后,形成从右向左的滚动效果 zimu = Right(zimu, length - 1) Left(zimu, 1) End If Text1.Text = zimu End Sub 五、实验截图 七、错误截图 解决截图 八、体会感受 编程是一门需要仔细思考的学问，需要认真钻研你会发现有许多小技巧可以利用， Tag属性的妙用，在编程中，我们经常要动态的控制很多不同控件的属性，例如我们要将一个CommandButton的阵列共20个控件中的第1,4,6，7,8,11,18,20号删除，这时只要将要删除的控件的Tag属性设置为1，然后加入以下代码就可以了 FOR I = 1 to 20 If command(i).Tag = 1 Then Unload command(i) End if Next i 内蒙古工业大学信息工程学院 第 页