VF表单题.docx
- 文档编号:7379178
- 上传时间:2023-01-23
- 格式:DOCX
- 页数:47
- 大小:35.89KB
VF表单题.docx
《VF表单题.docx》由会员分享,可在线阅读,更多相关《VF表单题.docx(47页珍藏版)》请在冰豆网上搜索。
VF表单题
4、设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个文本框text1,在edit1中输入下面内容:
“TheauthorswouldliketosincerelythankserieseditorDavidChappellforhisinvaluableassistanceinreviewingseveralearlydraftsofthemanuscriptandprovidingunwaveringclarityandvisionduringmajorrewritestoguidethebooktowarditscurrentform.WewouldalsoliketothankRichBonneauforhishelpduringtheinitialplanningstages.”,单击命令按钮统计满足下面条件的字符的ASCII码值的和:
字符的ASCII码值能被3整除;并将结果显示在text1中。
注意:
内容中不包含任意回车换行符。
sum=0
s=thisform.edit1.value
fori=1tolen(s)
s1=substr(s,i,1)
a=asc(s1)
ifint(a/3)=a/3
sum=sum+a
endif
endfor
thisform.text1.value=sum
6、设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个文本框text1,在edit1中
输入内容:
"546363463424214398439583252341243452350932059549786546845684509345348
36834680346658934989543438943943468328943872338496834967834863068306693439
54359309346834893436438683496346346348765324234234235459487634534345345324
345634634631513534534634323867867846474",单击按钮计算出上面字符串中非零数字的乘
积,即计算5×4×6×3×6×......×7×4,并将计算结果显示在text1中。
sum=1
s=thisform.edit1.value
fori=1tolen(s)
s1=substr(s,i,1)
a=val(s1)
ifa!
=0
sum=sum*a
endif
endfor
thisform.text1.value=str(sum)
8、设计表单form1,表单中有命令按钮command1和文本框text1,单击命令按钮时计算下面
数列前n(设n=15)项的和,并将结果显示在text1中。
1!
2!
3!
4!
……,n!
……(其中,!
表示求阶乘)
sum=0
forn=1to15
s=1
fori=1ton
s=s*i
endfor
sum=sum+s
endfor
thisform.text1.value=alltrim(str(sum))
11、设计表单form1,表单中有命令按钮command1和组合框combo1,单击命令按钮时计算下面
数列前n项的和S,当第一次出现和数S的绝对值大于5000时求和终止,并将结果显示在
combo1中。
1×2×3,-2×3×4,3×4×5,-4×5×6,……,(-1)^(n-1)×n×(n+1)×(n+2),……,
(其中,^表示幂运算)
s=0
n=1
dowhiles<=5000
s=s+(-1)^(n-1)*n*(n+1)*(n+2)
n=n+1
enddo
bo1.additem(str(s))
14、设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个标签label1,在edit1中输入下面内容:
“TheauthorswouldliketosincerelythankserieseditorDavidChappellforhisinvaluableassistanceinreviewingseveralearlydraftsofthemanuscriptandprovidingunwaveringclarityandvisionduringmajorrewritestoguidethebooktowarditscurrentform.WewouldalsoliketothankRichBonneauforhishelpduringtheinitialplanningstages.”,单击命令按钮计算输入内容中偶数位置每个字符的ASCII码值的和,即h、空格、u、h等,并将结果显示在label1中。
注意:
内容中不包含任意回车换行符。
sum=0
s=thisform.edit1.value
fori=2tolen(s)step2
s1=substr(s,i,1)
a=asc(s1)
sum=sum+a
endfor
thisform.label1.caption=str(sum)
15、设计表单form1,表单中有命令按钮command1和文本框text1,单击命令按钮时将计算出200到510之间所有满足下列条件的整数的平方根和:
整数的每位数字的和能整除整数本身。
并将该和显示在text1中。
s=0
fori=200to510
a=mod(i,10)
b=int(mod(i,100)/10)
c=int(i/100)
n=a+b+c
ifint(i/n)=i/n
s=s+sqrt(i)
endif
endfor
thisform.text1.value=s
17、设计表单form1,表单中有命令按钮command1、两个编辑框edit1和edit2,在edit1中输入下面
内容:
"546363463424214398439583252341243452350932059549786546845684509345348
36834680346658934989543438943943468328943872338496834967834863068306693439
54359309346834893436438683496346346348765324234234235459487634534345345324
345634634631513534534634323867867846474",单击按钮分别统计出4、6和8在上面字符串
中出现的次数,并将统计结果分三行显示在edit2中。
s1=0
s2=0
s3=0
s=thisform.edit1.value
fori=1tolen(s)
a=substr(s,i,1)
ifa='4'
s1=s1+1
endif
ifa='6'
s2=s2+1
endif
ifa='8'
s3=s3+1
endif
endfor
thisform.edit2.value=str(s1)+chr(13)+str(s2)+chr(13)+str(s3)
25、设计表单form1,表单中有命令按钮command1和文本框text1,单击命令按钮时将计算下面数列的和S,当某项(即1/n!
)的值小于0.005时求和终止并输出s,该项参加求和(结果取4位小数);并将结果显示在text1中。
1/1!
1/2!
1/3!
……,1/n!
……(其中,!
表示求阶乘)
s=0
n=1
dowhile.t.
i=1
s1=1
dowhilei<=n
s1=s1*i
i=i+1
enddo
s=s+1/s1
if1/s1<0.005
exit
endif
n=n+1
enddo
thisform.text1.value=round(s,4)
26、设计表单form1,表单中有命令按钮command1和文本框text1,单击命令按钮时计算下面
数列前50项的和(设x=2.5,结果取4位小数)。
结果显示在text1中。
cos(x)/x,cos(2x)/x^2,cos(3x)/x^3,……,cos(n×x)/x^n,…(其中,cos为余弦函数,^表示幂运算)
sum=0
x=2.5
forn=1to50
sum=sum+cos(n*x)/x^n
endfor
thisform.text1.value=round(sum,4)
27、设计表单form1,表单中有命令按钮command1和文本框text1,单击命令按钮时将计算下面数列中前n(设n=8)项的和(结果取4位小数),并将结果显示在text1中。
1/1!
1/2!
1/3!
1/4!
……,1/n!
……(其中,!
表示求阶乘)
sum=0
forn=1to8
s=1
fori=1ton
s=s*i
endfor
sum=sum+1/s
endfor
thisform.text1.value=round(sum,4)
29、设计表单form1,表单中有命令按钮command1和组合框combo1,单击命令按钮时计算下面
数列前50项中奇数项的和,并将结果显示在combo1中。
1×2,-2×3,3×4,-4×5,…,(-1)^(n-1)×n×(n+1),…(其中,^表示幂运算)
s=0
fori=1to50step2
s=s+(-1)^(i-1)*i*(i+1)
endfor
bo1.additem(str(s))
52、设计表单form1,表单中有命令按钮command1、一个标签label1和一个组合框combo1,单击命令按钮将2000年到2345年的六一节添加到combo1中,然后计算出2000年到2345年的每个六一节是星期四的次数,并将计算结果显示在label1中。
fori=2000to2345
bo1.additem('06/01/'+str(i,4))
endfor
j=0
fori=2000to2345
a='06/01/'+str(i)
d=ctod(a)
ifDOW(d)=5
j=j+1
endif
endfor
thisform.label1.caption=str(j)
1.设计表单form1,表单中有命令按钮command1和组合框combo1,单击命令按钮时计算下面
数列的和S,当第一次出现和数S大于5000时终止求和,并将结果显示在combo1中。
1×2,-2×3,3×4,-4×5,…,(-1)^(n-1)×n×(n+1),…(其中,^表示幂运算)
5202
解:
s=0
n=1
dowhiles<=5000
s=s+(-1)^(n-1)*n*(n+1)
n=n+1
enddo
bo1.additem(str(s))
2.设计表单form1,表单中有命令按钮command1和文本框text1,单击命令按钮时计算下面
数列前50项的和(设x=2.5,结果取4位小数)。
结果显示在text1中。
sin(x)/x,sin(2x)/x^2,sin(3x)/x^3,……,sin(n×x)/x^n,……
(其中,sin为正弦函数,^表示幂运算)
~
0.1329
s=0
x=2.5
forn=1to50
s=s+sin(x*n)/x^n
endfor
thisform.text1.value=str(s,10,4)或thisform.text1.value=round(s,4)
~~~A
3.设计表单form1,表单中有命令按钮command1和编辑框edit1,单击命令按钮时计算下面
数列前35项的和(结果取4位小数)。
结果显示在edit1中。
1/3,3/5,5/7,7/9,9/11,11/13,13/15,……,(2n-1)/(2n+1)
31.4529
s=0
forn=1to35
s=s+(2*n-1)/(2*n+1)
endfor
thisform.edit1.value=str(s,10,4)
~~~A
4.设计表单form1,表单中有命令按钮command1和文本框text1,单击命令按钮时计算下面
数列前30项的和(结果取4位小数)。
结果显示在text1中。
1,-1/3^3,1/5^3,1/7^3,……,(-1)^(n-1)/(2n-1)^3,……(其中,^表示幂运算)
~
0.9689
s=0
forn=1to30
s=s+(-1)^(n-1)/(2*n-1)^3
endfor
thisform.text1.value=str(s,10,4)
5.设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个文本框text1,在edit1中
输入内容:
"546363463424214398439583252341243452350932059549786546845684509345348
36834680346658934989543438943943468328943872338496834967834863068306693439
54359309346834893436438683496346346348765324234234235459487634534345345324
345634634631513534534634323867867846474",单击按钮计算出上面字符串中非零数字的乘
积,即计算5×4×6×3×6×......×7×4,并将计算结果显示在text1中。
2.08E+161
s=1
a=thisform.edit1.value
m=len(a)
fori=1tom
n=substr(a,i,1)
ifval(n)<>0
s=s*val(n)
endif
endfor
thisform.text1.value=str(s)
6.设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个文本框text1,在edit1
中输入下面内容:
“TheauthorswouldliketosincerelythankserieseditorDavidChappell
forhisinvaluableassistanceinreviewingseveralearlydraftsofthemanuscriptandproviding
unwaveringclarityandvisionduringmajorrewritestoguidethebooktowarditscurrentform.
WewouldalsoliketothankRichBonneauforhishelpduringtheinitialplanningstages.”,
单击命令按钮统计满足下面条件的字符的ASCII码值的和:
字符的ASCII码值能被7整除,并
将结果显示在text1中。
注意:
内容中不包含任意回车换行符。
4816
a=thisform.edit1.value
m=len(a)
s=0
fori=1tom
n=substr(a,i,1)
ifasc(n)%7=0
s=s+asc(n)
endif
endfor
thisform.text1.value=str(s)
7.设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个文本框text1,在edit1中
输入内容:
"546363463424214398439583252341243452350932059549786546845684509345348
36834680346658934989543438943943468328943872338496834967834863068306693439
54359309346834893436438683496346346348765324234234235459487634534345345324
345634634631513534534634323867867846474",单击按钮计算出上面字符串中非零数字的倒
数之和,即计算1/5+1/4+1/6+1/3+1/6......+1/7+1/4,并将结果显示在text1中。
保留5位小数。
~
62.80952
a=thisform.edit1.value
m=len(a)
s=0
fori=1tom
n=substr(a,i,1)
ifval(n)<>0
s=s+1/val(n)
endif
endfor
thisform.text1.value=str(s,10,5)
8.设计表单form1,表单中有命令按钮command1和编辑框edit1,单击命令按钮时计算下面
数列前35项的和(结果取4位小数)。
结果显示在edit1中。
3/1,5/3,7/5,9/7,11/9,13/11,15/13,……,(2n+1)/(2n-1)
~
40.5189
s=0
forn=1to35
s=s+(2*n+1)/(2*n-1)
endfor
thisform.edit1.value=str(s,10,4)
9.设计表单form1,表单中有命令按钮command1、两个编辑框edit1和edit2,在edit1中输入下面
内容:
"546363463424214398439583252341243452350932059549786546845684509345348
36834680346658934989543438943943468328943872338496834967834863068306693439
54359309346834893436438683496346346348765324234234235459487634534345345324
345634634631513534534634323867867846474",单击按钮计算出上面字符串中每位数字之
和,即5+4+6+3......+4+7+4;并将计算结果显示在edit2中。
1224
a=thisform.edit1.value
m=len(a)
s=0
fori=1tom
n=substr(a,i,1)
s=s+val(n)
endfor
thisform.edit2.value=str(s)
10.设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个标签label1,在edit1
中输入下面内容:
“TheauthorswouldliketosincerelythankserieseditorDavidChappell
forhisinvaluableassistanceinreviewingseveralearlydraftsofthemanuscriptandproviding
unwaveringclarityandvisionduringmajorrewritestoguidethebooktowarditscurrentform.
WewouldalsoliketothankRichBonneauforhishelpduringtheinitialplanningstages.”,
单击命令按钮计算输入内容中偶数位置每个字符的ASCII码值的和,即h、空格、u、h等,并
将结果显示在label1中。
注意:
内容中不包含任意回车换行符
16452
a=thisform.edit1.value
m=len(a)
s=0
fori=1tomstep2
n=substr(a,i,1)
s=s+asc(n)
endfor
thisform.label1.caption=str(s)
11.设计表单form1,表单中有命令按钮command1和文本框text1,单击命令按钮时将计算出200
到510之间所有满足下列条件的整数的平方根和:
整数的每位数字的和能整除整数本身。
并将该和显示在text1中。
1343.586416
s=0
fori=200to510
a=i%10
b=int(i/10)%10
c=int(i/100)
ifi%(a+b+c)=0
s=s+sqrt(i)
endif
endfor
thisform.text1.value=s
12.设计表单form1,表单中有命令按钮command1、两个编辑框edit1和edit2,在edit1中输入下面
内容:
"546363463424214398439583252341243452350932059549786546845684509345348
36834680346658934989543438943943468328943872338496834967834863068306693439
54359309346834893436438683496346346348765324234234235459487634534345345324
345634634631513534534634323867867846474",单击按钮分别统计出4、6和8在上面字符串
中出现的次数,并将统计结果分三行显示在edit2中。
563228
a=thisform.edit1.value
m=len(a)
x1=0
x2=0
x3=0
fori=1tom
n=substr(a,i,1)
docase
casen="4"
x1=x1+1
casen="6"
x2=x2+1
casen="8"
x3=x3+1
otherwise
loop
endcase
endfor
thisform.edit2.value=thisform.edit2.value+str(x1)+chr(13)
thisform.edit2.value=thisform.edit2.value+str(x2)+chr(13)
thisform.edit2.value=thisform.edit2.value+str(x3)+chr(13)
13.设计表单form1,表单中有命令按钮command1和编辑框edit1,单击命令按钮时计算下面
数列前40项的和(结果取4位小数)。
结果显示在edit1中。
2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF 表单