程序设计基础模拟复习题笔试.docx
《程序设计基础模拟复习题笔试.docx》由会员分享，可在线阅读，更多相关《程序设计基础模拟复习题笔试.docx（14页珍藏版）》请在冰豆网上搜索。
程序设计基础模拟复习题笔试
一、是非判断题（每小题1分，共15分）（判断下列各小题的叙述正确与否，如正确则在答题纸对应编号上填T，否则填F）
1．DIMI，JAsINTEGER表明I和J都是整型变量。
（F）
2．在VB中保存工程文件时，系统默认的路径是VB的安装目录。
（T）
3．菜单中的每一菜单项都是控中，可以通过点击菜单项或通过光标选择并按回车键，以触发Click事件。
（T）
4．某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。
（F）
5．控件的属性值不可以在程序运行时动态地修改。
（F）
6．一个变量没有定义就赋值，该变量即为变体类型。
（T）
7．在VB的表达式中，运算符两端的数据类型要求一致。
（F）
8．VISUALBASIC程序的运行，仅能从某一窗体启动，如Form1窗体。
（F）
9．CIRCLE方法绘制扇形或圆弧图形时，图形的形状不仅与起始角、终止角的大小相关，而且与起始角、终止角的正或负相关。
（T
10．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。
（F）
11．VISUALBASIC允许设计和使用用户自己设计的控什。
（T）
12．在VB中，窗体事件和其中所有控件事件的代码都放在窗体文件中。
（T）
13．标签控件与文本框一样也能接收焦点。
（F）
14．MSGBOX函数的返回值为整型。
（T）
15．在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。
（T）
二、单项选择题（每小题1分，共15分）
1．VISUALBASIC6.0的三个工作模式是（16）。
A．启动模式、运行模式、调试模式B．设计模式、运行模式、中断模式
C．执行模式、编译模式、解释模式D．编辑模式、运行模式、调试模式
2．关于VISUALBASIC事件的说法中，不正确的是（17）。
A．事件是由VISUALBASIC预先定义好的，能够被对象识别的动作
B．DBLCLICK（双击）是VISUALBASIC中的一个事件
C．一个对象可以识别一个或多个事件
D．一个对象可以识别哪些事件，需要由程序员自己决定
3．以下控件中可以作为容器控件的是（18）。
A．IMAGE图像框控件B．PICTUREBOX图片框控件
C．TEXTBOX文本框控件D．LISTBOX列表框控件
4．下列变量名中不合法的是（19）。
A．a$xB．abcd#C．aD．C_E
5．表达式INT（RND*71）+25的值的范围是（20）。
A．25～7lB．25～90C．25～95D．0～25
6．以下CASE语句中错误的是（21）。
A．CASE0TO10B．CASEIS>10
C．CASEIS>10ANDIS<50D．CASE3,5,IS>10
7．执行语句S=LEN（MID（"V1SUALBASIC",1,6））后，S的值是（22）
A．VISUALB．BASICC．11D．6
8．一个工程中含有窗体FORMl、FORM2和标准模块MODEL1，如果在FORMl中有语句PUBLICXASINTEGER，在MODELl中有语句PUBLICYASINTEGER。
则以下叙述中正确的是（23）。
A．变最X、Y的作用域相同B．Y的作用域是MODEL1
C．在FORMl中可以直接使用X和YD．在FORM2中可以直接使用X和Y
9．窗体上有一个文本框，名称为TEXTl，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是（24）。
A．TEXTl．MAXLENGTH=0B．TEXT1．ENABLED=FALSE
C．TEXTl．VISIBLE=FALSED．TEXTl．WIDTH=0
10．在窗体上画一个名称为TIMERl的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（25）。
A．T1MERl．INTERVAL=0.5B．TIMERl．INTERVAL=5
C．TIMERl．INTERVAL=50D．TIMERI．INTERVAL=500
11．下列FOR--NEXT循环的循环体的执行次数为（26）。
FORI=lTO11
I=I+5
NEXTI
A．2B．3C．4D．不确定
12．以下关于文件的叙述中，错误的是（27）。
A．顺序文件中的记录一个接一个地顺序存放。
B．随机文件中记录的长度是随机的。
C．执行打开文件的命令后，自动生成一个文件指针。
D．LOF函数返回给文件分配的字节数。
13．在窗体上画一个名称为COMMANDl的命令按钮，然后编写如下事件过程：
PRIVATESUBCOMMAND1_CLICK（）
A$=”VISUALBASIC”
PRINTSTRING（3,A$）
ENDSUB
程序运行后，单击命令按钮，在窗体上显示的内容是（28）。
A．VVVB．VISC．SICD．1l
14．下列函数中返回值是数值型的是（29）。
A．SPACEB．MIDC．INSTRD．CHR
15．下列循环不能正常结束的是（30）。
A．I=5B．I=l
DODO
I=I+lI=I+2
LOOPUNTILI<0LOOPUNTILI=10
C．I=10D．I=6
DODO
I=I+1I=I-2
LOOPUNTILI>0LOOPUNTILI=1
三、阅读分析程序（每个选择2分，共40分）
1．在窗体上画一个命令按钮，名称为commandl。
然后编写如下程序：
（已知字母“A”的ASCII码为65。
）
PRIVATESUBCOMMANDl_CLICK（）
FORI=1TO4
FORJ=0TOI
PRINTCHR$（65+I）;&L1
NEXTJ
PRINT
NEXTI
ENDSUB
（1）如果单击命令按钮，则在窗体上显示的内容是（31）。
A．BBB．ABC．ABD．AA
CCCABCCDEBBB
DDDDABCDFGHICCCC
EEEEEABCDEJKLMNDDDDD
（2）如果将&L1处的语句改为：
PRINTCHR$（65+J）;则单击命令按钮后，在窗体上显示的内容是（32）。
A．BBB．ABC．ABD．AA
CCCABCCDEBBB
DDDDABCDFGHICCCC
EEEEEABCDEJKLMNDDDDD
（3）整个循环执行完后，变量J的值是（33）。
A．0B．1C．5D．随机值
2．阅读下面程序：
PRIVATESUBCOMMANDl_CLICK（）
DIMAASINTEGER,BASINTEGER
A=36
B=16
PRINTF（A,B）&L1
PRINTA,B&L2
ENDSUB
PUBLlCFUNCTIONF（M％,N％）&L3
DOWHlLEM<>N
IFM>NTHEN
M=M—N
ELSE
N=N—M
ENDIF
LOOP
F=M
ENDFUNCTION
（1）语句&Ll处的输山结果是（34）。
A．72B．20C．一20D．4
（2）函数FUNCTIONF（M％,N%）的功能是（35）。
A．求出两个数的差B．求出两个数的最大公约数
C．求出两个数的最小公倍数D．求出两个数中的较大值
（3）语句&L2处的输出结果是（36）。
A．3616B．2016C．36—20D．44
（4）若将语句DIMAAsINTEGER,BAsINTEGER去掉，则语句&Ll处的输出结果是（37）。
A．4B．20C．一20D．程序将报错
（5）若将&L3处的语句改为PUBLICFUNCTIONF（BYVALM％,BYVALN％），则语句&L2处的输出结果是（38）。
A．3616B．2016C．36—20D．44
3．阅读下面程序：
OPTIONBASEl
PRIVATESUBCOMMANDl_CLICK（）
DIMA,B（3,3）
A=ARRAY（1,2,3,4,5,6,7,8,9）
FORI=lTO3
FORJ=1TO3
B（I,J）=A（I*J）
IF（J>=I）THENPICTUREl.PRINTTAB（J*3）;FORMAT（B（I,J）,”###”）;&L1
NEXTJ
PICTUREl．PRINT
NEXTI
ENDSUB
（1）程序运行后输出的结果是（39）。
A．1B．369C．123D．1
24244642
36919963
（2）若将&L1处的语句中的IF（J>=I）改为IF（J<=I），则程序运行后输出的结果是（40）。
A．1B．369C．123D．1
24244642
36919963
（3）该程序在窗体上至少设置了（41）个控件对象?
A．一个B．二个C．三个D．四个
4．阅读下面群序：
PRIVATESUBFORM_CLICK（）
RANDOMIZE
DIMA（10）ASINTEGER
S=0
FORK=1TO10
X=INT（RND*45+5）*2+1
A（K）=X
NEXTK
PRINT
FORK=1TO10
N=INT（SQR（A（K）））
FORJ=2TON
IFA（K）MODJ=0THENEXITFOR
NEXTJ
L0：
IFJ<=NTHENA（K）=0
NEXTK
FORK=1TO10
PRINTA（K）;
IFA（K）<>0THENS=S+A（K）
NEXTK
PRINT"S=";S
ENDSUB
（1）数组A中的l0个元素的初始值为（42）。
A．分别为固定的两位正整数B．10~99之间的随机数
C．11-99之间的随机奇数D．11-101之间的随机奇数
（2）程序运行的结果S所表示的值是（43）。
A．A数组中所有数之和B．A数组中所有非素数之和
C．A数组中所有偶数之和D．A数组中所有素数之和
（3）如果删除程序中的语句L0，则运行的结果S所表示的值是（44）。
A．A数组中所有数之和B．A数组中所有非素数之和
C．A数组中所有偶数之和D．A数组中所有素数之和
5．阅读以下函数过程：
FUNCTIONFACT（N）
S=0
FORK=1TON
S=S+（K+1）*K
NEXTK
FACT=S
ENDFUNCTION
（1）判断以上函数的功能是（45）。
A．计算N!
B．计算1*2*2*3*3……*N*N
C．计算l*2+2*3十3*4……+（N+1）*ND．计算1+2+3+……十N
（2）该函数的返回值类型是（46）。
A．整型B．单精度型C．双精度型D．变体类型
（3）若将该函数过程的功能改由SUB过程实现，刚至少需要（47）形参。
A．一个B．二个C．三个D．四个
6．阅读下面程序：
PRIVATESUBCOMMANDl_CLICK（）
DIMA（10）
OPENAPP．PATH+”\FILEl．DAT”FOROUTPUTAS#l
FORI=lTo10
X=VAL（INPUTBOX（“DATA：
”））
WRITE#1,X
NEXTI
CLOSE#1
OPENAPP．PATH+”\FILEl．DAT”FORINPUTAS#1
FORI=1TO10
INPUT#1,X
A（I）=X
PRINTA（I）；
NEXTI
PRINT
FORI=1TO9
K=I
FORJ=I+lT010
IFA（K）>A（J）THENK=J
NEXTJ
IFK<>ITHEN
T=A（K）
A（K）=A（I）
A（I）=T
ENDIF
NEXTI
FORI=1TO10
PRINTA（I）；
NEXTI
ENDSUB
（1）语句“OPENAPP．PATH+”\FILEl．DAT”FORINPUTAS#1”表示（48）。
A．以读的方式打开顺序文件B．以追加方式打开顺序文件
C．以读的方式打开随机文件D．以随机读写的方式打开随机文件
（2）语句“X=VAL（INPUTBOX（“DATA：
”））”中，Val（）函数的功能是（49）。
A．输入字符串B．输入数值
XX文库-让每个人平等地提升自我C．将字符串转换为数字数值D．将数字数值转换为字符串
（3）如果将IFA（K）>A（J）THENK=J改为IFA（K）（50）
A．不发生变化B．排序结果从大到小C．排序结果从小到大D．不能排排序了
四、程序填空（每空3分，共30分）
1．下面子过程是求
，当精度为
（eps=0.00001）结束。
主调程序要求调用子过程求e3，在Text1显示结果；调用标准函数Exp（3），验证结果，效果如图1所示。
图l运行界面
PRIVATESUBFORM_CLICK（）
DIMF2#
CALL
（1）
TEXT1=F2
TEXT2=
（2）
ENDSUB
SUBJISHU2（（3）,X!
）
DIMN％,T#
N=1:
S=0:
T=1
DOWHILE（ABS（T）>=0.00001）
S=S+T
T=（4）
N=N+1
LOOP
ENDSUB
2．下面程序的功能是随机产生6个整数（其值均在[20,80]之间），找出最大数和最小数所在的位置，并把两者对调，然后输出调整后的6个数。
PRIVATESUBCOMMAND1_CLICK（）
DIMA（5）ASINTEGER,MAXI％,MINI％,I％,T％
FORI=0TO5
A
（1）=（5）
NEXTI
MINI=0
MAXI=0
FORI=0TO5
IF（6）THEN
MINI=I
ELSEIFA（I）>A（MAXI）THEN
MAXI=I
ENDIF
NEXTI
T=A（MAXI）
（7）
A（MINI）=T
FORI=0TO5
PRINTA（I）;
（8）
ENDEND
3．将C盘根目录下的一个文本文件OLD.DAT复制到新文件NEW.DAT中。
PRIVATESUBCOMMAND1_CLICK（）
DIMSTR1$
OPEN“C:
\OLD.DAT”
Forinput（9）AS#1
OPEN“C:
\NEW.DAT”（10）
DOWHILE（11）
（12）
PRINT#2,STR1
LOOP
CLOSE#1,#2
ENDSUB
4．下列函数过程的功能是：
求变量s（s=a+aa+aaa+aaaa+…）的值。
其中，a是一个0—9的数字，总共累加a项。
例如：
当a=3时，s=3+33+333（共累加3项）、
当a=5H寸，s=5+55+555+5555+55555（共累加5项）。
请完善程序：
PUBLICFUNCTIONCALC（AAsINTEGER）
S=A
T=A
FORI=2TO（13）
T=（14）
S=S+T
NEXTI
（15）
ENDFUNCTION
【参考答案】：
升级会员 