Visual Basic 程序设计题.docx

【编号:1】-【程序设计】-题目：(事件)单击窗体。 (响应)求闭区间1.m上所有偶数之积，并将结果输出在窗体上。m是大于1的自然数，例如m=10，则输出3840-Private Function fun(m As Integer) As Double*begin*end*End FunctionPrivate Sub Form_Click()Print fun(10)TestFuncEnd SubPrivate Sub TestFunc() Dim fIn As Integer Dim fOut As Integer Dim i As Integer Dim t As Integer Dim j As Integer Dim l As Integer Dim a(10) As String, b As String 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 3 Line Input #fIn, a(i) b = For j = 1 To Len(a(i) t = Asc(Mid(a(i), j, 1) Xor 10 b = b & Chr(t) Next l = Val(b) Print #fOut, fun(l) Next Close #fIn Close #fOutEnd Sub参考答案:Dim sum As DoubleDim i As Integersum = 1#For i = 1 To m If i Mod 2 = 0 Then sum = sum * i End IfNextfun = sum【编号:2】-【程序设计】-题目：(事件)单击窗体。 (响应)求闭区间1.m上所有奇数的和，并将结果输出在窗体上。m是大于1的自然数，例如m=100，则输出2500-Private Function fun(m As Integer) As Long*begin*end*End FunctionPrivate Sub Form_Click()Print fun(100)TestFuncEnd SubPrivate Sub TestFunc() Dim fIn As Integer Dim fOut As Integer Dim i As Integer Dim t As Integer Dim j As Integer Dim l As Integer Dim a(10) As String, b As String 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 3 Line Input #fIn, a(i) b = For j = 1 To Len(a(i) t = Asc(Mid(a(i), j, 1) Xor 10 b = b & Chr(t) Next l = Val(b) Print #fOut, fun(l) Next Close #fIn Close #fOutEnd Sub参考答案:Dim sum As LongDim i As IntegerFor i = 1 To m If i Mod 2 = 1 Then sum = sum + i End IfNextfun = sum考生答案:得分: 0【编号:3】-【程序设计】-题目：编写函数fun其功能是：根据整型形参m，计算 如下公式的值：y=1/21/41/6.1/2m 例如：若m=9，则应输出：1.41448412698413-Private Function fun(m As Integer) As Double*begin*end*End FunctionPrivate Sub Form_Load() Show Print fun(9) TestFuncEnd SubPrivate Sub TestFunc() Dim i As Integer Dim t As Integer Dim l As Integer Dim d As Double Dim a(10) As String, b As String Dim fIn As Integer Dim fOut As Integer Dim j 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 8 Line Input #fIn, a(i) b = For j = 1 To Len(a(i) t = Asc(Mid(a(i), j, 1) Xor 10 b = b & Chr(t) Next l = Val(b) Print #fOut, fun(l) Next Close #fIn Close #fOutEnd Sub参考答案:Dim y As DoubleDim i As IntegerFor i = 1 To m y = y + 1 / (2 * i)Nextfun = y【编号:4】-【程序设计】-题目：编写函数fun，函数的功能是：计算n门课程 的平均值，计算结果作为函数值返回。 例如，若有5门课程的成绩是：92，76，69， 58，88，则函数的值为76.6。-Private Function fun(a() As Integer, n As Integer) As Double*begin*end*End FunctionPrivate Sub Form_Load() Show Dim a(5) As Integer, i As Integer a(1) = 92: a(2) = 76: a(3) = 69: a(4) = 58: a(5) = 88 Print fun(a, 5) TestFuncEnd SubPrivate Sub TestFunc() Dim i As Integer, t As Integer, j As Integer Dim s As String Dim d As Double Dim a(10) As String, bs As String Dim b(5) 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 5 Line Input #fIn, a(i) bs = For j = 1 To Len(a(i) t = Asc(Mid(a(i), j, 1) Xor 10 bs = bs & Chr(t) Next b(i) = Val(bs) Next Print #fOut, fun(b, 5) Close #fIn Close #fOutEnd Sub参考答案:Dim i As IntegerDim y As DoubleFor i = 1 To n y = y + a(i)Nextfun = y / n【编号:5】-【程序设计】-题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。5件如下：mark大于等于90显示Amark小于90且大于等于80显示Bmark小于80且大于等于70显示Cmark小于70且大于等于60显示Dmark小于60显示E-Private Function fun(mark As Integer) As String*begin*end*End FunctionPrivate Sub Form_Load() Show Print fun(90) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer, j As Integer, t As Integer Dim bs As String Dim a(10) As String, b 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 7 Line Input #fIn, a(i) bs = For j = 1 To Len(a(i) t = Asc(Mid(a(i), j, 1) Xor 10 bs = bs & Chr(t) Next b = V