浙江省计算机等级

设计一个表单，当单击“计算”按钮时，求出连续N个不是7的倍数的自然数之和，当和是 101的倍数时，则在列表框中显示所有求出的不是7的倍数的数(如下图所示)。试编写“计算”按钮的Click事件代码。
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
820
编写程序，从键盘输入十个数，然后提出其中的最大值和最小值。
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
250
【程序】 SET TALK OFF INPUT“请输入A：” TO A INPUT“请输入B：” TO B IF A＜B T＝A A=B B＝T ENDIF DO WHILE B＜＞0 T＝MOD(A，B) A＝B B＝
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
50
【程序】 SET TALK OFF INPUT“请输入A：” TO A INPUT“请输入B：” TO B IF A＜B T＝A A=B B＝T ENDIF DO WHILE B＜＞0 T＝MOD(A，B) A＝B B＝
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
60
【程序】 SET TALK OFF INPUT“请输入A：” TO A INPUT“请输入B：” TO B IF A＜B T＝A A=B B＝T ENDIF DO WHILE B＜＞0 T＝MOD(A，B) A＝B B＝
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
60
【程序】 SET TALK OFF INPUT“请输入A：” TO A INPUT“请输入B：” TO B IF A＜B T＝A A=B B＝T ENDIF DO WHILE B＜＞0 T＝MOD(A，B) A＝B B＝
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
90
【程序】 PROCEDURE SUB PARAMETERS A，B，C，D D＝B* B-4*A*C DO CASE CASE D＜0 D＝0 CASE D＞0 D＝2 CASE D＝0 D＝1
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
110
【程序】 PROCEDURE SUB PARAMETERS A，B，C，D D＝B* B-4*A*C DO CASE CASE D＜0 D＝0 CASE D＞0 D＝2 CASE D＝0 D＝1
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
110
【程序】 PROCEDURE SUB PARAMETERS A，B，C，D D＝B* B-4*A*C DO CASE CASE D＜0 D＝0 CASE D＞0 D＝2 CASE D＝0 D＝1
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
80
【程序】 PROCEDURE SUB PARAMETERS A，B，C，D D＝B* B-4*A*C DO CASE CASE D＜0 D＝0 CASE D＞0 D＝2 CASE D＝0 D＝1
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
90
【程序】 SET TALK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X＝INT(X/3)*3 ? X ELSE LOOP ENDIF IF X＞10 EXIT ENDIF ENDDO SET TALK ON RE
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
100
【程序】 SET TALK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X＝INT(X/3)*3 ? X ELSE LOOP ENDIF IF X＞10 EXIT ENDIF ENDDO SET TALK ON RE
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
50
【程序】 SET TALK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X＝INT(X/3)*3 ? X ELSE LOOP ENDIF IF X＞10 EXIT ENDIF ENDDO SET TALK ON RE
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
90
【程序】 SET TALK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X＝INT(X/3)*3 ? X ELSE LOOP ENDIF IF X＞10 EXIT ENDIF ENDDO SET TALK ON RE
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
60
【程序说明】模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名(带扩展名)：” TO FILENAME ACCEPT“请输入要查询
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
470
【程序说明】模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名(带扩展名)：” TO FILENAME ACCEPT“请输入要查询
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
410
【程序说明】模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名(带扩展名)：” TO FILENAME ACCEPT“请输入要查询
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
630
【程序说明】模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名(带扩展名)：” TO FILENAME ACCEPT“请输入要查询
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
470
【程序说明】计算1～30之间能够被3整除的奇数的阶乘和。【程序】 ** 主程序 SET TALK OFF S=0 FOR I＝1 TO 30 STEP 2 IF (4) (5) S＝S+N ENDIF ENDF
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
80
【程序说明】计算1～30之间能够被3整除的奇数的阶乘和。【程序】 ** 主程序 SET TALK OFF S=0 FOR I＝1 TO 30 STEP 2 IF (4) (5) S＝S+N ENDIF ENDF
浙江省计算机二级VF浙江省计算机等级
admin2010-6-18
60

设计一个表单，当单击“计算”按钮时，求出连续N个不是7的倍数的自然数之和，当和是 101的倍数时，则在列表框中显示所有求出的不是7的倍数的数(如下图所示)。试编写“计算”按钮的Click事件代码。

编写程序，从键盘输入十个数，然后提出其中的最大值和最小值。

【程序】 SET TALK OFF INPUT“请输入A：” TO A INPUT“请输入B：” TO B IF A＜B T＝A A=B B＝T ENDIF DO WHILE B＜＞0 T＝MOD(A，B) A＝B B＝

【程序】 SET TALK OFF INPUT“请输入A：” TO A INPUT“请输入B：” TO B IF A＜B T＝A A=B B＝T ENDIF DO WHILE B＜＞0 T＝MOD(A，B) A＝B B＝

【程序】 SET TALK OFF INPUT“请输入A：” TO A INPUT“请输入B：” TO B IF A＜B T＝A A=B B＝T ENDIF DO WHILE B＜＞0 T＝MOD(A，B) A＝B B＝

【程序】 SET TALK OFF INPUT“请输入A：” TO A INPUT“请输入B：” TO B IF A＜B T＝A A=B B＝T ENDIF DO WHILE B＜＞0 T＝MOD(A，B) A＝B B＝

【程序】 PROCEDURE SUB PARAMETERS A，B，C，D D＝B* B-4AC DO CASE CASE D＜0 D＝0 CASE D＞0 D＝2 CASE D＝0 D＝1

【程序】 PROCEDURE SUB PARAMETERS A，B，C，D D＝B* B-4AC DO CASE CASE D＜0 D＝0 CASE D＞0 D＝2 CASE D＝0 D＝1

【程序】 PROCEDURE SUB PARAMETERS A，B，C，D D＝B* B-4AC DO CASE CASE D＜0 D＝0 CASE D＞0 D＝2 CASE D＝0 D＝1

【程序】 PROCEDURE SUB PARAMETERS A，B，C，D D＝B* B-4AC DO CASE CASE D＜0 D＝0 CASE D＞0 D＝2 CASE D＝0 D＝1

【程序】 SET TALK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X＝INT(X/3)*3 ? X ELSE LOOP ENDIF IF X＞10 EXIT ENDIF ENDDO SET TALK ON RE

【程序】 SET TALK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X＝INT(X/3)*3 ? X ELSE LOOP ENDIF IF X＞10 EXIT ENDIF ENDDO SET TALK ON RE

【程序】 SET TALK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X＝INT(X/3)*3 ? X ELSE LOOP ENDIF IF X＞10 EXIT ENDIF ENDDO SET TALK ON RE

【程序】 SET TALK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X＝INT(X/3)*3 ? X ELSE LOOP ENDIF IF X＞10 EXIT ENDIF ENDDO SET TALK ON RE

【程序说明】模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名(带扩展名)：” TO FILENAME ACCEPT“请输入要查询

【程序说明】模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名(带扩展名)：” TO FILENAME ACCEPT“请输入要查询

【程序说明】模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名(带扩展名)：” TO FILENAME ACCEPT“请输入要查询

【程序说明】模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名(带扩展名)：” TO FILENAME ACCEPT“请输入要查询

【程序说明】计算1～30之间能够被3整除的奇数的阶乘和。【程序】 ** 主程序 SET TALK OFF S=0 FOR I＝1 TO 30 STEP 2 IF (4) (5) S＝S+N ENDIF ENDF

【程序说明】计算1～30之间能够被3整除的奇数的阶乘和。【程序】 ** 主程序 SET TALK OFF S=0 FOR I＝1 TO 30 STEP 2 IF (4) (5) S＝S+N ENDIF ENDF