一、有关考试的几个问题
首先，提问：考试最重要的是什么？
答案其实很简单：得分！！！！！
想要得分，就要做到基本的保存。
保存哪些文件呢？
1.窗体代码的文件frm扩展名的文件
2.工程文件vbp扩展名
3.应用程序文件exe扩展名
如何查看文件扩展名？
组织----文件夹和搜索选项-----查看-----去掉“隐藏已知类型的扩展名”这个勾
对于报错的心态？
把握正确的处理心态，把报错看成是一种引导提示，帮助我们解决问题。
timer时钟要启动必须要有两个要点：
1.配置时间间隔internal单位为毫秒，1秒=1000毫秒
2.配置是否可用熟悉enabled为true才能运行。如果为false那么是不能运行的。
二、基本复习知识点
form窗体初始化加载的事件：Form_Load
如何通过代码设置label标签的字体？
有关字体的配置：
FontName 设置字体类型
FontSize 设置字体大小
FontBold 设置字体加粗
FontItalic 设置字体倾斜
FontUnderline 设置字体加上下划线
FontStrikethru 设置字体的删除线
使用方法：
Label1.FontName = "华文行楷"
Label1.FontSize = 60
Label1.FontBold = True
Label1.FontItalic = True
Label1.FontUnderline = True
Label1.FontStrikethru = True
三、新学一个控件
listbox列表框
listbox所在控件列表位置
在listbox中，加入的内容是一项一项的，我们可以将列表框中的内容单独取出或者加入。
提问：如何在录入属性的时候连续录入呢？
每一个项目的内容录入在list属性中
需要按住快捷键ctrl+enter进行下一项录入。
但是，实际上，往往在项目中，更多的是在代码中往listbox中添加项目。
代码添加一项，通过AddItem方法进行添加。
使用方法：
list控件对象.AddItem 字符串类型
获取listbox控件中的项目
通过list属性进行获取，注意这个list属性是一个数组。
数组的索引默认情况下是从0开始的。
所以第一项的索引是0
第二项的索引就是1
使用方法：
List1.List(这里填写索引项目)
从listbox中删除一个项目，使用函数RemoveItem
使用方法：
List1.RemoveItem 这里填写要删除的索引。
ListIndex代表当前listbox中被选中的这一行的索引。
当listindex的值为-1时代表listbox中的项目没有被选中。
所以，我们可以通过这个值的判断进行友情提示，防止报错！
判断代码：
If List1.ListIndex = -1 Then MsgBox "请选择项目" Else List1.RemoveItem List1.ListIndex End If
提问：如果一个专业有五个班，我们如果在添加的时候一次添加5个班级？
例如：专业为“18软件”，点击“添加”按钮后，在listbox中要立即出现18软件1、18软件2、18软件3、18软件4、18软件5
通过for循环来实现。
For i = 1 To 5 Step 1 List1.AddItem Text1.Text & i Next i
本节教程相关源代码：
工程文件列表：
form1窗体设计：
form1
form1源代码：
Private Sub Form_Load() Label1.FontName = "华文行楷" Label1.FontSize = 60 Label1.FontBold = True Label1.FontItalic = True Label1.FontUnderline = True Label1.FontStrikethru = True End Sub Private Sub Timer1_Timer() If Label1.Caption = "0" Then Timer1.Enabled = False Form2.Show Form1.Hide Else Label1.Caption = Val(Label1.Caption) - 1 End If End Sub
form2界面设计：
form2
form2源代码：
Private Sub Command1_Click() For i = 1 To 5 Step 1 List1.AddItem Text1.Text & i Next i End Sub Private Sub Command2_Click() If List1.ListIndex = -1 Then MsgBox "请选择项目" Else List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command3_Click() MsgBox List1.List(1) End Sub
