《计算机程序设计A》计算机程序设计(答案)

《計算机VB程停世针》复习能题.在VisualBasic中最基本的对象是( ),它是应用程序的基石(A)标签 (B)窗体 (C)文本框 (D)命令按钮.事件驱动应用程序的典型操作序列是( )(A)启动应用程序、加载显示窗体,接收事件,执行代码,等待下次事件(B)接收事件，启动应用程序，加载显示窗体，执行代码，等待下次事件(C)执行代码，启动应用程序，加载显示窗体，接收事件，等待下次事件(D)等待下次事件，接收事件，启动应用程序，加载显示窗体，执行代码TOC\o"1-5"\h\z.对于不同的对象有不同的属性,但所有的对象都共同拥有的属性是( )(D)Leon(A)Picture(B)Caption (C)Name(D)Leon.从键盘上输入两个字符串,分别保存在变量str1和str2中。确定第二个字符串在第一个字符串中起始位置的函数是( )(A)Left (B)Mid (C)String (D)Instr.函数lnt(1O〇・Rnd+1)的取值范围是( )(A)从1到100 (B)从〇到100 (C)从1到101 (D)从〇到101.如果将布尔常量值True赋值给ー个整型变量，则整型变量的值为( )0 (B)-1 (C)True (D)False7,下列符号常量的申明中，( )是不合法的ConstaAsSingle=1.1 (B)ConstaAsInteger="12"ConstaAsDouble=Sin(1) (D)Consta=UOK".将变量k四舍五入保留2位小数的表达式是( )(A)lnt((k+0.5)*100)/100 (B)lnt(k*100)/100+0.5(C)lnt(k*100+0.5)/100 (D)lnt(k*(100+0.5))/100.假设a和b是整型变量，则表示条件“1Wa<8和1<b<8中只要有一个成立即可”的逻辑表达式是(1<=aAnda<8And1<bAndb<=8(1<=aAnda<8)AndNot(1<bAndb<=8)1<=aAnda<8Or1<bAndb<=8Not(1<=aAnda<8)Or(1<bAndb<=8).设有如下的记录类型:TypeStudentNumberAsString*10NameAsString*20AgeAsIntegerEndType则正确引用该记录类型变量的代码是( )Student.Nam="张三”DimsAsStudents.Name="张三”DimsAsTypeStudents.Name="张三”DimsAsTypes.Name="张三”TOC\o"1-5"\h\z.以下语句的输出结果是( )PrintFormat$(32548.5,“000,000.00”)(A)32548.5 (B)32,548.5 (C)032,548.50 (D)32,548.50.假定Pic1和Txt1分别是图片框和文本框的名称,下列不正确的语句是( )(A)Print"abed" (B)Pic1.Print"abed"(C)Txt1.Print"abed" (D)Debug.Print"abed".下列语句执行后,输出的结果是( )age$=18Print“你的年龄是:Printage(A)你的年龄是:ロ18 (B)你的年龄是:ロロ18(C)”你的年龄是："D18 (D)”你的年龄是：”ロロ18注意:符号“ロ”表示空格.执行语句m=Len(Mid(“西南交通大学03级全体学生”,5,5))后,m的值是([4】)(A)交通大学(B)大学03级(C)5 (D)8.在界面设计阶段,当双击窗体上的某个控件时,所打开的窗口是([1】)(A)属性窗口 (B)代码窗口(C)工具箱窗口 (D)工程资源管理器窗口.以下叙述中正确的是([2】)(A)对象的Name属性值可以为空(B)窗体的Name属性指定窗体的名称，用来标识一个窗体(C)可以在程序运行期间改变对象的Name属性值(D)窗体的Name属性的值是显示在窗体标题栏中的文本.在窗体上画一个命令按钮，其名称为Command"然后编写如下事件过程：PrivateSubCommand1_Click()A=45678PrintFormat（A,"000.00"）EndSub程序运行后,单击命令按钮,窗体上显示的是（［4］）（A）456.78 （B）45678.00 （C）45678 （D）00456.78.在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click（）Move500,500EndSub程序运行后,单击命令按钮,执行的操作为（【1】）（A）命令按钮移动到距窗体左边界、上边界各500的位置（B）窗体移动到距屏幕ん边界、上边界各500的位置（C）命令按钮向左、右方向各移动500（D）窗体向左、上方向各移动500.刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是（［3】）（A）通用对话框 （B）单选按钮（C）图片框（D）组合框.以下叙述中错误的是VisualBasic是事件驱动型可视化编程工具VisualBasic应用程序不具有明显的开始和结束语句VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性VisualBasic中控件的某些属性只能在运行时设置.以下叙述中错误的是（A）窗体文件包含该窗体及其控件的属性（B）以.BAS为扩展名的文件是标准模块文件（〇ー个工程中可以含有多个标准模块文件（D）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件.以下关于函数过程的叙述中,正确的是（［4】）（A）函数过程形参的类型ワ函数返回值的类型没有关系（B）在函数过程中，过程的返回值可以有多个（〇当数组作为函数过程的参数时，既能以传值方式传递,也能以传地址方式传递（D）如果不指明函数过程参数的类型，则该参数没有数据类型.设有如下变量声明:DimTestDateAsDate为变量TestDateiE确赋值的表达式是（［4】）TestDate=#"6/22/2003"#TestDate=#6/22/2003#

TestDate=Date("6/22/2003")TestDate=Format("m/d/yy"，“6/22/2003").在窗体上有若干控件,其中有一个名称为Textl的文本框。影响Textl的Tab顺序的属性是(【4】)(A)TabStop(B)Enabled(C)Visible(D)Tabindex.以下关于变量作业用域的叙述中,正确的是([4】)(A)窗体中凡被声明为Private的变量只能在某个指定的过程中使用(B)全局变量只能在标准模块中声明(〇模块级变量只能用Private关键字声明(D)Static类型变量的作用域是它所在的窗体或模块文件.在窗体上画一个名称为Com1的命令按钮，然后编写如下程序:PrivateSubcom1_Click()StaticXAsIntegerStaticYAsIntegerCisY=1:Y=Y+10:X=X+YPrintX,YEndSub程序运行时,三次单击命令按钮Com1后,窗体上显示的结果为([5】)(A)33 11 (B)6331 (C)6030 (D)31 31.以下关系表达式中,其值为False的是([4])(A)"FINE"ゾFine" (B)“good”v>“god”(C)"BASIC"二Ucase("Basic") (D)”good”>”god”.设a=3,b=5,则以下表达式值为真的是([6】)(A)(-3+5)And(b>0) (B)a>=bAndb>10(C)(a>b)Or(b>0) (D)(a<0)Eqv(b>0).语句Print6/5*6\5Mod2的输出结果是(【4】)(A)0 (B)1 (C)2 (D)3.以下定义数组或给数组元素赋值的语句中,正确的是(【4】)DimArrasVariantArr=Array(1,2,3,4,5,6,7,8)(C)DimArr%(10)DimArrasVariantArr=Array(1,2,3,4,5,6,7,8)(C)DimArr%(10)Arr(1)="ABCDEFGH”DimArr(10)asIntegerArr=Array(1,2,3,4,5,6,7,8)(D)Dima(3),b(3)asIntegera(0)=0a(1)=1a(2)=2b=a31.在窗体上画一个名称为Listl的列表框,

应使用的循环语句为(【4】)b=a31.在窗体上画一个名称为Listl的列表框,

应使用的循环语句为(【4】)为了对列表框中的每个项H都能进行处理,Fori=0ToListl.ListCount-1Fori=0ToListl.Count-1NextNextFori=1ToListl.ListCountFori=1ToListl.CountNext Next.以下关于图片框控件的说法中，错误的是([4】)(A)可以通过Print方法在图片框中输出文本(B)清空图片框控件中图形的方法之一是加载ー个空图形(C)图片框控件可以作为容器使用(D)用Stretch属性可以自动调整图片框中图形的大小.设有语句x=lnputBox("请输入数值"，"〇”，"示例")则程序运行后，如果从键盘输入100并按回车键,下列叙述中正确的是(【7】)(A)〇是默认值(B)变量x的值是数值100(C)变量x的值是字符串“100”(D)在InputBox对话框标题栏中显示的是“请输入数值”.以下叙述屮错误的是(A)窗体或控件的事件的名称可以由编程人员确定(B)移动鼠标时，会触发MouseMove事件(〇控件的名称可以由编程人员设定(D)双击鼠标可以触发DbICIick事件.从键盘上输入两个字符串，分别保存在变量Str1,Str2中，确定第二个字符串在第一个字符串中起始位置的函数是([8】)(A)Mid(B)Instr(C)String(D)Left.以下能够触发文本框Change事件的操作是([9】)(A)文本框获得焦点 (B)改变文本框的内容(C)文本框失去焦点 (D)设置文本框的焦点.设a="西南交通大学峨眉校区”，下面使b="峨眉校区”的语句是([10])(A)b=Left(a,15,8) (B)b=Left(a,7,4)b=Mid(a,15,8) (D)b=Mid(a,7,4)

.在窗体上有一个文本框控件,名称为TxtTime；一个计时器控件,名称为Time门,要求每一秒钟在文本框中显示一次当前时间。程序为:PrivateSubTimeri()TxtTime.Text=TimeEndSub在下划线上应填入的内容是([11])(A)Visible(B)Interval(C)Timer(D)Enabled.以下能正确定义数据类型Student的代码是TypeStudentNameAsString*10TypeStudentNameAsString*10TelNumAsIntegerEndType(C)TypeStudentNameString*10TelNumIntegerEndTypeStudentTypeStudentNameAsString*10TelNumAsIntegerEndStudent(D)TypedefStudentNameString*10TelNumIntegerEndType.为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的ー个属性值设置为True,这个属性是(【12】)(C)Default(D)Enabled(A)Value(B)Cancel(C)Default(D)Enabled.以下叙述中错误的是(A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件(B)保存VisualBasic程序时,应分别保存窗体文件及工程文件(〇事件可以由用户引发,也可以由系统引发VisualBasic应用程序只能以解释方式执行.设窗体上有一个列表框控件Listl,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(A)Listl.List(B)Listl.Text(C)Listl.Listindex(D)Listl.Index.图像框Image有一个属性,可以自动调整图形的大小,以适应图像框的尺寸,这个属性是(【13】)(A)Autosize(B)AutoRedraw(C)Appearance(D)Stretch.程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是(A)Load(B)MouseDown(C)MouseUp(A)Load(B)MouseDown(C)MouseUp(D)Click.在窗体上画一个命令按钮,名称为Com1,然后编写如下程序:PrivateSubCom1__Click()Fori=1to4Forj=0toiPrintChr$(97+j);NextjPrintNextiEndSub则程序运行结果为([14])(A)ab(B)a(C)aa(D)aaabcbbbbbbabedcccccccabededddddddd.设a=100,b=50,c=10,执行语句Printa>b>c后,窗体上显示的是(A)True (B)False (C)1 (D)出错信息.MsgBox函数中用于指定对话框中显示按钮的数目的参数项是([15])(A)Prompt参数(B)Buttons参数 (C)Title参数 (D)Default参数.下列各组函数中,功能相似的一组函数是([16])(A)Str和Vai(B)Asc和Chr(C)lnt和Fix (D)Lease和Ucase.如果要改变窗体的标题，则需要设置的属性是(A)Name(B)Caption(C)BackColor(D)Borderstyle.ド列Format$函数的说明中错误的是([17])ー个#格式符表示ー个数字位,#的个数即为显示区段的长度“，”格式符与“.”格式符的作用完全相同"$”格式符用于在数值前面加上一个$,以表示货币0格式符与#格式符的功能相似.以下能判断是否到达文件尾的函数是(A)BOF (B)LOC (C)EOF (D)LOF.执行下列程序段后，变量c的值为([181)a=123:b$="456":c=a+b$(A)0 (B)123456 (C)579 (D)语句c=a+b$错误.为了在程序中设置命令按钮为不可见，需要把该命令按钮的ー个属性值设置为False,这个属性是([19])(A)Value(B)Visible(C)Cancel(D)Enabled.下列控件中，不能接收焦点的控件是([20])(A)Form(B)TextBox(C)CommandBotton(D)Label.Inpu旧ox函数的返回值类型是(【21】)(A)数值型 (B)字符串型(C)变体型 (D)数值或字符串型(视输入的数据而定).如果ー个工程含有多个窗体及标准模块,则以下叙述中错误的是(A)用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体(B)不能把标准模块设置为启动模块(〇如果工程中含有SubMain过程,则程序一定首先执行该过程(D)任何时刻最多只有一个窗体是活动窗体.运行下列程序段后,x的值是(【22】)x=8Fori=1to5x=x+x\3Next(A)13 (B)22 (C)29 (D)38. 在窗体上画一个名称为Commandl的命令按钮,然后编写如下的事件过程:PrivateSubCommand1_Click()m=6789c=Trim(Str(m))Fori=1To4Print([23])NextEndSub程序运行后,单击命令按钮,要求在窗体上显示如下内容:6676786789则在【23】处应该填入的内容为(A)Left(c,i)(B)Right(c,i)(C)Mid(c,i,i)(D)Mid(c,i,1).在窗体上画一个命令按钮,然后编写如下的事件过程:PrivateSubCommand1_Click()a=Val(InputBox("请输入a的值"))b=Val(InputBox("请输入b的值”))c=Val(InputBox("请输入c的值"))Ifa>bThent=a:a=b:b=tIfa>cThent=a:a=c:c=tIfb>cThent=b:b=c:c=tPrinta,b,cEndSub程序运行后,单击命令按钮,依次在输入对话框中输入10、5、20,则输入结果为([23])(A)20105 (B)51020 (C)10520 (D)20510.在窗体上画一个名称为Commandl的命令按钮,然后编写如ド的事件过程:PrivateSubCommand1_Click()X=-4IfSgn(X)ThenY=Sgn(XA2)ElseY=Sgn(x)EndIfPrintYEndSub程序运行后,单击命令按钮,窗体上.显示的是([4】)(A)1 (B)-1 (C)-4 (D)16.下列不能打开代码窗口的操作是(【24】)(A)单击窗体的任何地方(B)双击窗体的任何地方(C)单击工程窗口中的“查看代码”按钮(D)单击“视图”F拉菜单中的“代码窗口”选项

.在立即窗口中输出变量a的值,正确的语句是(【25】)(A)Debuga(B)Debug.Printa(C)Print.Debuga(D)Printa.在窗体上画一个名称为Drivel的驱动器列表框,ー个名称为Dir1的目录列表框。当改变当前驱动器时,ロ录列表框应该与之同步改变。设置两个控件同步的命令放在ー个事件过程中,此事件过程是(【26】)(A)Drive1_Change (B)Drive1_Click(C)Dir1_Click (D)Dir1_Change.窗体的MouseUp事件过程Form_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)有4个参数，关于这些参数,正确的描述是(A)通过Button参数判定当前按ド的是哪ー个鼠标键Shift参数只能用来确定是否按下Shift键Shift参数只能用来确定是否按下Alt和Ctr!键(D)参数x,y用来设置鼠标当前位置的坐标.InputBox函数有6个参数，其中不能省略的参数项是(【26】)(A)Default参数 (B)Title参数 (C)Xpos,Ypos参数(D)Prompt参数.在窗体上画一个名称为Commandl的命令按钮，然后编写如卜ー的事件过程:OptionBase1PrivateSubCommand1_Click()Dimas=0a=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*1ONextiPrintsEndSub(A)34 (B)12 (C)1234 (D)4321.不能从ー个已知字符串中得到ー个子字符串的函数是(【27】)(A)Trim (B)Right (C)Mid (D)Left.设组合框Combol中有3个项目,则以下能删除最后ー项的语句是Combol.RemoveitemTextCombol.RemoveitemCombol.Listcount

Combol.Removeitem2Combol.Removeitem3.表达式17\2*10Mod3的值是(【28】)TOC\o"1-5"\h\z(A)0 (B)1 (C)2 (D)3.如果在立即窗口中执行以下操作:a=uabcM<CR>(<CR>表示回车键,下同)b="aBc” <CR>Printa>b <CR>则输出结果是(【29】)(A)-1 (B)0 (C)False(D)True.在窗体上画一个名称为Textl的文本框,要求文本框只能接收小写字母的输入。以下能实现该操作的事件过程是(【29】)PrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii<97OrKeyAscii>122ThenMsgBox"请重新输入小写字母”KeyAscii=0EndIfEndSubPrivateSubText1_Mousellp(ButtonAsInteger,ShiftAsInteger,_XasInteger,YasInteger)IfKeyCode<97OrKeyCode>122ThenMsgBox”请重新输入小写字母”KeyCode=0EndIfEndSubPrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XasInteger,YasInteger)IfAsc(Textl.Text)<97OrAsc(Text1.Text)>122ThenMsgBox"请重新输入小写字母”EndIfEndSubPrivateSubText1_Change()IfAsc(Textl.Text)>96AndAsc(Text1.Text)<123ThenMsgBox“请重新输入小写字母”EndIf

EndSub.以下语句的输出结果是(【30】)PrintFormat(1234567.89ド##,###.000")(A)34,567.890 (B)1,234,567.890(C)1,234,567,89 (D)34,567.89.当某个控件获得焦点时,将会触发的事件是(【31】)(A)GotFocus(B)SetFocus(C)ReceiveFocus(D)无事件触发.在窗体上画一个名称为Commandl的命令按钮,然后编写如卜ー的事件过程:PrivateSubCommand1_Click()DimaAsIntegerOpen"c:\VbTest\Test32.dat"ForBinaryAs#1a=1000Seek#1,10Put#1,,aClose#1EndSub则以下叙述中正确的是(【32】)(A)如果文件c:\VbTest\Test32.dat不存在,贝リ〇pen命令执行失败(B)由于Put命令中没有指明位置,因此把变量a的值写到文件的末尾(C)变量a的值会从文件的第10个字节处开始写入(D)变量a的值会从文件的第10个记录处开始写入.下列叙述中正确的是(【32】)(A)在窗体的Form_Load事件过程中定义的变量是全局变量(B)局部变量的作用域可以超出所定义的过程(〇在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程(D)在调用过程中，所有局部变量被系统初始化为〇或空字符串.以下关于焦点的叙述中，错误的是(A)当文本框失去焦点时,触发LostFocus事件(B)当文本框的Enabled属性为False时，其Tab顺序不起作用(C)可以用Tabindex属性改变Tab顺序(D)如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据.设a=10,b=12,则执行x=lif(b\a*a=10,0,-1)后，x的值为(【33】)

(A)0 (B)1 (C)-1 (D)使用错误.使用下面语句定义的数组元素个数是(【34】)DimA(4,2To5)AsInteger(A)12 (B)15 (C)16 (D)20.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(A)= (B)* (〇& (D)-.为了将菜单项分组,使不同类型的菜单之间有一・条水平分隔线,设置方法是在菜单中插入一个菜单项,将该菜单控件的(【35】)属性设置为ー个连字符(-)即可。(A)Name(B)Caption(C)Shortcut(D)Text.执行语句〇pen"Tel.dat"ForRandomAs#1Len=50后,对文件Tel.dat中的数据能够执行的操作是(A)只能写,不能读 (B)只能读,不能写(〇既可以读，也可以写 (D)不能读，不能写.在程序运行期间,若改变滚动条中滚动块的位置,则触发的事件是(【36】)(A)GotFocus(B)Change(C)Move(D)Scroll.假定窗体上有一个标签,名称为Labell,为了使该标签无边界线,则正确的属性设置是(【37】)(A)Label1.BorderStyle=0 (B)Label1.BorderStyle=1(C)Label1.BorderStyle=True (D)Label1.BorderStyle=False.确定触发计时器两个事件间隔的毫秒数，应使用计时器的(【38】)属性。(A)Visible(B)Enabled(C)Tag(D)Interval.为了将变量a,b,c的值以标准输出格式写入顺序文件Ks39.txt中,所使用的语句的格式为(【39】)(A)Print#文件号,a;b;c (B)Print#文件号,a,b,c(C)Printa;b;c;#文件号 (D)Printa,b,c,#文件号86,在窗体上画一个命令按钮和两个文本框,编写如下事件过程:PrivateSubCommand1_Click()IfLen(Textl.Text)=0ThenTextl.Text=Text2.Text*Text2.TextElseText2.Text=Textl.Text*Textl.TextEndIfEndSub程序运行后,在文本框Textl中输入10,然后单击命令按钮，运行结果为(【40】)(A)在文本框Textl中输出100,在文本框Text2中输出0

(B)在文本框Text)中输出100,在文本框!bxt2中输出10(C)在文本框Text)中输出10,在文本框Text2中输出100(D)在文本框Textl中输出10,在文本框本xt2中输出10087.下列各组窗体属性中,在程序运行期间,属性值不能改变的ー组属性是(【41】)(A)ControlBox和BorderStyle(C)Name和BorderStyle(B)MaxButton和MinButton(D)ControlBox(B)MaxButton和MinButton(D)ControlBox和Caption[42])Ctrl+DCtrl+ECtrl+FCtrl+G.MsgBox函数的返回值类型是(【43】)(A)数值型(B)(A)数值型(C)变体型 (D)数值或字符串型(视输入的数据而定).可以同时删除字符串前导和尾部空白的函数是(【44】)(A)Ltrim(B)Rtrim(C)Mid (D)Trim.执行以下程序段后,变量c$的值为(【45】)a$="VisualBasic6.0Programingb$="Designc$=Lease(Mid$(a$,7,6))&Right$(a$,11)&b$(A)Visualbasic6.0design (B)basicProgramingDesign(C)BASICProgramingDesign (D)VisualBASIC6.0design.假定有一个菜单项,名为MenuDiv,为了在运行时使该菜单项失效(变灰),应使用的语句是(【46】)(A)MenuDiv.Visible=False (B)MenuDiv.Visible=TrueMenuDiv.MenuDiv.Enabled=FalseMenuDiv.Enabled=True.为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是(【47】)(A)Enabled(B)Interval(A)Enabled(B)Interval(C)Timer (D)Visible(B)Put(B)Put#文件号,Stu,记录号(D)Get#文件号,Stu,记录号(B)一定要有过程的名称(D)一定要指定其类型.为了把ー个记录型变量Stu的内容写入随机文件Ks48.dat中的指定位置，所使用的语句格式为(【48】)(A)Put#文件号,记录号,Stu(C)Get#文件号,记录号,StuSub过程的定义(【49】)(A)一定要有形参(〇一定要指明是公有的还是私有的Function过程有别于Sub过程的最主要的特点是(【50】)Function过程一定要有形参，而Sub过程可以没有形参Function过程的终端语句是EndFunction,而Sub过程的终端语句是EndSubFunction过程用于计算函数值,而Sub过程用于改变属性值Function过程要返回函数值,而Sub过程没有值的返回要定义ー个过程为局部过程,应用使用(【51】)关键字。(A)Public(B)Static(C)Sub(D)Private下列定义Func为函数过程的定义语句中错误的是(【52】)FunctionFunc(aAsInteger)AsIntegerStaticFunctionFunc(a)PrivatePublicFunc(a)AsIntegerPrivateFunctionFunc(aAsSingle)标准模块存盘后,形成的磁盘文件扩展名为([53])(A).Bas(B).Cis(C).Frm(D).Vbp下列函数调用中错误的是(【54】)Str$=InputBox(“请输入数据”)lnputBox(“请输入数据")Msg=MsgBox("是否继续输入数据?つMsgBox("是否继续输入数据?”)要使窗体Forml显示出来，应使用(【55】)(A)LoadForml(B)FormlLoad(C)Show.Forml(D)Forml.Show在使用通用对话框之前要先将(【56】)添加到工具箱中。(A)ActiveX(B)ComboBox(C)CommonDialog(D)Color用〇pen语句打开文件时,若省略For子句，则隐含打开文件的存取方式为([57])(A)Binary(B)Random(C)Input(D)OutPut设有以下循环结构Do循环体LoopWhileく条件〉则以下叙述中错误的是(A)“条件”可以是关系表达式、逻辑表达式或常数(B)循环体中可以使用ExitDo语句(〇若“条件”是ー个为〇的常数,则ー次也不执行循环体(D)如果“条件”总是为True,则不停地执行循环体要获得打开文件的长度(字节数)应用使用([58】)函数。(A)FileLen(B)Len(C)Loc(D)Lof给文件改名的VB语句正确的是(【59】)(A)Name原文件名To新文件名 (B)Rename原文件名To新文件名(C)Name原文件名As新文件名 (D)Rename原文件名As新文件名在窗体上画一个名称为Commandl的命令按钮,然后编写如下的事件过程:OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerFori=1To10a«)=iNextCallSwap[5]Fori=1To10Printa(i);NextEndSubSubSwap(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)的值互换。请填空。在窗体上画一个标签(名称为Labell)和一个计时器(名称为Timeri),然后编写如下儿个事件过程:PrivateSubForm_Load()Timeri.Enabled=FalseTimeri.Interval=[5]EndSubPrivateSubForm_Click()Timeri.Enabled=[6]PrivateSubTimer1_Timer()Labell.Caption=[7]EndSub程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。请填空。■Forml14:54:41下面程序用选择法将数组a中的10个整数按升序排列。算法是:从数组中找出最小的值,将该数与第1个数交换,这样第1个数组元素是最小的数。再从第2个数开始,找出其后各数组元素中最小的数,将该数与第2个数交换位置,这样第2个数是次小的数。如此重复上述过程,即可将数组排序。请完善以下的程序:OptionBase1PrivateSubCommand1_Click()Dima(1To10)AsInteger,iAsInteger,jAsInteger,kAsIntegerFori=1To10a(i)=Vai(InputBox("请输入第a("&i&“)个数：”))NextiFori=1To9[60]Forj=i+1To10Ifa(k)[61]a(j)Thenk=jNextjTemp=a(i): [62] :a(k)=TempNextiFori=1To10Printa(i),NextiEndSub[60](A)k=0(B)k=1(C)k=i(D)k=j[61](A)=(B)<>(C)<(D)>[62](A)a(i)=aG)(B)a(j)=a(i)(C)a(k)=a(i)(D)a(i)=a(k)110.设有程序:OptionBase1PrivateSubCommand1_Click()Dimarr1,MaxasIntegerarr1=Array(12,435,76,24,78,54,866,43)[12]=arr1(1)Fori=1To8lfarr1(i)>MaxThen[13]NextiPrim”最大值是:"；MaxEndSub以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。111. 下面程序是从键盘上输入一个字符串,把该字符串中的大写字母转换成小写字母,输出到文件Ks61.dat中,然后从该文件中读出字符串并显示出来。请完善下面的程序:PrivateForm_Click()DimStr1AsString*50,Str2AsString,FileNoAsIntegerFileNo=[63]Openud:\Vb2003Ks\Ks61.datMFor[64]AsFileNoStr1=InputBox(“请输入一个字符串:")Str1=Lease(Str1)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)112.以下程序的功能是::把当前H录下的顺序文件smtext1.txt的内容读入内存,并在文本框Textl中显示出来。请填空。PrivateSubCommand1_Click()DiminDataAsStringTextl.Text二"”Openn.\smtext1.txtn[14]As#1DoWhile[15]Input#1,inDataTextl.Text=Textl.Text&inDataLoopClose#1EndSub在窗体上画一个文本框(其Name属性为Textl),然后编写如下事件过程:PrivateSubForm_Load()Textl.Text=MMTextl.SetFocusFori=1to10Sum=Sum+iNextiTextl.Text=SumEndSub程序运行后,输出结果为([67])(A)在文本框Textl中输出55 (B)在文本框Textl中输出。(C)在文本框Textl中输出不定值 (D)出错114,在窗体上画一个文本框和一个列表框,然后编写如下两个事件过程:PrivateSubForm__Load()Listl.Additem“123”Listl.Additem“456”Listl.Additem“369”Listl.Additem,789”Textl.Text="”EndSubPrivateSubList1_DblClick()a=Listl.TextPrinta+Textl.TextEndSub程序运行后,在文本框中输入“248”,然后双击列表框中的“369”,则输出结果([68】)(A)617 (B)248369 (C)369248 (D)0.在窗体ヒ画两个滚动条,名称分别为HscrolllヽHscroll2Z六个标签