選項顯式
Private zjhm As String
私有子命令1_Click()
將cp標註為字符串
Cp = InputBox("請輸入您的彩票號碼！")
do While Len(CP)& lt；& gt三
Cp = InputBox("請輸入您的彩票號碼！"，“彩票號碼錯了！請重新輸入！”)
環
將I標註為整數
Dim Ls(1到3)作為字符串
對於i = 1到3
Ls(i) = Mid(zjhm，I，1)
接下來我
Dim j為整數
將n表示為整數
如果cp = zjhm，則
MsgBox“恭喜妳，妳獲得了壹等獎！”
ElseIf (Mid(cp，1，2) = Mid(zjhm，1，2))或(Mid(cp，2，2) = Mid(zjhm，2，2))或_
(Mid(cp，1，1) = Mid(zjhm，1，1)和Mid(cp，3，1) = Mid(zjhm，3，1))那麽
MsgBox“恭喜妳，妳獲得了二等獎！”
ElseIf (Mid(cp，1，1) = Mid(zjhm，1，1))或_
(Mid(cp，2，1) = Mid(zjhm，2，1))或_
(Mid(cp，3，1) = Mid(zjhm，3，1))那麽
MsgBox“恭喜妳，妳中了壹個小獎！”
其他
MsgBox“可惜我沒中獎！謝謝大家的參與！”
如果…就會結束
末端接頭
私有子窗體_Load()
假設中獎號碼是521。
zjhm = "521 "
末端接頭