msgbox"你好"
msgbox"不要碰这个电脑,你懂吗"
msgbox"碰了是狗"
msgbox"所以你不碰了"
dim i
do while i<1
Select Case msgbox("现在知道了?骗你的,玩去吧",34,"")
Case 6 i=1
Case 7
msgbox"我可是警告过你了,再给你一次机会"
end Select
loop
msgbox"哈哈哈哈"
msgbox"你好"
msgbox"不要碰这个电脑,你懂吗"
msgbox"碰了是狗"
msgbox"所以你不碰了"
dim i
do while i<1
Select Case msgbox("现在知道了?骗你的,玩去吧",34,"")
Case 6 i=1
Case 7
msgbox"我可是警告过你了,再给你一次机会"
end Select
loop
msgbox"哈哈哈哈"