Vfp程序设计 判断是否闰年汇总
基于汇编语言的闰年判断程序设计
基于汇编语言的闰年判断程序设计一、设计内容根据提示信息输入任意年份（0-9999），编写判断闰年的程序，如果是闰年，则在屏幕上显示“THIS YEAR IS A LEAD YEAR!”，否则显示“THIS YEAR IS NOT A LEAD YEAR!”。
然后界面提示“CONTINUE?( Y/N),INPUT ANY OTHER TO BREAK!”如果想继续输入则按“Y”，按其他任何键包括“Y”则退出。
二、设计思路与结构闰年计算是一个非常经典的问题，在学习各种语言时都会遇到这个问题，用来判断某年是否为闰年。
具体算法为如果该年份的数值正整数若能被100整除，又能被400整除，或者不能被100整除，却能被4整除，则该数值代表的年份为闰年。
本程序分为七个模块，分为小于100的年份的子程序SMALL_THAN_100 PROC ，等于100的年份的子程序YI_BAI PROC，大于100的年份的子程序MORE_THAN_100 PROC，菜单选择子程序MENUE PROC，写数据子程序READ PROC，退出程序EXIT PROC，使光标回车换行的子程序DPCRLF PROC。
思路结构：如果输入的年份小于100，则判断其能否被4整除，能整除则是闰年，否则不是。
如果输入的年份正好是100，则直接判断不是闰年。
如果输入的年份大于100，先判断能否被400整除，能整除（则说明也能被100整除）则是闰年，不能整除则继续下一步判断。
再判断能否被100整除，能被100整除则不是闰年，不能被100整除则继续下一步判断。
最后再判断能否被4整除，能被4整除则是闰年，否则不是。
三、详细设计主程序：显示提示输入年份以及最后输出的判断。
DATA SEGMENTINTERFACE DB 0DH,0AH,'PLEASE INPUT THE YEAR:','$'AGAIN DB 0DH,0AH ,'CONTINUE?( Y/N )INPUT ANY OTHER TO BREAK:','$' SUCCESS DB 0DH,0AH, 'THIS YEAR IS A LEAD YEAR!','$'FALTH DB 0DH,0AH, 'THIS YEAR IS NOT A LEAD YEAR!','$' FOUR DW 4YIBAI DW 100SIBAI DW 400子程序：(1)小于100的年份的子程序SMALL_THAN_100 PROCPUSH BXPUSH CXPUSH DXDIV FOURCMP DX,0JZ A1CMP DX,0JNZ A2POP BXPOP CXPOP DXRETSMALL_THAN_100 ENDP(2)大于100的年份的子程序MORE_THAN_100 PROCPUSH BXPUSH CXPUSH DXMOV BX,AXMOV AX,BXXOR DX,DXDIV SIBAICMP DX,0JZ B1MOV AX,BXXOR DX,DXDIV YIBAICMP DX,0JZ B2MOV AX,BXXOR DX,DXDIV FOURCMP DX,0JZ B1CMP DX,0JNZ B2POP BXPOP DXPOP CXMORE_THAN_100 ENDP (3)菜单选择子程序MENUE PROCAA: LEA DX,INTERFACE MOV AH,09HINT 21HCALL DPCRLFCALL READCALL DPCRLFCMP AX,0JB AACMP AX,9999JA AACMP AX,100JB J1CMP AX,100JA J2CMP AX,100JZ J3MOV AH,4CHINT 21H MENUE ENDP (4)写入数据子程序READ PROCPUSH BXPUSH CXPUSH DXXOR BX,BXXOR CX,CXMOV AH,1INT 21HCMP AL,'+'JZ READ1CMP AL,'-'JNZ READ2MOV CX,-1 READ1:MOV AH,1INT 21HREAD2:CMP AL,'0'JB READ3CMP AL,'9'JA READ3SUB AL,30HSHL BX,1MOV DX,BXSHL BX,1SHL BX,1ADD BX,DXMOV AH,0ADD BX,AXJMP READ1READ3: CMP CX,0JZ READ4NEG BX READ4: MOV AX,BXPOP DXPOP CXPOP BXRETREAD ENDP(5)退出程序EXIT PROCXOR DX,DXCALL DPCRLF BB: LEA DX,AGAINMOV AH,09HINT 21HXOR DX,DXCALL DPCRLFMOV AH,01HINT 21HCMP AL,'Y'JNZ OUTCXCALL MENUE OUTCX:MOV AH,4CHINT 21H EXIT ENDP(6)等于100的子程序YI_BAI PROCLEA DX,FALTHMOV AH,09HINT 21HCALL EXITYI_BAI ENDP(7)使光标回车换行的子程序DPCRLF PROCPUSH AXPUSH DXMOV AH,2MOV DL,0DHINT 21HMOV AH,2MOV DL,0AHINT 21HPOP DXPOP AXRETDPCRLF ENDP四、调试过程与结果初始界面：输入2000，判断是闰年，提示是否继续，按“Y”继续，输入2013，判断不是闰年，提示是否继续，按“N”退出。
VF作业 表达式 _答案
4、验证下列关系运算符的结果? "ABC">"B"返回结果:.F.? "大专">"大本" 返回结果:.T.? "ABC"="AB" 返回结果:.T.? "ABC"=="AB" 返回结果:.F.? .T.!=.F. 返回结果:.T.5、验证下列逻辑运算符的结果?2.6+1.7>23+56 .AND. (.NOT. .T. .OR. "F" $ "GF") 返回结果:.F.?100.3<5.6*34 .AND.(“ABCD”$”AB”) .OR. .NOT.(.T.and.NOT..F.) 返回结果1、判断闰年提示：润年的条件是：年号（year）能被4整除，但不能被100整除；或者能被400整除答:表达式可写为:year=2012year=year(date())?Mod(year,4)=0 and mod(year,100)<>0 or mod(year,400)=0?(year%4=0) and (year%100<>0) or (year%400=0)2、一元二次方程ax2+bx+c=0有实根的条件为：a≠0,并且b2-4ac≥0答:表达式可写为:a<>0 and b^2-4*a*c>=03、当前数据表有姓名、性别、年龄、身高字段，写出征兵条件是：男性、年龄在18~20岁之间，身高）在1.65m以上；或者女性、年龄在16~18岁之间，身高在1.60m以上答:表达式可写为:LIST FOR 性别="男" and between(年龄,18,20) and 身高>1.65 or ;性别="女" and (年龄>=16 and 年龄=<18) and 身高>1.64、当前数据表有“姓名”字段，显示姓“王”的所有人员答:表达式可写为:List for left(姓名,2)="王"List for "王"$姓名&&名中含“王”全部显示5、当前数据表有性别（C,2）,奖金(N,6,2),查询奖金在100以下或400以上的男职工和奖金在200以上的女职工。
VFP程序设计典型例题汇总
VisualFxoPro程序设计题1．编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。
usestudent&&运行前单击教学管理数据库input“请输入某日期:”tor q*输入时有提示，或inputtorq输入时无提示，输{^1987-01-01}browsefor出生日期>rq2．有一函数：x（x<1)y=2x-1（1≤x＜10)3x-11（x≥10）编写程序，输入x，输出y的值。
clearinput"Enterxplease!"toxifx<1y=xelseifx<10y=2*x-1elsey=3*x-11endifendif?'x=',x,'y=',y3．编写程序，从键盘输入一个年份，判断它是否闰年。
clearinput"Enteryearnumberplease!"toyify%4=0andy%100<>0ory%400=0?y,"isaleapyear!"else?y,"isnotleapyear."Endif4．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。
90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。
input“请输入一百分制成绩”tocjdocasecasecj>=90?”A”casecj>=80?”B”casecj>=70?”C”casecj>=60?”D”otherwise?”E”endcase5．编写程序，从键盘输入一个正整数M，输出M内（包括M）所有偶数。
clearinputtomfori=0tomstep2??str(i,5)Endfor6．编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。
判断某一年是否为闰年
判断某一年是否为闰年？
开始 输入年份Year
Year能被400整除
程序设计： 程序设计：
INPUT "INPUT Year"; Year IF Year MOD 400 = 0 THEN
是 是
PRINT Year; "IS A LEAP YEAR" ELSEIF Year MOD 4 = 0 AND Year MOD 100 <> 0 THEN PRINT Year; "IS A LEAP YEAR" ELSE PRINT Year; "IS NOT A LEAP YEAR" END IF
什么是分支结构？
现实生活中， 现实生活中，许多 事情的发展并不是 一条线进行的， 一条线进行的，会 有许多意外的事情 发生。 发生。 分支结构就是将各 分支结构就是将各 种情况考虑进去， 种情况考虑进去， 以便有足够准备去 应付意外。 应付意外。
行李托运
开始 输入行李重量W W<=50? 是 S=W*0.15 否 S=W*0.15+(W-50)*0.10 ELSE S = W * .15 + (W - 50) * .1 输出金额 结束 END IF PRINT "JINER="; S END INPUT "xinlizongliang:"; W IF W <= 50 THEN S = W * .15
第四节 分支结构程序设计
学习内容
1. 复习顺序结构程序设计 2. 什么是分支结构程序设计? 什么是分支结构程序设计? 3. 生活中的的我们买东西 时要做些什么
开始 输入单价、数量 确定 价格=单价X数量 输出出价格 顾客确认 付款 结束
实现一个函数,判断一个给定的年份是否为闰年。
实现一个函数，判断一个给定的年份是否
为闰年。
实现一个函数，判断一个给定的年份是否为闰年
闰年是指能够被4整除但不能被100整除的年份，或者能够被400整除的年份。
判断一个给定的年份是否为闰年，可以通过编写一个简单的函数来实现。
下面是一个用于判断闰年的函数的示例代码：
def is_leap_year(year):
if year % 4 == 0 and year % 100 != 0 or year % 400 == 0:
return True
else:
return False
这个函数接受一个参数year，代表要判断的年份。
函数内部通过使用条件判断语句来判断年份是否为闰年，并返回相应的结果。
如果年份是闰年，则返回True，否则返回False。
要使用这个函数进行判断，可以调用函数并传入要判断的年份
作为参数。
例如，下面是使用函数判断年份是否为闰年的示例代码：
year = 2024
if is_leap_year(year):
print(year, "是闰年")
else:
print(year, "不是闰年")
运行以上代码，将会输出"2024 是闰年"，因为2024年是闰年。
通过编写一个简单的判断函数，可以方便地判断一个给定的年
份是否为闰年。
在实际使用中，可以根据具体的需求进行相应的改
进和扩展。
VFP程序设计示例与练习
选择结构程序设计示例与练习1.从键盘输入一个正整数,判断这个数的奇偶性。
输出这个数以及判断结果。
SET TALK OFFCLEARINPUT ‘请输入一个正整数：’ TO XIF INT(X/2)=X/2‘是偶数’ENDIFIF INT(X/2)!=X/2‘是奇数’ENDIFSET TALK ONRETURN【练习】（1）请用IF……ELSE……ENDIF语句实现；2. 输入一个年份，判断其是否闰年，输出这个年份以及判断结果。
SET TALK OFFCLEARINPUT ‘请输入一个年份：’ TO YRIF MOD(YR,4)=0 AND MOD(YR,100)!=0 OR；MOD(YR,400)=0Note 上面两行是关于闰年的判断，因为太长，所以写Note 成了两行，第一行末尾用了分号，表示和下一行Note 是一个命令YR,‘是闰年’ELSEYR,‘不是闰年’ENDIFSET TALK ONRETURN【练习】（1）从键盘输入一个正整数,判断这个数是否是3的倍数，若是，则输出这个数，否则，输出“不是3的倍数”；（2）从键盘输入一个正整数,判断这个数是否能被3、4同时整除。
输出同（1）；（3）从键盘输入一个正整数,判断这个数是否能被4和5整除，同时又不能被6整除。
输出同（1）；（4）从键盘输入一个正整数,如果这个数同时能被3、5整除，或者同时能被2、7整除，则输出“YES！”，否则输出“NO！”3.输入一个大写字母，求该字母的ASCII值；（要求判断该字母是否为大写字母，若不是，则输出“输入错误，该字母不是大写字母！”）CLEARSET COLLATE TO ‘MACHINE’ACCEPT ‘请输入一个大写字母：’ TO CH IF CH>=‘A’ AND CH<=‘Z’“字母&CH.的ASCII值是:”,ASC(CH)ELSE‘输入错误，该字母不是大写字母！’ENDIFRETURN【练习】（1）输入一个小写字母，做同样判断；（2）输入一个大小为100—10000的整数，并将该数转换为字符串输出；（要求判断该数的大小，若不符合要求，则输出“输入数据不符合要求”）4.输入三角形的三条边，求三角形的周长和面积。
判断闰年程序
//这是一个判断某一年是否为润年的程序，运行可执行程序Ifleap.exe后，输入具体的年份，可输出是本年是否为闰年的提示信息。
data segment ;定义数据段infon db 0dh,0ah,'Please input a year: $'Y db 0dh,0ah,'This is a leap year! $'N db 0dh,0ah,'This is not a leap year! $'w dw 0buf db 8db ?db 8 dup(?)data endsstack segment stackdb 200 dup(0)stack endscode segmentassume ds:data,ss:stack,cs:codestart:mov ax,datamov ds,axlea dx,infon ;在屏幕上显示提示信息mov ah,9int 21hlea dx,buf ;从键盘输入年份字符串mov ah,10int 21hmov cl, [buf+1]lea di,buf+2call datacatecall ifyearsjc a1lea dx,nmov ah,9int 21hjmp exita1: lea dx,ymov ah,9int 21hexit: mov ah,4chint 21hdatacate proc near；push cx;dec cxlea si,buf+2tt1: inc siloop tt1;lea si,cx[di]pop cxmov dh,30hmov bl,10mov ax,1l1: push axsub byte ptr [si],dhmul byte ptr [si]add w,axpop axmul bldec siloop l1retdatacate endpifyears proc nearpush bxpush cxpush dxmov ax,wmov cx,axmov dx,0mov bx,4div bxcmp dx,0jnz lab1mov ax,cxmov bx,100div bxcmp dx,0jnz lab2mov ax,cxmov bx,400div bxcmp dx,0jz lab2lab1: clcjmp lab3lab2: stclab3: pop dxpop cxpop bxretifyears endpcode endsend start。
项目实战：判断闰年平年并输出某月的天数
项⽬实战：判断闰年平年并输出某⽉的天数1.项⽬案例所谓闰年，就是指 2 ⽉有 29 天的那⼀年。
闰年同时满⾜以下条件：1.年份能被 4 整除。
2.年份若是 100 的整数倍，须被 400 整除，否则是平年。
例如，1900 年能被 4 整除，但是因为其是 100 的整数倍，却不能被 400 整除，所以是平年；⽽ 2000 年就是闰年；1904 年和 2004 年、2008 年等直接能被 4 整除且不能被 100 整除，都是闰年；2014 是平年。
下⾯根据上⾯的知识点编写⼀个判断闰年的案例，其主要功能如下：1.判断⽤户输⼊的年份是不是闰年。
2.根据年份和⽉份输出某年某⽉的天数。
2.项⽬实现(1)新建⼀个类并在类中导⼊java.util.Scanner类，并且创建⼀个类的⼊⼝main()，及具体实现如下：import java.util.Scanner;public class plan04{public static void main(String[] args){...;}}(2)在main中编写代码，获取⽤户键⼊年份和⽉份，具体实现如下：System.out.print("Enter the year: ");int year = sc.nextInt();System.out.print("Enter the month: ");int month = sc.nextInt();(3)根据⽤户输⼊的年份判断是平年还是闰年，具体实现如下：if((year%4==0)&&(year%100!=0))||(year%400==0){days[1] = 28;System.out.println(year+" is runnian,"+month+" have "+days[month-1]+" tian");}else{System.out.println(year+" is pingnian,"+month+" have "+days[month-1]+" tian");}3.项⽬效果Enter the year: 2012Enter the month: 22012 is runnian,2 have 29 tianEnter the year: 2014Enter the month: 22014 is pingnian,2 have 28 tian。
判断年份是否是闰年
判断年份是否是闰年实例：判断闰年要求：输入年份，判断概念是否是闰年。
关键：如何判断闰年？解决：能被4整除且不能被100整除，或者能被400整除。
核心：设年为year，则（year%4==0&&year%100!=0）||（year%400==0）算法：设year为年份，F为判断结果，是逻辑变量伪代码：1、输入year2、计算F=（year%4==0&&year%100!=0）||（year%400==0），若F为true，则为闰年；若F 为false，则不为闰年3、输出结果数据测试建议：2011：不能被4整除2012：能被4整除，但不能被100整除2000：均能被4、100、400整除1900：能被4、100整除，但不能被400整除实现的完整代码：#includeusing namespace std;void main(){int year;bool F;cout<< "请输入年份：" <<endl;< p="">cin>> year;F = (year%4 == 0 && year%100 != 0) || (year%400 == 0);cout<< "判断结果是：" ;if (F==0){cout<< "该年不是闰年。
" <<endl;< p=""> }else{cout<< "该年是闰年。
" <<endl;< p=""> }system("pause");}</endl;<></endl;<></endl;<>。
Vfp程序设计 判断是否闰年汇总
Vfp程序设计循环结构练习——使用列表框设计九九乘法表1、实验目的：掌握循环语句结构语法。
熟练掌握DO WHILE……ENDDO、FOR……ENDFOR语句了解SCAN……ENDSCAN语句掌握组合框、页框。
熟练掌握列表框。
2、实验内容：编程题：输出“九九”乘法表，格式如图所示设计步骤：1、设计程序界面与设计对象属性。
选择“新建”表单，进入表单设计器。
增加一个列表框控件List1、两个个命令按钮Command1和Command2、一个标签Label1。
其他控件的属性设置请参见前面章节。
2、编写Command1的Click事件代码：FOR n=1 TO 9s=ALLT(STR(n-1))i=ALLT(STR(n))THISFORM.LIST1.ADDLISTITEM("*",1,1)THISFORM.LIST1.ADDLISTITEM(i,n+1,1)FOR t=n TO 9i=ALLT(STR(n))THISFORM.LIST1.ADDLISTITEM(i,1,n+1)s=ALLT(STR(t*n))THISFORM.LIST1.ADDLISTITEM(ALLT(STR(t))+"*"+ALLT(STR(n))+"="+s,t+1, n+1)ENDFORENDFOR说明：添加列表方法AddlistItem(s,n,1)第三个参数表示列表项添加到列表中的列数。
编写Command2的Click事件代码：THISFORM.RELEASE先画2个文本框在画一个命令按钮在命令按钮CLICK过程中输入y=val(thisform.text1.value)if mod(y,100)<>0 and mod(y,4)=0 y="是闰年"elseif mod(y,400)=0 theny="是闰年"elsey="不是闰年"endifendifthisform.text2.value=y。
微机-闰年判断程序设计
学号：微机原理及接口技术课程设计题目闰年判断程序设计学院自动化学院专业电气工程及其自动化班级姓名指导教师2015 年12 月18 日课程设计任务书学生姓名：专业班级：指导教师：工作单位：自动化学院题目: 闰年判断程序设计初始条件：该程序实现通过键盘输入一年份，然后判断该年份是否为闰年，如果是闰年，则在屏幕上显示：该年是闰年。
如果不是，则显示：该年不是闰年。
要求完成的主要任务:（包括课程设计工作量及其技术要求，以及说明书撰写等具体要求）（1）设计任务及要求分析（2）方案比较及认证说明（3）系统原理阐述（4）硬件设计课题需要说明：硬件原理，电路图，采用器件的功能说明（5）软件设计课题需要说明：软件思想，流程图，源程序及程序注释（6）调试记录及结果分析（7）总结（8）参考资料（9）附录：芯片资料或程序清单，软件演示屏幕拷贝图或硬件实物图目录摘要 01.设计任务及要求分析 (1)1.1课程设计的目的 (1)1.2闰年判断程序设计 (1)2.方案比较及认证说明 (2)2.1方案比较 (2)2.1.1采用汇编语言设计 (2)2.1.2采用C语言设计 (2)2.2方案论证 (2)3.系统原理阐述 (3)3.1软件思想 (3)3.2程序设计原理 (3)3.3程序设计流程图 (3)3.4汇编源程序 (4)3.4.1主模块程序 (4)3.4.2子模块程序设计 (4)4.调试记录及结果分析 (6)4.1运行界面记录 (6)4.2算法分析 (7)4.3调试过程及结果分析 (7)心得体会 (8)参考文献 (9)附录 (10)摘要本次微机原理与接口技术课程设计是要设计一个判断年份是否为闰年的显示程序。
本次课程设计用的是8086最小系统，在emu8086汇编集成环境下完成。
首先，根据课设题目要求进行分析，并选择适合要求的方案，在选定方案下设计整个设计要求的程序框架，画出流程框图，然后运用模块化的设计思想，将题设要求分成几个小的模块，一段一段的设计程序。
1汇编判断闰年实习报告
1．实验题目编写一个判断闰年的汇编语言程序，判断某个年份是否是闰年，如果是，输出‚yes!‛；如果不是，则输出‚No！‛。
2．实验目的1)学习汇编基本程序结构（顺序、分支、循环）编程；2)学习int 21h的01h,09h,0ah号功能；3)学习如何用堆栈方法解决实际问题。
3．实验步骤1)根据题意，程序启动运行之后，用户在键盘上输入判断的年份，输出判断的结果。
所以，程序主要结构应如下：接收在键盘上输入的年份字符串，存储在缓冲区year；将缓冲区中的年份转换成10进制数赋给变量yeard；判断变量yeard是否满足闰年的条件；输出判断的结果。
2)首先，定义数据段。
数据段包括输入判断闰年年份提示，判断是否结束程序的提示，输入字符串的缓冲区（其中定义了允许输入的最大字节数，实际输入的个数，实际字符串存储的缓冲区大小），闰年和非闰年的判断提示，缓冲区的偏移量，十进制形式存储的变量yeard；3)定义堆栈段，由于判断闰年时会改变yeard的数值，所以定义200个字节的堆栈空间供程序使用；4)接下来进入代码段的实现，从程序结构上看，用INT 21H的09号功能输出输入判断闰年年份的提示，用INT 21H的10号功能输入年份字符串，将字符串存储在缓冲区year中；5)定义最大输入的字符个数为5（包括回车），用循环again1将year转化为十进制数存入变量yeard中；a)设置最大循环次数为4，初始字符串偏移量i为2，年份变量yeard为0；b)首先将ax寄存器置0，然后将year的首地址赋给si，再将si加上偏移量i用寄存器间接寻址方式将si存储的字符赋给al；c)将ax中存放的字符减去30h转化为十进制数值，把该数值加到年份变量yeard中，然后bx清0，将实际输入的个数存入bl中，将偏移量i与bx+1作比较（判断是否读到year的最后一个有效字符），是，跳出循环again1，否，继续下一步；d)将ax中的数值乘以10再赋给yeard，然后i自增1，回到b。
软件测试实例之闰年判断
软件测试实例之闰年判断⼀、需求 测试输⼊年份是否为闰年，并能防⽌⾮法输⼊⼆、需求分析 1. 显⽰⼀个输⼊框以供输⼊，提交按钮以供提交输⼊； 2. 过滤⾮法输⼊，当且仅当输⼊字符全为数字⽽数字不为零（注：公元0年不存在）时⽅才做进⼀步处理，否则提⽰输⼊错误； ⽤HTML&JavaScript编写只需：function checkNum(value) { //value为输⼊框传⼊的值var Reg = /^[0-9]*$/;if (Reg.test(value)) return true; //输⼊正确return false; //⾮法输⼊} 3. 根据输⼊的数字判断是否为瑞年： a.普通年能被4整除且不能被100整除的为闰年。
（如2004年就是闰年,1900年不是闰年） b.世纪年能被400整除的是闰年。
(如2000年是闰年，1900年不是闰年)if((document.getElementById("input").value%4==0&&document.getElementById("input").value%100!=0)||document.getElementById("input").value%400==0)document.getElementById("output").innerHTML="输⼊年份为闰年.";elsedocument.getElementById("output").innerHTML="输⼊年份为平年.";三、测试⽤例编号输⼊预期输出12008输⼊年份为闰年.22000输⼊年份为闰年.31900输⼊年份为平年.4abcd请检查是否输⼊正确.50请检查是否输⼊正确.四、实际测试1.2.3.4.5.五、源码：HTML&JavaScript<!DOCTYPE html><html><head lang="en"><meta charset="GB2312"><style>body{text-align:center}</style><body>请输⼊年份：<input type="text" id="input" autofocus="autofocus"/><input type="submit" value="确定" onclick="test()"/><p id="output"></p><script>function test(){if(!checkNum(document.getElementById("input").value)||document.getElementById("input").value==0)document.getElementById("output").innerHTML="请检查是否输⼊正确.";else if((document.getElementById("input").value%4==0&&document.getElementById("input").value%100!=0)||document.getElementById("input").value%400==0) document.getElementById("output").innerHTML="输⼊年份为闰年.";elsedocument.getElementById("output").innerHTML="输⼊年份为平年.";}function checkNum(value) {var Reg = /^[0-9]*$/;if (Reg.test(value)) return true;return false;}</script></body> </html>。
【免费下载】VFP程序设计典型例题汇总
do while not bof() disp wait skip -1
enddo use 11．先在 STUDENT 表中插入一个新字段：平均成绩（数值型,6,2）。然后编写 程序，根据 GRADE 表统计每个学生的平均成绩，并填入新插入的字段中。 select 学号,avg(成绩)as 平均成绩 from grade group by 学号 into table t use t index on 学号 to txh sele 2 use student index on 学号 to sxh set rela to 学号 into t repl all 平均成绩 with t->平均成绩 12．写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数 是指一个三位自然数，其各位数字立方和等于该数本身。例如，153 是水仙花 数，因为 153＝13+53+33。 input to zrs gw=zrs%10 sw=int(zrs/10)%10 bw=int(zrs/100) if bw**3+sw**3+gw**3=zrs
Visual FxoPro 程序设计题
1．编写程序，从键盘输入一个日期，查询 STUDENT 表中该日期以后出生的学
生信息并显示在浏览窗口中。
use student
input “请输入某日期:” to rq
*输入时有提示，或 input to rq 输入时无提示，输{^1987-01-01}
browse for 出生日期>rq
clear
input "Enter year number please!" to y
if y%4=0 and y%100<>0 or y%400=0
微机闰年判断
郑州航空工业管理学院微机原理课程设计说明书2013级电气工程及其自动化专业 1306971 班级题目判断某一年是否为闰年姓名李晓孟学号130697112指导教师王义琴职称二О一三年十二月十二日判断某一年是否为闰年摘要：《微机原理及接口技术》是一门应用性、综合性、实践性较强的课程，没有实际的有针对性的设计环节，我们就不能很好的理解和掌握所学的技术知识，更缺乏解决实际问题的能力。
所以通过有针对性的课程设计，会使我们学会系统地综合运用所学的理论知识，提高我们在微机应用方面的开发与设计本领，系统的掌握微机硬软件设计方法。
通过设计过程，要求我们熟悉掌握微机系统的软件、硬件设计的方法、设计步骤，使我们得到微机开发应用方面的初步训练。
关键词：缓冲区、字符转换、判断闰年一、判断某一年是否为闰年的基本原理本设计是根据闰年的计算方法，利用汇编语言编写的一个简单的判断闰年的程序。
根据判断闰年规则：如果某年能被4整除但不能被100整除或者该年能被400整除，则该年为闰年，否则不是闰年。
在本程序运行后，只要从键盘输入年份，通过程序计算后，观察8255A并行接口发外设光二极管，亮表示为闰年，不亮表示不是闰年。
二、设计方案本设计中，我们利用DOS 21H中断类型的10号键盘功能调用，将从键盘接收的年份数值型字符串按字节存入缓冲区。
将字符串中的每个字符转换为对应的十进制数值（利用0-9这10个数的ASCII码值比其本身大30H的关系），通过判断某年是否为闰年的表达式，从8255A并行接口来控制LED发光二级管的亮灭。
判断某年是否为闰年的汇编语言的表达式为：（（（AX） MOD 4 EQ 0）AND((AX)MOD 100 NE 0)）OR((AX)MOD 400 EQ 0)其中，（AX）中存放的是从键盘输入的年份值。
三、硬件设计本课程设计中，设计采用的是8086CPU与外设之间通过8255A并行接口连接，通过控制外设发光二极管的亮与灭来判断用户输入的年份是否为闰年。
设计判断闰年的数字逻辑电路
设计判断闰年的数字逻辑电路闰年是指公历中的一个特殊年份，该年份具有366天，即2月份有29天。
为了设计一个判断闰年的数字逻辑电路，我们首先需要了解闰年的定义和判断规则。
根据公历的规定，闰年的判断规则如下：1. 能被4整除但不能被100整除的年份是闰年；2. 能被400整除的年份也是闰年。
基于这个判断规则，我们可以设计一个数字逻辑电路来判断闰年。
下面是一个简单的设计示意：我们需要输入一个4位的二进制数，表示公历的年份。
假设输入的年份为ABCD，其中A表示最高位，D表示最低位。
接着，我们进行以下判断：1. 判断A是否为1。
如果A为0，则年份不可能是闰年，直接输出“不是闰年”；2. 如果A为1，继续判断BCD是否能被4整除。
如果能整除，则继续进行下一步；否则，输出“不是闰年”；3. 判断BCD是否能被100整除。
如果能整除，则继续进行下一步；否则，输出“是闰年”；4. 判断BCD是否能被400整除。
如果能整除，则输出“是闰年”；否则，输出“不是闰年”。
通过这个简单的数字逻辑电路设计，我们可以准确地判断一个年份是否为闰年。
这个电路可以应用于各种计算设备或系统中，帮助我们方便地判断闰年。
同时，这个设计也符合文章标题的要求，避免了网络地址、数学公式和计算公式的使用，保证了文章内容的独一性和流畅性。
当然，这只是一个简单的示意设计，实际的数字逻辑电路可能更为复杂，需要考虑更多的细节和条件。
但总体的设计原则是一致的，通过逻辑运算来判断年份是否满足闰年的定义。
希望这个设计能够帮助大家更好地理解闰年的判断规则，并为数字逻辑电路的设计提供一些参考。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Vfp程序设计循环结构练习
——使用列表框设计九九乘法表
1、实验目的：
掌握循环语句结构语法。
熟练掌握DO WHILE……ENDDO、FOR……ENDFOR语句
了解SCAN……ENDSCAN语句
掌握组合框、页框。
熟练掌握列表框。
2、实验内容：
编程题：
输出“九九”乘法表，格式如图所示
设计步骤：
1、设计程序界面与设计对象属性。
选择“新建”表单，进入表单设计器。
增加一个列表框控件List1、两个个命令按钮Command1和Command2、一个标签Label1。
其他控件的属性设置请参见前面章节。
2、编写Command1的Click事件代码：
FOR n=1 TO 9
s=ALLT(STR(n-1))
i=ALLT(STR(n))
THISFORM.LIST1.ADDLISTITEM("*",1,1)
THISFORM.LIST1.ADDLISTITEM(i,n+1,1)
FOR t=n TO 9
i=ALLT(STR(n))
THISFORM.LIST1.ADDLISTITEM(i,1,n+1)
s=ALLT(STR(t*n))
THISFORM.LIST1.ADDLISTITEM(ALLT(STR(t))+"*"+ALLT(STR(n))+"="+s,t+1, n+1)
ENDFOR
ENDFOR
说明：添加列表方法AddlistItem(s,n,1)第三个参数表示列表项添加到列表中的列数。
编写Command2的Click事件代码：
THISFORM.RELEASE
先画2个文本框在画一个命令按钮在命令按钮CLICK过程中输入
y=val(thisform.text1.value)
if mod(y,100)<>0 and mod(y,4)=0 y="是闰年"
else
if mod(y,400)=0 then
y="是闰年"
else
y="不是闰年"
endif
endif
thisform.text2.value=y。