文档介绍：04—05高级语言程序设计(VB)上机考试试卷
改错题:
【题目】:求下列多项式的和。当第n项的值an小于10—6则停止计算,输出累加的项数n,an,s的值。窗体运行后,界面如下图。
(n=1,2,3…)
Option Explicit
Private Sub Form_Click()
Dim an As Single, s As Single
Const eps =
n = 0
s = 0
Do
n = n + 1
an = f(n)
s = s + an
Print " n ="; n, "a(" & n & ")="; an
Loop Until Abs(an) < eps
Print "s="; s
End Sub
Private Function f(m As Integer) As Long
Dim k As Integer
f = 1
For k = m To 3 * m – 2 Step 1
f = f * k
Next
End Function
【要求】: 1、新建工程输入以下代码,改正程序中的错误;
2、改错时,不能增加和删除句子,但可以调整语句位置;
3、:的根目录。
二、编程题
1) 参照下图界面,生成一个由一位随机数构成的数组,并求副对角线元素的和,及每一列和。
(图中3,8,8,8,5构成副对角线)
编程要求:
1、程序界面如图所示,编程时不得增加和减少界面对象或改变对象种类,窗体及界面元素大小适中,且均可见;
2、按“生成数组”按钮,先清空文本框及图片框中的内容,再显示生成的数组元素,按“结束”按钮结束程序的运行;
3、按“求列和”按钮,求数组各列之和并显示在相应文本框中,
4、按“求副对角线和”按钮,求出结果并显示在相应文本框中;