PrivateSubForm_Load()DimiAsInteger,nAsDoubleDimn1AsLong,n2AsLong,n3AsLongFori=1To10n=Val(InputBox("請輸入第"&i&"個數"))Ifn>0Thenn1=n1+1ElseIfn<0Thenn2=n2+1Elsen3=n3+1EndIfNextMsgBox"正數"&n1&"個，負數"&n2&"個，零"&n3&"個"EndSub
上一篇:unity怎麽制作模型流光特效下一篇:漯河市雙匯工業園機械加工廠無機械基礎的人可以幹嗎？