VB复习题及参考答案

复习题及参照答案一、选择题(1)使“Microsoft”在目前窗口上输出的语句是（B）。A）Picture.print“Microsoft”B）print“Microsoft”C）printer.print“Microsoft”D）Debug.print“Microsoft”(2)输入inputbox返回值的类型是（A）A）字符型B）整型C）浮点型D）长整型(3)用来设置设置文本框有无滚动条的属性的值为（A）。A)ScrollbarsB)MultilineC)SeltextD)sellength(4)int(rnd*50)+10表达的是（D）范围内的整数。A)[0，50]B)[1，60]C)[10，60]D)[10，59](5)下列各控件不包括滚动条的是（D）。A)listboxB)comboboxC)textboaD)labelbox(6)为了临时关闭计时器，应把该计时器控件的（C）属性设置为false.A)visibleB)timerC)enabledD)interval(7)设置列表框选中的文本，用（C）属性。A）SelectedB）ListC）TextD）Caption（8）未选中复选框控件时，Value属性的值为（C）A）TrueB）FalseC）0D）1(9)某一VB工程含F1.F2两个窗体，执行“F1．Show：F2．Hide”语句后，F1.F2窗体显示的成果为C。A)都显示B)都不显示C)仅显示F1窗体D)仅显示F2窗体(10)在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算成果。当移动滚动框时，在对应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将成果显示在Label3中。如下不能实现上述功能的事件过程是（A）。A）PrivateSubCommand1_Click()Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))EndSubB）PrivateSubCommand1_Click()Label3.Caption=HScroll1.Value*HScroll2.ValueEndSubC）PrivateSubCommand1_Click()Label3.Caption=Val(Label1.Caption)*Val(Label2.Caption)EndSubD）PrivateSubCommand1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEndSub(11)当滚动条位于最左端或最上端时，Valve属性被设置为（A）。A）MinB）MaxC）Min与Max之间D）Min与Max之外（12）在窗体中画一种名称为timer1的计时器控件，规定每隔0.5s发生一次计时器事件，则如下对的的属性设置语句是（D）。A）erval=0.5B）erval=5C）erval=50D）erval=500(13)若要退出For循环，可使用的语句为（D）。A)ExitB)ExitDoC)TimeD)ExitFor(14)体现式样16/4-2.5*8/4mod5\2的值为（D）A)14B)10C)20D)3（15）下面对的的赋值语句是（C）A)x+y=30B)y=*r*rC)y=x+30D)3y=x(16)可用于设置系统目前时间的语句是（C）。A)DateB)Date$C)TimeD)Timer(17)体现式4+7\6*8/8Mod9的值是（B）。A)4B)5C)6D)7(18)下列选项中不属于事件的是（C）。A）DblclickB)LoadC)ShowD)Change(19)int(rnd*100)表达的是（C）范围内的整数。A)[0，100]B)[1，99]C)[0，99]D)[1，100](20)为了某个命令按钮无效（显灰色），需要把该命令按钮的一种属性设置为false，这个属性是（D）。A)ValueB)DefaultC)CancelD)Enabled(21)窗体FontSize属性缺省值为（B）。A)5B)9C)12D)16(22)由“FORi=1to9step-3”决定的循环构造被执行（D）次。“FORi=10to9step-3”决定的循环构造被执行（）次。“FORi=1to9step3”决定的循环构造被执行（）次。A)4B)5C)6D)0(23)设计动画时一般用定期器控件的（A）属性来控制动画速度。A)intervalB)timerC)moveD)enabled(24)要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置（B）属性。A)AutoSizeB)multilineC)alignmentD)enabled(25)在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一种命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1_Click()a=(Text1.Text)+(Text2.Text)PrintaEndSub程序运行后，在第一种文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出成果为（C）。A)444B)321123C)123321D)132231(26)下列可作为VisualBasic变量名的是（D）。A)A#AB)4AC)?xYD)constA(27)列表框list1的（B）属性返回选用定的内容。A)listB)textC)captiobD)additem(28）用下面语句定义的数组的元素个数是（C）。DimA(3To20)AsIntegerA)6B)7C)18D)9(29)在VB中，画点的措施是（ C）。A)lineB)shapeC)psetD)circle(30)决定一种控件在窗体的左右位置的属性是（C）。A)widthB)heightC)leftD)top(31)当图片框的AutoSize属性值为true时（C）。A)图片大小随影像框的大小进行调整B)影像框的大小随图片大小进行调整C)图片框大小随图片的大小进行调整D)图片大小随图片框的大小进行调整(32)RGB函数中3个数字分别表达（B）。A)红、绿、白B)红、绿、兰C)目前色、前景色、背景色D)红、黄、兰(33)假如在立即窗口中执行如下操作：a=8<CR>(<CR>是回车键，下同)b=9<CR>printa>b<CR>则输出成果是C。A)-1B)0C)FalseD)True（34）FontSize属性用以设置字体大小，窗体的FontName属性缺省值为A)5B)9C)12D)16(35)双精度变量占用(D)个字节。A)1B)2C)4D)8(36)体现式9mod2^2+2的值是(B)A)4B)3C)2D)1(37)阅读下面的程序段：PrivateSubForm_Click()a=2Fori=1To2a=a*iNextiEndSub执行上面的循环后，a的值为(C)A)2B)3C)4D)8(38)Int(rnd*10)表达的是C范围内的整数。A)[0,10]B)[1,9]C)[0,9]D)[1,10](39)Integer类型数据可以表达的最大整数为（）A)215B)215-1C)216D)216-1(40)输入对话框InputBox的返回值的类型是AA)字符串B)整数C)浮点数D)长整数(41)由“Fori=1to16step3”决定的循环构造被执行（C）次A)4B)5C)6D)7(42)若I的初值为5，则下列循环语句的循环次数为（B）次。whileI<10I=I+2Wend`A)2B)3C)4D)5(43)窗体的FontName属性的缺省值是()A)宋体B)仿宋体C)楷体D)黑体(44)决定窗体标题内容的属性是(D)A)TextB)NameC)AlignmentD)Caption(45)将命令按钮设置Command1为窗体的取消按钮，可修改该控件的(D)属性。A)EnabledB)ValueC)DefaultD)Cancel(46)将焦点积极设置到指定的控件或窗体上，应采用(B)措施。A)SetDateB)SetFocusC)SetTextD)GetGata(47)将计时器的时间间隔设置为0.1秒，则Interval的属性值是(C)A)1B)1000C)100D)10(48)决定标签内容显示对齐方式的属性是(C)A)TextB)NameC)AlignmentD)Caption(49)若要在同一窗体中安排两组单项选择按钮，可用控件(B)予以分隔。A)文本框B)框架C)列表框D)组合框(50)下列(A)语句不能用于变量阐明。A)DimB)PublicC)ConstD)Private(51)设计动画时一般用定期器控件(A)属性来控制动画速度。A)IntervalB)TimerC)MoveD)Enabled(52)要想在文本框中显示滚动条，则应首先将(C)属性设置为True。A)MaxLengthB)MultiLineC)ScrollBarsD)Change(53)设置文本框中能输入的字符为“*”，由下列C属性来反应。A)MaxLengthB)SellengthC)PasswordCharD)Caption(54)假如将文本框的Maxlength属性设置为0，则文本框中的字符不能超过(c)。A)8KB)16KC)32KD)64K(55)下列(B)属性用来表达标签或窗体的标题。A)TextB)CaptionC)LeftD)Name(56).选中复选框控件时，Value属性的值为(D)。A)TrueB)FalseC)0D)1(57).单击滚动条两端的任意一种滚动箭头，将触发该滚动条的(B)事件。A)KeyDownB)ChangeC)ScrollD)Click二、填空题1．请写出代数式5x2-3x–2Sin(a)/3的VisualBasic体现式5*x^2-3*x–2*Sin(a)/3。2．执行下面的程序段后，s的值为9。s=5Fori=2.6To4.9Step0.6s=s+1Nexti3．如设置对象的属性是运行期设置，设置格式为对象名.属性=属性值。4．表达x是5的倍数或是9的倍数的逻辑体现式是XMOD5=0ORXMOD9=0。6．体现式Ucase(Mid(“abCDEFghij”，3，4))的值是CDEF。7．新建工程时系统会自动将窗体标题设置为Form1。8．为了选择多种控件，可以按住shift键，然后单击每个控件。9．下列语句段在运行时显示的成果是5.Cls:x=10.38+8:printlen(x)10.下列程序功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，无意义。请在空白处填入恰当的内容，将程序补充完整。DimxassingleX=inputboa(“请输入x的值”)selectcasexCaseis<50Y=0.8*xCaseis=50,is<=100Y=0.7*xCaseelsePrint“无意义”EndselectPrintx,y11.当对象得到焦点时，会触发gotfocus事件。12．在设计阶段，当双击窗体上的某个控件时，打开的窗口是代码窗口。13．在窗体上画一种标签（名称为Label1）和一种计时器（名称为Timer1），然后编写如下几种事件过程：PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=1000EndSubPrivateSubForm_Click()Timer1.Enabled=trueEndSubPrivateSubTimer1_Timer()Label1.Caption=time()EndSub程序运行后，单击窗体，将在标签中显示目前时间，每隔1秒钟变换一次。请填空。14．为了在运行时把图形文献picfile.jpg装入图片框Picture1,所使用的函数语句为picture1.picture-loadpicture(“picfile.jpg”)。15．语句printNot10>15and8>5+2的输出成果为true。16．执行下面的程序段后，b的值为300。a=300b=20a=a+bb=a-ba=a-b17．如下程序段的输出成果是123。num=0doWhilenum<=2num=num+1Printnum，loop18．设X为一种两位数，将其个位和十位数互换后所得的两位数的VB体现式是(xmod10)*10+x\10。19．语句“DimCasstring”定义的变量C，可用于寄存控件的caption的值。20．以窗体form1为为园心，画一种半径为800缇的圆的措施是circle(form1.width/2,form1.height/2),800。21.与下列数学式子对应的VisualBasic体现式是。absinXcosY22.执行如下语句后，输出成果是。a=10:b=5printa-b>023.求a与b之积除以c的余数可用体现式是。24.执行如下语句后，输出成果是。Printchr$(65)25.ＶＢ提供函数用于将字符型转换成数值。体现式Fix(-32.68)+Int(-23.02)的值为。chr(65)的值为。26.工程文献的扩展名为，窗体文献的扩展名为。27.体现式10+4*2mod6–8\5的值是：。28.面向对象程序设计是一种以为基础，由驱动对象的编程技术。三、读程序写成果1．在窗体上画一种命令按钮，然后编写如下事件过程：PrivateSubCommand1_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程序运行后，单击命令按钮，若准备依次在输入对话框中输入5、-1、6、8、20、-1，则输出成果为：272.在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一种命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrint“a=”;aEndSubPrivateSubFormm_Load()Text1.Text=""Text2.Text=""Endsub程序运行后，在第一种文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出成果为：a=1233213.在窗体上画一种名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Forn=1To20IfnMod3<>0Thenm=m+n\3NextnPrint“m=”,mEndSub程序运行后，假如单击命令按钮，则窗体上显示的内容是:m=424.在窗体上画一种命令按钮，，然后编写如下事件过程：PrivateSubCommand1_Click()S=0DoS=(s+1)*(s+2)Number=number+1Loopuntils>=30Printnumber，sEndSub程序运行后，假如单击命令按钮，则窗体上显示的内容是:31285.PrivatesubForm_Click()m=1n=2Dowhilen<4m=m*nn=n+1loopPrintmEndSub程序运行后，单击窗体，其成果是:66.在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一种命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrintaEndSubPrivateSubFormm_Load()Text1.Text=""Text2.Text=""Endsub程序运行后，在第一种文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出成果为：Text1.Text=123Text2.Text=3217．PrivateSubCommand1_Click()Dimaasinteger,Sasintegera=5:s=0Dowhilea>=0S=s+aa=a-1loopprint“s=”;s,“a=”;aEndSub成果为：S=15a=-18.PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=x+3NextjNextiPrintxEndSub成果为：139．PrivateSubCommand1_Click()Dima(5,5)asbyte,Iasbyte,jasbyteFori=1to5Forj=1to5A(I,j)=i*jNextjNext