VB代碼編程又沒有人會啊？
VB代碼編程又沒有人會啊？
再畫一個命令按鈕；在代碼里寫入；Private；Sub；Command1_Click()。Dim；a%；a；=；text1.text。If；a；Mod；2；=；0；Then；Print；"；你輸入的數字"。&；a；&；"；是偶數."。Else；Print；"；你輸入的數字"。&；a；&；"；是奇數."。End；If；End；Sub；當然這里沒有驗證；如果你輸入的不是數字是別的什么不保證不出錯。
導讀再畫一個命令按鈕；在代碼里寫入；Private；Sub；Command1_Click()。Dim；a%；a；=；text1.text。If；a；Mod；2；=；0；Then；Print；"；你輸入的數字"。&；a；&；"；是偶數."。Else；Print；"；你輸入的數字"。&；a；&；"；是奇數."。End；If；End；Sub；當然這里沒有驗證；如果你輸入的不是數字是別的什么不保證不出錯。
先畫一個文本框再畫一個命令按鈕在代碼里寫入PrivateSubCommand1_Click()Dima%a=text1.textIfaMod2=0ThenPrint"你輸入的數字"&a&"是偶數."ElsePrint"你輸入的數字"&a&"是奇數."EndIfEndSub當然這里沒有驗證如果你輸入的不是數字是別的什么不保證不出錯
VB代碼編程又沒有人會啊？
再畫一個命令按鈕；在代碼里寫入；Private；Sub；Command1_Click()。Dim；a%；a；=；text1.text。If；a；Mod；2；=；0；Then；Print；"；你輸入的數字"。&；a；&；"；是偶數."。Else；Print；"；你輸入的數字"。&；a；&；"；是奇數."。End；If；End；Sub；當然這里沒有驗證；如果你輸入的不是數字是別的什么不保證不出錯。
為你推薦
綜合
