2023年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("输入一个自然数")Ifn>0Thenresult="正数"ElseIfn<0Thenresult="负数"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.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#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.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#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.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#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,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#fOutEndSub18、题目：编写函数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#fOutEndSub19、题目：编写函数fun，函数的功能是：求1~100以内能被m整除或能被n整除的数的总和并显示。如：'m为15，n为11时，显示"810"，'存储总和的变量必须为Sum，'规定使用For语句来实现。PrivateFunctionfun(mAsInteger,nAsInteger)AsLongDimSumAsLong'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()Show16题x=1016题x=10n=0DoWhilex<yx=x*1.008n=n+1Loopfun=n19题Sum=019题Sum=0Fori=1To100IfiModm=0OriModn=0ThenSum=Sum+iEndIfNextifun=SumEndSubPrivateSubNJIT_VB()DimiAsInteger15题Ifmark>=90Then15题Ifmark>=90Thenfun="优秀"ElseIfmark>=80Thenfun="良好"ElseIfmark>=70Thenfun="中档"ElseIfmark>=60Thenfun="及格"Elsefun="不及格"EndIf20题Dims,iAsInteger20题Dims,iAsIntegerFori=2Ton-1IfnModi=0Thens=s+iEndIfNextFun=sDimfOutAsIntegerfIn=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#fOutEndSub20、题目：编写函数fun，函数的功能是：计算并输出给定整数n的所有因子之和（不涉及1与自身）。规定n的值不大于1000?例如：n的值为855时，应输出704。21、题目：：编写函数fun其功能是:判断一个整数w的各位数字平方之和能否被5整除,可以被5整除则返回1,否则返回022、题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值:'y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)求：函数中用到的中间变量必须声明为Single类型。11题DimiAsIntegerdimsasintegerFori=500To1Step-1s=iForj=i-1To1Step-1IfiModj=0Thens=s-jEndIfNextjIfs=0ThenExitForEndIfNextiPrintisum=i12题Dimi,j,imin,tempAsIntegerFori=1Ton-1imin=iForj=i+1TonIfa(imin)>a(j)Thenimin=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti13题DimiAsIntegerFori=2To1000IfiMod3=2AndiMod5=3AndiMod7=2ThenPrintiExitForEndIfNextisum=i14题IfUCase(n)>="A"AndUCase(n)<="Z"Thenfun="字母"ElseIfn>="0"Andn<="9"Thenfun=