使用 VB 對輸出該月日曆的程式進行程式設計

表單上的總天數，放置 text1 text2 text3 command1 private sub command1 click（）。 昏暗的白天在第一天算作一周中的長日子。

dim weeknum as long

輸出。 將 OutText 變暗為 StringText1 是總天數。

daycount = val(

text2 是第一天的星期幾。

weeknum = val(

dim i as long

outtext = "星期一" & vbtab & "星期二" & vbtab

outtext = outtext & "星期三" & vbtab & "星期四" & vbtab

outtext = outtext & "星期五" & vbtab & "星期六" & vbtab & "星期日" & vbcrlf

for i = 1 to weeknum - 1outtext = outtext & vbtabnextdim k as long

for i = 1 to 7 - weeknum + 1outtext = outtext & i & vbtabk = k + 1

nextouttext = outtext & vbcrlffor i = 1 to daycount - kif i mod 7 = 0 then

outtext = outtext & vbcrlfend if

outtext

end sub

private sub form_load()= 31

2end sub

輸入一年中的某個月後，螢幕會輸出該月的日曆，每週一行，從週日開始，到週六結束。

import ;

public class year

return false;

返回乙個月和一年中有多少天。

public int getday(int year ,int month);閏年月。

int day1=;普通月份。

if(}/**

每月的 1 日是星期幾。

public int getweek(int year,int month)

列印出來，嘎嘎。

public void showprint(int year,int month)

for(int j=1;j<=day;j++)

j+"\t");

public static void main(string args)}

import ;

public class year

return false;

返回乙個月和一年中有多少天。

public int getday(int year ,int month);閏年月。

int day1=;普通月份。

if(}/**

每月的 1 日是星期幾。

public int getweek(int year,int month)

列印出來，嘎嘎。

public void showprint(int year,int month)

for(int j=1;j<=day;j++)

j+"\t");

public static void main(string args)}

我只做過日曆，也學過。

房東太有意思了。 寫完後，我說它是用C語言寫的。 55555555555...

完成後，在 C++ IDE 中執行它，看看它的外觀。

#include

獲取輸入的年份和月份的第一天是星期幾 0 6*

int getdate(int y,int m);

判斷輸入是否為閏月，如果是，則返回 1，否則返回 0*

int leap(int y);

列印輸入月份日曆*

void print(int y,int m);

int main()

int getdate(int y,int m)

w=(w+days)%7;

return w;*返回輸入月份的 1 日的星期幾*

void print(int y,int m)

if(leap(y)) month[1]=29;

printf("sun\tmon\ttue\twed\tthu\tfri\tsat");

int i,j;

for(i=0;ifor(i=w,j=1;j<=month[m-1];i++,j++)

printf("********************===="

int leap(int y)

import ;

public class demo

int week=sumday%7;

星期日、星期一、星期二、星期三、星期四、星期五、星期六");

int k=0;

for(k=0;k<(week+1)%7;k++)int s=1;

while(s<=daymonth(mouth))"\t"+s);

k++;s++;

if(leapyear(year)&&mouth==2)}public static boolean leapyear(int year)

public static int daysum(int year)public static int daymonth(int month)

return day;}}

private sub command1_click()dim mymonth as integerdim myyear as integermyyear = val(

mymonth = val(

datediff("d", myyear & "-" & mymonth & "-" & "1", myyear & "-" & mymonth + 1 & "-" & "1")

end sub

private sub form_load()= year(date) '文字 1 = 1'文字2.

" 'text3 輸入月份對應的天數 ="檢查"

end sub