VB程序设计考试题库——考试专用
- 格式：doc
- 大小：75.00 KB
- 文档页数：8
程序设计题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("输入一个自然数")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) ThenPrint (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 = 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) = 72 a(3) = 43：a(4) = 96：a(5) = 23 a(6) = 3：a(7) = 65：a(8) = 88a(9) = 17：max = a(0)：min = 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))8题Dim i, j, s As IntegerFor i = 100 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 = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Then j = j - 1 / iEnd IfNextPrint j11、题目：(事件)单击窗体。
(响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。
例如，整数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语句来实现。
Private Function fun(n As String) As String'**********Program**********'********** End **********End FunctionPrivate Sub Form_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 = FreeFileOpen 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且大于等于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 IntegerDim 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 #fInClose #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 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 10Line Input #fIn, a(i)Print #fOut, Trim(Str(fun(Val(a(i)))))NextClose #fInClose #fOutEnd Sub17、题目：编写函数fun，函数的功能是：求从m到n的乘积并显示，'如：m为2，n为4时，显示"24"'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。
