VF程序设计编程题答案.docx
- 文档编号:7370385
- 上传时间:2023-01-23
- 格式:DOCX
- 页数:17
- 大小:20.46KB
VF程序设计编程题答案.docx
《VF程序设计编程题答案.docx》由会员分享,可在线阅读,更多相关《VF程序设计编程题答案.docx(17页珍藏版)》请在冰豆网上搜索。
VF程序设计编程题答案
第六章程序设计编程题
1.求园的面积(要求判断半径是否合理)
Clea
Inpu‘r=’tor
Ifr>0
S=3.14*r*r
?
s
Else
?
’半径错误!
’
Endif
2.求分段函数Y的值
Clea
Inpu‘x=’tox
Ifx>0
Y=2*x+5
Else
Ifx=0
Y=x
Else
Y=abs(x)
Endif
Endif
?
y
3.输入一个百分制成绩判断其等级(优/良/中/及格/不及格)
Clea
Inpu‘cj=’tocj
Docase
Casecj>=90
?
’优’
Casecj>=80
?
’良’
Casecj>=70
?
’中’
Casecj>=60
?
’及格’
Orth
?
’不及格’
Endcase
4.输入若干个(个数不定)百分制成绩判断其等级(优/良/中/及格/不及格)
Clea
Inpu‘请输入处理几个人的成绩:
’ton
Fori=1ton
Inpu‘cj=’tocj
Docase
Casecj>=90
?
’优’
Casecj>=80
?
’良’
Casecj>=70
?
’中’
Casecj>=60
?
’及格’
Orth
?
’不及格’
Endcase
endfor
5.求S=1+2+3......+100
Clea
S=0
Fori=1to100
S=s+i
Endfor
?
s
6.求S=1×2×3......×100
Clea
p=1
Fori=1to100
p=p*i
Endfor
?
p
7.求S=1+3+5......+99
Clea
S=0
Fori=1to99step2
S=s+i
Endfor
?
s
8.求S=1-2+3-4......-100
Clea
S=0
Fori=1to100
S=s+(-1)^(i+1)*i
Endfor
?
s
9.求S=1+1/2+2/3+3/5......前10项之和
Clea
S=0
A=1
B=1
Fori=1to10
S=s+a/b
T=a
A=b
B=t+b
Endfor
?
s
10.求S=1!
+2!
+3!
......+10!
Clea
S=0
P=1
Fori=1to10
P=p*i
S=s+p
Endfor
?
s
11.对学生表中所有入学成绩≥650分的学生免去贷款
Clea
Use学生
Scanfor入学成绩>=650.and.贷款否=.t.
Repl贷款否with.f.
Endscan
Use
12.
******************
******************
******************
******************
输出图形
Clea
Fori=1to4
Forj=1toi
?
?
’*’
Endfor
?
Endfor
Clea
Fori=1to4
Forj=1to4-i
?
?
’’&&有一个空格
Endfor
Forj=1to2*i-1
?
?
’*’
Endfor
?
Endfor
Clea
Fori=1to4
Forj=1to4-i
?
?
’’&&有一个空格
Endfor
Forj=1toi
?
?
’*’
Endfor
?
Endfor
13.判断一个整数是否素数
Clea
Inpu‘x=’tox
Fori=2tox-1
Ifmod(x,i)<>0
Loop
Else
Exit
Endif
Endfor
Ifi>x-1
?
x,’是素数’
Else
?
x,’不是素数’
Endif
14.判断十个整数是否素数
Clea
Forj=1to10
Inpu‘x=’tox
Fori=2tox-1
Ifmod(x,i)<>0
Loop
Else
Exit
Endif
Endfor
Ifi>x-1
?
x,’是素数’
Else
?
x,’不是素数’
Endif
Endfor
15.找出两个数的大数和小数
Clea
Inpu‘x=’tox
Inpu‘y’toy
Ifx>y
?
x,’大’,y,’小’
Else
?
y,’大’,x,’小’
Endif
16.找出三个数的最大数和最小数
Clea
Inpu‘x=’tox
Inpu‘y’toy
Inpu‘z’toz
Ifx t=x x=y y=t Else Ifx t=x x=z z=t endif endif ify t=y y=z z=t endif ? x,’是最大数’,z,’是最小数’ 17.找出十个数的最大数和最小数 Clea Dimea(10) Fori=1to10 Inputoa(i) Endfor Max=a (1) Min=a (1) Fori=2to10 Ifmax Max=a(i) Else Ifmin>a(i) Min=a(i) Endif Endif Endfor ? max,min 18.找出2×3矩阵中的最大数和最小数 clea dimea(2,3) fori=1to2 forj=1to3 input‘a(‘+str(I,2)+’,’+str(j,2)+’)=’toa(I,j) endfor endfor max=a(1,1) min=a(1,1) fori=1to2 forj=1to3 ifmax max=a(I,j) else ifmin>a(I,j) min=a(I,j) endif endif endfor endfor ? ’max=’,max,’min=’,min 19.对三个整数从大到小排序 Clear Input‘a=’toa Input‘b=’tob Input‘c=’toc Ifa T=a A=b B=t Else Ifa t=a A=c c=t endif endif Ifb T=b A=c c=t endif ? a,b,c 20.对十个整数从大到小排序(用选择法和起泡法两种方法) 选择法: Clear Dimea(10) Fori=1to10 Inputtoa(i) Endfor Fori=1to9 Max=a(i) Num=i Forj=i+1to10 Ifmax max=a(j) Num=j Endif Endfor Ifi<>num t=A(i) a(i)=a(num) a(num)=t Endif Endfor Fori=1to10 ? ? a(i),'' Endfor 起泡法: Clear Dimea(10) Fori=1to10 Inputtoa(i) Endfor Fori=1to9 Forj=1to10-i
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF 程序设计 编程 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)