大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
今天就跟大家聊聊有关type使用方法以及萨姆森异常捕获,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。
双辽网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作,到程序开发,运营维护。成都创新互联于2013年创立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
自定义数据类型
为了使得我们自定义的数据类型在各个sub中使用,就把它定义在通用中,即作为全局变量。
案例:
定义一个学生的数据类型
学生属性:学号、姓名、性别、年龄
建议将自定的 名称的首字母大写,并且不要用中文,自定义的名称的规范就按照变量命名规范
自定义数据类型往往比较喜欢跟数组一起连用
自定义数据类型,其实往往都是定义的是类似于一个对象
注:自定义数据类型,要求私有Private
补充异常捕获的异常描述
使用Err关键字
Err.Description表示错误描述
课堂总结
1、学会自定义数据类型type
2、掌握数据类型的注意点
3、学会排错,异常捕获
4、异常信息的输出
本期界面:
本期源代码:
Private Type Student
sno As Long '学号
sname As String '姓名
ssex As String '性别
sage As Integer '年龄
End Type
Dim stu() As Student
Private Sub Command1_Click()
ReDim stu(2) As Student
stu(0).sno = 1
stu(0).sname = "丁丁"
stu(0).ssex = "男"
stu(0).sage = 10
stu(1).sno = 2
stu(1).sname = "冬冬"
stu(1).ssex = "女"
stu(1).sage = 11
stu(2).sno = 3
stu(2).sname = "小刚"
stu(2).ssex = "男"
stu(2).sage = 10
MsgBox "学生载入成功", vbApplicationModal, "通知"
End Sub
Private Sub Command2_Click()
On Error GoTo catch
try:
Dim i%
For i = 0 To UBound(stu) Step 1
Print "学号:" & stu(i).sno _
& " 姓名:" & stu(i).sname _
& " 性别:" & stu(i).ssex _
& " 年龄:" & stu(i).sage
Next i
GoTo finally
catch:
MsgBox "请先载入学生!", vbCritical, "消息"
finally:
End Sub
看完上述内容,你们对type使用方法以及萨姆森异常捕获有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注创新互联行业资讯频道,感谢大家的支持。