VB程序设计易考题库 考试必备.docx

上传人:b****5 文档编号:28315972 上传时间:2023-07-10 格式:DOCX 页数:19 大小:18.84KB
下载 相关 举报
VB程序设计易考题库 考试必备.docx_第1页
第1页 / 共19页
VB程序设计易考题库 考试必备.docx_第2页
第2页 / 共19页
VB程序设计易考题库 考试必备.docx_第3页
第3页 / 共19页
VB程序设计易考题库 考试必备.docx_第4页
第4页 / 共19页
VB程序设计易考题库 考试必备.docx_第5页
第5页 / 共19页
点击查看更多>>
下载资源
资源描述

VB程序设计易考题库 考试必备.docx

《VB程序设计易考题库 考试必备.docx》由会员分享,可在线阅读,更多相关《VB程序设计易考题库 考试必备.docx(19页珍藏版)》请在冰豆网上搜索。

VB程序设计易考题库 考试必备.docx

VB程序设计易考题库考试必备

VB程序设计易考题库——考试必备

程序设计题

1、习题:

单击窗体。

(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。

2、习题:

(事件)单击窗体。

(响应)求200~300之间既能被3整除又能被7整除的数。

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

3、习题:

(事件)双击窗体。

(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚),求出其所有的换法,把结果输出在窗体上。

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

4、习题:

(事件)单击窗体。

(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和,将和保存在变量s中。

5、习题:

(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零",并根据输入的数用消息框显示"正数"、"负数”或"零"。

6、习题:

单击窗体。

)求1!

+2!

+3!

+4!

+5!

并将结果输出到窗体上。

结果存入变量S中

7、习题:

(事件)单击窗体。

(响应)生成一个一维数组(10个数组元素依此为:

'15、23、72、43、96、23、3、65、88、17

写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。

将最大值,最小值,平均值分别存入变量Max,Min,Aver中

8、习题:

(事件)单击窗体。

(响应)在窗体上输出100~200之间的所有合数。

求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。

9、习题:

(事件)单击窗体。

(响应)求10~20之间所有素数的乘积并输出在窗体上。

将结果存入变量L中。

10、习题:

(事件)单击窗体。

(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。

将结果存入变量J中。

1题

n=InputBox("输入一个自然数")

Ifn>0Then

result="正数"

ElseIfn<0Then

result="负数"

ElseIfn=0Then

result="零"

EndIf

MsgBox"输入的数据"&n&"为:

"&result

2题

DimiAsInteger

Fori=201To300

If((iMod3)=0)And((iMod7)=0)Then

Print(CStr(i))

sum=sum+i

EndIf

Next

Printsum

3题

DimiAsInteger

s=0

Fori=1To10

s=s+1/(i^i)

Next

Print(s)

4题

Dimi,j,k,mAsInteger

s=0:

i=2:

j=1

Fork=1To10

s=s+i/j

m=j

Print(CStr(i))&"/"&CStr(j)

j=i

i=i+m

Next

5题

Dimi,j,kAsInteger

Fori=1To100

Forj=1To50

Fork=1To20

If((i+2*j+k*5)=100)Then

Print(CStr(i))

Print(CStr(j))

Print(CStr(k))

n=n+1

EndIf

Next

Next

Next

6题

Dimi,j,kAsInteger

Fori=1To5

k=1

Forj=1Toi

k=k*j

Next

s=s+k

Next

Print(CStr(s))

7题

Dima(9)AsInteger

Dimi,sAsInteger

a(0)=15:

a

(1)=23:

a

(2)=72

a(3)=43:

a(4)=96:

a(5)=23

a(6)=3:

a(7)=65:

a(8)=88

a(9)=17:

max=a(0):

min=a(0)

s=0

Fori=0To9

Ifa(i)>maxThen

max=a(i)

EndIf

Ifa(i)

min=a(i)

EndIf

s=s+a(i)

Next

aver=Int(s/10)

Print(CStr(max))

Print(CStr(min))

Print(CStr(aver))

8题

Dimi,j,sAsInteger

Fori=100To200

Forj=2ToSqr(i)

If(iModj)=0Then

Print(CStr(i))

sum=sum+i

ExitFor

EndIf

Next

Next

Printsum

9题

Dimi%,j%,bAsBoolean

l=1:

b=False

Fori=10To20

Forj=2Toi-2

IfiModj=0Then

b=True

EndIf

Next

Ifb=FalseThen

l=l*i

EndIf

b=False

Next

PrintStr(l)

10题

DimiAsInteger

Fori=1To100

IfiMod2=1Then

j=j+1/i

ElseIfiMod2=0Then

j=j-1/i

EndIf

Next

Printj

11、习题:

(事件)单击窗体。

(响应)如果一个数的真因子之和等于这个数本身,则称这样的数为“完全数”。

例如,整数28的真因子为1、2、4、7、11,其和是28。

因此28是一个完全数。

请编写一个程序,求出500以内最大的完全数。

并存入变量SUM中。

使用for...next语句完成程序

12、习题:

应用选择法对数组A按升序排列

13、习题:

单击窗体。

求一个数,它除3余2,除5余3,除7余2,请将满足上面条件的最小数保存到sum变量中。

使用for...next语句完成程序。

14、习题:

编写函数fun,函数的功能是:

判断一个字符是字母字符、数字字符还是其他字符,并做相应的显示。

字母字符显示字符串"字母",数字字符显示字符串"数字",其他字符显示字符串"其他",要求使用IF语句来实现。

PrivateFunctionfun(nAsString)AsString

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

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

EndFunction

PrivateSubForm_Load()

Show

Printfun("A")

Printfun("9")

Printfun("&")

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

DimlAsInteger

Dima(10)AsString*1

DimfInAsInteger

DimfOutAsInteger

fIn=FreeFile

OpenApp.Path&"\in.dat"ForInputAs#fIn

fOut=FreeFile

OpenApp.Path&"\out.dat"ForOutputAs#fOut

Fori=1To10

LineInput#fIn,a(i)

Print#fOut,fun(a(i))

Next

Close#fIn

Close#fOut

EndSub

15、习题:

编写函数fun,函数的功能是:

根据一个百分制成绩mark(整数),显示对应五级制的评定。

条件如下:

'mark大于等于90显示"优秀"

'mark小于90且大于等于80显示"良好"

'mark小于80且大于等于70显示"中等"

'mark小于70且大于等于60显示"及格"

'mark小于60显示"不及格"

'要求使用IF语句来实现。

PrivateFunctionfun(markAsInteger)AsString

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

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

EndFunction

PrivateSubForm_Load()

Show

Printfun(90)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

DimsAsString

Dima(10)AsInteger

DimfInAsInteger

DimfOutAsInteger

fIn=FreeFile

OpenApp.Path&"\in.dat"ForInputAs#fIn

fOut=FreeFile

OpenApp.Path&"\out.dat"ForOutputAs#fOut

Fori=1To10

LineInput#fIn,s

a(i)=Val(s)

Print#fOut,fun(a(i))

Next

Close#fIn

Close#fOut

EndSub

16、习题:

编写函数fun,函数的功能是:

当x的初值为10,每年增长率为千分之八,计算多少年以后x的值能达到y,并显示所需年数的值(变量名必须为n)。

'要求使用DoWhile...Loop语句来实现。

PrivateFunctionfun(yAsSingle)AsLong

DimxAsSingle,nAsLong

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

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

EndFunction

PrivateSubForm_Load()

Show

Printfun(15)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfInAsInteger

DimfOutAsInteger

fIn=FreeFile

OpenApp.Path&"\in.dat"ForInputAs#fIn

fOut=FreeFile

OpenApp.Path&"\out.dat"ForOutputAs#fOut

Fori=1To10

LineInput#fIn,a(i)

Print#fOut,Trim(Str(fun(Val(a(i)))))

Next

Close#fIn

Close#fOut

EndSub

17、习题:

编写函数fun,函数的功能是:

求从m到n的乘积并显示,'如:

m为2,n为4时,显示"24"'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。

PrivateFunctionfun(mAsInteger,nAsInteger)AsLong

DimProductAsDouble,tAsInteger

Ifm>nThent=m:

m=n:

n=t

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

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

EndFunction

PrivateSubForm_Load()

Show

Printfun(4,2)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfInAsInteger

DimfOutAsInteger

fIn=FreeFile

OpenApp.Path&"\in.dat"ForInputAs#fIn

fOut=FreeFile

OpenApp.Path&"\out.dat"ForOutputAs#fOut

Fori=1To10Step2

LineInput#fIn,a(i)

LineInput#fIn,a(i+1)

Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))

Next

Close#fIn

Close#fOut

EndSub

18、习题:

编写函数fun,函数的功能是:

判断一个数是否为素数。

并显示相应提示。

如:

该数为素数时,显示"素数";该数为非素数时,显示"非素数"'要求使用For语句来实现,用布尔型变量flag作为该数是否为素数的标志,注意:

不得使用Goto语句。

PrivateFunctionfun(mAsLong)AsString

DimflagAsBoolean

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

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

EndFunction

PrivateSubForm_Load()

Show

Printfun(225)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfInAsInteger

DimfOutAsInteger

fIn=FreeFile

OpenApp.Path&"\in.dat"ForInputAs#fIn

fOut=FreeFile

OpenApp.Path&"\out.dat"ForOutputAs#fOut

Fori=1To10Step1

LineInput#fIn,a(i)

Print#fOut,fun(Val(a(i)))

Next

Close#fIn

Close#fOut

EndSub

Next

Close#fIn

Close#fOut

EndSub

19、习题:

编写函数fun,函数的功能是:

求1~100以内能被m整除或能被n整除的数的总和并显示。

如:

'm为15,n为11时,显示"810",'存储总和的变量必须为Sum,'要求使用For语句来实现。

PrivateFunctionfun(mAsInteger,nAsInteger)AsLong

DimSumAsLong

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

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

EndFunction

PrivateSubForm_Load()

Show

16题x=10

n=0

DoWhilex

x=x*1.008

n=n+1

Loop

fun=n

Printfun(15,11)

19题Sum=0

Fori=1To100

IfiModm=0OriModn=0Then

Sum=Sum+i

EndIf

Nexti

fun=Sum

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

15题Ifmark>=90Then

fun="优秀"

ElseIfmark>=80Then

fun="良好"

ElseIfmark>=70Then

fun="中等"

ElseIfmark>=60Then

fun="及格"

Else

fun="不及格"

EndIf

Dima(10)AsString

20题

Dims,iAsInteger

Fori=2Ton-1

IfnModi=0Then

s=s+i

EndIf

Next

Fun=s

DimfInAsInteger

DimfOutAsInteger

fIn=FreeFile

OpenApp.Path&"\in.dat"ForInputAs#fIn

fOut=FreeFile

OpenApp.Path&"\out.dat"ForOutputAs#fOut

Fori=1To10Step2

LineInput#fIn,a(i)

LineInput#fIn,a(i+1)

Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))

Next

Close#fIn

Close#fOut

EndSub

20、习题:

编写函数fun,函数的功能是:

计算并输出给定整数n的所有因子之和(不包括1与自身)。

规定n的值不大于1000?

例如:

n的值为855时,应输出704。

21、习题:

编写函数fun其功能是:

判断一个整数w的各位数字平方之和能否被5整除,可以被5整除则返回1,否则返回0

22、习题:

编写函数fun其功能是:

根据整型形参m,计算如下公式的值:

'y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)

求:

函数中用到的中间变量必须声明为Single类型。

11题

DimiAsInteger

dimsasinteger

Fori=500To1Step-1

s=i

Forj=i-1To1Step-1

IfiModj=0Then

s=s-j

EndIf

Nextj

Ifs=0Then

ExitFor

EndIf

Nexti

Printi

sum=i

12题

Dimi,j,imin,tempAsInteger

Fori=1Ton-1

imin=i

Forj=i+1Ton

Ifa(imin)>a(j)Thenimin=j

Nextj

temp=a(i)

a(i)=a(imin)

a(imin)=temp

Nexti

13题

DimiAsInteger

Fori=2To1000

IfiMod3=2AndiMod5=3AndiMod7=2Then

Printi

ExitFor

EndIf

Nexti

sum=i

14题IfUCase(n)>="A"AndUCase(n)<="Z"Then

fun="字母"

ElseIfn>="0"Andn<="9"Then

fun="数字"

Else

fun="其他"

EndIf

15题

Ifmark>=90then

Fun=优秀

Elselfmark>=80then

Fun=良好

Elseifmark>=70then

Fun=中等

Elseifmark>=60then

Fun=及格

Else

Fun=不及格

16题x=10

n=0

DoWhilex

x=x*1.008

n=n+1

Loop

fun=n

17题Product=1

Fori=mTon

Product=Product*i

Nexti

fun=Product

18题flag=True

Fori=2Tom-1

IfmModi=0Thenflag=False

Nexti

IfflagThen

fun="素数"

Else

19题Sum=0

Fori=1To100

IfiModm=0OriModn=0Then

Sum=Sum+i

EndIf

Nexti

20题

Dims,iAsInteger

Fori=2Ton-1

IfnModi=0Then

s=s+i

EndIf

Next

21题

DimkAsInteger,sAsInteger

Do

s=s+(wMod10)*(wMod10)

w=Int(w/10)

LoopWhilew<>0

IfsMod5=0Then

k=1

Else

k=0

EndIf

fun=k

学习就到这里了,最后祝大家学习愉快!

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 幼儿教育 > 家庭教育

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1