《程序设计基础》课程期中考试试卷
试题一、判断题（每小题2分，共20分）
说明：在以下提供的若干陈述中，逐一判断其正确与否，用A表示正确，用B
表示错误。
(1)
事件过程可以由某个用户事件触发执行，它不能被其他过程调用。
(2) VisualBasic的Double类型数据可以精确表示其数值范围内的所有实
数。 (3) For/Next循环正常（未执行ExitFor）结束后，控制变量的当前值等
于终值。 (4) Sub过程名在过程中必须被赋值。
(5) SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适
用于所有控件。 (6) 移动框架时框架内控件也随之移动，所以框架内控件的Left和Top属
性值也随之改变。 (7) 单选钮控件和复选框控件都具有Value属性，它们的作用完全一样。 (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存放\，表达式Val(\的值是) （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]图片大小随影像框的大小进行调整 小随图片大小进行调整
[C]图片框的大小随图片大小进行调整 图片框的大小进行调整
[B]影像框的大[D]图片大小随
(17在设计菜单时，为了创建分隔栏，要在（17）中输入连字符（-）。 ) [A]名称栏 [B]标题栏 [C]索引栏 [D]显示区 (18将通用对话框控件以“打开文件”对话框方式打开，可选（18）方法。 ) [A]ShowOpen [B]Action [C]Open [D]FileName (19要使得驱动器列表框控件Drive1发生变化时目录列表框Dir1的路径) 与之保持一致，应编写（19）事件代码。
[B]
[A]
PrivateSubDrive1_Change()
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
Drive1.Drive=Dir1.Path
EndSub
EndSub
[D]
[C]
PrivateSubDir1_Change()
PrivateSubDir1_Change()
Dir1.Path=Drive1.Drive
Drive1.Drive=Dir1.Path EndSub (20执行语句“Write#1,234;-34.56,\) 入（20）。
[A]234,-34.56,\ [B]234;-34.56,\
[C]234,-34.56,Hi,2004-06-11 [D]234-34.56\ 试题三、程序填空题（每空2分，共20分，）
说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序1【程序说明】以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序排序并按每行10个显示在窗体上。再找出所有的个位数字与十位数字之和等于10的数。 【程序】
PrivateSubForm_Click()
Dima(100)AsInteger,iAsInteger,jAsInteger,tAsInteger,xAsInteger,yAsInteger
Fori=1To100 a(i)=(21) Nexti
Fori=1To99 Forj=i+1To100 Ifa(i) Fori=1To100 Printa(i); (23) Nexti Fori=1To100 x=(24)'取十位数字 y=a(i)Mod10'取个位数字 Ifx+y=10ThenPrinta(i) Nexti EndSub PrivateSubSwap((25)) DimTempAsInteger Temp=X:X=Y:Y=Temp EndSub 【选项】 (21) [A]Int(Rnd*90)+10 [C]Int(Rnd*99) [B]Int(Rnd*100) [D]10To99 (22) [A]CallSwapa(i),a(j) [B]CallSwap(a(i),a(j)) [C]Temp=Swap(a(j),a(i)) [D]Swap(a(j),a(i)) (23) [A]Ifi=10ThenPrint [B]Ifi=10*nThenPrint [C]Ifi\\10=0ThenPrint [B]a(i)\\10 [D]IfiMod10=0ThenPrint [C]Int(a(i))/10 [D]Fix(a(i)) (24) [A]a(i)/10 (25) [A]ByValXAsInteger,ByValYAsInteger [B]ByValXAsSingle,ByValYAsSingle [C]ByRefXAsInteger,ByRefYAsInteger [D]ByRefXAsSingle,ByRefYAsSingle 程序2【程序说明】统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域（如右图所示）的次数：首次单击Command1将统计结果清零、P1可用，再次单击则以消息框显示统计结果、P1不可用。 【程序】 DimnAsInteger PrivateSubCommand1_Click() IfCommand1.Caption=\开始\ Command1.Caption=\显示\ P1.Enabled=True:n=0 Else Command1.Caption=(26) P1.Enabled=False:MsgBox\单击该区域\次\ EndIf EndSub PrivateSubForm_Activate() P1.Width=P1.Height P1.Scale(-3,3)-(3,-3) P1.FillStyle=(28) P1.FillColor=(29):P1.Circle(0,0),2 P1.FillColor=vbWhite:P1.Circle(0,0),1 EndSub PrivateSubForm_Load() Command1.Caption=\开始\ EndSub PrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle) Ifx*x+y*y>=1And(30)Thenn=n+1 EndSub 【选项】 (26) [A]\退出\(27) [A]n (28) [A]1 (29) [A]vbBlack [B]\开始\[B]Val(n) [B]0 [C]\显示\[C]Str(n) [C]2 [D]\开始\ [D]Trim(n) [D]3 [D]RGB(255,255,0) [B]RGB(255,0,0) [C]vbWhite [B]x>2Andy>2 [D]x*x+y*y>4 (30) [A]x*x+y*y<=4 [C]x*x+y*y<=2 试题四、程序改错题（每小题2分，共10分） Transfer过程用于将一个十六进制整数转换为十进制整数，number函数过程用于将一个十六进制符号转换为数值。 PublicSubTransfer() DimHexAsString'十六进制数 DimDecAsDouble'十进制数 DimtempAsString DimiAsInteger DimnAsInteger Hex=InputBox(\输入一个十六进制整数\ n=Val(Hex) '--------(1)-------- i=0 Do temp=Mid(Hex,i,1) '--------(2)-------- Dec=Dec+number*16^i '--------(3)-------- i=i+1 LoopWhilei Form1.Printstr(Hex)&\转换为十进制数为\ '--------(4)-------- EndSub PublicFunctionnumber(strAsString)AsInteger SelectCasestr Case\ number=10 Case\ number=11 Case\ number=12 Case\ number=13
程序设计基础期中考试试卷与参考答
