温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

type使用方法以及萨姆森异常捕获

发布时间:2021-11-09 18:13:20 来源:亿速云 阅读:116 作者:柒染 栏目:大数据

今天就跟大家聊聊有关type使用方法以及萨姆森异常捕获,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。

自定义数据类型

为了使得我们自定义的数据类型在各个sub中使用,就把它定义在通用中,即作为全局变量。

案例:

定义一个学生的数据类型

学生属性:学号、姓名、性别、年龄

建议将自定的 名称的首字母大写,并且不要用中文,自定义的名称的规范就按照变量命名规范

自定义数据类型往往比较喜欢跟数组一起连用

自定义数据类型,其实往往都是定义的是类似于一个对象

注:自定义数据类型,要求私有Private

补充异常捕获的异常描述

使用Err关键字

Err.Description表示错误描述

课堂总结

1、学会自定义数据类型type

2、掌握数据类型的注意点

3、学会排错,异常捕获

4、异常信息的输出

本期界面:

type使用方法以及萨姆森异常捕获

本期源代码:

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 = 1stu(0).sname = "丁丁"stu(0).ssex = "男"stu(0).sage = 10
stu(1).sno = 2stu(1).sname = "冬冬"stu(1).ssex = "女"stu(1).sage = 11
stu(2).sno = 3stu(2).sname = "小刚"stu(2).ssex = "男"stu(2).sage = 10MsgBox "学生载入成功", vbApplicationModal, "通知"End Sub
Private Sub Command2_Click()On Error GoTo catchtry:Dim i%For i = 0 To UBound(stu) Step 1
   Print "学号:" & stu(i).sno _        & " 姓名:" & stu(i).sname _        & " 性别:" & stu(i).ssex _        & " 年龄:" & stu(i).sage
Next iGoTo finallycatch:MsgBox "请先载入学生!", vbCritical, "消息"finally:
End Sub

看完上述内容,你们对type使用方法以及萨姆森异常捕获有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注亿速云行业资讯频道,感谢大家的支持。

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI