VB程序设计考试题库-考试专用

程序设计题、题目：(事件单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的

数用消息框显示"正数"、"负数"零"。、题目：(事件单击窗体。响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中、题目：单击窗体。响应已知S=1+1/4+1/9+1/16+1/25+,+1/100，结果输出在窗体上。、题目：(事件单击窗体。响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8,的前10项，并求其和，将和保存在变量s中。、题目：(事件双击窗体。响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中、题目：单击窗体。求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中、题目：(事件单击窗体。响应)生成一个一维数组(10个数组元素依此为：'15、23、72、43、96、、、65、88、17写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中、题目：(事件单击窗体。响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。、题目：(事件单击窗体。响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。、题目：事件)单击窗体。(响应)求1-1/2+1/3-1/4+,,+1/99-1/100的值。将结果存入变量中。

题n=InputBox("输入一个自然数")Ifn>0Thenresult="正数"ElseIfn<0Thenresult="负数"ElseIfn=0Thenresult="零"EndIfMsgBox"输入的数据"&n&"为："&result题DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))

sum=sum+i

EndIfNextPrintsum题DimiAsInteger

s=0Fori=1To10

s=s+1/(i^i)

NextPrint(s)题Dimi,j,k,mAsInteger

s=0:i=2:j=1

Fork=1To10

s=s+i/jm=jPrint(CStr(i))&"/"&CStr(j)

j=ii=i+mNext题Dimi,j,kAsInteger

Fori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5)=100)Then

Print(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext题Dimi,j,kAsIntegerFori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s))题Dima(9)AsIntegerDimi,sAsIntegera(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=0Fori=0To9Ifa(i)>maxThen

max=a(i)EndIfIfa(i)<minThen

min=a(i)EndIfs=s+a(i)Nextaver=Int(s/10)

Print(CStr(max))

Print(CStr(min))Print(CStr(aver))题Dimi,j,sAsInteger

Fori=100To200

Forj=2ToSqr(i)If(iModj)=0Then

Print(CStr(i))sum=sum+i

ExitForEndIfNextNextPrintsum题Dimi%，，bAsBoolean

l=1：b=False

Fori=10To20

Forj=2Toi-2

IfiModj=0Then

b=TrueEndIfNextIfb=FalseThen

l=l*iEndIfb=FalseNextPrintStr(l)10题DimiAsIntegerFori=1To100

IfiMod2=1Then

j=j+1/iElseIfiMod2=0Then

j=j-1/iEndIfNextPrintj、题目：事件单击窗体。响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的真因子为、、4、、11，其和是28。因此28是一个完全数。请编写一个程序，求出500以内最大的完全数。并存入变量SUM中。使用for...next语句完成程序、题目：应用选择法对数组A按升序排列、题目：单击窗体。求一个数它除3余2，除5余，除7余，请将满足上面条件的最小数保存到sum变量中。使用for...next语句完成程序。、题目：编写函数fun，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。字母字符显示字符串"字母"，数字字符显示字符串"数字"，其他字符显示字符串"其他"，要求使用IF语句来实现。PrivateFunctionfun(nAsString)AsString'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun("A")Printfun("9")Printfun("&")NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDimlAsIntegerDima(10)AsString*1DimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10LineInput#fIn,a(i)Print#fOut,fun(a(i))NextClose#fInClose#fOutEndSub、题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：'mark大于等于90显示"优秀"'mark小于90且大于等于80显示"良好"'mark小于80且大于等于70显示"中等"'mark小于70且大于等于60显示"及格"'mark小于60显示"不及格"'要求使用IF语句来实现。PrivateFunctionfun(markAsInteger)AsString'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(90)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDimsAsStringDima(10)AsIntegerDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10LineInput#fIn,sa(i)=Val(s)Print#fOut,fun(a(i))NextClose#fInClose#fOutEndSub、题目：编写函数fun，函数的功能是：当x的初值为，每年增长率为千分之八，计算多少年以

后x的值能达到y，并显示所需年数的值（变量名必须为）。'要求使用DoWhile...Loop语句来实现。PrivateFunctionfun(yAsSingle)AsLongDimxAsSingle,nAsLong'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(15)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10LineInput#fIn,a(i)Print#fOut,Trim(Str(fun(Val(a(i)))))NextClose#fInClose#fOutEndSub、题目：编写函数fun，函数的功能是：求从m到n的乘积并显示，'如：m为，n为4时，显示"24"'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。PrivateFunctionfun(mAsInteger,nAsInteger)AsLongDimProductAsDouble,tAsIntegerIfm>nThent=m:m=n:n=t'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(4,2)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10Step2LineInput#fIn,a(i)LineInput#fIn,a(i+1)Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))NextClose#fInClose#fOutEndSub、题目：编写函数fun，函数的功能是：判断一个数是否为素数。并显示相应提示。如：该数为素数时，显示"素数；该数为非素数时，显示非素数"'要求使用For语句来实现，用布尔型变量flag作为该数是否为素数的标志，注意：不得使用Goto语句。PrivateFunctionfun(mAsLong)AsStringDimflagAsBoolean'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(225)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10Step1LineInput#fIn,a(i)Print#fOut,fun(Val(a(i)))NextClose#fInClose#fOutEndSubNextClose#fInClose#fOutEndSub、题目：编写函数fun，函数的功能是：求1~100以内能被m整除或能被n整除的数的总和并显示。如：'m为，n为11时，显示"810"，'存储总和的变量必须为，'要求使用For语句来实现。PrivateFunctionfun(mAsInteger,nAsInteger)AsLongDimSumAsLong'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(15,11)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10Step2LineInput#fIn,a(i)LineInput#fIn,a(i+1)Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))NextClose#fInClose#fOutEndSub编写函数fun，函数的功能是：计算并输出给定整数n的所有因子之和（不包括1与自身）。

规定n的值不大于1000?例如：n的值为855时，应输出704。、题目：：编写函数fun其功能是判断一个整数w的各位数字平方之和能否被5整除,可以被5

整除则返回1,否则返回0、题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值:'y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)求：函数中用到的中间变量必须声明为Single类型。11题DimiAsIntegerdimsasinteger

Fori=500To1Step-1

s=iForj=i-1To1Step-1

IfiModj=0Then

s=s-jEndIfNextjIfs=0Then

ExitForEndIfNextiPrintisum=i题Dimi,j,imin,tempAsInteger

Fori=1Ton-1

imin=iForj=i+1Ton

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

Nextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti题DimiAsIntegerFori=2To1000IfiMod3=2AndiMod5=3A