VB复习题及参考答案.pdf

VB发习题及参考答案复习题及参考答案一、选择题 使，Microsoft”在当前窗口上输出的语句是(B)。A)Picture.print Microsoft B)print MicrosoftwC)printer.print“Microsoft”D)Debug.print Microsoft”(2)输入inputbox返回值的类型是(A)A)字 符 型B)整 型C)浮 点 型D)长整型(3)用来设置设置文本框有无滚动条的属性的值为(A)。A)Scrollbars B)Multiline C)Seltext D)sellength(4)int(rnd*50)+10表示的是(D)围的整数。A)0,50 B)1,60 C)10,60 D)10,59(5)下列各控件不包含滚动条的是(D)。A)listbox B)combobox C)textboa D)labelbox(6)为了暂时关闭计时器，应把该计时器控件的(C)属性设置为false.A)visible B)timer C)enabled D)interval(7)设置列表框选中的文本，用(C)属性。A)Selected B)List C)Text D)Caption(8)未选中复选框控件时，Value属性的值为(C)A)True B)False C)0 D)1(9)某一 VB工程含F1.F2两个窗体，执行F1.Show：F2.Hide”语句后，F1.F2窗体显示的结果为CVB发习题及参考答案A)都显示B)都不显示C)仅显示F1窗 体D)仅 显 示F2窗体(10)在窗体上画两个滚动条，名称分别为HscrolH、Hscroll2；六个标签，名称分别为 LabeH、Label2 Labe I3 Label4 Label5Label6,其中标签 Label 4 Label6 分别显示”A“、”B、“A*B”等文字信息，标签Labell、Label2分别显示其右侧的滚动条的数值，Label3显 示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对 标 签Labell、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(A)。A)Private Sub Command1_Click()Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)End SubB)Private Sub Command1_Click()Label3.Caption=HScrolH.Value*HScroll2.ValueEnd SubC)Private Sub Command1_Click()Label3.Caption=Val(Label1.Caption)*Val(Label2.Caption)End SubD)Private Sub Comma nd1_Click()Label3.Caption=HScrolH.Text*HScroll2.TextVB发习题及参考答案End Sub(11)当滚动条位于最左端或最上端时，Valve属性被设置为(A)oA)Min B)Max C)Min 与 Max 之间 D)Min 与 Max 之外(1 2)在窗体中画一个名称为tim eri的计时器控件，要求每隔0.5s发生一次计时器事件，则以下正确的属性设置语句是(D)oA)timeri.interval=0.5 B)timed.interval=5C)timeri.interval=50 D)timeri.interval=500(13)若要退出For循环，可使用的语句为(D)。A)Exit B)Exit Do C)Time D)Exit For(14)表达式样 16/4-2.5*8/4 mod 52 的值为(D)A)14 B)10 C)20 D)3(1 5)下面正确的赋值语句是(C)A)x+y=30 B)y=*r*r C)y=x+30 D)3y=x(1 6)可用于设置系统当前时间的语句是(C)。A)Date B)Date$C)Time D)Timer(17)表达式4+7 6*8/8 Mod 9 的值是(B).A)4 B)5 C)6 D)7(1 8)下列选项中不属于事件的是(C)。A)Dblclick B)Load C)Show D)Change(19)int(rnd*100)表示的是(C)围的整数。A)0,100 B)1,99 C)0,99 D)1,100VB发习题及参考答案(2 0)为了某个命令按钮无效(显灰色)，需要把该命令按钮的一个属性设置为fa ls e,这个属性是(D)。A)Value B)Default C)Cancel D)Enabled(2 1)窗体FontSize属性缺省值为(B)。A)5 B)9 C)12 D)16(22)由“FOR i=1 to 9 step-3”决定的循环结构被执行(D)次。“FOR i=10t。9 step-3”决定的循环结构被执行()次。“FOR i=1 t。9 step 3”决定的循环结构被执行()次。A)4 B)5 C)6 D)0(2 3)设计动画时通常用定时器控件的(A)属性来控制动画速度。A)interval B)timer C)move D)enabled(2 4)要使文本框显示滚动条，除了设置ScroHBars属性外还必须设置(B)属性。A)AutoSize B)multiline C)alignment D)enabled(2 5)在窗体(Name属性为Forml)上画两个文本框(其Name属性分别为T extl和T ext2)和一个命令按钮(Name属性为CommandD,然后编写如下两个事件过程：Private Sub Command1_Click()a=(Text1.Text)+(Text2.Text)Print aVB发习题及参考答案End Sub程序运行后，在第一个文本框(T extD和第二个文本框(Text2)中分别输入123和3 2 1,然后单击命令按钮，则输出结果为(C)。A)444 B)321123 C)123321 D)132231(26)下列可作为Visual Basic变量名的是(D)。A)A#A B)4A C)?xY D)constA(2 7)列表框lis tl的(B)属性返回选取定的容。A)list B)text C)captiob D)additem(2 8)用下面语句定义的数组的元素个数是(C)。Dim A(3 To 20)As IntegerA)6 B)7 C)18 D)9(29)在V B中，画点的方法是(C)oA)line B)shape C)pset D)circle(3 0)决定一个控件在窗体的左右位置的属性是(C)。A)width B)height C)left D)top(31)当图片框的AutoSize属性值为true时(C)oA)图片大小随影像框的大小进行调整 B)影像框的大小随图片大小进行调整C)图片框大小随图片的大小进行调整 D)图片大小随图片框的大小进行调整(32)RGB函数中3个数字分别表示(B)。A)红、绿、白 B)红、绿、兰 C)当前色、前景色、背景色VB发习题及参考答案D)红、黄、兰(3 3)如果在立即窗口中执行以下操作：a=8 (是回车键，下同)b=9 print ab 则输出结果是C A)-1 B)0 C)False D)True(34)FontSize属性用以设置字体大小，窗体的FontName属性缺省值为A)5 B)9 C)12 D)16(3 5)双精度变量占用(D)个字节。A)1 B)2 C)4 D)8(36)表达式9 mod 2A2+2的值是(B)A)4 B)3 C)2 D)1(37)阅读下面的程序段：Private Sub Form_Click()a=2For i=1 To 2a=a*iNext iEnd Sub执行上面的循环后，a的值为(C)VB发习题及参考答案A)2 B)3 C)4 D)8(38)lnt(rnd*10)表 示 的 是 C 围的整数。A)0,10 B)1,9 C)0,9 D)1,10(39)lnteger类型数据能够表示的最大整数为()A)215 B)215-1 C)216 D)216-1(40)输入对话框InputBox的返回值的类型是AA)字符串 B)整数 C)浮点数 D)长整数(41)由“For i=1 to 16 step 3”决定的循环结构被执行(C)次A)4 B)5 C)6 D)7(42)若 I 的初值为5,则下列循环语句的循环次数为(B)次。while K10l=l+2WendA)2 B)3 C)4 D)5(43)窗体的FontName属性的缺省值是()A)宋体 B)仿宋体 C)楷体 D)黑体(44)决定窗体标题容的属性是(D)A)Text B)Name C)Alignment D)Caption(45)将命令按钮设置Commandl为窗体的取消按钮，可修改该控件的(D)属性。VB发习题及参考答案A)Enabled B)Value C)Default D)Cancel(46)将焦点主动设置到指定的控件或窗体上，应采用(B)方法。A)SetDate B)SetFocus C)SetText D)GetGata(47)将计时器的时间间隔设置为0.1秒，则Interval的属性值是(C)A)1 B)1000 C)100 D)10(48)决定标签容显示对齐方式的属性是(C)A)Text B)Name C)Alignment D)Caption(49)若要在同一窗体中安排两组单选按钮，可用控件(B)予以分隔。A)文本框 B)框架 C)列表框 D)组合框(50)下列(A)语句不能用于变量说明。A)Dim B)Public C)Const D)Private(51)设计动画时通常用定时器控件(A)属性来控制动画速度。A)lnterval B)Timer C)Move D)Enabled(52)要想在文本框中显示滚动条，则应首先将(C)属性设置为True。A)MaxLength B)MultiLine C)ScrollBarsD)ChangeVB发习题及参考答案(53)设置文本框中能输入的字符为“*，由下列 C属性来反应。A)MaxLength B)Sellength C)PasswordCharD)Caption(54)如果将文本框的Maxlength属性设置为0,则文本框中的字符不能超过(c)oA)8K B)16K C)32K D)64K(55)下列(B)属性用来表示标签或窗体的标题。A)Text B)Caption C)Left D)Name(56).选中复选框控件时，Value属性的值为(D)。A)True B)False C)0 D)1(57).单击滚动条两端的任意一个滚动箭头，将触发该滚动条的(B)事件。A)KeyDown B)Change C)Scroll D)Click二、填空题1.请写出代数式5x2-3x-2Sin(a)/3的Visual Basic表达也5*x2-3*x 二 2*Sin(a)/32.执行下面的程序段后，s的值为 9s=5For i=2.6 To 4.9 Step 0.6s=s+1VB发习题及参考答案Next i3.如设置对象的属性是运行期设置，设置格式为 对象名.属性=属 性 值。4.表示x是5的倍数或是9的倍数的逻辑表达式是X 4 g D一5=0 OR X MOD 9=06.表 达 式 Ucase(Mid(“abCDEFghij”,3,4)的 值 是CDEF o7 .新 建 工 程 时 系 统 会 自 动 将 窗 体 标 题 设 置 为Forml o8.为了选择多个控件，可以按住 shift 键,然后单击每个控件。9.下列语句段在运行时显示的结果是 5.Cis:x=10.38+8:print len(x)10.下列程序功能是：当XV50时，y=0.8xx；当500 x0100时，y=0.7xx；当x100时，无意义。请在空白处填入恰当的容，将程序补充完整。Dim x as singleX=inputboa(“请输入x的值”)select case xCase is 50VB发习题及参考答案Y=0.8*xCase is=50,is15 and 85+2 的输出结果为true o16.执行下面的程序段后，b的值为300oa=300b=20a=a+bb=a-ba=a-b17.以下程序段的输出结果是1 23。num=0do While num023.求a与b之积除以c的余数可用表达式是 o24.执行以下语句后，输出结果是 oPrint chr$(65)25.V B提供 函数用于将字符型转换成数值。表达式 Fix(-32.68)+lnt(-23.02)的值为。chr(65)的值为 O26.工程文件的扩展名为，窗体文件的扩展名VB发习题及参考答案为。27.表达式 10+4*2 mod 6-85 的值是：o28.面向对象程序设计是一种以 为基础,由 驱动对象的编程技术。三、读程序写结果1.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-1a=lnputBox(“请输入A 的值”)a=Val(a)b=lnputBox(“请输入B 的值”)b=Val(b)x=lnputBox(“请输入x 的值”)x=Val(x)a=a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，若准备依次在输入对话框中输入5、1、6、8、20、则输出结果为:VB发习题及参考答案272.在窗体（Name属 性 为Forml）上画两个文本框（其Name属性 分 别 为Textl和Text2）和 一 个 命 令 按 钮（Name属性为CommandD,然后编写如下两个事件过程：Private Sub Command1_Click（）a=Text1.Text+Text2.TextPrint“a=;aEnd SubPrivate Sub Formm_Load（）Textl.Text=Text2.Text=End sub程序运行后，在第一个文本框（Textl）和第二个文本框（Text2）中分别输入123和3 2 1,然后单击命令按钮，则输出结果为：a=1233213.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()VB发习题及参考答案For n=1 To 20If n Mod 3 0 Then m=m+n 3Next nPrint“m=，mEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的容是:m=424.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()S=0DoS=(s+1)*(s+2)Number=number+1Loop until s=30Print number,sEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的容是:3 1285.Private sub Form_Click()VB发习题及参考答案m=1n=2Do while n=0S=s+aa=a-1loopprint“s=”；s,a=；aEnd Sub结果为：S=15 a=-18.Private Sub Command1_Click()For i=1 To 4x=4Forj=1 To 3VB发习题及参考答案x=x+3Next jNext iPrint xEnd Sub结果为：139.Private Sub Command1_Click()Dim a(5,5)as byte,I as byte,j as byteFor i=1 to 5Forj=1to 5A(l,j)=i*jNext jNext iFor i=1 to 5Print a(i,i);Next iEnd sub结果为：1 4 9 16 25VB发习题及参考答案10.Private Sub Command1_Click()X=8.267Y=lnt(x*10+0.5)/10Print yEnd Sub程序运行后，单击命令按钮，输出结果是 O11.Private Sub Command1_Click()Dim m As Long,n As Long,r As Longm=val(Textl.Text)n=val(Text2.Text)r=m mod nWhile n0m=n:n=rr=m Mod n:WendPrint nEnd Sub写出在文本框1和文本框2中分别输入48,36后，单击Commandl的结果。VB发习题及参考答案四、编程题1.用100元人民币买100只鸡，公鸡3元1只，母鸡5元1只，小鸡1元3只，请用V B编程其算法，显示出100元能买公鸡、母鸡、小鸡数。Private Sub Command1_Click()For i=1 to 33For j=1 to 20If i*3+j*5+(100-i-j)*1/3=100 thenPrint“公鸡数为”;I,“母鸡数为”；j,“小鸡数为”;100-i-jEnd ifNext jNext iEnd sub2.计算下列之和首次大于5000时的n的值。S=1+2A1+2A2+2A3+2A4+2An 请编程。VB发习题及参考答案3.编程，输 入x 的值，按下式计算并输出y 的值。X+5 x5 X2 1x5Y=-*0 x10 x5Y=x+5Case is=1,is=5Y=x*xCase is0VB发习题及参考答案Y=sqr(x)Case elseY=0End selectPrint“y=”；y方法二：X=val(inputbox(“x=”)If x5 thenY=x+5Elseif x=1 and x=5 thenY=x*xElseif x0 thenY=sqr(x)elseY=0End ifPrint“y=”；y