(VB)B答案.doc

2007 -2008 学年第 二 学期高级语言程序设计（VB）试卷B参考答案课程代码 BB102021 考试方式 闭卷 考试时长 120分钟一、分析程序，写出程序的运行结果或功能（每小题3分，共24分）1、i=3i=6i=9i=102、a=山东农业大学b=山东大学3、A2=20 B2=104、x=-2 y=4x=-1 y=5x=0 y=0x=1 y=-1x=2 y=-35、S=106、 7、Text1文本框的背景色每秒钟变化一次8、计算2100间的偶数和得分二、编程题（本大题共4小题，第小题10分，共40分）说明：编程思想不同，实现代码可能不同，只要思路正确，个别语句不能正确描述，或用文字描述，斟情扣分。过程的首尾语句Private.End sub 可以不写。1、程序代码如下：Private Sub Form_Click()For i = 1 To 100s = s + 1 / iNext iPrint s=; sEnd Sub2、程序代码如下：Dim w As BooleanPrivate Sub Form_Click()Dim i As Integern = 0For i = 2 To 10000Call ss(i)If w Thenn = n + 1If n Mod 10 = 0 Then Print i Else Print i;If n = 100 Then Exit ForEnd IfNext iEnd SubPrivate Sub ss(x As Integer)w = Falsem = Sqr(x)For j = 2 To mIf x Mod j = 0 Then Exit ForNext jIf j m Then w = TrueEnd Sub3、程序代码如下：Private Sub Form_Click()Dim a%(8), b%(8), c%(8)For I = 1 To 8a(I) = 10 + Int(90 * Rnd)b(I) = 10 + Int(90 * Rnd)c(I) = a(I) + b(I)Next IPrint 数组A中的元素为:;For I = 1 To 8Print a(I);Next IPrintPrint 数组B中的元素为:;For I = 1 To 8Print b(I);Next IPrintPrint 数组C中的元素为:;For I = 1 To 8Print c(I);Next IPrintEnd Sub4、程序代码如下：Private Sub Form_Load()Label1.Caption = 请输入二进制数:Label2.Caption = 转换为十进数结果:Command1.Caption = 转换Command2.Caption = 退出Text1 = : Text2 = End SubPrivate Sub Command1_Click()Dim dec As Integer, x$, s$, m%dec = 0x = val(Text1)For i = 1 To Len(x)dec = dec * 2 + Val(Mid(x, i, 1)Next iText2=decEnd 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个数，打印出其中的最大值与最小值。 流程图如下：Y开始输入第一个数xMax1=val(x)Min1=val(x)I=1IMax1?Min1=val(x)Val(x)Min1?Max1=val(x)NYNYNI=i+1打印出最大、小值结束得分四、综合应用题(共20分）(1)系统主要包括以下主要功能:（共小题共5分） 系统管理:注册用户、用户密码修改、删除用户 学生成绩管理：学生成绩录入、成绩修改、成绩删除、成绩查询 奖学金管理：一等奖学金评定、二等奖学金评定 帮助:系统操作提示(可选)(2)说明以下变量的有关定义和功能可根据学生具体情况而定（不尽相同，如比不用数组也可以）（共小题共5分）u1-用户名p1-密码a(120)-存放学生学号，b(120)-存放学生姓名c(120,9)-存在学生总成绩每一行的前8项用来存放学生各门课程成绩，第9项存放此学生总分sum-所有同学总分sum1-第i个同学的总分aver-所有学生总分平均分xuehao-学号name-姓名k1,k2,k3k8-8门课程成绩cj.dat(.txt)-学生成绩文件 (3) 程序过程过程名：（共5分，过程名可以与下面不同，但不能存在两个相同的过程名,有无参数可根据学生书写内容来定）注册用户：zcyh用户密码修改:yhmmxg删除用户：scyh学生成绩录入模块：xscjlr成绩修改:cjxg成绩删除:cjsc成绩查询:cjcx一等奖学金评定:ydjxj二等奖学金评定edjxj所有过程事件都是click()单击事件系统操作提示(可选):无过程，信息框提示（如放在过程中也可以）(4)奖学金评定基本思想：（5分）第一步：将学生的学号、姓名、学生姓名从文件中读出分别放在数组a,b,c中第二步：计算每一个学生的总分(8门课程成绩相加/8)第三步：计算总分平均分(