【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-VB程序设计考试题库——考试专用 - 中考高考，希望本篇文章对您学习有所帮助。

    

程序设计题 1、题目：事件单击窗体响应用输入框输入一自然数，判断是正数、负数或零，并根据输入的数用消息框显示正数、负数”或零。

     2、题目：事件单击窗体。

    响应求 200300 之间既能被 3 整除又能被 7 整除的数。

    并求出所有数之和存入变量 SUM 中 3、题目：单击窗体。

    响应已知 S11/41/91/161/25…1/100，结果输出在窗体上。

     4、题目：事件单击窗体。

    响应在窗体上打印数列 2/13/25/38/513/8…的前 10 项，并求其和，将和保存在变量 s 中。

     5、题目：事件双击窗体。

    响应把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。

    将所有的换法的数目存入变量 N 中 6、题目：单击窗体。

    求 12345并将结果输出到窗体上。

    结果存入变量 S 中 7、题目：事件单击窗体。

    响应生成一个一维数组10 个数组元素依此为： 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。

    将最大值，最小值，平均值分别存入变量 MaxMinAver 中 8、题目：事件单击窗体。

    响应在窗体上输出 100200 之间的所有合数。

    求出所有数之和存入 SUM中所谓合数是指自然数中能被 1 和本数整除以外还能被其他数整除的数。

     9、题目：事件单击窗体。

    响应求 1020 之间所有素数的乘积并输出在窗体上。

    将结果存入变量 L中。

     10、题目：事件单击窗体。

    响应求1‐1/21/3‐1/4 …… 1/99‐1/100的值。

    将结果存入变量J中。

     1题 n InputBox输入一个自然数 If n 0 Then result 正数 ElseIf n 0 Then result 负数 ElseIf n 0 Then result 零 End If MsgBox 输入的数据 n 为： result 2题 Dim i As Integer For i 201 To 300 If i Mod 3 0 And i Mod 7 0 Then Print CStri sum sum i End If Next Print sum 3题 Dim i As Integer s 0 For i 1 To 10 s s 1 / i i Next Print s 4题 Dim i j k m As Integer s 0 :i 2:j 1 For k 1 To 10 s s i / j m j Print CStri / CStrj j i i i m Next 5题 Dim i j k As Integer For i 1 To 100 For j 1 To 50 For k 1 To 20 If i 2 j k 5 100 Then Print CStri Print CStrj Print CStrk n n 1 End If Next NextNext6题Dim i j k As IntegerFor i 1 To 5 k 1 For j 1 To i k k j Next s s kNextPrint CStrs7题Dim a9 As IntegerDim i s As Integera0 15：a1 23：a2 72a3 43：a4 96：a5 23a6 3：a7 65：a8 88a9 17：max a0：min a0s 0For i 0 To 9 If ai max Then max ai End If If ai min Then min ai End Ifs s aiNextaver Ints / 10Print CStrmaxPrint CStrminPrint CStraver8题Dim i j s As IntegerFor i 100 To 200 For j 2 To Sqri If i Mod j 0 Then Print CStri sum sum i Exit For End If NextNextPrint sum9题Dim i，j，b As Booleanl 1：b FalseFor i 10 To 20 For j 2 To i - 2 If i Mod j 0 Then b True End If Next If b False Then l l i End If b FalseNextPrint Strl10 题Dim i As Integer For i 1 To 100 If i Mod 2 1 Then j j 1 / i ElseIf i Mod 2 0 Then j j - 1 / i End If Next Print j 11、题目： 事件单击窗体。

    响应如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。

    例如，整数 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 语句来实现。

     PrivateFunctionfunnAsStringAsString Program End EndFunction PrivateSubForm_Load Show PrintfunA Printfun9 Printfun NJIT_VB EndSub PrivateSubNJIT_VB DimiAsInteger DimlAsInteger Dima10AsString1 DimfInAsInteger DimfOutAsInteger fInFreeFile OpenApp.Pathin.datForInputAsfIn fOutFreeFile OpenApp.Pathout.datForOutputAsfOut Fori1To10 LineInputfInai PrintfOutfunai Next ClosefIn ClosefOut EndSub 15、题目：编写函数 fun，函数的功能是：根据一个百分制成绩 mark（整数），显示对应五级制的评定。

    条件如下： mark 大于等于 90 显示优秀 mark 小于 90 且大于等于 80 显示良好 mark 小于 80 且大于等于 70 显示中等 mark 小于 70 且大于等于 60 显示及格 mark 小于 60 显示不及格 要求使用 IF 语句来实现。

     PrivateFunctionfunmarkAsIntegerAsString Program End EndFunction PrivateSubForm_Load Show Printfun90 NJIT_VB EndSub PrivateSubNJIT_VB DimiAsInteger DimsAsString Dima10AsInteger DimfInAsInteger DimfOutAsInteger fInFreeFile OpenApp.Pathin.datForInputAsfIn fOutFreeFile OpenApp.Pathout.datForOutputAsfOut Fori1To10 LineInputfIns aiVals PrintfOutfunai Next ClosefIn ClosefOut EndSub 16、题目：编写函数 fun，函数的功能是：当 x 的初值为 10，每年增长率为千分之八，计算多少年以后 x 的值能达到 y，并显示所需年数的值（变量名必须为 n）。

     要求使用 DoWhile...Loop 语句来实现。

     PrivateFunctionfunyAsSingleAsLong DimxAsSinglenAsLong Program End EndFunction PrivateSubForm_Load Show Printfun15 NJIT_VB EndSub PrivateSubNJIT_VB DimiAsInteger Dima10AsString DimfInAsInteger DimfOutAsInteger fInFreeFile OpenApp.Pathin.datForInputAsfIn fOutFreeFile OpenApp.Pathout.datForOutputAsfOut Fori1To10 LineInputfInai PrintfOutTrimStrfunValai Next ClosefIn ClosefOut EndSub 17、题目：编写函数 fun，函数的功能是：求从 m 到 n 的乘积并显示，如：m 为 2，n 为 4 时，显示24存储连乘的乘积的变量必须为 Product要求使用 For 语句来实现。

     PrivateFunctionfunmAsIntegernAsIntegerAsLong DimProductAsDoubletAsInteger IfmnThentm:mn:nt Program End EndFunction PrivateSubForm_Load Show Printfun42 NJIT_VB EndSub PrivateSubNJIT_VB DimiAsInteger Dima10AsString DimfInAsInteger DimfOutAsInteger fInFreeFile OpenApp.Pathin.datForInputAsfIn fOutFreeFile OpenApp.Pathout.datForOutputAsfOut Fori1To10Step2 LineInputfInai LineInputfInai1 PrintfOutTrimStrfunValaiValai1 Next ClosefIn ClosefOut EndSub 18、题目：编写函数 fun，函数的功能是：判断一个数是否为素数。

    并显示相应提示。

    如： 该数为素数时，显示素数；该数为非素数时，显示非素数要求使用 For 语句来实现，用布尔型变量 flag 作为该数是否为素数的标志，注意：不得使用 Goto 语句。

     PrivateFunctionfunmAsLongAsString DimflagAsBoolean Program End EndFunction PrivateSubForm_Load Show Printfun225 NJIT_VB EndSub PrivateSubNJIT_VB DimiAsInteger Dima10AsString DimfInAsInteger DimfOutAsInteger fInFreeFile OpenApp.Pathin.datForInputAsfIn fOutFreeFile OpenApp.Pathout.datForOutputAsfOut Fori1To10Step1 LineInputfInai PrintfOutfunValai Next ClosefIn ClosefOut EndSub Next ClosefIn ClosefOut EndSub 19、题目：编写函数 fun，函数的功能是：求 1100 以内能被 m 整除或能被 n 整除的数的总和并显示。

    如： m 为 15，n 为 11 时，显示810，存储总和的变量必须为 Sum，要求使用 For 语句来实现。

     PrivateFunctionfunmAsIntegernAsIntegerAsLong DimSumAsLong Program End EndFunction PrivateSubForm_Load Show Printfun1511 NJIT_VB EndSub PrivateSubNJIT_VB DimiAsInteger Dima10AsString DimfInAsInteger DimfOutAsInteger fInFreeFile OpenApp.Pathin.datForInputAsfIn fOutFreeFile OpenApp.Pathout.datForOutputAsfOut Fori1To10Step2 LineInputfInai LineInputfInai1 PrintfOutTrimStrfunValaiValai1 Next ClosefIn ClosefOut EndSub 20、题目：编写函数 fun，函数的功能是：计算并输出给定整数 n 的所有因子之和（不包括 1 与自身）。

    规定 n 的值不大于 1000 例如：n 的值为 855 时，应输出 704。

     21、题目：：编写函数 fun 其功能是:判断一个整数 w 的各位数字平方之和能否被 5 整除 可以被 5整除则返回 1 否则返回 0 22、题目：编写函数 fun 其功能是：根据整型形参 m，计算如下公式的值: y1/51/61/71/81/91/10...1/m5求：函数中用到的中间变量必须声明为 Single 类型。

     11 题 Dim i As Integer dim s as integer For i 500 To 1 Step -1 s i For j i - 1 To 1 Step -1 If i Mod j 0 Then s s - j End If Next j If s 0 Then Exit For End If Next i Print i sumi 12题 Dim i j imin temp As Integer For i 1 To n - 1 imin i For j i 1 To n If aimin aj Then imin j Next j temp ai ai aimin aimin temp Next i13题Dim i As Integer For i 2 To 1000 If i Mod 3 2 And i Mod 5 3 And i Mod 7 2 Then Print i Exit For End IfNext i sum i14 题If UCasen A And UCasen 0 And n 90 then Fun优秀Elself mark 80 then Fun良好Elseif mark70 thenFun中等Elseif mark60 thenFun及格Else Fun不及格16题x 10n 0Do While x y x x 1.008 n n 1Loopfun n17题Product 1For i m To n Product Product iNext ifun Product18题 flag TrueFor i 2 To m - 1 If m Mod i 0 Then flag FalseNext iIf flag Then fun 素数Else19 题Sum 0For i 1 To 100 If i Mod m 0 Or i Mod n 0 Then Sum Sum i End IfNext i 20题 Dim s i As Integer For i 2 To n - 1 If n Mod i 0 Then s s i End If Next 21题Dim k As Integer s As Integer Do s s w Mod 10 w Mod 10 w Intw / 10 Loop While w 0 If s Mod 5 0 Then k 1 Else k 0 End If fun k 22题 Dim y As Double Dim i As Integer For i 0 To m y y 1 / i 5 Next Fun y