1樓：匿名使用者
private sub command1_click()if cint(text1.text) mod 2 = 0 thenmsgbox "文字框內的數值為偶數！", , "提示"
else
msgbox "文字框內的數值為奇數！", , "提示"
end if
end sub
private sub command2_click()dim a as integer
action1:
randomize
a = cint(rnd * 100)
if a < 1 or a > 100 thengoto action1
end if
text2.text = a
'text1.text = text2.text '該**開啟後，直接將生成的隨機數輸出到text1
end sub
2樓：匿名使用者
1.dim a as integera=text1.text
if a mod 2 = 0 thentext2.text="是偶數"
else text2.text="是奇數"
end if
編寫一個程式，判斷任意輸入的整數的奇偶性。
3樓：匿名使用者
整數的奇偶
來性？是判斷數字是奇數還源是偶數嗎？
只要除以2餘數為0的就是偶數，不為0就是奇數。也不知道你是要哪種語言程式設計，簡單寫下：
t= x mod 2 //x是輸入的整數，t用來存放餘數 這條也可以直接寫到if的判斷條件裡去，就省一行**了
if(t) 輸出“這是一個奇數”
else 輸出“這是一個偶數”
4樓：匿名使用者
不知道你用的什麼語言，只要判斷下，輸入的整數除了0以外的數，對2取模是否為0就好了！
5樓：匿名使用者
這個就一個ｉｆ判斷就可以了呀
ｉｆ（ ｉ％２＝＝０）ｅｌｓｅ
6樓：匿名使用者
以下示例是用c++編的#includeusing namespace std;void main()
7樓：polaris北斗
c語言bai的du？zhi
#include
void main()
C語言，老師留的作業，求高手解答
書寫程式應遵循的規則有哪些 高內聚低耦合 if語句的三種基本形式 if if else if else.else 簡述變數的概念並寫出其宣告格式 變數是記憶體棧區內的一塊空間 宣告格式 var type var name init val,var name init val.請寫出函式定義的一般形式...
數字題作業,求大神求答案,急用,謝謝
i 1若直線 bail1的斜率不du存在,即 直線x 1,符合題意zhi.2若直線l1斜率存dao 在,設直線l1為y k x 1 即版 權kx y k 0.由題意知,圓心 3,4 到已知直線l1的距離等於半徑2,即 3k 4 k k平方 1 2解得k 3 4所求直線方程是x 1,3x 4y 3 0...
求大神幫忙解一下這道題，謝謝，求大神幫忙翻譯一下
計算 1 1 2 1 3 1 4 1 5 1 100的和 用積分，x分之一的積分，1到100 求大神幫忙翻譯一下 窗下秋衣風雨日，花零香砌玉痕清。那念女兒睫下露，才堪公子唱優伶。顒望東欄覓侯處，卻見稂莠委地生。綰髻庭隅靨輔動，閨中閔亂難釋情。鳥歸戢翼寒條泣，花滴愁血應如是。粉黛素面皆嫵媚，風花雪月折...