《程序设计基础》期中考试试卷与参考答

PAGE第4页（共7页）《程序设计基础》课程期中考试试卷试题一、判断题（每小题2分，共20分）说明：在以下提供的若干陈述中，逐一判断其正确与否，用A表示正确，用B表示错误。(1)事件过程可以由某个用户事件触发执行，它不能被其他过程调用。(2)VisualBasic的Double类型数据可以精确表示其数值范围内的所有实数。(3)For/Next循环正常（未执行ExitFor）结束后，控制变量的当前值等于终值。(4)Sub过程名在过程中必须被赋值。(5)SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。(6)移动框架时框架内控件也随之移动，所以框架内控件的Left和Top属性值也随之改变。(7)(8)当组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。(9)若VisualBasic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。(10)用Output模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。试题二、单选题（每小题2分，共20分）(11)将VB新建的“标准EXE”工程保存在磁盘上，至少会产生（11）文件。[A].frx和.frm [B].exe和.vbp [C].vbp和.frm [D].frm和.bas(12)窗体Form1的Name属性是Frm1，它的单击事件过程名是（12）。[A]Form1_Click [B]Form_Click[C]Frm1_Click [D]Me_Click(13)已知字符串变量x存放"1234"，表达式Val("&H"+Left(x,2))的值是（13）。[A]0 [B]&H12 [C]12 [D]18(14)假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是（14）。[A]数组中每个命令按钮的名称（Name属性）均为Command1[B]若未做修改，数组中每个命令按钮的大小都一样[C]数组中各个命令按钮使用同一个Click事件过程[D]数组中每个命令按钮的Index属性值都相同(15)要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置（15）属性。[A]AutoSize [B]MultiLine [C]Alignment [D]Visible(16)当Stretch属性为False时，（16）。[A]图片大小随影像框的大小进行调整 [B]影像框的大小随图片大小进行调整[C]图片框的大小随图片大小进行调整 [D]图片大小随图片框的大小进行调整(17)在设计菜单时，为了创建分隔栏，要在（17）中输入连字符（-）。[A]名称栏 [B]标题栏 [C]索引栏 [D]显示区(18)将通用对话框控件以“打开文件”对话框方式打开，可选（18）方法。[A]ShowOpen [B]Action [C]Open [D]FileName(19)[B]PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub[D][B]PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub[D]PrivateSubDir1_Change()Dir1.Path=Drive1.DriveEndSub[A]PrivateSubDrive1_Change()Drive1.Drive=Dir1.PathEndSub[C]PrivateSubDir1_Change()Drive1.Drive=Dir1.PathEndSub(20)执行语句“Write#1,234;-34.56,"Hi";Date”后，相应的文件内被写入（20）。[A]234,-34.56,"Hi",#2004-06-11# [B]234;-34.56,"Hi";#2004-06-11#[C]234,-34.56,Hi,2004-06-11 [D]234-34.56"Hi"#2004-06-11#试题三、程序填空题（每空2分，共20分，）说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。程序1【程序说明】以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序排序并按每行10个显示在窗体上。再找出所有的个位数字与十位数字之和等于10的数。【程序】PrivateSubForm_Click()Dima(100)AsInteger,iAsInteger,jAsInteger,tAsInteger,xAsInteger,yAsIntegerFori=1To100a(i)=(21)NextiFori=1To99Forj=i+1To100Ifa(i)<a(j)Then(22)EndIfNextjNextiFori=1To100Printa(i);(23)NextiFori=1To100x=(24)'取十位数字y=a(i)Mod10'取个位数字Ifx+y=10ThenPrinta(i)NextiEndSubPrivateSubSwap((25))DimTempAsIntegerTemp=X:X=Y:Y=TempEndSub【选项】(21) [A]Int(Rnd*90)+10 [B]Int(Rnd*100) [C]Int(Rnd*99) [D]10To99(22) [A]CallSwapa(i),a(j) [B]CallSwap(a(i),a(j))HScroll1.SmallChange=1:HScroll1.LargeChange=2:HScroll1.Value=5阅读以下程序，写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。PrivateSubHScroll1_Change()DimyAsIntegerIfHScroll1.ValueMod2=0Theny=y+HScroll1.ValueEndIfPrint"y=";yEndSub程序3、写出程序运行后事件过程Timer1_Timer自动执行的次数、“运行中...”这段文字的显示位置及Label1的标题在窗体上的变化规律。PrivateSubForm_Load()Timer1.Interval=100:Form1.WindowState=2Label1.Width=ScaleWidth/2:Label1.Left=ScaleLeftLabel1.Alignment=0:Label1.Caption="运行中..."EndSubPrivateSubTimer1_Timer()StaticmAsBytem=m+8:Label1.FontSize=mTimer1.Interval=Timer1.Interval+100Ifm>80ThenTimer1.Enabled=FalseEndSub程序4、写出程序运行后单击窗体，窗体上的显示结果。PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To6PrintSpc(6-i);Forj=1To(2*i)-1:Print"W";:NextjPrintNextiEndSub试题六、程序设计题（10分）文本文件“e:\aaa.txt”中存放了若干行字符，编制相应事件过程：在加载窗体时读入文件中各行字符并顺序在列表框控件List1的列表部分显示，在运行时按窗体控制菜单“关闭”后自动将列表框中各行数据存储到文本文件e:\aaa.txt。【提示】加载窗体时自动执行的事件过程是Form_load()，按窗体控制菜单“关闭”后自动执行的事件过程是Form_Unload(CancelAsInteger)

参考答案一、判断题（每小题2分，满分20分）（1）（2）（3）（4）（5）（6）（7）（8）（9）（10）BBBBBBBABB二、单选题（每小题2分，满分20分）（11）（12）（13）（14）（15）（16）（17）（18）（19）（20）CBDDBABABA三、程序填空题（每小题2分，满分20分）（21）（22）（23）（24）（25）（26）（27）（28）（29）（30）ABDBCDCBAA四、程序改错题（每小题2分，满分10分）（1）n=Len(Hex)（2）temp=Mid(Hex,n-i,1)（3）Dec=Dec+number(temp)*16^i（4）Form1.PrintHex&"转换为十进制数为"&Dec（5）number=Val(str)五、程序阅读题（每小题5分，满分20分）程序1程序2程序3程序4执行次数为11文字的显示位置始终在窗体的左边Label1的标题在窗体上的显示变化规律为字体变大、变化减慢

六、程序设计题（10分）PrivateSubForm_Load()DimxAsStringOpen"e:\aaa.txt"ForInputAs#1DoWhileNotEOF(1)LineInput#1,x