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

《VB程序设计考精彩试题库——考试专用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实用文档程序设计题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、题目：(事件)双击窗体。(响应)把一元钞票换成一

2、分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量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中所谓合数是指自然数

3、中能被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((

4、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(C

5、Str(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)>maxThe

6、nmax=a(i)EndIfIfa(i)

7、j=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr(l)10题DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNext文案大全实用文档Printj11、题目：(事件)单击窗体。(响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的真因子为1、2、4、7、11，其和是28。因此28是一个完全数。请编写一个程序，求出500以内最大的完全