暗淡？答？作為？字符串，？b？作為？字符串，？c？作為？整數，？d？作為？線
私人？Sub？Command1_Click()
答？=?""
b？=?""
c？=?0
d？=?""
為了什麽？我？=?1?去哪？10?壹步？1
b？=?Int((100？-?10?+?1)?*?Rnd？+?10)
答？=?答？& amp？","?& amp？B
如果？b？Mod？3?=?0?然後
c？=?c？+?1
d？=?d？& amp？","?& amp？Str(B)
結束？如果
然後
答？=?Mid(A，？2)
d？=?Mid(D，2)
打印？“10的隨機數是:“？& amp？A
打印？能被3整除的數是多少？& amp？D
打印？能被3整除的數是多少？& amp？C
結束？子第二個問題:
暗淡？str？作為？線
私人？Sub？Command1_Click()
表單1。Cls
str？=?InputBox(請輸入壹個五分的分數，？請輸入壹個五分的分數。“A”)
如果？str？=?A。然後
打印？“90分以上”
埃爾瑟夫？str？=?" B "然後
打印？“80到90之間”
埃爾瑟夫？str？=?" C "然後
打印？“70到80之間”
埃爾瑟夫？str？=?D。然後
打印？“60到80歲之間”
否則:？str？=?E
打印？“不到60分”
結束？如果
結束？潛水艇