4、在窗体上放置两个CommandButton控件，通过点击“确定”按钮，实现学号自动显示，单击“退出”按钮，实现结束程序：
5、添加程序代码
Private Sub Command1_Click()
Dim a, b, c
a = Text1.Text
b = Text2.Text
c = Text3.Text
Text4.Text = Trim(a) & Trim(b) & Trim(c)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
6、运行程序，输入入学日期、编入班级和编号，自动生成学号
点击确定按钮
实现了学号的自动生成，实际上我们可以通过读取学生信息文件，将所有的学生学号进行自动生成并保存到文件中，可以保存成文本格式文件，也可以保存成表格文件，还可以保存成数据库格式文件。
应用实例：在添加学生信息时，当添加到学生所在地时，不需要手动输入，可以直接从列表中进行选择
实现步骤
再添加一个Label控件、一个文本框控件和一个ComboBox控件，Label控件的内容为“学生所在省份”，ComboBox控件的下拉列表框将省份名称送给文本框控件：
