快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

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

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

双辽网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作,到程序开发,运营维护。成都创新互联于2013年创立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联

自定义数据类型

为了使得我们自定义的数据类型在各个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使用方法以及萨姆森异常捕获有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注创新互联行业资讯频道,感谢大家的支持。


分享标题:type使用方法以及萨姆森异常捕获
本文来源:http://6mz.cn/article/ihccsi.html

其他资讯