如何判断一个数是奇数还是偶数
vb程序段如下：
Private Sub Command1_Clicko
If Val（Text1.Text）Mod 2 = 1 And Val（Text1.Text）= Int（Val（Text1.Text）Then
Label1.Caption="这是奇数"
Else
If Val（Text1.Text）Mod 2= 0 And Val（Text1.Text）= Int（Val（Text1.Text））Then
Label1.Caption ="这是偶数"
Else
Label1.Caption ="非奇非偶"
End If
End If
End Sub
扩展资料：
判断奇偶数时，主要是使用运算符-Mod和if语句，Mod可以对一个数取余数。例如10/3= 3....11则10 Mod 3=1，所以如果任意一个数n Mod 2=1这个数就是奇数。
If语句格式：如果条件1成立 做代码1 否则 做代码2 结束
代码格式：
IfA1 Then
语句1
Else
语句2
End if
首先，这个数必须是个自然数。
在此前提下，如果这个数能被2整除就是偶数，否则就是奇数。对于十进制多位数而言，个位上的数是奇数或偶数，则整个数就是奇数或偶数。
绛旓細鍒ゆ柇涓涓暣鏁版槸濂囨暟杩樻槸鍋舵暟锛屽彧闇鏌ョ湅璇ユ暟涓綅鏁般備釜浣嶆暟涓0銆2銆4銆6銆8鐨勬暣鏁颁负鍋舵暟锛屼釜浣嶆暟涓1銆3銆5銆7銆9鐨勬暣鏁颁负濂囨暟銆傛垜浠彲浠ュ皢鏁存暟鍒嗕负涓ょ被锛氫釜浣嶆暟涓0鐨勬暣鏁板拰涓綅鏁颁笉涓0鐨勬暣鏁般傚浜庝釜浣嶆暟涓0鐨勬暣鏁帮紝鎴戜滑鍙互鐩存帴鍒ゆ柇涓鍋舵暟锛屽洜涓哄伓鏁扮殑瀹氫箟鏄兘琚2鏁撮櫎鐨勬暣鏁般備緥濡傦紝濡傛灉杈撳叆鏁存暟...
绛旓細2銆佽川鏁板畾涔変负鍦ㄥぇ浜1鐨勮嚜鐒舵暟涓紝闄や簡1鍜屽畠鏈韩浠ュ涓嶅啀鏈夊叾浠栧洜鏁般3銆佸鏁帮紝姝ｅ鏁板張绉板崟鏁 锛 鏁存暟涓紝鑳借2鏁撮櫎鐨勬暟鏄伓鏁锛屼笉鑳借2鏁撮櫎鐨鏁版槸濂囨暟锛屽鏁扮殑涓綅涓1锛3锛5锛7锛9銆4銆佸悎鏁版寚鑷劧鏁颁腑闄や簡鑳借1鍜屾湰韬暣闄ゅ锛岃繕鑳借鍏朵粬鏁帮紙0闄ゅ锛夋暣闄ょ殑鏁般備笌涔嬬浉瀵圭殑鏄川鏁帮紝鑰1鏃笉...
绛旓細瀹冨氨鏄伓鏁帮紙鍙屾暟锛夛紝鍙〃绀轰负2n锛涜嫢闈烇紝瀹冨氨鏄鏁帮紙鍗曟暟锛夛紝鍙〃绀轰负2n+1锛坣涓烘暣鏁帮級锛屽嵆濂囨暟锛堝崟鏁帮級闄や互浜岀殑浣欐暟鏄竴銆傚湪鍗佽繘鍒堕噷锛屽彲浠ョ敤鐪嬩釜浣嶆暟鐨勬柟寮鍒ゅ畾璇鏁版槸濂囨暟锛堝崟鏁帮級杩樻槸鍋舵暟锛堝弻鏁)锛氫釜浣嶄负1,3,5,7,9鐨勬暟鏄鏁帮紙鍗曟暟锛夛紱涓綅涓0,2,4,6,8鐨勬暟鏄伓鏁帮紙鍙屾暟)銆
绛旓細鍒ゆ柇涓涓暟鏄鏁拌繕鏄伓鏁鏂规硶锛氶鍏堝０鏄庝竴涓暣鏁癤锛岀敤scanf杈撳叆杩欎釜鏁帮紝鍏舵鍦ㄧ敤if璇彞浣滀负鍒ゆ柇鏉′欢鍘诲垽鏂繖涓暟锛屽鏋淴%2瀹冧负0锛堝氨鏄唬琛ㄨ繖涓猉鏁撮櫎2锛夛紝閭ｄ箞X灏变负鍋舵暟锛屽弽姝ｏ紙else锛夌敤printf杈撳嚭瀹冩槸濂囨暟銆傚叧浜庡伓鏁板拰濂囨暟锛屾湁涓嬮潰鐨勬ц川锛氾紙1锛変袱涓繛缁暣鏁颁腑蹇呮槸涓涓鏁颁竴涓伓鏁般傦紙2锛夊鏁颁笌...
绛旓細1.鍒ゆ柇鑳藉惁琚2鏁撮櫎銆傝兘琚暣闄ょ殑鏄伓鏁锛屽惁鍒鏄鏁銆2.鐪嬭鏁扮殑鏈鍚庝竴浣嶃傚鏋滄槸1銆3銆5銆7銆9鍒欐槸濂囨暟锛屽惁鍒欐槸鍋舵暟銆
绛旓細鎮ㄥソ 鍋舵暟鏄寚鍙互琚2鏁撮櫎鐨勬暟 鍙嶄箣灏辨槸濂囨暟 鍒ゆ柇鏄伓鏁拌繕鏄鏁 鐪嬭鏁版槸鍚﹁兘琚2鏁撮櫎
绛旓細闂闃愯堪鍦ㄨ繘琛岀▼搴忓紑鍙戞椂锛岀粡甯搁渶瑕侀氳繃鍒ゆ柇涓涓暣鏁版槸濂囨暟杩樻槸鍋舵暟锛屾潵瀹炵幇涓浜涚壒娈婄殑鏁堟灉鍜屽姛鑳斤紝渚嬪锛岃琛ㄦ牸鐨勫鏁拌鏄剧ず涓绉嶈儗鏅鑹诧紝鍋舵暟琛屾樉绀哄彟涓绉嶈儗鏅鑹层傞偅涔堣濡備綍鍒ゆ柇涓涓暣鏁版槸濂囨暟杩樻槸鍋舵暟鍛紵涓撳瑙ｇ瓟鍒ゆ柇濂囨暟涓庡伓鏁拌浠庤鏁存暟涓2鐨勪綑鏁板叆鎵嬶紝濡傛灉璇ユ暣鏁颁笌2鐨勪綑鏁版槸1锛岃鏄庤鏁存暟鏄鏁...
绛旓細涓涓鑷劧鏁颁笉鏄鏁灏鏄伓鏁銆傚鍚楋紵绛旓細瀵广傝嚜鐒鏁版槸鎸0銆1銆2銆3銆4銆5銆6銆7銆8鈥︹1銆3銆5鈥︹︽槸濂囨暟锛2銆4銆6銆8鈥︹︽槸鍋舵暟锛0鏄竴涓壒娈婄殑鍋舵暟锛2002骞村浗闄呮暟瀛﹀崗浼氳瀹氶浂涓哄伓鏁帮紱鎴戝浗2004骞翠篃瑙勫畾闆朵负鍋舵暟锛夈傚畠鏃㈡槸姝ｅ伓鏁颁笌璐熷伓鏁扮殑鍒嗙晫绾匡紝鍙堟槸姝ｅ鏁颁笌璐熷鏁扮殑鍒嗘按宀
绛旓細tan(伪+90掳n)杩欓噷鐨勫鍋舵槸鎸90掳鐨勫鏁板嶅拰鍋舵暟鍊嶏紝褰搉涓哄鏁鏃讹紝浼氬彉鎴恈ot伪锛涘綋n涓哄伓鏁版椂锛屼笉浼氬彉锛屼粛鐒舵槸tan伪銆傗斺旇繖灏辨槸濂囧彉鍋朵笉鍙樸傝(伪+90掳n)鍦ㄧ涓銆佷笁璞￠檺鏃讹紝绗﹀彿涓烘锛涘湪绗簩銆佷笁璞￠檺鏃朵负璐熴傚伓鍑芥暟鍦ㄥ畾涔夊煙鍐呭叧浜巠杞村绉扮殑涓や釜鍖洪棿涓婂崟璋冩х浉鍙嶏紝濂囧嚱鏁板湪瀹氫箟鍩熷唴鍏充簬...
绛旓細0鏄伓鏁銆傛牴鎹鏁板拰鍋舵暟鐨勫畾涔夛細鑻ユ煇鏁版槸2鐨勫嶆暟锛屽畠灏辨槸鍋舵暟锛堝弻鏁帮級锛屽彲琛ㄧず涓2n锛涜嫢闈烇紝瀹冨氨鏄鏁锛堝崟鏁帮級锛屽彲琛ㄧず涓2n+1锛坣涓烘暣鏁帮級锛屽嵆濂囨暟锛堝崟鏁帮級闄や互浜岀殑浣欐暟鏄竴銆0=2*0锛屾晠0鏄伓鏁般
