《计算机程序设计A》复习试题(答案).doc 45页

'《计算机VB程序设计》复习试题1．以下叙述中错误的是（B）VisualBasic应用程序不具有明显的开始和结束语句（C）VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性（D）VisualBasic中控件的某些属性只能在运行时设置2．设有如下变量声明：DimTestDateAsDate为变量TestDate正确赋值的表达式是（B】）（A）TestDate=#“6/22/2003”#（B）TestDate=#6/22/2003#（C）TestDate=Date(“6/22/2003”)（D）TestDate=Format(“m/d/yy”,“6/22/2003”)3．以下关于变量作用域的叙述中，正确的是（【4】）（A）窗体中凡被声明为Private的变量只能在某个指定的过程中使用（B）全局变量只能在标准模块中声明（C）模块级变量只能用Private关键字声明（D）Static类型变量的作用域是它所在的窗体或模块文件4．5．设a=3，b=5，则以下表达式值为真的是（【6】）（A）(-3+5)And(b>0)　　　　（B）a>=bAndb>10《计算机程序设计A》期末复习题（答案）第45页共45页 （C）(a>b)Or(b>0)　　　　（D）(a<0)Eqv(b>0)1．以下关于图片框控件的说法中，错误的是（【4】）（A）可以通过Print方法在图片框中输出文本（B）清空图片框控件中图形的方法之一是加载一个空图形（C）图片框控件可以作为容器使用（D）用Stretch属性可以自动调整图片框中图形的大小2．设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（A）List1.List　　（B）List1.Text　　（C）List1.ListIndex　　（D）List1.Index3．设a=100，b=50，c=10，执行语句Printa>b>c后，窗体上显示的是（A）True　　　　（B）False　　　　（C）1　　　　（D）出错信息4．M5．“$”格式符用于在数值前面加上一个$，以表示货币6．如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（A）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体（B）不能把标准模块设置为启动模块（C）如果工程中含有SubMain过程，则程序一定首先执行该过程《计算机程序设计A》期末复习题（答案）第45页共45页 （D）任何时刻最多只有一个窗体是活动窗体1．在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：PrivateSubCommand1_Click()DimaAsIntegerOpen“c:VbTestTest32.dat”ForBinaryAs#1a=1000Seek#1,10Put#1,,aClose#1EndSub则以下叙述中正确的是（【32】）（A）如果文件c:VbTestTest32.dat不存在，则Open命令执行失败（B）由于Put命令中没有指明位置，因此把变量a的值写到文件的末尾（C）变量a的值会从文件的第10个字节处开始写入（D）变量a的值会从文件的第10个记录处开始写入2．为了将变量a，b，c的值以标准输出格式写入顺序文件Ks39.txt中，所使用的语句的格式为（【39】）（A）Print#文件号,a;b;c　　　　　（B）Print#文件号,a,b,c《计算机程序设计A》期末复习题（答案）第45页共45页 1．为了把一个记录型变量Stu的内容写入随机文件Ks48.dat中的指定位置，所使用的语句格式为（【48】）（A）Put#文件号,记录号,Stu　　　　（B）Put#文件号,Stu,记录号（C）Get#文件号,记录号,Stu　　　　（D）Get#文件号,Stu,记录号2．Sub过程的定义（【49】）（A）一定要有形参　　　　　　　　　　　（B）一定要有过程的名称（C）一定要指明是公有的还是私有的　　　（D）一定要指定其类型3．Function过程有别于Sub过程的最主要的特点是（【50】）（A）Function过程一定要有形参，而Sub过程可以没有形参（C）Function过程用于计算函数值，而Sub过程用于改变属性值（D）Function过程要返回函数值，而Sub过程没有值的返回4．下列定义Func为函数过程的定义语句中错误的是（【52】）（A）FunctionFunc(aAsInteger)AsInteger5．下列函数调用中错误的是（【54】）（A）Str$=InputBox(“请输入数据”)（B）InputBox(“请输入数据”)（C）Msg=MsgBox(“是否继续输入数据？”)（D）MsgBox(“是否继续输入数据？”)《计算机程序设计A》期末复习题（答案）第45页共45页 1．要使窗体Form1显示出来，应使用（【55】）（A）LoadForm1　（B）Form1Load　（C）Show.Form1　（D）Form1.Show2．用Open语句打开文件时，若省略For子句，则隐含打开文件的存取方式为（【57】）（A）Binary　　　（B）Random　　　（C）Input　　　（D）OutPut3．给文件改名的VB语句正确的是（【59】）（C）Name原文件名As新文件名（D）Rename原文件名As新文件名4．在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerFori=1To10a(i)=iNextCallSwap【5】Fori=1To10Printa(i);Next《计算机程序设计A》期末复习题（答案）第45页共45页 EndSubSubSwap(b()AsInteger)n=【5】Fori=1Ton/2t=b(i)b(i)=b(n)b(n)=t【5】NextEndSub上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。1．下面程序是从键盘上输入一个字符串，把该字符串中的大写字母转换成小写字母，输出到文件Ks61.dat中，然后从该文件中读出字符串并显示出来。请完善下面的程序：PrivateForm_Click()DimStr1AsString*50,Str2AsString,FileNoAsIntegerFileNo=【63】Open“d:Vb2003KsKs61.dat”For【64】AsFileNoStr1=InputBox(“请输入一个字符串：”)Str1=Lcase(Str1)《计算机程序设计A》期末复习题（答案）第45页共45页 Seek#FileNo,1Put#FileNo,,Str1【65】#FileNo,1Str2=Input(【66】,#FileNo)PrintStr2EndSub【63】（A）Free　　　　　（B）File　　　　　（C）FreeFile　　　（D）FileFree【64】（A）Input　　　　（B）Output　　　　（C）Random　　　（D）Binary【65】（A）Loc　　　（B）Lof　　　（C）Eof　　　（D）Seek【66】（A）Len(Str1)　　（B）Len(Str2)　　（C）StrLen(Str1)（D）StrLen(Str2)1．在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：PrivateSubForm_Load()Text1.Text=“”Text1.SetFocusFori=1to10Sum=Sum+iNexti《计算机程序设计A》期末复习题（答案）第45页共45页 Text1.Text=SumEndSub程序运行后，输出结果为（【67】）（A）在文本框Text1中输出55　　　　　　　（B）在文本框Text1中输出0（C）在文本框Text1中输出不定值　　　　　（D）出错1．在2．在（D）PrivateSubCommand1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEndSub3．下面程序共执行了（【71】）次循环。DimIntsumAsInteger,iAsInteger,jAsIntegeri=1:j=1DoDoIntsum=Intsum+jj=j+2Printj;《计算机程序设计A》期末复习题（答案）第45页共45页 LoopUntilj>3i=i+1LoopUntili>11PrintIntsum（A）10　　　　（B）11　　　　（C）12　　　　（D）131．下列程序执行后，变量x的值为（【72】）Dima,b,c,d,xAsSinglea=200:b=100:c=500Ifb>aThend=a:a=b:b=dEndIfIfb>cThenx=bElseIfa>cThenx=cElsex=aEndIfPrintx（A）0　　　　（B）100　　　　（C）200　　　　（D）5002．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：《计算机程序设计A》期末复习题（答案）第45页共45页 PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是（A）13.45.8　　（B）135　　（C）147　　（D）无数据输出1．有如下函数：FunctionFacn(xAsInteger)AsLongDimpAsLong,iAsIntegerp=1Fori=1Toxp=p*iNextiFacn=pEndFunction调用它的事件过程如下：PrivateSubCommand1_Click()《计算机程序设计A》期末复习题（答案）第45页共45页 i=Val(InputBox(“请输入数据”))a=Facn((i))‘实参i用圆括号括起，则强制为值传递PrintaEndSub若输入数据6，则程序运行结果为（【73】）（A）60　　　　　（B）120　　　　　（C）600　　　　　（D）7201．在窗体上画一个命令按钮，然后编写如下事件过程，该过程执行结果为（【75】）OptionBase1PrivateSubCommand1_Click()DimaAsVariant,sAsIntegera=Array(2,4,6,8)j=1Fori=1To4Step1s=s+a(i)*jj=j*10NextiPrintsEndSub（A）0　　　　（B）1110　　　　（C）2468　　　　（D）8642《计算机程序设计A》期末复习题（答案）第45页共45页 设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunction1．对窗体编写如下代码：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(123,86,57,248,32)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>m1Thenm1=a(i)m2=iEndIfNextiEndIfPrintm1,m2《计算机程序设计A》期末复习题（答案）第45页共45页 EndSub程序运行后，按回车键，输出结果为（【76】）（A）325　　　（B）2484　　　（C）321　　　（D）2485设有如下通用过程：PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub1．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：PrivateSubCommand1_Click()Dimarr(5)AsVariantFori=1To5arr(i)=iNextn=10CallFun(arr(),n)Text1.Text=nEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是《计算机程序设计A》期末复习题（答案）第45页共45页 （A）10　　　　（B）15　　　　　（C）25　　　　　（D）241．阅读程序：FunctionFunc(aAsInteger)b=1StaticcAsIntegerb=b+1c=c+1Func=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=3Fori=1to3PrintFunc(a)NextiEndSub运行上面的程序，单击命令按钮后，输出结果为（【77】）（A）6　　　　（B）6　　　　（C）6（D）6768138610212．在窗体上画一个名称为Command1《计算机程序设计A》期末复习题（答案）第45页共45页 的命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d－cEndIfNextiPrintdEndSub程序运行后，如果单击命令按钮，则在窗体上输出的内容为（A）89　　　　（B）99　　　　（C）23　　　　（D）771．有如下一个函数过程：FunctionFunc(ByValNumAsLong)DimkAsLongk=1《计算机程序设计A》期末复习题（答案）第45页共45页 Num=Abs(Num)DoWhile(Num)k=k*(NumMod10)Num=Num10LoopFunc=kEndFunction以下是一个调用该函数的事件过程，在运行该过程后，在输入对话框中输入“2345”，则该过程的运行结果是（【78】）PrivateSubCommand1_Click()DimnAsLong,rAsLongn=InputBox(“请输入数据：”)n=CLng(n)　　　　　　　‘CLng函数的返回值是一个长整型数值r=Func(n)PrintrEndSub（A）0　　　　　（B）24　　　　　（C）60　　　　　（D）1201．在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)《计算机程序设计A》期末复习题（答案）第45页共45页 SelectCasenCase1To20x=10Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（A）10（B）20（C）30（D）401．在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()N=Val(Text1.Text)Ifn2=n/2Thenf=f1(N)Else《计算机程序设计A》期末复习题（答案）第45页共45页 F=f2(N)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf1=x+x+xEndFunction程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是（【79】）（A）726　　　（B）1086　　　（C）7236　　　（D）108361．设在工程中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType《计算机程序设计A》期末复习题（答案）第45页共45页 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click()时，在顺序文件Ks74.Txt中写入一条记录。下列能够完成该操作的事件过程是（【79】）（A）PrivateSubCommand1_Click()DimbAsBooksOpen“D:Vb2003KsKs74.Txt”ForOutPutAs#1b.Name=InputBox(“输入姓名”)b.TelNum=Inputbox(“输入电话号码”)Write#1,b.Name,b.TelNumClose#1EndSub（B）PrivateSubCommand1_Click()DimbAsBooksOpen“D:Vb2003KsKs74.Txt”ForInPutAs#1b.Name=InputBox(“输入姓名”)b.TelNum=Inputbox(“输入电话号码”)Print#1,b.Name,b.TelNumClose#1EndSub（C）PrivateSubCommand1_Click()DimbAsBooksOpen“D:Vb2003KsKs74.Txt”ForOutPutAs#1b.Name=InputBox(“输入姓名”)《计算机程序设计A》期末复习题（答案）第45页共45页 b.TelNum=Inputbox(“输入电话号码”)Write#1,bClose#1EndSub（D）PrivateSubCommand1_Click()DimbAsBooksOpen“D:Vb2003KsKs74.Txt”ForInPutAs#1b.Name=InputBox(“输入姓名”)b.TelNum=Inputbox(“输入电话号码”)Print#1,Name,TelNumClose#1EndSub1．在窗体上画一个名称为Text1的文本框，并编写如下程序：PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print"程序设计"《计算机程序设计A》期末复习题（答案）第45页共45页 EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Print"VisualBasic";EndSub程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是（A）VisualBasic　　　　　　　　（B）程序设计（C）A程序设计　　　　　　　　（D）VisualBasic程序设计1．下列程序运行后，运行结果不是144的程序是（【80】）（A）DimzAsInteger　　　　　　　　　　　（B）DimxAsIntegerPrivateSubForm_Click()PrivateSubForm_Click()x=12x=12CallFun(x)CallFun(x,z)PrintzPrintzEndSubEndSubSubFun(y)SubFun(y,z)z=y*yz=y*yEndSubEndSub（C）PrivateSubForm_Click()（D）Private《计算机程序设计A》期末复习题（答案）第45页共45页 SubForm_Click()x=12x=12CallFun(x)CallFun(x,z)PrintzPrintzEndSubEndSubSubFun(Byrefy)SubFun(Byrefy,z)z=12*12z=y*yEndSubEndSub1．设有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For循环计算一个表达式的值，这个表达式是（A）1+1/2+2/3+3/4+4/5　　　　　（B）1+1/2+2/3+3/4《计算机程序设计A》期末复习题（答案）第45页共45页 （C）1/2+2/3+3/4+4/5　　　　　　（D）1+1/2+1/3+1/4+1/51．程序如下：PrivateSubForm_Click()DimaAsInteger,bAsIntegera=5:b=8CallFun(a,b)Printa,bEndSubPrivateSubFun(xAsInteger,yAsInteger)x=x*yy=y*xEndSub程序运行时，单击窗体后，在窗体上输出的结果为（【81】）（A）58　　　（B）40　40　　　（C）40　8　　　（D）40　3202．在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0Fori=1to3x=1Forj=1to4x=2《计算机程序设计A》期末复习题（答案）第45页共45页 Fork=1to5x=x+2NextkNextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果为（【82】）（A）12　　　　（B）24　　　　（C）36　　　　（D）481．在窗体上画一个命令按钮，然后编写如下代码：PrivateTypeRecordIDAsIntegerNameAsString*20EndTypePrivateSubCommand1_Click()DimMaxSize,NextChar,MyCharOpen“D:Vb2003KsKs78.Dat”ForBinaryAs#1MaxSize=LOF(1)ForNextChar=MaxSizeTo1Step-1Seek#1,NextCharMyChar=Input(1,#1)NextNextChar《计算机程序设计A》期末复习题（答案）第45页共45页 PrintEOF(1)Close#1EndSub程序运行后，单击命令按钮，其输出结果为（【83】）（A）True　　　　（B）False　　　　（C）Null　　　　（D）01．在窗体上画一个命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dima()a=Array(30,40,70,10,50,80,20,90,60)s=0k=1Whilek–10s=s+a(k)k=k+1WendAver=s/(k–1)m=0Fori=1Tok–1Ifa(i)>AverThenm=m+1NextiPrintm《计算机程序设计A》期末复习题（答案）第45页共45页 EndSub程序运行后，单击命令按钮，输出结果为（【84】）（A）4　　　　　（B）5　　　　　（C）6　　　　　（D）71．有以下函数：FunctionFun(ByValaAsInteger)AsIntegerDimbAsIntegerStaticcAsIntegerb=2:c=1b=b+2c=c+2Fun=a+b+cEndFunction在窗体上画一个命令按钮，然后编写如下代码：PrivatSubCommand1_Click()Fori=1To4PrintFun(i),NextiEndSub运行程序后，单击命令按钮，输出结果为（【85】）（A）8888　　　（B）8131823（C）891011（D）81114172．新建一个窗体后（名为Form1），立即在该窗体上双击，编写《计算机程序设计A》期末复习题（答案）第45页共45页 的事件过程是（　　　）（A）Form_Click()（B）Form_Load()1．以（A）2．关于复合语句行的使用，正确的方法是（　　　）（A）a=3,b=4,c=5‘这里b是中间变量（B）a=3:b=4:c=5‘这里b是中间变量（C）a=3;b=4;c=5‘这里b是中间变量（D）a=3.b=4.c=5‘这里b是中间变量3．在使用End语句时，如果执行了下面的过程，其结果是（　　　）SubCommand1_Click()EndEndSub（A）中止当前程序，重置所有变量，关闭所有数据文件4．编写一个应用程序一般需要几个必须的且是常规的步骤，以下正确的是（　　　）（A）建立用户界面，设置属性，编写代码（B）建立用户界面，添加窗体，编写代码（C）添加窗体，设置属性，编写代码（D）建立用户界面，添加窗体，设置属性5．复选框的状态有（　　　）种，可通过设置它的（　　　）属性来设置它的状态《计算机程序设计A》期末复习题（答案）第45页共45页 （A）1（B）2（C）3（D）4（A）Alignment（B）Value（C）Style（D）Checked1．在下面四组图形格式中，全部都是VisualBasic支持的图形文件是（　　　）（A）位图、图标、3DS图形文件、GIF文件（B）位图、Flash图形文件、图标文件、GIF文件（C）位图、Flash图形文件、3DS图形文件、GIF文件（D）位图、图标、图元文件、JPEG文件、GIF文件2．下面关于图片框和图像框的说法中正确的是（　　　）（A）图像框和图片框均可通过Print方法显示文本（B）在图像框里只能显示图片，不能包含其它控件，而图片框可以包含控件（C）图像框比图片框占用的内存多、运行速度慢（D）在图片框和图像框中显示的图片均可放大和缩小3．在窗体上画两个名称为Text1和Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<20《计算机程序设计A》期末复习题（答案）第45页共45页 x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别是（　　　）（A）15和1（B）27和3（C）195和3（D）600和41．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是（　　　）（A）2（B）3（C）4（D）5《计算机程序设计A》期末复习题（答案）第45页共45页 1．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubComman1_Click()x=0n=InputBox(““)Fori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是（　　　）（A）3（B）4（C）5（D）62．在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2《计算机程序设计A》期末复习题（答案）第45页共45页 x=x+6NextkNextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果是（　　　）（A）7（B）15（C）157（D）5381．在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand_Click()x=0DoUntilx=-1a=InputBox(“请输入A的值：”)a=Val(a)b=InputBox(“请输入B的值：”)b=Val(b)x=InputBox(“请输入x的值：”)x=Val(x)a=a+b+xLoopPrintaEndSub《计算机程序设计A》期末复习题（答案）第45页共45页 程序运行后，单击命令，依次在输入对话框中输入5、4、3、2、1、-1，则输出的结果为（　　　）（A）2（B）3（C）14（D）151．在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下事件过程：PrivateSubCommand1_Click()s=0Fori=1To15x=2*i-1IfxMod3=0Thens=s+1NextiLabel1.Caption=sEndSub程序运行后，单击命令按钮，则标签中显示的内容是（　　　）（A）1（B）5（C）27（D）452．在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()a=Text1.TextSelectCasenCase1To20x=10《计算机程序设计A》期末复习题（答案）第45页共45页 Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（　　　）（A）10（B）20（C）30（D）401．有如下程序：a=10b=4Forj=1To20Step-2a=a+5b=b+4NextjPrinta;b运行后，输出的结果是（　　　）（A）10　4（B）60　24（C）110　44（D）55　40《计算机程序设计A》期末复习题（答案）第45页共45页 1．设有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For循环计算一个表达式的值，这个表达式是（　　　）（A）1+1/2+3/4+4/5（B）1+1/2+2/3+3/4（C）1/2+2/3+3/4+4/5（D）1+1/2+1/3+1/4+1/52．Command1_Click()事件程序的功能是：按顺序读入10名学生4门课程的成绩，计算出每位学生的平均分并输出，程序如下：DimnAsInteger,kAsIntegerDimscoreAsSingle,sumAsSingle,aveAsSinglesum=0#Forn=1To10Fork=1To4《计算机程序设计A》期末复习题（答案）第45页共45页 score=InputBox(“请输入第”&n&“名学生第”&k&“门课的成绩：”)sum=sum+scoreNextkave=sum/4Print“第”&n&“个学生的平均成绩为：”&aveNextn上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不对。这条语句是（　　　）（A）sum=0#（B）sum=sum+score（C）ave=sum/4（D）Print“第”&n&“个学生的平均成绩为：”&ave1．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub《计算机程序设计A》期末复习题（答案）第45页共45页 程序运行后，单击命令按钮，则窗体上显示的内容是（　　　）（A）1　3.4　5.8（B）1　3　5（C）1　4　7（D）无数据输出1．以下程序的输出结果是（　　　）DimiAsInteger,aAsIntegerDoWhilei<20DoWhileTrueIfiMod10=0ThenExitDoElsei=i-1EndIfLoopi=i+11:a=a+iLoopPrinta（A）21（B）32（C）33（D）112．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimi,jAsInteger《计算机程序设计A》期末复习题（答案）第45页共45页 Fori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是（　　　）（A）12（B）13（C）14（D）151．设有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5–i);NextEndSub程序运行后，单击窗体，则在窗体相显示的内容是（　　　）（A）4　3　2　1（B）5　4　3　2（C）6　5　4　3（D）7　6　5　4《计算机程序设计A》期末复习题（答案）第45页共45页 1．在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d–cEndIfNextiPrintdEndSub程序运行后，单击命令按钮，则在窗体上输出的内容是（　　　）（A）89（B）99　（C）23（D）772．假定有以下函数过程：FunctionFun(SAsString)AsStringDims1AsString《计算机程序设计A》期末复习题（答案）第45页共45页 Fori=1ToLen(S)s1=Ucase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubComman1_Click()DimStr1AsString,Str2AsStringStr1=InputBox(“请输入一个字符串：”)Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上输出的结果为（　　　）（A）abcdefg（B）ABCDEFG（C）gfedcba（D）GFEDCBA1．在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下代码：PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7《计算机程序设计A》期末复习题（答案）第45页共45页 z=0Text1.Text=“”CallP1(x,y,z)Text1.Text=Str(z)EndSubSubP1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub程序运行后，如果单击命令按钮，则在文本框中显示的内容是（　　　）（A）0（B）12（C）Str(z)（D）没有显示1．以下关于过程的叙述中错误的是（　　　）（A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型（B）Sub过程中不能嵌套定义Sub过程（C）Sub过程中可以嵌套调用Sub过程（D）事件过程可以像通用过程一样由用户定义过程名2．在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：PrivateXAsIntegerPrivateSubCommand1_Click()《计算机程序设计A》期末复习题（答案）第45页共45页 X=5:Y=3Callproc(X,Y)Label1.Caption=XLabel2.Catpion=YEndSubPrivateSubproc(ByvalaAsInteger,ByValbAsInteger)X=a*aY=b+bEndSub单击命令按钮，两个标签中显示的内容分别是（　　　）（A）5和3（B）25和3（C）25和6（D）5和61．有如下程序：PrivateFunctionfunc(ByValaAsInteger,ByValbAsInteger)func=a+bEndFunctionPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerDimzAsInteger,rAsIntegerx=2:y=5:z=8r=func(func(x,y),z)Printr《计算机程序设计A》期末复习题（答案）第45页共45页 EndSub当在Command1按钮上单击，该程序的输出结果是（　　　）（A）12（B）13　（C）14（D）151．设有如下通用过程：PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimart(5)AsVariantFori=1To5art(i)=iNextin=10CallFun(art(),n)Text1.Text=nEndSub程序运行后，单击命令按钮，在文本框中显示的内容为（　　　）（A）10（B）15（C）25（D）24《计算机程序设计A》期末复习题（答案）第45页共45页 1．要为工程添加一个过程，可执行“（　　　）”菜单中的“添加过程”（A）文件（B）视图（C）工程（D）工具2．以3．以下关于菜单的叙述中错误的是（　　　）（A）在同一个窗体的菜单项中，不允许出现标题相同的菜单项（B）在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的键盘访问键（C）程序运行过程中，可以重新设置菜单的“Visual”属性4．可通过“打开”对话框的（　　　）属性设置对话框中所显示文件的类型（A）FileName（B）Filter（C）FilterIndex以一关于通用对话框控件的叙述中错误的是（　　　）（A）在程序运行时，通用对话框控件是不可见的（B）在同一个程序中，用不同的方法（如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用（C）调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件（D）《计算机程序设计A》期末复习题（答案）第45页共45页 调用通用对话框控件的ShowColor方法，可以打开颜色对话框1．在显示颜色对话框之前必须设置（　　　）属性，否则将发生不存在字体的错误（A）FontName（B）FontSize（C）Max（D）Flags（A）一个工程中只能有一个SubMain过程2．窗体从加载到显示时，将会发生一系列事件，最先发生的事件是（　　　）（A）Initialize（B）Load（C）Activate（D）Resize3．以下关于文件的叙述中正确的是（　　　）（A）一个记录中所包含的各个元素的数据类型必须相同（B）随机文件中每个记录的长度是固定的（C）Open命令的作用是打开一个已经存在的文件（D）使用Input#语句可以从随机文件中读取数据4．在顺序文件中，当使用Write#语句时，文件打开的方式是（　　　）（A）Output和Input（B）Output或Append（C）Output（D）Append5．下列关于Loc函数的说法正确的是（　　　）（A）对于随机方式打开的文件返回上一次对文件进行读出或写入的记录号《计算机程序设计A》期末复习题（答案）第45页共45页 （A）在顺序文件中，返回上一次读出或写入的字节位置（B）对于二进制方式打开的文件，返回文件中当前字节的位置除以128的值（C）对于文本方式打开的文件，返回当前位置1．程序代码如下，发后Form_Click()事件后，窗体上显示的内容是（　　　）OptionExplictPrivateSubForm_Click()DimaAsString*1,iAsIntegerOpent“d:temp.txt”ForRandomAs#10Fori=1To5a=Chr(i+64)Put#10,i,aNextiSeek#10,3Get#10,,aPrintLoc(10);Seek(10)（A）3　4（B）3　3　（C）4　4　（D）4　3《计算机程序设计A》期末复习题（答案）第45页共45页'