杭州商学院VB上机考试全代码.docx

杭州商学院VB上机考试全代码.docx

《杭州商学院VB上机考试全代码.docx》由会员分享，可在线阅读，更多相关《杭州商学院VB上机考试全代码.docx（39页珍藏版）》请在冰豆网上搜索。

杭州商学院VB上机考试全代码

PrivateSubForm_Click（）【131】

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：

（事件）单击窗体。

'（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100，

'结果输出在窗体上。

'-------------------------------------------------

'将结果存入变量S中

'-------------------------------------------------

DimsAsSingle

'*************Program**************

DimiAsInteger

s=0

Fori=1To10

s=s+1/（i^2）

Next

Prints

'*************End**************

YZJ（s）

EndSub

PrivateSubYZJ（iAsSingle）

DimOUTAsInteger

OUT=FreeFile

OpenApp.Path&"\3.out"ForOutputAs#OUT

Print#OUT,i

Close#OUT

EndSub

PrivateSubForm_Click（）【132】

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：

（事件）单击窗体。

'（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…

'的前10项，并求其和。

'-------------------------------------------------

'注意：

请在指定的事件内编写代码。

'-------------------------------------------------

DimsAsSingle

'********Program***********

Dimi,j,k,mAsInteger

s=0

i=2

j=1

Fork=1To10

m=j

Print（i）&"/"&（j）

s=s+i/j

j=i

i=i+m

Next

'*********End****************

YZJ（s）

EndSub

PrivateSubYZJ（iAsSingle）

DimOUTAsInteger

OUT=FreeFile

OpenApp.Path&"\4.out"ForOutputAs#OUT

Print#OUT,i

Close#OUT

EndSub

PrivateSubForm_Click（）【133】

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：

（事件）单击窗体。

'（响应）一球从100米高度自由落下，每次落地返回

'原高度的一半，求第10次落地时，共经过多

'少米？

并将结果在窗体上输出。

'-------------------------------------------------

'注意：

请在指定的事件内编写代码。

'-------------------------------------------------

DimsAsSingle

'*********Program*************

Dimj,iAsInteger

s=0

j=100

Fori=2To10

j=j/2

s=s+2*j

Next

s=100+s

Prints

'*********End***************

YZJ（s）

EndSub

PrivateSubYZJ（iAsSingle）

DimOUTAsInteger

OUT=FreeFile

OpenApp.Path&"\5.out"ForOutputAs#OUT

Print#OUT,i

Close#OUT

EndSub

PrivateSubForm_Click（）【137】

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：

（事件）双击窗体。

'（响应）把一元钞票换成一分、二分和五分的硬币

'（每种至少有一枚），求出其所有的换法，

'把结果输出在窗体上。

'将所有的换法的数目存入变量N中

'-------------------------------------------------

'注意：

请在指定的事件内编写代码。

'-------------------------------------------------

DimnAsInteger

n=0

'********Program*******

Dimi,j,kAsInteger

Fori=1To100

Forj=1To50

Fork=1To20

If（（i+2*j+5*k）=100）Then

Printi

Printj

Printk

n=n+1

EndIf

Next

Next

Next

'***********End*************

YZJ（n）

EndSub

PrivateSubYZJ（iAsInteger）

DimOUTAsInteger

OUT=FreeFile

OpenApp.Path&"\9.out"ForOutputAs#OUT

Print#OUT,i

Close#OUT

EndSub

PrivateSubForm_Click（）【142】

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：

（事件）单击窗体。

'（响应）编写程序求10×11×12+11×12×13+…+15×16×17的结果，

'并将结果输出到窗体上。

'将结果存入变量M中

'-------------------------------------------------

'注意：

请在指定的事件内编写代码。

'-------------------------------------------------

DimmAsLong

'********Program*************

Dimi,jAsInteger

DimsAsLong

Fori=10To15

s=1

Forj=iToi+2

s=s*j

Next

m=m+s

Next

Printm

'************End***********

YZJ（m）

EndSub

PrivateSubYZJ（iAsLong）

DimOUTAsInteger

OUT=FreeFile

OpenApp.Path&"\14.out"ForOutputAs#OUT

Print#OUT,i

Close#OUT

EndSub

PrivateSubForm_Click（）【144】

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：

（事件）单击窗体。

'（响应）在窗体上输出100~200之间的所有合数。

'求出所有数之和存入SUM中

'-------------------------------------------------

'注意：

请在指定的事件内编写代码。

'-------------------------------------------------

DimsumAsInteger

sum=0

'*******Program**********

Dimi,j,sAsInteger

Fori=100To200

Forj=2ToSqr（i）

If（iModj）=0Then

Printi

sum=sum+i

ExitFor

EndIf

Next

Next

Printsum

'********End************

YZJ（sum）

EndSub

PrivateSubYZJ（iAsInteger）

DimOUTAsInteger

OUT=FreeFile

OpenApp.Path&"\16.out"ForOutputAs#OUT

Print#OUT,i

Close#OUT

EndSub

PrivateSubForm_Click（）【145】

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：

（事件）双击窗体。

'（响应）求出100~200之间，能被5整除，但不能被3整除的数。

'并求所有数之和，存入变量中SUM中

'-------------------------------------------------

'注意：

请在指定的事件内编写代码。

'-------------------------------------------------

DimsumAsInteger

sum=0

'**********Program*********

DimsumAsInteger

sum=0

'**********Program*********

DimiAsInteger

Fori=100To200

If（（iMod5）=0And（iMod3）<>0）Then

Printi

sum=sum+i

EndIf

Next

'********