今天就跟大家聊聊有关type使用方法以及萨姆森异常捕获,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。
自定义数据类型
为了使得我们自定义的数据类型在各个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使用方法以及萨姆森异常捕获有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注亿速云行业资讯频道,感谢大家的支持。
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。