vb试题库_程序设计说明书.doc

word格式文档 专业整理 程序设计 【程序设计】 1.题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如： 两个数为15、20，结果显示5 要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,题目：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m If i Mod 2 = 0 Then y = y * i End If Next fun = y ---------------------- 6,题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下： mark大于等于90显示优秀 mark小于90且大于等于80显示良好 mark小于80且大于等于70显示中等 mark小于70且大于等于60显示及格 mark小于60显示不及格要求使用Select语句来实现。 答案：Select Case mark Case Is = 90 fun = 优秀 Case Is = 80 fun = 良好 Case Is = 70 fun = 中等 Case Is = 60 fun = 及格 Case Else fun = 不及格 End Select 7,题目：(事件)双击窗体(响应)求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum ---------------------- 8,题目： (事件)单击窗体。 (响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。 答案：------------------------------------ For i = 100 To 200 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next If j Int(Sqr(i)) Then Sum = Sum + i End If Next Print Sum ------------------------------------ 9,题目：将一个十进制整数m转换成 →r(2－16)进制字符串。 方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数