2022年计算机VB考试复习.docx
精选学习资料 - - - - - - - - - 1、两个时间函数 2、级数求和now（）、today（）、timeofday（）编写程序,运算并输出以下数列前 35 项的和；1-2-3,4-5-6,7-8-9, , ,3n+1-3n+2-3n+3 留意, n=0,1,2,3 Private Sub Button1_Click ByVal sender AsSystem.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim i, s As Integer s = 0 For i = 0 To 34 s += 3 * i + 1 - 3 * i + 2 - 3 * i + 3 Next MsgBoxs End Sub编写程序运算并输出下面数列前n 项的和, 当第一次显现和名师归纳总结 数的肯定值大于5000 时求和终止；第 1 页,共 7 页- - - - - - -精选学习资料 - - - - - - - - - 1*2*3,-2*3*4,3*4*5,-4*5*6, ,-1n-1*n*n+1*n+2, , （其中, 表示幂运算）PrivateSub Button3_ClickByVal sender AsSystem.Object, ByVal e As System.EventArgs HandlesButton3.Click Dim i, t, s As Integer i = 1 Do t = -1 i - 1 * i * i + 1 * i + 2 s += t i += 1 Loop Until Math.Abss > 5000 MsgBoxs End Sub图形题1、用循环编写程序,单击“ 生成图形” 按钮,在多行文本 框中输出如下列图的三角形,界面如下：名师归纳总结 - - - - - - -第 2 页,共 7 页精选学习资料 - - - - - - - - - 设计如下列图的生成数组界面,点击“ 生成数组” 按钮,完成如下功能：由程序随机产生一个6× 6 的二维数组,显示在 textbox1 文本框中, 并在 textbox2 文本框中输出数组中的 最大元素；有一个数列,前三项都是1,从第四项开头,每一项都是其相邻前三项之和的 1/2 ；试编写函数过程, 求数列第 n项的值；要求调用该过程,运算并输出 小数）n=30时前 n项的和； 保留 3位名师归纳总结 Function fByVal n As Integer As Double 第 3 页,共 7 页- - - - - - -精选学习资料 - - - - - - - - - Dim f1, f2, f3, fn As Double f1 = 1 f2 = 1 f3 = 1 For n = 4 To n fn = f1 + f2 + f3 / 2 f1 = f2 f2 = f3 f3 = fn Next f = fn End Function Private Sub Button1_Click ByVal sender AsSystem.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim n As Integer Dim s As Double For n = 1 To 30 s = s + fn Next 名师归纳总结 MsgBoxFormats, "0.000" 第 4 页,共 7 页- - - - - - -精选学习资料 - - - - - - - - - End Sub 编写判定一个正整数是否为“ 完数” 的函数过程；在大事过程中调用该过程,运算区间200 ,500 上“ 完数” 的个数；完数的含义是： 该数的全部因子之和等于该数；例 6=1+2+3；结果： 1 Function wsByVal n As Integer As Boolean Dim i, s As Integer s = 0 For i = 1 To n - 1 If n Mod i = 0 Then s = s + i End If Next If s = n Then ws = True Else ws = False End If End Function Private Sub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.Click 名师归纳总结 - - - - - - -第 5 页,共 7 页精选学习资料 - - - - - - - - - Dim n, i As Integer For i = 200 To 500 If wsi Then n = n + 1 End If Next MsgBoxStrn End Sub 已知数据文件dat5.dat中已储备有20 个同学一门课程的成绩（整型）,编程将该文件中20 个同学的成果赋给整型数组 score ,然后根据从高分到低分对成果排序,并按一行五 个输出显示；Dim score19, i, j, t As Integer FileOpen1, "d:10 文件 da5.dat", OpenMode.Input For i = 0 To 19 Input1, scorei Next For i = 0 To 18 For j = i + 1 To 19 名师归纳总结 - - - - - - -第 6 页,共 7 页精选学习资料 - - - - - - - - - If scorei < scorej Then t = scorei scorei = scorej scorej = t End If Next Next Dim str1 As String For i = 0 To 19 str1 += Strscorei If i + 1 Mod 5 = 0 Then str1 += vbCrLf End If Next MsgBoxstr1 名师归纳总结 - - - - - - -第 7 页,共 7 页
