07-08(2)vb期末a卷答案(终稿)

《07-08(2)vb期末a卷答案(终稿)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2007/08二学期程序设计基础VB答卷请每位老师各自做一下，防止我做错，有错请及时告知，谢谢。答案中红色的内容为评分时需要注意的内容，蓝色的是第二种可选答案一、选择题（每小题1分，共8分）1、D2、A3、A4、A5、A6、C7、A8、D二、填空题（每空格1分，共12分）⑴对象⑵事件⑶ifleft(str(x),1)=right(str(x),1)（没有str算错）或者ifx100=xmod10(4)redima(n)asinteger(5)publicxasdouble(6)按地址传递或byref⑺TRUE⑻sho

2、wfont⑼interval⑽fillcolor⑾形状⑿fillstyle三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号中填“√”或“×”）1、（×）2、（×）3、（×）4、（√）5、（×）6、（×）7、（√）8、（×）9、（×）10、（√）四、程序阅读题（共24分）程序125程序2.第1次追加表项abc所有表项依次为＋－×÷2第2次追加表项cd&cd&1第3次追加表项＋－×÷abc程序3.语句showfont前应该先设置flags属性应修改为commondialog1.flags=257flags缺少s或

3、者等于1都要扣1分语句Text1.FontUnderline=True应修改为Text1.FontUnderline=commondialog1.fontunderline拼写错误如不太离谱的话一共扣1分，只要找到两个错误即可，不要求顺序程序4.语句a(i)=InputBox("输入第"+n+"个数")应修改为a(i)=InputBox("输入第"+str(i)+"个数")语句Fori=1Ton应修改为Fori=1Tom语句Text1.Text=a(i)应修改为Text1.Text=Text1.Text＋a(i)语句P

4、rivateFunctionoushu(bAsInteger,mAsInteger)AsInteger应修改为PrivateFunctionoushu(b（）AsInteger,mAsInteger)AsInteger此题有四处错误，当时只是想少找一点错误，就想留两句，忘了程序改回来了，所以此题只要找出两处就给分五、程序填空题（每空格2分，共16分）（下面内容如与答案不符请老师认真思考学生答案可能正确）程序1.⑴PublicFunctionf(a()AsSingle,nAsInteger,maxAsSingle,min

5、AsSingle)AsSingle⑵max=a(1):min=a(1)此内容写一半给一半分⑶f=f+a(i)程序2.⑷untiln>=6或者whilen<6⑸kasinteger⑹k>1⑺kmodi=0或者(ki)*i=k⑻i=i+1六、程序设计题（每题10分，共30分）程序设计没有绝对，给分标准差不多就可以1、编程，输入x后按下式计算并显示f(x)的值。要求将g(x)、h(x)分别写做两个函数过程。PrivateSubForm_click()DimxAsSingle,fAsSingle1分,定义为integer没有

6、分x=InputBox("请输入一个数")1分f=x^3+h(3*x)/Log(x^5)+Sqr(g(x)*g(x+1))2分Printf1分EndSubPrivateFunctiong(aAsSingle)AsSingle1分，变量错或者函数过程错都不得分g=(Exp(a)+Exp(-a))/21分，变量错(如写成x)不给分EndFunctionPrivateFunctionh(bAsSingle)AsSingle1分，变量错或者函数过程错都不得分h=Sin(b*3.1415926/180)*Cos(b*3.1415

7、926/180)1分，变量错(如写成x)不给分，不转换成弧度没有分EndFunction无论内容对错，只要有三个private过程再给1分，但是endfunction写成endsub就不给这一分2、编写一个Sub过程，可以将1维Single类型数组按值从小到大排序。PrivateSubsort(a()AsSingle,nAsInteger)1分，类型出错不给分DimiAsInteger,jAsInteger,tempAsSingle1分，temp类型出错不给分Fori=1Ton–11分，终值出错不给分Forj=1Ton

8、–i1分，终值出错不给分Ifa(j)>a(j+1)Thentemp=a(j):a(j)=a(j+1):a(j+1)=temp1分1分1分1分上面每一分对应一条语句NextjNextI1分EndSub无论内容对错，有privatesub及endsub对应格式给一分3、某文本文件以下列格式存储若干个的学号和三门课成绩。编写单击窗体的事