(VB)B答案.docVIP

2007 -2008 学年第 二 学期 《高级语言程序设计（VB）》试卷B参考答案 课程代码 BB102021 考试方式 闭卷 考试时长 120分钟 一、分析程序，写出程序的运行结果或功能（每小题3分，共24分） 1、 i=3 i=6 i=9 i=10 2、 a=山东农业大学 b=山东大学 3、 A2=20 B2=10 4、 x=-2 y=4 x=-1 y=5 x=0 y=0 x=1 y=-1 x=2 y=-3 5、 S=10 6、 　＊ 　　　＊＊＊ ＊＊＊＊＊ 　＊＊＊＊＊＊＊ ＊＊＊＊＊＊＊＊＊ 　　　＊＊＊＊＊＊＊＊＊＊＊ 7、 Text1文本框的背景色每秒钟变化一次 8、 计算2~100间的偶数和 二、编程题（本大题共4小题，第小题10分，共40分） 说明：编程思想不同，实现代码可能不同，只要思路正确，个别语句不能正确描述，或用文字描述，斟情扣分。过程的首尾语句Private………..End sub 可以不写。 1、程序代码如下： Private Sub Form_Click() For i = 1 To 100 s = s + 1 / i Next i Print s=; s End Sub 2、程序代码如下： Dim w As Boolean Private Sub Form_Click() Dim i As Integer n = 0 For i = 2 To 10000 Call ss(i) If w Then n = n + 1 If n Mod 10 = 0 Then Print i Else Print i; If n = 100 Then Exit For End If Next i End Sub Private Sub ss(x As Integer) w = False m = Sqr(x) For j = 2 To m If x Mod j = 0 Then Exit For Next j If j m Then w = True End Sub 3、程序代码如下： Private Sub Form_Click() Dim a%(8), b%(8), c%(8) For I = 1 To 8 a(I) = 10 + Int(90 * Rnd) b(I) = 10 + Int(90 * Rnd) c(I) = a(I) + b(I) Next I Print 数组A中的元素为:; For I = 1 To 8 Print a(I); Next I Print Print 数组B中的元素为:; For I = 1 To 8 Print b(I); Next I Print Print 数组C中的元素为:; For I = 1 To 8 Print c(I); Next I Print End Sub 4、程序代码如下： Private Sub Form_Load() Label1.Caption = 请输入二进制数: Label2.Caption = 转换为十进数结果: Command1.Caption = 转换 Command2.Caption = 退出 Text1 = : Text2 = End Sub Private Sub Command1_Click() Dim dec As Integer, x$, s$, m% dec = 0 x = val(Text1) For i = 1 To Len(x) dec = dec * 2 + Val(Mid(x, i, 1)) Next i Text2=dec End sub 三、算法步骤描述(本大题共2小题，，共15分） 1、 问题分析：可以把格里高利公式“=”右边的式子当作累加和问题，每次要累加的数的分子为1，分母为1，3，5，……，每次增加2 ,其符号的规律是，奇数项为正，偶数项为负。因此可以设置一个符号变量s(初值为1),每次循环时都有与-1相乘，才决定累加符号。 设置变量：Pi—计算结果，i—循环变量，s—符号位 步骤： 第一步：变量赋初值pi=0:i=1:s=1 第二步：判断s/i是否天于1E-7，是转第四步，不是转第三步 第三步：Pi=Pi+s/i:i=i+2:s=s*-1 , 转第二步 第四步：计算Pi的值，Pi=Pi*4 第五步：打印出Pi的值。 2、通过键盘输入10个数，打印出其中的最大值与最小值。 流程图如下： 四、综合应用题(共20分） (1)系统主要包括以下主要功能:（共小题共5分） 系统管理:注册用户、用户密码修改、删除用户 学生成绩管理：学生成绩录入、成绩修改、成绩删除、成绩查询 奖学金管理：一等奖学金评定、二等奖学金