1樓：匿名使用者
'將以下內容復到記事本中 然後 儲存為 form1.frm
version 5.00
begin vb.form form1
caption = "form1"
clientheight = 4830
clientleft = 60
clienttop = 450
clientwidth = 8325
linktopic = "form1"
scaleheight = 4830
scalewidth = 8325
startupposition = 3 '視窗預設
begin vb.commandbutton command1
caption = "command1"
height = 495
left = 3315
tabindex = 0
top = 1905
width = 1215
endend
attribute vb_name = "form1"
attribute vb_globalnamespace = false
attribute vb_creatable = false
attribute vb_predeclaredid = true
attribute vb_exposed = false
private sub command1_click()
dim y$, m$, s$
y = val(inputbox("請輸入年（四位）", , "1999"))
m = val(inputbox("請輸入月", , "1"))
s = y & "年是 " & iif(datediff("d", cdate(y & "-2-1"), cdate(y & "-3-1")) = 29, "閏年", "平年") & vbcrlf
s = s & y & "年" & m & "月是第 " & mid("一二三四", datediff("d", cdate(y & "-1-1"), cdate(y & "-" & m & "-15")) \ 90 + 1, 1) & " 季度" & vbcrlf
s = s & y & "年" & m & "月有 " & datediff("d", cdate(y & "-" & m & "-1"), cdate(y & "-" & m + 1 & "-1")) & " 天" & vbcrlf
msgbox s
end sub
2樓：匿名使用者
我只給出一個判斷是否為閏年的演算法，致於季節，多少天這個問題你可以自己解決了
int leapyear(int year) //判斷某年是否閏年 閏年返回1，平年返回0
vb程式設計題：任意給定一年，判斷該年是否為閏年，並根據給出的月份判斷是什麼季節和該月有多少天。閏年的... 30
3樓：泥凌波
昏暗的一年為基於整數判斷是否是閏年
（mod 4年= 0，mod 100年》 0）或一年mod 400 = 0 _
然後列印一年閏年「 br />其他印刷年「，是不是閏年endif
對於i = 1 100'for週期，1 +2 + ...... .. +100
總和= sum +我下
4樓：匿名使用者
private sub command1_click()dim nian as integer, yue as integer, yuetian as integer
dim jj as string
dim rnain as boolean
5樓：匿名使用者
function longyear(y) as boolean '已知年返回是否潤年
if (y mod 4 = 0 or y mod 400 = 0) and y mod 100 <> 0 then
longyear=true
else
longyear=false
end if
end function
function monthdaycount(y,m) '已知年月返回月天數
select case month
case 4,6,9,11
monthdaycount=30
case 2
monthdaycount=iif(longyear(y)=true,29,28)
case else
monthdaycount=31
end select
end function
function season(m)'已知月返回季節
select case month
case 3,4,5
season="春"
case 6,7,8
season="夏"
case 9,10,11
season="秋"
case else
reason="冬"
end select
end function
用VB編寫程式，計算求123456200的值
dim n as long,m as longdim i as long n val text1.text m 0for i 1 to n m m 1 i i next i text2.text m end sub 用vb程式設計計算1 2 3 4 5 6 n的值，n由文字框輸入 樓上的程式，個人認...
用c（windows應用程式）編寫程式，輸入自己的姓名
新建一個visual c 的windows應用程式，在窗體上新增一個button和一個textbox，在button裡新增以下 if textbox1.text 這是控制檯輸入法 static void main string args console.writeline 請輸入你的姓名 strin...
急！用VB編寫程式，對輸入的字串進行識別，找出其中大寫字母 小寫字母 空格 數字及其他字元的個數
遍歷字串，比較其ascii，分別用不同的變數 參考 dim intnumber as integer,intucase as integer,intlcase as integer,intspace as integer dim i as integer,strtmp as string intnu...