vb编程设计例题100例 VF编程例题.doc

vb编程设计例题100例 VF编程例题 导读：就爱阅读网友为您分享以下“VF编程例题”资讯，希望对您有所帮助，感谢您对92的支持! 例1 编程输出如下图形 clear i=0 j=0 for i=1 to 6 ??space(17-i) for j=1 to i ??”◆” next j ? next i 例2 计算1+2+3+ … +100的和。 SET TALK OFF CLEAR nSum=0 i=1 DO WHILE ilt;=100 nSum = nSum + i i=i+1 ENDDO ?”1～100的和为：”,nSum RETURN 例3 统计人才档案表中男女人数。 SET TALK OFF CLEAR USE 人才档案 STORE 0 TO nMan,nWoman DO WHILE !EOF() IF 性别=”男” nMan=nMan+1 ELSE nWoman=nWoman+1 ENDIF SKIP ENDDO ? ”男人数”+STR(nMan) ? ”女人数”+STR(nWoman) USE SET TALK ON RETURN 例4 求1～500中能同时满足用3除余2，用5除余3，用7除余2的所有整数。 SET TALK OFF CLEAR FOR n=1 TO 500 IF n%3=2 AND n%5=3 AND n%7=2 ?? n ?? ” ” ENDIF ENDFOR SET TALK ON RETURN 例5 打印九九乘法口诀表。 SET TALK OFF CLEAR FOR X=1 TO 9 Y=1 DO WHILE Ylt;=X Z=X*Y ??STR(Y,1)+”*”+STR(X,1)+”=”+STR(Z,2)+” ” Y=Y+1 ENDDO ? ENDFOR SET TALK ON RETURN 例6 输入10个数，并将它们按由大到小的顺序输出。 SET TALK ON CLEAR DIMENSION data[10] STORE 0.0 to data FOR i=1 to 10 输入10个数，分别存放在数组的10个元素中 @ i,5 SAY ”请输入第”+STR(i,2)+ ”个数: ” GET data[i] ENDFOR READ FOR i=1 TO 10 对10个数进行排序 FOR j=i TO 10 IF data[i]lt;data[j] temp=data[i] data[i]=data[j] data[j]=temp ENDIF ENDFOR ENDFOR @ 12,5 SAY ”10个数由大到小的排列顺序为：” @ 14,5 SAY ” ” FOR i=1 TO 10 输出排序后的10个数 ??data[i] ENDFOR SET TALK ON RETURN 例7 根据输入的X值，计算下面分段函数的值，并显示结果。 SET TALK OFF CLEAR INPUT ”请输入X的值： ” TO X IF Xlt;1 Y=2*X-5 ELSE IF Xlt;10 Y=2*X ELSE Y=2*X+5 ENDIF ENDIF ? ”分段函数的值为”+STR(Y) SET TALK ON RETURN 例8 输入某学生成绩，并判断其成绩等级：100-90分为优秀，89-80分为良好，79-70分为中等，69-60分为差，60分以下为不及格。 SET TALK OFF CLEAR INPUT “请输入成绩：” TO nScore DO CASE CASE nScoregt;=90 ?”成绩优秀” CASE nScoregt;=80 ?”成绩良好” CASE nScoregt;=70 ?”成绩中等” CASE nScoregt;=60 ?”成绩较差” CASE nScoregt;=0 ?”成绩不及格” OTHERWISE ?”成绩不应小于0，数据有错” ENDCASE ?”程序执行完毕，谢谢使用！” SET TALK ON RETURN 例9 转换字符串 ? A=”Abcde” ? N=LEN(A) ? I=1 ? DO WHILE Ilt;=N ? B=SUBSTR(A,I,1) ? IF ISLOW(B) ? B=CHR(ASC(B)-32) ? A=STUFF(A,I,1,B) ? ENDIF ? I=I+2 ? ENDDO ? ?A ? RETURN 例10 计算SUM=1!+2!+…….1