程序设计基础模拟复习题(笔试)02.doc

一、是非判断题（每小题1分，共15分）（判断下列各小题的叙述正确与否，如正确则在答题纸对应编号上填T，否则填F）1DIM I，J As INTEGER 表明I和J都是整型变量。（F）2在VB中保存工程文件时，系统默认的路径是VB的安装目录。（T）3菜单中的每一菜单项都是控中，可以通过点击菜单项或通过光标选择并按回车键，以触发Click事件。（T）4某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。（F）5控件的属性值不可以在程序运行时动态地修改。（F）6一个变量没有定义就赋值，该变量即为变体类型。（T）7在VB的表达式中，运算符两端的数据类型要求一致。（F）8VISUAL BASIC程序的运行，仅能从某一窗体启动，如Form1窗体。（F）9CIRCLE方法绘制扇形或圆弧图形时，图形的形状不仅与起始角、终止角的大小相关，而且与起始角、终止角的正或负相关。（T10事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。（F）11VISUAL BASIC允许设计和使用用户自己设计的控什。（T）12在VB中，窗体事件和其中所有控件事件的代码都放在窗体文件中。（T）13标签控件与文本框一样也能接收焦点。（F）14MSGBOX函数的返回值为整型。 （T）15在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 （T）二、单项选择题（每小题1分，共15分） 1VISUAL BASIC 6.0的三个工作模式是（16）。 A启动模式、运行模式、调试模式 B设计模式、运行模式、中断模式 C执行模式、编译模式、解释模式 D编辑模式、运行模式、调试模式2关于VISUAL BASIC事件的说法中，不正确的是（17）。 A事件是由VISUAL BASIC预先定义好的，能够被对象识别的动作 BDBLCLICK（双击）是VISUAL BASIC中的一个事件 C一个对象可以识别一个或多个事件 D一个对象可以识别哪些事件，需要由程序员自己决定3以下控件中可以作为容器控件的是（18）。 AIMAGE图像框控件 BPICTUREBOX图片框控件CTEXTBOX文本框控件 DLISTBOX列表框控件4下列变量名中不合法的是（19）。Aa$x Babcd# Ca DC_E5表达式INT(RND*71)+25的值的范围是（20）。A257l B2590 C2595 D0256以下CASE语句中错误的是（21）。ACASE 0 TO 10 BCASE IS10 CCASE IS10 AND IS107执行语句S=LEN(MID(V1SUAL BASIC, 1, 6)后，S的值是（22）AVISUAL BBASIC C11 D68一个工程中含有窗体FORMl、FORM2和标准模块MODEL1，如果在FORMl中有语句PUBLIC X AS INTEGER，在MODELl中有语句PUBLIC Y AS INTEGER。则以下叙述中正确的是（23）。A变最X、Y的作用域相同 BY的作用域是MODEL1C在FORMl中可以直接使用X和Y D在FORM2中可以直接使用X和Y 9窗体上有一个文本框，名称为TEXTl，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是（24）。ATEXTlMAXLENGTH=0 BTEXT1ENABLED=FALSECTEXTlVISIBLE=FALSE DTEXTlWIDTH=010在窗体上画一个名称为TIMERl的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（25）。AT1MERlINTERVAL=0.5 BTIMERlINTERVAL=5CTIMERlINTERVAL=50 DTIMERIINTERVAL=50011下列FOR-NEXT循环的循环体的执行次数为（26）。FOR I=l TO 11I=I+5NEXT I A2 B3 C4 D不确定 12以下关于文件的叙述中，错误的是（27）。A顺序文件中的记录一个接一个地顺序存放。B随机文件中记录的长度是随机的。C执行打开文件的命令后，自动生成一个文件指针。DLOF函数返回给文件分配的字节数。 13在窗体上画一个名称为COMMANDl的命令按钮，然后编写如下事件过程：PRIVATE SUB COMMAND1_CLICK()A$=”VISUAL BASIC”PRINT STRING(3, A$)END SUB 程序运行后，单击命令按钮，在窗体上显示的内容是（28）。AVVV BVIS CSIC D1l14下列函数中返回值是数值型的是（29）。ASPACE BMID CINSTR DCHR 15下列循环不能正常结束的是（30）。AI=5 BI=l DO DO I=I+l I=I+2LOOP UNTIL I0 LOOP UNTIL I=1三、阅读分析程序（每个选择2分，共40分）1在窗体上画一个命令按钮，名称为commandl。然后编写如下程序：（已知字母“A”的ASCII码为65。）PRIVATE SUB COMMANDl_CLICK( )FOR I=1 TO 4FOR J=0 TO IPRINT CHR$(65+I); &L1NEXT JPRINTNEXT IEND SUB （1）如果单击命令按钮，则在窗体上显示的内容是（31）。 ABB BAB CAB DAA CCC ABC CDE BBBDDDD ABCD FGHICCCCEEEEE ABCDE JKLMN DDDDD （2）如果将&L1处的语句改为：PRINT CHR$(65+J); 则单击命令按钮后，在窗体上显示的内容是（32）。 ABB BAB CAB DAACCC ABC CDE BBBDDDD ABCD FGHI CCCCEEEEE ABCDE JKLMN DDDDD （3）整个循环执行完后，变量J的值是（33）。A0 B1 C5 D随机值 2阅读下面程序： PRIVATE SUB COMMANDl_CLICK ( ) DIM A AS INTEGER, B AS INTEGERA=36B=16 PRINT F(A, B) &L1PRINT A, B &L2END SUBPUBLlC FUNCTION F (M, N) &L3DO WHlLE MNIF MN THENM=MNELSEN=NMEND IFLOOPF=M END FUNCTION （1）语句&Ll 处的输山结果是（34）。A72 B20 C一20 D4 （2）函数FUNCTION F(M, N%) 的功能是（35）。A求出两个数的差B求出两个数的最大公约数C求出两个数的最小公倍数D求出两个数中的较大值 （3）语句&L2 处的输出结果是（36）。A3616 B2016 C3620 D44（4）若将语句DIM A As INTEGER, B As INTEGER 去掉，则语句&Ll 处的输出结果是（37）。A4 B20 C一20 D程序将报错（5）若将&L3 处的语句改为PUBLIC FUNCTION F(BYVAL M, BYVAL N)，则语句&L2 处的输出结果是（38）。A3616 B2016 C3620 D443阅读下面程序：OPTION BASE l PRIVATE SUB COMMANDl_CLICK ( )DIM A, B(3, 3)A=ARRAY(1, 2, 3, 4, 5, 6, 7, 8, 9)FOR I=l TO 3FOR J=1 TO 3B(I, J)=A(I*J)IF (J=I) THEN PICTUREl. PRINT TAB(J*3); FORMAT(B(I,J),”# # #”); &L1NEXT JPICTURElPRINTNEXT IEND SUB（1）程序运行后输出的结果是（39）。A1 B3 6 9 C1 2 3 D124 2 4 4 6 4 23 6 9 1 9 9 6 3（2）若将&L1 处的语句中的IF(J=I )改为IF(J=I )，则程序运行后输出的结果是（40）。A1 B3 6 9 C1 2 3 D1 24 2 4 4 6 4 23 6 9 1 9 9 6 3（3）该程序在窗体上至少设置了（41）个控件对象? A一个 B二个 C三个 D四个4阅读下面群序： PRIVATE SUB FORM_CLICK ()RANDOMIZEDIM A(10) AS INTEGERS=0 FOR K=1 TO 10X=INT(RND*45+5)*2+1 A(K)=XNEXT KPRINTFOR K=1 TO 10N=INT(SQR(A(K)FOR J=2 TO NIF A(K) MOD J=0 THEN EXIT FORNEXT JL0： IF J=N THEN A(K)=0NEXT KFOR K=1 TO 10PRINT A(K);IF A(K)0 THEN S=S+A(K)NEXT KPRINT S=; S END SUB（1）数组A中的l0个元素的初始值为（42）。A分别为固定的两位正整数 B1099之间的随机数C11-99之间的随机奇数 D11-101之间的随机奇数（2）程序运行的结果S所表示的值是（43）。AA数组中所有数之和 BA数组中所有非素数之和CA数组中所有偶数之和 DA数组中所有素数之和（3）如果删除程序中的语句L0，则运行的结果S所表示的值是（44）。AA数组中所有数之和 BA数组中所有非素数之和CA数组中所有偶数之和 DA数组中所有素数之和5阅读以下函数过程： FUNCTION FACT(N)S=0FOR K=1 TO NS=S+(K+1)*KNEXT KFACT=SEND FUNCTION（1）判断以上函数的功能是（45）。A计算N! B计算1*2*2*3*3*N*NC计算l*2+2*3十3*4+(N+1)*N D计算1+2+3+十N（2）该函数的返回值类型是（46）。A整型 B单精度型 C双精度型 D变体类型（3）若将该函数过程的功能改由SUB过程实现，刚至少需要（47）形参。A一个 B二个 C三个 D四个6阅读下面程序： PRIVATE SUB COMMANDl_CLICK ()DIM A(10)OPEN APPPATH+”FILElDAT” FOR OUTPUT AS #lFOR I=l To 10X=VAL(INPUTBOX(“DATA：”)WRITE #1, XNEXT ICLOSE #1OPEN APPPATH+”FILElDAT” FOR INPUT AS #1FOR I=1 TO 10INPUT #1, XA(I)=XPRINT A(I)；NEXT IPRINT FOR I=1 TO 9K=IFOR J=I+l T0 10IF A(K)A(J) THEN K=JNEXT JIF KI THENT=A(K)A(K)=A(I)A(I)=TEND IFNEXT IFOR I=1 TO 10PRINT A(I)；NEXT IEND SUB （1）语句“OPEN APPPATH+”FILElDAT” FOR INPUT AS #1”表示（48）。A以读的方式打开顺序文件 B以追加方式打开顺序文件C以读的方式打开随机文件 D以随机读写的方式打开随机文件（2）语句“X=VAL(INPUTBOX(“DATA：”)”中，Val ()函数的功能是（49）。A输入字符串 B输入数值C将字符串转换为数字数值 D将数字数值转换为字符串（3）如果将IF A(K)A(J) THEN K=J改为IF A(K)=0.00001)S=S+TT= (4) N=N+1LOOP END SUB2下面程序的功能是随机产生6个整数（其值均在20, 80之间），找出最大数和最小数所在的位置，并把两者对调，然后输出调整后的6个数。 PRIVATE SUB COMMAND1_CLICK()DIM A(5) AS INTEGER, MAXI, MINI, I, TFOR I=0 TO 5A(1)= (5) NEXT IMINI=0MAXI=0FOR I=0 TO 5IF (6) THENMINI=IELSEIF A(I)A(MAXI) THENMAXI=IEND IFNEXT IT=A(MAXI) (7) A(MINI)=TFOR I=0 TO 5PRINT A(I); (8) END END 3将C盘根目录下的一个文本文件OLD.DAT复制到新文件NEW.DAT中。PRIVATE SUB COMMAND1_CLICK ()DIM STR1$OPEN “C:OLD.DAT” For input (9) AS #1OPEN “C:NEW.DAT” (10) DO WHILE (