200606VB(非等级考试学生)-期末考卷城市学院

1浙江大学城市学院2005—2006学年第二学期期末考试答题卷《VB程序设计基础》开课单位：计算分院；考试形式：闭卷；考试时间：2006年6月30日8:10—10:10题序一二三四总分得分评卷人一．单选题(本大题共10题，每题1分，共10分。)题号12345678910二．程序填空题(本大题共4题15空，每空2分，共30分。)题号111213141516171819202122.2324.25.三．程序阅读题(本大题共5题，前2题每空2分，共14分；后3题分别6分、4分、6分。)题号26272829303132第3题:第4题:第5题:四．程序设计题(本大题共3题，每题10分，共30分。)得分得分得分得分年级：_____________专业：_____________________班级：_________________学号：_______________姓名：__________________…………………………………………………………..装………………….订…………………..线………………………………………………………2第1题：.第2题：.第3题：.3浙江大学城市学院2005—2006学年第二学期期末考试试卷《VB程序设计基础》开课单位：计算分院；考试形式：闭卷；考试时间：2006年6月30日8:10—10:10课程号：101242一、单选题（10%）1．将VisualBasic编制的程序保存在磁盘上，至少会产生何种文件_______。A、.doc与.txtB、.com与.exeC、.bat与.frmD、.vbp与.frm2．判断变量x、y中有且只有一个为0的下列各表达式中，正确的是_______。A、x=0Ory=0andx*y0B、x+y=0andx*y0C、x+y0andx*y=0D、x=0andy03．以下使用方法的VB程序代码中，正确的是_______。A、Label1.SetFocusB、Form1.ClearC、Text1.SetFocusD、Combo1.Cls4．_______属性可以用来设置所绘线条宽度。A、DrawStyleB、BorderStyleC、DrawWidthD、LineWidth5．通用对话框的类型设置为“另存为”对话框，可在程序中使Action属性值为_______。A、1B、2C、3D、46．五个名称为Label1的控件组成了控件数组，现在将其置为空串，正确的程序是_____。A、Fori=0To4：Label1.Caption(i)=：NextiB、Fori=0To4：Label(i).Caption=：NextiC、Fori=0To4：Label1(i).Caption=：NextiD、Fori=0To4：Label1.Caption=：Nexti7．下列代码中，______能使驱动器列表框Drive1的盘符改变时，文件夹列表框Dir1随之作相应改变。A、PrivateSubDrive1_Change()B、PriveateSubDrive1_Change()Dir1.Path=Drive1.pathDir1.Path=Drive1.driveEndSubEndSubC、PrivateSubDir1_Change()D、PrivateSubDir1_Change()Dir1.Path=Drive1.DriveDrive1.Drive=Dir1.PathEndSubEndSub8．复选框被选中时，Value属性的值为_______。A、TrueB、FalseC、0D、19．_______方式打开的文件只能读不能写。A、appendB、randomC、outputD、input10．通过设置菜单项的_______属性值为False，可使该菜单项失效。A、EnabledB、VisibleC、HideD、Checked年级：_____________专业：_____________________班级：_________________学号：_______________姓名：__________________…………………………………………………………..装………………….订…………………..线………………………………………………………4二、程序填空题（30%，其中第1－3题为选择填空题，第4题为填空题）1．求下列表达式的值，直到最后一项的绝对值小于10-5为止。【程序】PrivateSubCommand1_Click()DimsAsDouble,（11）DimiAsIntegeri=1：（12）：t=1DoWhile（13）t=-t/i（14）i=i+1LoopPrintsEndSub(11)A、tAsStringB、tAsByteC、tAsIntegerD、tAsDouble(12)A、s=2B、s=1C、s=tD、s=0(13)A、t=1e-5B、Abs(t)=1e-5C、t=1e-5D、Abs(t)=1e-5(14)A、s=s+tB、s=s+iC、s=s-tD、s=s+t/i2．在”e:\aaa.txt”文件中存放有一些正整数，下列过程在装入窗体时，清空列表框控件List1中所有表项，并顺序、逐个读入文件”e:\aaa.txt”中的数据，将其中的素数显示在List1中。【程序】PrivateSubForm_Load()DimnAsIntegerOpene:\aaa.txtForInputAs#1（15）DoWhileNotEOF(1)（16）Ifprime(n)ThenList1.AddItemnLoopClose#1EndSubPublicFunction（17）DimiAsIntegerFori=2ToInt(Sqr(m))IfmModi=0ThenExitForNextiIfiInt(Sqr(m))Thenprime=TrueElseprime=FalseEndFunction!41!31!21!1115(15)A、List1.List=B、List1.Text=C、List1.ClsD、List1.Clear(16)A、Inputn,#1B、InputLine#1,nC、Input#1,nD、Inputn(17)A、prime(nAsInteger)asBooleanB、prime(ByValmAsInteger)C、prime(mAsInteger)asBooleanD、prime(nAsInteger)3．本程序运行时，无论如何调整窗体的边界，单击窗体后都以窗体的中心位置为圆心、以30毫米为半径画出一个圆饼图。【程序】PrivateSubForm_Load()FillStyle=0（18）EndSubPrivateSubForm_Click()（19）FillColor=RGB(255,0,0)Circle(0,0),30,,-3.14159*2,-3.14159*2/3FillColor=RGB(0,255,0)Circle(0,0),30,,-3.14159*2/3,-3.14159*4/3FillColor=RGB(0,0,255)（20）EndSub（18）A、ScaleMode=6B、Scale(-ScaleWidth/2,ScaleHeight/2)–(ScaleWidth/2,-ScaleHeight/2)C、Form1.Scale(-Width/2,-Height/2)–(Width/2,Height/2)D、Form1.Scale(-ScaleWidth,ScaleHeight)–(ScaleWidth,-ScaleHeight)（19）A、ScaleMode=6B、Scale(-ScaleWidth/2,ScaleHeight/2)–(ScaleWidth/2,-ScaleHeight/2)C、Form1.Scale(-Width/2,-Height/2)–(Width/2,Height/2)D、Form1.Scale(-ScaleWidth,ScaleHeight)–(ScaleWidth,-ScaleHeight)（20）A、Circle(0,0),30,,-3.14159*2,-3.14159*4/3B、Circle(0,0),30,,-PI*4/3,-PI*2C、Circle(0,0),30,,-3.14159*4/3,0D、Circle(0,0),30,,-3.14159*4/3,-3.14159*24．界面设计如下图所示，程序运行时要求完成以下功能：(1)按Command1（出题）后随机生成两个两位正整数存入模块级变量a、b且ab，并分别在Label1、Label2中显示，此后Command1不可用；(2)在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；(3)按Command2（退出）后以消息框显示所完成题数以及做错的题数，退出。年级：_____________专业：_____________________班级：_________________学号：_______________姓名：__________________…………………………………………………………..装………………….订…………………..线………………………………………………………6【程序】DimnAsInteger,n_errorAsInteger（21）PrivateSubCommand1_Click()DimcasIntegera=10+Rnd*90b=10+Rnd*90IfabThenc=a:a=b:b=cLabel1.Caption=aLabel2.Caption=bn=n+1Text1.Text=Command1.Enabled=FalseEndSubPrivateSubCommand2_Click()MsgBox(完成题数和做错的题数分别是:+（22）)EndSubPrivateSubText1_（23）(KeyAsciiAsInteger)If（24）ThenExitSubIfa-b=Val(Text1.Text)ThenMsgBox(回答正确)ElseMsgBox(不回答正确)n_error=n_error+1EndIf（25）EndSub三、程序阅读题（30%，其中第1－2题为选择阅读题，第3－5题为阅读题）1．在窗体上有两个列表框List1、List2，一个名称为Command1的命令按钮，List1中有6个表项：12、16、33、45、11、14；阅读下列程序并根据各小题的要求，在每组选项中选出一正确答案。7【程序】PrivateSubsort()DimiAsInteger,jAsInteger,tAsIntegerFori=0ToList1.ListCount-2Forj=i+1ToList1.ListCount-1IfList1.List(i)List1.List(j)Thent=List1.List(i)List1.List(i)=List1.List(j)List1.List(j)=tEndIfNextj,iEndSubPrivateSubcommand1_Click()CallsortFori=List1.ListCount-1To0Step-1IfList1.List(i)Mod2=0ThenList2.AddItemList1.List(i)List1.RemoveItemiEndIfNextiEndSub(26)过程Sort的功能是A、用选择分类法对List1中的表项按值从小到大排序B、用选择分类法对List1中的表项按值从大到小排序C、用冒泡法对List1中的表项按值从小到大排序D、用冒泡法对List1中的表项按值从大到小排序(27)单击Command1命令按钮后，List2中的表项从上至下依次为A、161412B、121416C、113345D、141612(28)如果将语句“List2