VF表单题.docx

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