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

程序设计题1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是正数、负数或零，并根据输入的数用消息框显示正数、负数”或零。2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中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(输入一个自然数)Ifn0Thenresult=正数ElseIfn0Thenresult=负数ElseIfn=0Thenresult=零EndIfMsgBox输入的数据&n&为：&result2题DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=sum+iEndIfNextPrintsum3题DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)4题Dimi,j,k,mAsIntegers=0:i=2:j=1Fork=1To10s=s+i/jm=jPrint(CStr(i))&/&CStr(j)j=ii=i+mNext5题Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5)=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext6题Dimi,j,kAsIntegerFori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s))7题Dima(9)AsIntegerDimi,sAsIntegera(0)=15：a(1)=23：a(2)=72a(3)=43：a(4)=96：a(5)=23a(6)=3：a(7)=65：a(8)=88a(9)=17：max=a(0)：min=a(0)s=0Fori=0To9Ifa(i)maxThenmax=a(i)EndIfIfa(i)minThenmin=a(i)EndIfs=s+a(i)Nextaver=Int(s/10)Print(CStr(max))Print(CStr(min))Print(CStr(aver))8题Dimi,j,sAsIntegerFori=100To200Forj=2ToSqr(i)If(iModj)=0ThenPrint(CStr(i))sum=sum+iExitForEndIfNextNextPrintsum9题Dimi%，j%，bAsBooleanl=1：b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr(l)10题DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj11、题目：(事件)单击窗体。(响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数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**********EndFunctionPrivateSubForm_Load()ShowPrintfun(A)Printfun(9)Printfun(&)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDimlAsIntegerDima(10)AsString*1DimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&\in.datForInputAs#fInfOut=FreeFileOpenApp.Path&\out.datForOutputAs#fOutFori=1To10LineInput#fIn,a(i)Print#fOut,fun(a(i))NextClose#fInClose#fOutEndSub15、题目：编写函数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.datForInputAs#fInfOut=FreeFileOpenApp.Path&\out.datForOutputAs#fOutFori=1To10LineInput#fIn,sa(i)=Val(s)Print#fOut,fun(a(i))NextClose#fInClose#fOutEndSub16、题目：编写函数fun，函数的功能是：当x的初值为10，每年增长率为千分之八，计算多少年以后x的值能达到y，并显示所需年数的值（变量名必须为n）。'要求使用DoWhile...Loop语句来实现。PrivateFunctionfun(yAsSingle)AsLongDimxAsSingle,nAsLong'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(15)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&\in.datForInputAs#fInfOut=FreeFileOpenApp.Path&\out.datForOutputAs#fOutFori=1To10LineInput#fIn,a(i)Print#fOut,Trim(Str(fun(Val(a(i)))))NextClose#fInClose#fOutEndSub17、题目：编写函数fun，函数的功能是：求从m到n的乘积并显示，'如：m为2，n为4时，显示24'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。PrivateFunctionfun(mAsInteger,nAsInteger)AsLongDimProductAsDouble,tAsIntegerIfmnThent=m:m=n:n=t'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(4,2)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&\in.datForInputAs#fInfOut=FreeFileOpenApp.Path&\out.datForOutputAs#fOutFori=1To10Step2LineInput#fIn,a(i)LineInput#fIn,a(i+1)Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))NextClose#fInClose#fOutEndSub18、题目：编写函数fun，函数的功能是：判断一个数是否为素数。并显示相应提示。如：该数为素数时，显示素数；该数为非素数时，显示非素数'要求使用For语句来实现，用布尔型变量flag作为该数是否为素数的标志，注意：不得使用Goto语句。PrivateFunctionfun(mAsLong)AsStringDimflagAsBoolean'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(225)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&\in.datForInputAs#fInfOut=FreeFileOpenApp.Path&\out.datForOutputAs#fOutFori=1To10Step1LineInput#fIn,a(i)Print#fOut,fun(Val(a(i)))NextClose#fInClose#fOutEndSubNextClose#fInClose#fOutEndSub19、题目：编写函数fun，函数的功能是：求1~100以内能被m整除或能被n整除的数的总和并显示。如：'m为15，n为11时，显示810，'存储总和的变量必须为Sum，'要求使用F