VB程序设计易考题库

1、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 项，并求其

2、和，将和保存在变量s 中。5、习题： ( 事件 ) 单击窗体 ( 响应 ) 用输入框输入一自然数，判断是" 正数 " 、 " 负数或 " 零 " ，并根据输入的数用消息框显示" 正数 " 、 " 负数”或 " 零 " 。6、习题：单击窗体。) 求 1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S 中7、习题： ( 事件 ) 单击窗体。 ( 响应 ) 生成一个一维数组(10 个数组元素依此为：' 15 、23、72、43、96、23、3、 65、 88、 17写程序求出这个

3、数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量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

4、("输入一个自然数")If n > 0 Thenresult = "正数 "ElseIf n < 0 Thenresult = "负数 "ElseIf n = 0 Thenresult = "零 "End IfMsgBox " 输入的数据 " & n & "为： " & result2题Dim i As IntegerFor i = 201 To 300If (i Mod 3) = 0) And (i Mod 7) = 0) ThenPri

5、nt (CStr(i)sum = sum + iEnd IfNextPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i i)NextPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i) & "/" & CStr(j)j = ii = i + mNext5题Dim i, j, k As IntegerFor i = 1 To 100For j

6、 = 1 To 50For k = 1 To 20If (i + 2 * j + k * 5) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)n = n + 1End IfNextNextNext6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNexts = s + kNextPrint (CStr(s)7题Dim a(9) As IntegerDim i, s As Integera(0) = 15： a(1) = 23：a(2) = 72a(3)

7、= 43 ： a(4) = 96：a(5) = 23a(6) = 3 ：a(7) = 65：a(8) = 88a(9) = 17： max = a(0)s = 0For i = 0 To 9If a(i) > max Thenmax = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Nextaver = Int(s / 10)Print (CStr(max)Print (CStr(min)Print (CStr(aver)： min = a(0)8题Dim i, j, s As IntegerFor i = 100

8、To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i)sum = sum + iExit ForEnd IfNextNextPrint sum9题Dim i% ， j%， b As Booleanl = 1： b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd Ifb = FalseNextPrint Str(l)10 题Dim i As IntegerFor i

9、 = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j11、习题： ( 事件 ) 单击窗体。 ( 响应 ) 如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数28 的真因子为1、2、4、7、11，其和是 28。因此 28 是一个完全数。请编写一个程序，求出 500 以内最大的完全数。并存入变量SUM中。使用 for.next语句完成程序12、习题：应用选择法对数组A 按升序排列13、习题：单击窗体。求一个数, 它除 3 余 2，除 5

10、 余 3，除 7 余 2，请将满足上面条件的最小数保存到 sum 变量中。使用 for.next语句完成程序。14、习题：编写函数fun ，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。字母字符显示字符串" 字母 " ，数字字符显示字符串" 数字 " ，其他字符显示字符串" 其他 " ，要求使用 IF 语句来实现。Private Function fun(n As String) As String'*Program*'* End *End FunctionPrivate Sub Form

11、_Load()ShowPrint fun("A")Print fun("9")Print fun("&")NJIT_VBEnd SubPrivate Sub NJIT_VB()Dim i As IntegerDim l As IntegerDim a(10) As String * 1Dim fIn As IntegerDim fOut As IntegerfIn = FreeFileOpen App.Path & "in.dat" For Input As #fInfOut = FreeFileO

12、pen App.Path & "out.dat" For Output As #fOutFor i = 1 To 10Line Input #fIn, a(i)Print #fOut, fun(a(i)NextClose #fInClose #fOutEnd Sub15、习题：编写函数fun ，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：'mark 大于等于 90 显示 " 优秀 "'mark 小于 90 且大于等于80 显示 " 良好 "'mark 小于 80 且

13、大于等于70 显示 " 中等 "'mark 小于 70 且大于等于60 显示 " 及格 "'mark 小于 60 显示 " 不及格 "' 要求使用 IF 语句来实现。Private Function fun(mark As Integer) As String'*Program*'* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(90)NJIT_VBEnd SubPrivate Sub NJIT_VB()Dim i As Intege

14、rDim s As StringDim a(10) As IntegerDim 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 10Line Input #fIn, sa(i) = Val(s)Print #fOut, fun(a(i)NextClose #fInCl

15、ose #fOutEnd Sub16、习题：编写函数fun ，函数的功能是：当x 的初值为 10，每年增长率为千分之八，计算多少年以后 x 的值能达到y ，并显示所需年数的值（变量名必须为n）。' 要求使用Do While . Loop语句来实现。Private Function fun(y As Single) As LongDim x As Single, n As Long'*Program*'* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(15)NJIT_VBEnd SubPrivate Sub N

16、JIT_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 10Line Input #fIn, a(i)Print #fOut, Trim(Str(fun(Val(a(i)NextCl

17、ose #fInClose #fOutEnd Sub17、习题：编写函数 fun ，函数的功能是： 求从 m到 n 的乘积并显示， ' 如：m为 2，n 为 4 时，显示 "24"'存储连乘的乘积的变量必须为Product'要求使用For 语句来实现。Private Function fun(m As Integer, n As Integer) As LongDim Product As Double, t As IntegerIf m > n Then t = m: m = n: n = t'*Program*'* End

18、*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

19、 #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作为该数是否为素数的标志，注意：不得

20、使用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.d

21、at" 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 为

22、 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

23、 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 #fI

24、nClose #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 Integerd

25、im 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) <= &