1樓：沙中的世界
閏年是我們生活中再平常不過的事了。不過你知道它是怎麼計算的嗎？
2樓：匿名使用者
閏年公式如下：
若公立年可以被 4 整除, 則很有可能為公立年, 除非..
這個公立年可以被 100 整除, 但是不可以被 400 整除, 就不是閏年
測試程式及模組如下：
public function isleapyear(yr as integer) as boolean
\'設定預設返回值為 false
isleapyear = false
\'若公立年可以被 4 整除, 則很有可能為公立年, 除非..
\'這個公立年可以被 100 整除, 但是不可以被 400 整除, 就不是閏年
if yr mod 4 = 0 then
isleapyear = true
if yr mod 100 = 0 then
if (yr mod 400) then isleapyear = false
end if
end if
end function
\'在表單中放一個 commandbutton 及一個 textbox
private sub command1_click()
if isleapyear(text1.text) then
msgbox "公立" & text1.text & "年 是 閏年", 64, "是"
else
msgbox "公立" & text1.text & "年 不是 閏年", 64, "不是"
end if
vb6.0中,閏年判斷 如何表示?
3樓：匿名使用者
不論在哪種語言中，閏年的判斷方法是一樣的。
閏年的條件如下（程式實現自己編，想學程式設計又不想動手，趁早別學）：
1.能被4整除，但不能被100整除的年份都是閏年，如1996、2004
2.能被100整除，又能被400整除的年份都是閏年，如1600、2000
不符合這兩個條件的都不是閏年。
在具體實現的時候，可以這樣：
1.不能被4整除的，肯定不是閏年；
2.能被4整除，不能被100整除的，是閏年；
3.能被4整除，但又能被100整除的，要分析一下了，如果這個數又能被400整除的，則是閏年；否則不是閏年。
這樣就可以實現要求了。
4樓：匿名使用者
vb中：
//指定年份nyear是否為閏年的表示式
(nyear mod 4 = 0) and (nyear mod 100 <> 0) or (nyear mod 400 = 0)
vc中：
//指定年份nyear是否為閏年的表示式
(nyear % 4 == 0) && (nyear % 100 != 0) || (nyear % 400 == 0)
5樓：懶蟲
dim lyear as integer
lyear = 1985
if (lyear mod 4 = 0 and lyear mod 100 <> 0) or (lyear mod 400 = 0) then
msgbox cstr(lyear) + "年是閆年"
else
msgbox cstr(lyear) + "年不是閆年"
end if
vb如何正確計算閏年？
6樓：沙中的世界
閏年是我們生活中再平常不過的事了。不過你知道它是怎麼計算的嗎？
7樓：匿名使用者
你可以限制只能輸入數字：
private sub text1_keypress(keyascii as integer)
if keyascii<48 or keyascii>59 thenkeypress=0
end if
end sub
8樓：真
public function valitext(keyin as integer, validatestring as string, editable as boolean) as integer
dim validatelist as string
dim keyout as integer
if editable = true then
validatelist = ucase(validatestring) & chr(8)
else
validatelist = ucase(validatestring)
end if
if instr(1, validatelist, ucase(chr(keyin)), 1) > 0 then
keyout = keyin
else
keyout = 0
beep
end if
valitext = keyout
end function
private sub text1_keypress(keyascii as integer)
keyascii = valitext(keyascii, "0123456789", true)
end sub
valitext(keyascii, 這裡是准許輸入的字元, true=支援退格)
這個看似複雜,其實是個通用的
public function valitext(keyin as integer, validatestring as string, editable as boolean) as integer
這個是個函式,你複製到你的程式裡就可以了
然後在你需要限制輸入內容 的文字框的 keypress 事件裡呼叫這個函式 就ok啦~
呼叫**就
keyascii = valitext(keyascii, "0123456789", true)
這麼一句
用vb編一個程式，要求輸入一個年份，判斷出是否為閏年
9樓：很多很多
1、開啟visual basic軟體（vb軟體），新建工程，在form1窗體黑點區域雙擊進入form1的編輯區域：
2、清空後，就可以編寫**了。這裡在輸入欄中輸入年份，輸入之後點選確定，就會在form1中會顯示出是否閏年。關於閏年的判斷只要滿足能被4整除不能被100整除或者被4和400整除就是達成條件，最後儲存即可：
3、儲存後執行查詢，在form1中輸入一個年份，點選確定即可輸出是否為閏年：
10樓：匿名使用者
private sub command1_click()if text1.text mod 4 = 0 and text1.text mod 100 <> 0 or text1.
text mod 4 = 0 and text1.text mod 400 = 0 then
msgbox text1.text & "是閏年"
else
msgbox text1.text & "不是閏年"
end if
end sub
11樓：匿名使用者
private sub command1_click()dim a%text1=a
if a mod 4 = 0 and a mod 100 <> 0 then
msgbox a & "是閏年"
else
msgbox a & "不是閏年"
end if
end sub
vb程式設計主要是如何判斷閏年的**
12樓：匿名使用者
private sub command1_click()dim y as integer
y = int(val(text1.text))if y mod 4 = 0 then
if y mod 100=0 then
if y mod 400=0 then
text2.text=text1.text + "是閏年！"
else
text2.text=text1.text + "不是閏年！"
endif
else
text2.text=text1.text + "是閏年！"
endif
else
text2.text=text1.text + "不是閏年！"
endif
end sub
private sub command2_click()text1.text=""
text2.text=""
end sub
vb判斷閏年
vb程式設計算閏年
13樓：
一句就搞定了：
'畫一個文字框，一個命令按鈕
private sub command1_click()if right(dateserial(val(text1.text), 3, 0), 2) = 29 then msgbox text1.text & "年是閏年" else msgbox text1.
text & "年不是閏年"
end sub
vb6 0中的下劃線 和冒號 表示什麼意思
就是把一行 換行書寫，就是把多行 寫在一行中 vb中函式裡的 冒號和 下劃線是什麼意思？在vb中冒號 表示的是 標號，如果有goto語句可以跳轉到標號位置，如 if a b then goto err 我個人認為，此處的 無特別意思，此處的err 為標號，因為後面有一個 一般是標號的尾綴，是vb裡面...
vb6 0 用ado修改access資料庫中指定某行某列的單
你用ado控制元件還是物件呢？vb6.0 使用adodc控制元件讀取access資料庫.怎麼修改資料庫指定某一列的所有見容?adodc控制元件是這個兄弟，使用很簡單，舉個按鈕單擊的例子 private sub command1 click adodc1.connectionstring provid...
請問vb6 0怎麼按個按鈕切換同資料庫裡的兩個表
資料庫是按照資料結構來組織 儲存和管理資料的倉庫，資料管理不再僅僅是儲存和管理資料，而轉變成使用者所需要的各種資料管理的方式。資料庫有很多種型別，從最簡單的儲存有各種資料的 到能夠進行海量資料儲存的大型資料庫系統都在各個方面得到了廣泛的應用。在資訊化社會，充分有效地管理和利用各類資訊資源，是進行科學...