vb标准答案期末考试试题05-06（a）

开课单位经济管理学院本科课程考试试题参考答案及评分标准学生所在学院经济管理学院（2005〜年第学期）20061课程编号学分/总学时2/32课程名称程序语言设计课程类别□公共课□专业课Visual Basic管理、经济专业年级口必修口选修专业/年级2004修读方式出题教师张敬德艾华是否主干基础课否考试方式回闭卷口开卷

一、选择题每题1分，共10分

1.C

2.C

3.A

4.B

5.C

6.C

7.C

8.A

9.D

10.C

二、填空题（每空1分，共13分）.代码窗口，对象名.属性名,窗体（）

1.823form

4.456属性设置，代码编写.顺序结构、选择结构、循环结构.时间间隔

5.67

三、判断题（每题1分，共10分）

1.错

2.对

3.错

4.错

5.错

6.错

7.对

8.对

9.错

10.错

四、指出下列符号哪些可以做Visual Basic的变量名（共5分）

（3）、

（4）、

（5）、

（6）、

（7）、

（9）

五、指出下列Visual Basic算术表达式中的错误，并予以改正每题1分，共5分1P*P-A*P-B*P-C21+3*5A2*SIN2*

3.14八3X*Y55X+2/Y+46X+Y+Z*80-5*C+D

六、将下列数学式子写成Visual Basic的算术表达式每题1分，共5分

1.SINA+BA

42.exp xA

23.A*B+X八2+x+y八1/44,A+B/TANX

5.1/1/A+1/B

七、根据要求画出解决以下两个问题的程序流程图或N—S图或源程序代码（每题6分，共

2.Private SubForm_ClickDim intiAs Integer,int2As Integer,int5As Integer，程序所用变量正确即可Dim intNumAs IntegerintNum=0For inti=0To10For int2=0To5For int5=0To2If inti+int2*2+int5*5-10ThenintNum=intNum+1Print inti,int2,int5End IfNext int5Nextint2Next intiPrint”共有“StrintNum“种方法”输入商品［价格pp元以下以上150150~350350~600600~900900~15001500p=p*1p=p*p=p*p=p*p=p*p=p*1-

0.0151-

0.025]1-

0.035[1-

0.0451-

0.085输出实收商品价格iEnd Sub注程序流程图或图或源程序代码三者等价答出任何一种与答案等价的做法均按作答情况给分N—S

八、请在右面写出以下几段程序运行的结果（每题5分，共15分）

1.*****1**1**1**1**1**2**7*・卜rTw•卜*1**7*rj***

2.i=0循环变量初始化Do Whilei=Listl.ListCount-1循环条件为从第一个循环到列表最后一项If Listl.Selectedi=True Then’判断列表是否被选中List

2.Additem Listl.List i’将选中项添加至列表二Listl.Removeltem I’将添加至列表二中的内容从列表一中移除Private SubCommand1Click，过程代码标识语句Elsei=i+1计数器自加一，以便进行下一项的测试End IfLoopEndSub，过程代码结束标识

九、编程共14分Private subcommand l_clickDim pas doubleDimr assingleDim nas integerP=13e+8r=

0.01Do Whilep20e+8p=p+p*rn=n+lloopPrintn;”年后，全国人口为n;intp EndsubPrivate SubCommand1_ClickIf VaiText

1.Text-Fix VaiText

1.Text0Or ValText

2.Text-FixValText

2.Text0Then错误，输入数应为正整数”MsgBoxEnd if或者Private SubCommand1_ClickIfValm-FixValmt0Or Valm-FixValm0Then错误，输入数应为正整数”MsgBox”End ifEndSub或者Private SubCommand1_ClickM=valtextl.textN=valtext

2.textIf m=0or n=0or intmmor intnnthen”请输入正整数“提示信息”Msgbox！”，0+64,End ifEndSub

1.Option Base1Private SubCommand1_ClickDim a10As IntegerFori=1To10Randomizeai=IntRnd*90+10If aiMod2=0ThenList

1.Additem aiEndIfNext iEndSub或者Option Base1Private SubCommand1_ClickRandomizeDim a10As IntegerFori=1To10ai=IntRnd*90+10Next iFori=1To10If aiMod2=0ThenList

1.Additem aiEndIfNext iEndSub注本题属编程题，学生可根据自己的思想进行最终结果的实现根据学生作答情况对照参考答案正确者可给予满分。