《2022年计算机VB考试复习》由会员分享,可在线阅读,更多相关《2022年计算机VB考试复习(7页珍藏版)》请在金锄头文库上搜索。
1、1、两个时间函数now() 、today() 、timeofday()2、级数求和编写程序,计算并输出下列数列前35 项的和。(1-2-3),(4-5-6),(7-8-9), ,(3n+1)-(3n+2)-(3n+3), ( 注意, n=0,1,2,3) PrivateSub 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、 + 2) - (3 * i + 3) Next MsgBox(s) End Sub编写程序计算并输出下面数列前n 项的和, 当第一次出现和数的绝对值大于5000 时求和终止。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页,共 7 页1*2*3,-2*3*4,3*4*5,-4*5*6, ,(-1)(n-1)*n*(n+1)*(n+2), , (其中, 表示幂运算)PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handle
3、sButton3.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.Abs(s) 5000 MsgBox(s) End Sub图形题1、用循环编写程序,单击“生成图形”按钮,在多行文本框中输出如图所示的三角形,界面如下:精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页,共 7 页设计如图所示的生成数组界面,点击“生成数组”按钮,完成如下功能:由程序随机产生一个66 的二维数组,
4、显示在 textbox1文本框中,并在 textbox2 文本框中输出数组中的最大元素。有一个数列,前三项都是1,从第四项开始,每一项都是其相邻前三项之和的1/2 。 试编写函数过程, 求数列第 n项的值。要求调用该过程,计算并输出n=30时前 n项的和。 ( 保留 3位小数)Function f(ByVal 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
5、 fn = (f1 + f2 + f3) / 2 f1 = f2 f2 = f3 f3 = fn Next f = fn End Function PrivateSub 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 + f(n) Next MsgBox(Format(s, 0.000 ) 精选学习资料 - - - - - - - - - 名师归纳
6、总结 - - - - - - -第 4 页,共 7 页End Sub 编写判断一个正整数是否为“完数”的函数过程。在事件过程中调用该过程,计算区间200 ,500 上“完数”的个数。完数的含义是: 该数的所有因子之和等于该数。例 6=1+2+3。结果: 1 Function ws(ByVal 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 E
7、nd If End Function Private Sub Button1_Click(ByVal 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 ws(i) Then n = n + 1 End If Next MsgBox(Str(n) End Sub 已知数据文件dat5.dat中已存储有
8、20 个学生一门课程的成绩(整型),编程将该文件中20 个学生的成绩赋给整型数组 score ,然后按照从高分到低分对成绩排序,并按一行五个输出显示。Dim score(19), i, j, t As Integer FileOpen(1, d:10文件 da5.dat, OpenMode.Input) For i = 0 To 19 Input(1, score(i) Next For i = 0 To 18 For j = i + 1 To 19 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页,共 7 页 If score(i) score(j) Then t = score(i) score(i) = score(j) score(j) = t End If Next Next Dim str1 As String For i = 0 To 19 str1 += Str(score(i) If (i + 1) Mod 5 = 0 Then str1 += vbCrLf End If Next MsgBox(str1) 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页,共 7 页