VB程序设计易考题库

VB程序设计易考题库考试必备程序设计题1、习题：单击窗体。( 响应 ) 已知 S=1+1/4+1/9+1/16+1/25+1/100 ，结果输出在窗体上。2、习题： ( 事件 ) 单击窗体。 ( 响应 ) 求 200300 之间既能被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、习题： ( 事件 ) 单击窗体。 ( 响应 ) 在窗体上输出100200 之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1 和本数整除以外, 还能被其他数整除的数。9、习题： ( 事件 ) 单击窗体。 ( 响应 ) 求 1020 之间所有素数的乘积并输出在窗体上。将结果存入变量L中。10、习题： ( 事件 ) 单击窗体。 ( 响应 ) 求1 - 1/2 + 1/3 - 1/4 + 1/99 - 1/100的值。将结果存入变量 J 中。1题n = InputBox(输入一个自然数)If n 0 Thenresult = 正数 ElseIf n max Thenmax = a(i)End IfIf a(i) n Then t = m: m = n: n = t*Program* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(4, 2)NJIT_VBEnd SubPrivate Sub NJIT_VB()Dim i As IntegerDim a(10) As StringDim fIn As IntegerDim fOut As IntegerfIn = FreeFileOpen App.Path & in.dat For Input As #fInfOut = FreeFileOpen App.Path & out.dat For Output As #fOutFor i = 1 To 10 Step 2Line Input #fIn, a(i)Line Input #fIn, a(i + 1)Print #fOut, Trim(Str(fun(Val(a(i), Val(a(i + 1)NextClose #fInClose #fOutEnd Sub18、习题：编写函数fun ，函数的功能是：判断一个数是否为素数。并显示相应提示。如：该数为素数时，显示 素数 ；该数为非素数时，显示 非素数 要求使用For 语句来实现，用布尔型变量 flag作为该数是否为素数的标志，注意：不得使用Goto 语句。Private Function fun(m As Long) As StringDim flag As Boolean*Program* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(225)NJIT_VBEnd SubPrivate Sub NJIT_VB()Dim i As IntegerDim a(10) As StringDim fIn As IntegerDim fOut As IntegerfIn = FreeFileOpen App.Path & in.dat For Input As #fInfOut = FreeFileOpen App.Path & out.dat For Output As #fOutFor i = 1 To 10 Step 1Line Input #fIn, a(i)Print #fOut, fun(Val(a(i)NextClose #fInClose #fOutEnd SubNextClose #fInClose #fOutEnd Sub19、习题：编写函数fun ，函数的功能是：求1100 以内能被m整除或能被n 整除的数的总和并显示。如：m 为 15，n 为 11 时，显示 810 ， 存储总和的变量必须为Sum， 要求使用For语句来实现。Private Function fun(m As Integer, n As Integer) As LongDim Sum As Long*Program* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(15, 11)NJIT_VBEnd SubPrivate Sub NJIT_VB()Dim i As IntegerDim a(10) As StringDim fIn As IntegerDim fOut As IntegerfIn = FreeFileOpen App.Path & in.dat For Input As #fInfOut = FreeFileOpen App.Path & out.dat For Output As #fOutFor i = 1 To 10 Step 2Line Input #fIn, a(i)Line Input #fIn, a(i + 1)Print #fOut, Trim(Str(fun(Val(a(i), Val(a(i + 1)NextClose #fInClose #fOutEnd Sub20、习题：编写函数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 题Dim i As Integerdim s as integerFor i = 500 To 1 Step -1s = iFor j = i - 1 To 1 Step -1If i Mod j = 0 Thens = s - jEnd IfNext jIf s = 0 ThenExit ForEnd IfNext iPrint isum=i12题Dim i, j, imin, temp As IntegerFor i = 1 To n - 1imin = iFor j = i + 1 To nIf a(imin) a(j) Then imin = jNext jtemp = a(i)a(i) = a(imin)a(imin) = tempNext i13题Dim i As IntegerFor i = 2 To 1000If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 ThenPrint iExit ForEnd IfNext isum = i14 题If UCase(n) = A And UCase(n) = 0 And n =90 thenFun=优秀Elself mark =80 thenFun=良好Elseif mark=70 thenFun=中等Elseif mark=60 thenFun=及格ElseFun= 不及格16题 x = 10n = 0Do While x yx = x * 1.008n = n + 1Loopfun = n17题 Product = 1For i = m To nProduct = Product * iNext ifun = Product18题 flag = TrueFor i = 2 To m - 1If m Mod i = 0 Then flag = FalseNext iIf flag Thenfun = 素数 Else19 题Sum = 0For i = 1 To 100If i Mod m = 0 Or i Mod n = 0 ThenSum = Sum + iEnd IfNext i20题Dim s, i As IntegerFor i = 2 To n - 1If n Mod i = 0 Thens = s + iEnd IfNext21题Dim k As Integer, s As IntegerDos = s + (w Mod 10) * (w Mod 10)w = Int(w / 10)Loop While w 0If s Mod 5 = 0 Thenk = 1Elsek = 0End Iffun = k学习就到这里了，最后祝大家学习愉快！