您好,登錄后才能下訂單哦!
今天就跟大家聊聊有關(guān)type使用方法以及薩姆森異常捕獲,可能很多人都不太了解,為了讓大家更加了解,小編給大家總結(jié)了以下內(nèi)容,希望大家根據(jù)這篇文章可以有所收獲。
自定義數(shù)據(jù)類型
為了使得我們自定義的數(shù)據(jù)類型在各個(gè)sub中使用,就把它定義在通用中,即作為全局變量。
案例:
定義一個(gè)學(xué)生的數(shù)據(jù)類型
學(xué)生屬性:學(xué)號(hào)、姓名、性別、年齡
建議將自定的 名稱的首字母大寫(xiě),并且不要用中文,自定義的名稱的規(guī)范就按照變量命名規(guī)范
自定義數(shù)據(jù)類型往往比較喜歡跟數(shù)組一起連用
自定義數(shù)據(jù)類型,其實(shí)往往都是定義的是類似于一個(gè)對(duì)象
注:自定義數(shù)據(jù)類型,要求私有Private
補(bǔ)充異常捕獲的異常描述
使用Err關(guān)鍵字
Err.Description表示錯(cuò)誤描述
課堂總結(jié)
1、學(xué)會(huì)自定義數(shù)據(jù)類型type
2、掌握數(shù)據(jù)類型的注意點(diǎn)
3、學(xué)會(huì)排錯(cuò),異常捕獲
4、異常信息的輸出
本期界面:
本期源代碼:
Private Type Student
sno As Long '學(xué)號(hào)
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 "學(xué)生載入成功", vbApplicationModal, "通知"
End Sub
Private Sub Command2_Click()
On Error GoTo catch
try:
Dim i%
For i = 0 To UBound(stu) Step 1
Print "學(xué)號(hào):" & stu(i).sno _
& " 姓名:" & stu(i).sname _
& " 性別:" & stu(i).ssex _
& " 年齡:" & stu(i).sage
Next i
GoTo finally
catch:
MsgBox "請(qǐng)先載入學(xué)生!", vbCritical, "消息"
finally:
End Sub
看完上述內(nèi)容,你們對(duì)type使用方法以及薩姆森異常捕獲有進(jìn)一步的了解嗎?如果還想了解更多知識(shí)或者相關(guān)內(nèi)容,請(qǐng)關(guān)注億速云行業(yè)資訊頻道,感謝大家的支持。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。