程序.docx
《程序.docx》由会员分享，可在线阅读，更多相关《程序.docx（17页珍藏版）》请在冰豆网上搜索。
程序
1、已知圆半径，求圆面积
数字化程序
*求圆面积
input"请输入圆半径：
"tor
s=pi（）*r**2
?
"该圆的面积为：
",s
Return
表单实现
设置label属性
更改字体
Text文本框字符转换为数字改变
Command属性设置
r=thisform.text1.value
s=pi（）*r*r
thisform.text2.value=s
return
2.输入一个整数，并判断其奇偶性
数字化程序
Input"请输入一个整数：
"toa
Ifmod（a,2）=1
?
"该数是奇数"
else
?
"该数是偶数"
endif
return
表单实现
a=thisform.text1.value
Ifmod（a,2）=1
thisform.label2.caption="该数是奇数"
else
thisform.label2.caption="该数是偶数"
endif
return
3、求N！
数字化程序
input"请输入一个数n:
"toa
n=1
fori=1toa
n=n*i
endfor
?
"n!
=",n
return
表单实现
a=thisform.text1.value
n=1
fori=1toa
n=n*i
endfor
thisform.text2.value=n
return
4.已知三角形三边，求三角形的面积
数字化程序
input"请输入三角形的长：
"toa
input"请输入三角形的宽：
"tob
input"请输入三角形的高：
"toc
l=（a+b+c）/2
s=sqrt（l*（l-a）*（l-a）*（l-c））
?
"该三角形的面积为：
",s
return
表单实现
a=thisform.text1.value
b=thisform.text2.value
c=thisform.text3.value
l=（a+b+c）/2
s=sqrt（l*（l-a）*（l-a）*（l-c））
thisform.text4.value=s
return
5.判断某一年是否是闰年
数字化程序
Clear
Input“请输入年份：
”toy
Ify/4=int（y/4）andy/100<>int（y/100）ory/400=int（y/400）
?
str（y,4）+”年是闰年”
Else
?
str（y,4）+”年不是闰年”
Endif
Return
表单实现
y=thisform.text1.value
Ify/4=int（y/4）andy/100<>int（y/100）ory/400=int（y/400）
Thisform.text2.value=str（y,4）+”年是闰年”
Else
Thisform.text2.value=str（y,4）+”年不是闰年”
endif
Return
6．判断月份值的春夏秋冬
数字化程序
Input“请输入月份值：
”toyue
docase
caseinlist（yue,3,4,5）&&第一个表达式的值是其余表达式值之一就返回.T.
jj="春"
caseinlist（yue,6,7,8）
jj="夏"
caseinlist（yue,9,10,11）
jj="秋"
caseinlist（yue,12,1,2）
jj="冬"
endcase
?
"当前季节为：
"+jj+"季"
Return
*取当前的系统日期
yue=month（date（））
docase
caseinlist（yue,3,4,5）&&第一个表达式的值是其余表达式值之一就返回.T.
jj="春"
caseinlist（yue,6,7,8）
jj="夏"
caseinlist（yue,9,10,11）
jj="秋"
caseinlist（yue,12,1,2）
jj="冬"
endcase
MESSAGEBOX（"当前季节为：
"+jj+"季"）
return
表单实现
yue=thisform.text1.value
docase
caseinlist（yue,3,4,5）&&第一个表达式的值是其余表达式值之一就返回.T.
jj="春"
caseinlist（yue,6,7,8）
jj="夏"
caseinlist（yue,9,10,11）
jj="秋"
caseinlist（yue,12,1,2）
jj="冬"
endcase
thisform.text2.value=”该月份为：
”+jj+”季”
*取当前系统日期
yue=thisform.text1.value
docase
caseinlist（yue,3,4,5）&&第一个表达式的值是其余表达式值之一就返回.T.
jj="春"
caseinlist（yue,6,7,8）
jj="夏"
caseinlist（yue,9,10,11）
jj="秋"
caseinlist（yue,12,1,2）
jj="冬"
endcase
MESSAGEBOX（"当前季节为：
"+jj+"季"）
return
7．输入成绩，判断等级。
数字化程序
Input“请输入成绩：
”ton
Docase
Casen>60andn<75
?
”及格”
Casen>75andn<85
?
”良”
Casen>85
?
”优”
Casen<60
?
”不及格”
Endcase
return
表单实现
n=thisform.text1.value
Docase
Casen>60andn<75
thisform.label2.caption="及格"
Casen>75andn<85
thisform.label2.caption="良"
Casen>85
thisform.label2.caption="优"
Casen<60
thisform.label2.caption="不及格"
Endcase
return
8．输入任意两个数，比较大小，输出较大数或较小数。
数字化程序
clear
input“请输入第一个数：
”toa
input“请输入第二个数：
”tob
ifa>b
?
”这两个数中较大数为：
”,a
else
?
”这两个数中较大数为：
”,b
endif
return
表单实现
n=thisform.text1.value
m=thisform.text2.value
ifn>m
thisform.text3.value=这两个数中较大数为：
+str（n）
else
thisform.text4.value=这两个数中较大数为：
+str（n）
endif
return
9．S=1+2+……+n
数字化程序
clear
input"请输入一个数n：
"ton
i=1
s=0
fori=1ton
s=i+s
endfor
?
s
return
表单实现
n=thisform.text1.value
i=1
s=0
fori=1ton
s=i+s
endfor
thisform.text2.value=s
return
10．100以内能够被X整除的数之和。
数字化程序
Input"请输入x：
"tox
s=0
Fori=0to100stepx
s=s+i
Endfor
?
s
return
表单实现
n=thisform.text1.value
s=0
Fori=0to100stepn
s=s+i
Endfor
thisform.text2.value=s
return
11．自然数的平方和。
数字化程序
Input"请输入一个任意自然数：
"toa
S=0
Fori=1toa
S=S+i^2
Endfor
?
S
Return
表单实现
n=thisform.text1.value
S=0
Fori=1ton
S=S+i^2
Endfor
thisform.text2.value=S
Return
12．自然数的倒数和。
数字化程序
Input"请输入一个任意自然数：
"toa
S=0
Fori=1toa
S=S+1/i
Endfor
?
S
Return
表单实现
n=thisform.text1.value
S=0
Fori=1ton
S=S+1/i
Endfor
thisform.text2.value=S
Return
13．输入任意3位数，逆序显示。
数字化程序
Input“请输入一个三位数：
”toa
X1=int（a/100）
X2=int（mod（a,100）/10）
X3=mod（a,10）
?
x1+x2*10+x3*100
Return
表单实现
a=thisform.text1.value
X1=int（a/100）
X2=int（mod（a,100）/10）
X3=mod（a,10）
thisform.text2.value=x1+x2*10+x3*100
return
14．输入任意3位数，判断该数是否是水仙花数。
数字化程序
Input"请输入一个三位数：
"ton
a=int（n/100）
b=int（mod（n,100）/10）
c=mod（n,10）
Ifa**3+b**3+c**3=n
?
"该数是水仙花数"
Else
?
"该数不是水仙花数"
Endif
return
表单实现
n=thisform.text1.value
a=int（n/100）
b=int（mod（n,100）/10）
c=mod（n,10）
Ifa**3+b**3+c**3=n
thisform.text2.value="该数是水仙花数"
Else
thisform.text2.value="该数不是水仙花数"
Endif
return
15．输入任意ASCII字符串，逆序显示。
数字化程序
表单实现
16．输入任意ASCII字符串，找出其中的字母串或数字串。
数字化程序
@@substr是用于对字符表达式从指定位置开始街区若干个字符。
表单实现
X=alltrim（thisform.text1.value）@@alltrim是用于消除空格
C=””
Fora=1tolen（x）
C1=substr（x,a,1）
Ifasc（c1）>=asc（“0”）andasc（c1）<=asc（“9”）
C=c+c1
Endif
Endfor
Thisform.label2.caption=c
X=alltrim（ALLTRIM（THISFORM.TEXT1.VALUE））
Y=""
FORa=1tolen（X）
Y1=substr（X,a,1）
ifasc（Y1）=asc（"A"）andasc（Y1）Y=Y+Y1
endif
endfor
THISFORM.LABEL2.CAPTION=Y
17．输入任意ASCII字符串，将任意一类字符替换为其他字符（如将字符串中的所有数字字符替换为*号等）。
数字化程序
表单实现
18．输入一个数，判断是否为素数。
数字化程序
input"请输入n:
"ton
ifn=1
?
"该数不是素数"
else
ifn=0
?
"该数不是素数"
elsetext=1
fori=2ton-1
ifn%i=0
text=2
exit
else
loop
endif
endfor
iftext=1
?
"该数是素数"
else
?
"该数不是素数"
endif
endif
endif
return
表单实现
n=thisform.text1.value
ifn=1
thisform.text2.value="该数不是素数"
else
ifn=0
thisform.text2.value="该数不是素数"
elsetext=1
fori=2ton-1
ifn%i=0
text=2
exit
else
loop
endif
endfor
iftext=1
thisform.text2.value="该数是素数"
else
thisform.text2.value="该数不是素数"
endif
endif
endif
return
升级会员 