《vb程序设计考试题库-考试专用》由会员分享，可在线阅读，更多相关《vb程序设计考试题库-考试专用（8页珍藏版）》请在金锄头文库上搜索。
1、程序设计题1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是正数、负数或零，并根据输入的数用消息框显示正数、负数”或零。2、题目：(事件)单击窗体。(响应)求200300之间既能被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、题目：(事件)单击窗体。(响应)在窗体上输出100200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。9、题目：(事件)单击窗体。(响应)求1
3、020之间所有素数的乘积并输出在窗体上。将结果存入变量L中。10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。将结果存入变量J中。1题n = InputBox(输入一个自然数)If n 0 Then result = 正数ElseIf n max Then max = a(i) End If If a(i) min Then min = a(i) End Ifs = s + a(i)Nextaver = Int(s / 10)Print (CStr(max)Print (CStr(min)Print (CStr(aver)8题
4、 Dim i, j, s As IntegerFor i = 100 To 200 For j = 2 To Sqr(i) If (i Mod j) = 0 Then Print (CStr(i) 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 =
5、 FalseNextPrint Str(l)10题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 j11、题目： (事件)单击窗体。(响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的真因子为1、2、4、7、11，其和是28。因此28是一个完全数。请编写一个程序，求出500以内最大的完全数。并存入变量SUM中。使用for.next语句完成程序 12、题目：应用选
6、择法对数组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() Show Print fun(A) Print
7、fun(9) Print fun(&) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer Dim l As Integer Dim a(10) As String * 1 Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & in.dat For Input As #fIn fOut = FreeFile Open App.Path & out.dat For Output As #fOut For i = 1 To 10 Line Input #fIn
8、, a(i) Print #fOut, fun(a(i) Next Close #fIn Close #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
9、Form_Load() Show Print fun(90) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer Dim s As String Dim a(10) As Integer Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & in.dat For Input As #fIn fOut = FreeFile Open App.Path & out.dat For Output As #fOut For i = 1 To 10 Line Inp
10、ut #fIn, s a(i) = Val(s) Print #fOut, fun(a(i) Next Close #fIn Close #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() Show Print fun(15) NJIT_V
