与前一篇发文同理,文章地址
https://blog.csdn.net/qq_44973159/article/details/90789721
稍作改进:加入一个文本框
源代码如下:
text()
function text()
dim a
a=InputBox("叫我爸爸")
if a ="爸爸"then
msgbox"哎,乖儿子"
else
msgbox"不叫爸爸就出不去了"
msgbox"赶紧叫"
text()
end if
end function
与前一篇发文同理,文章地址
https://blog.csdn.net/qq_44973159/article/details/90789721
稍作改进:加入一个文本框
源代码如下:
text()
function text()
dim a
a=InputBox("叫我爸爸")
if a ="爸爸"then
msgbox"哎,乖儿子"
else
msgbox"不叫爸爸就出不去了"
msgbox"赶紧叫"
text()
end if
end function