VB复习题及参考答案

1、复习题及参考答案一、选择题(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*5

2、0)+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

3、) False C ) 0 D ) 1(9)某一 VB工程含F1. F2两个窗体，执行"F1. Show F2. Hide” 语句后，F1. F2窗体显示的结果为C 。A)都显示B)都不显示C)仅显示F1窗体D)仅显示F2窗体(10)在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2 ; 六个标签，名称分别为 Labell、Label2、Labe 13、Label4、Label5、 Labe16,其中标签 Label 4 Labe16 分别显示"A"、"B"、"A*B”等文 字信息，标签 Labell、Labe12分别

4、显示其右侧的滚动条的数值， Labe13显示A*B的计算结果。当移动滚动框时，在相应的标签中显 示滚动条的值。当单击命令按钮"计算"时，对标签Labell、Labe12 中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(A )。A) Private Sub Command1_Click()Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption) End SubB) Private Sub Command1_Click()Label3.Caption = HScroll1.V

5、alue * HScroll2.Value End SubC) Private Sub Command1_Click()Label3.Caption = Val(Label1.Caption )*Val( Label2.Caption)End SubD) Private Sub Comma nd1_Click()Label3.Caption = HScroll1.Text * HScroll2.TextEnd Sub(11) 当滚动条位于最左端或最上端时，Valve 属性被设置为( A )。A) Min B ) Max C) Min与Max间 D ) Min与Max外( 12)在窗体中画一个名

6、称为timer1 的计时器控件，要求每隔0.5s 发生一次计时器事件，则以下正确的属性设置语句是( D )A) erval=0.5 B) erval=5C) erval=50D) erval=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( 15)下面正确的赋值语句是(C )A) x+y=30 B) y= *

7、r*r C) y=x+30 D) 3y=x(16) 可用于设置系统当前时间的语句是(C ) 。A)Date B) Date$ C) Time D) Timer(17) 表达式 4+7 6 * 8 / 8 Mod 9 的值是(B ) 。A) 4B) 5C) 6D) 7(18) 下列选项中不属于事件的是(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 ， 100(20) 为了某个命令按钮无效(显灰色)， 需要把该命令按钮的一个属性设置为fa

8、lse ，这个属性是(D ) 。A) Value B) Default C) Cancel D) Enabled(21) 窗体 FontSize 属性缺省值为(B ) 。A) 5 B) 9 C) 12 D) 16(22) 由“ FORi=1 to 9 step -3”决定的循环结构被执行( D ) 次。(23) FOR i=10 to 9 step -3 ”决定的循环结构被执行( )次。(24) FOR i=1 to 9 step 3 ”决定的循环结构被执行( )次。A) 4B)5 C) 6 D) 0(23) 设计动画时通常用定时器控件的(A )属性来控制动画速度。A) interval B)

9、timer C) move D) enabled(24) 要使文本框显示滚动条，除了设置ScrollBars 属性外还必须设置(B )属性。A) AutoSizeB)multilineC) alignmentD)enabled(25)在窗体(Name属性为Forml)上画两个文本框(其NameS性 分别为Textl和Text2)和一个命令按钮(Name属性为Commanc$1, 然后编写如下两个事件过程：Private Sub Command1_Click()a=(Text1.Text)+(Text2.Text)Print aEnd Sub程序运行后，在第一个文本框( Text1 ) 和第二个

10、文本框( Text2 )中分别输入123 和321， 然后单击命令按钮，则输出结果为( C ) 。A) 444B) 321123 C) 123321 D) 132231(26) 下列可作为Visual Basic 变量名的是(D )。A)A#A B)4A C)?xY D)constA(27) 列表框 list1 的( B )属性返回选取定的内容。A)list B)text C)captiob D)additem(28 ) 用下面语句定义的数组的元素个数是(C )。Dim A (3 To 20) As IntegerA) 6B) 7C) 18D) 9(29) 在VB中，画点的方法是( C )。A

11、) lineB) shapeC) psetD)circle(30) 决定一个控件在窗体的左右位置的属性是(C )。A) width B) 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=

12、9 <CR>print a>b <CR>则输出结果是 C 。A) -1B) 0C) False D) True(34) FontSize属性用以设置字体大小，窗体的 FontName属性 缺省值为A)5 B)9C)12D)16(35)双精度变量占用(D ) 个字节。A)1B)2C)4D)8(36)表达式9 mod 2八2+2的值是(B )A)4B)3C)2 D)1(37)阅读下面的程序段：Private Sub Form_Click() a=2Fori = 1 To 2a = a *iNext iEnd Sub执行上面的循环后，a 的值为 ( C )A)2B)3

13、C)4D)8(38)Int(rnd*10) 表示的是C 范围内的整数。A)0,10B)1,9C)0,9D)1,10(39)Integer 类型数据能够表示的最大整数为()A)215B)215 -1C)216D)216-1(40) 输入对话框InputBox 的返回值的类型是AA) 字符串B) 整数 C) 浮点数D) 长整数(41) 由 “ For i=1 to 16 step 3” 决定的循环结构被执行( C )A)4B)5C)6 D)7(42) 若 I 的初值为5， 则下列循环语句的循环次数为( B )while I<10I=I+2Wend'A)2 B)3 C)4 D)5(43

14、)窗体的FontName属性的缺省值是()A)宋体 B) 仿宋体 C) 楷体D)黑体(44) 决定窗体标题内容的属性是( D )A)Text B)Name C)Alignment D)Caption(45)将命令按钮设置Commandl窗体的取消按钮，可修改该控 件的 ( D ) 属性。A)Enabled B)Value C)Default D)Cancel(46) 将焦点主动设置到指定的控件或窗体上，应采用 ( B )方法。A)SetDate B)SetFocus C)SetText D)GetGata(47) 将计时器的时间间隔设置为0.1 秒， 则 Interval 的属性值是 ( C

15、)A)1 B)1000 C)100 D)10(48) 决定标签内容显示对齐方式的属性是( C )A)Text B)Name C)Alignment D)Caption(49) 若要在同一窗体中安排两组单选按钮，可用控件 ( B )予以分隔。A)文本框 B)框架 C)歹U表框D) 组合框(50) 下列 ( A ) 语句不能用于变量说明。A)Dim B)Public C)Const D)Private(51) 设计动画时通常用定时器控件( A ) 属性来控制动画速度。A)Interval B)Timer C)Move D)Enabled(52)要想在文本框中显示滚动条，则应首先将(C )属性设置为

16、 True。A)MaxLength B)MultiLine C)ScrollBarsD)Change(53)设置文本框中能输入的字符为“ *； 由下列 C 属性来 反应。A)MaxLength B)Sellength C)PasswordChar D)Caption(54)如果将文本框的Maxlength属性设置为0,则文本框中的字 符不能超过(c )。A)8K B)16KC)32K D)64K(55)下列(B )属性用来表示标签或窗体的标题。A)Text B)Caption C)Left D)Name(56) .选中复选框控件时，Value属性的值为(D )。A)True B)False C

17、)0D)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的值为 9 。5 = 5For i = 2.6 To 4.9 Step 0.66 = s+1Next i3 .如设置对象的属性是运行期设置，设置格式为对象名.属性=属性值 。4 .表示x是5的倍数或是9的倍数的逻辑表达式是 X MO15=0 ORX MOD 9=06 .表达式

18、 Ucase(Mid( "abCDEFghij" ，3 , 4)的值是 CDEF。7 .新建工程时系统会自动将窗体标题设置为 Form1。8 .为了选择多个控件，可以按住 shift 键，然后单击每个控件。9 .下列语句段在运行时显示的结果是5.Cls: x=10.38+8 : print len(x)10 .下列程序功能是：当x<50时，y=0.8Xx；当50WxW100时， y=0.7Xx；当x>100时，无意义。请在空白处填入恰当的内容，将程 序补充完整。10Dim x as singleX=inputboa（ “请输入x的值”）select case x

19、Case is <50Y=0.8*xCase is=50,is<=100Y=0.7*xCase elsePrint“无意义”End selectPrint x,y11 .当对象得到焦点时，会触发 gotfocus 事件。12 .在设计阶段，当双击窗体上的某个控件时，打开的窗口是 代码 窗口。13 .在窗体上画一个标签（名称为Label1 ）和一个计时器（名称为Timer1）,然后编写如下几个事件过程：Private Sub Form_Load（）Timer1.Enabled = FalseTimer1.Interval = 1000End SubPrivate Sub Form_C

20、lick（）Timer1.Enabled = trueiiEnd SubPrivate Sub Timer1_Timer()Labell.Caption = time()End Sub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟 变换一次。请填空。14 .为了在运行时把图形文件 picfile.jpg装入图片框Picturel,所使用的函数语句为picture1.picture-loadpicture( "picfile .jpg")15 .语句 print Not 10>15 and 8>5+2 的输出结果为true。16 .执行下面的程序段后，b

21、的值为300。a=300b=20a=a+bb=a-ba=a-b17 .以下程序段的输出结果是12num=0do While num<=2num=num+1Print num ,loop18 .设X为一个两位数，将其个位和十位数交换后所得的两位数 的VB表达式是 (x mod 10)*10+x10。19 . 语句“Dim C as string "定义的变量 C,可用 于存放控件的caption的值。20 .以窗体form1为为园心，画一个半径为 800尖的圆的方法是 circle(form1.width/2,form1.height/2),800。21 .与下列数学式子对应的

22、Visual Basic 表达式是。 absinXcosY22 .执行以下语句后，输出结果是。a=10:b=5print a-b>023 .求a与b之积除以c的余数可用表达式是 24 .执行以下语句后，输出结果是 。Print chr$(65)25 . VB提供 函数用于将字符型转换成数值。表达式 Fix(-32.68)+Int(-23.02) 的值为 。 chr(65) 的值为。26 .工程文件的扩展名为,窗体文件的扩展名 为。27 .表达式 10+4*2 mod 6 - 85 的值是： -28 .面向对象程序设计是一种以 为基础，由 驱动对象的编程技术。三、读程序写结果1.在窗体上画

23、一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-1a = InputBox( “请输入 A的值”)a = Val(a)b = InputBox( “请输入B的值”)b = Val(b)x = InputBox( “请输入x的值”)x = Val(x)a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，若准备依次在输入对话框中输入5、-1 、 6、 8、 20、 -1 ，则输出结果为：272 .在窗体（Name属性为Forml）上画两个文本框（其 Nameil性分 别为Textl和Text2）和

24、一个命令按钮（Name属性为Command1 1,然 后编写如下两个事件过程：Private Sub Command1_Click（）a=Text1.Text+Text2.TextPrint “a =” ;aEnd SubPrivate Sub Formm_Load（）Text1.Text=""Text2.Text=""End sub程序运行后，在第一个文本框（ Text1 ） 和第二个文本框（ Text2 ）中分别输入123和 321，然后单击命令按钮，则输出结果为：a=1233213 .在窗体上画一个 名称为Command的命令按钮，然后编写如下 事

25、件过程：Private Sub Command1_Click()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程序运行后，如果单击命令按钮，则窗体上显示的内容是128

26、5 . Private sub Form_Click（ ）m=1n=2Do while n<4m=m*nn=n+1loopPrint mEnd Sub程序运行后，单击窗体，其结果是:66 .在窗体（Name属性为Forml）上画两个文本框（其Nameil性分 别为Textl和Text2）和一个命令按钮（Name属性为Command1 1,然 后编写如下两个事件过程：Private Sub Command1_Click（）a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Formm_Load()Text1.Text=""T

27、ext2.Text=""End sub程序运行后，在第一个文本框( Text1 ) 和第二个文本框( Text2 )123 和 321，然后单击命令按钮，则输出结果为：Text1.Text=123Text2.Text=3217 Private Sub Command1_Click()Dim a as integer,S as integera=5:s=0Do while a>=0S=s+aa=a-1loopprint “ s=” ;s, “ a=” ;aEnd Sub结果为：S=15a=-18 .Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3x=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 5For j=1 to 5A(I,j)=i*jNext jNext iFor i=1 to 5Print a(i,i);Next iEnd sub结果为：1 4 9 16 2510 .Private Sub Command1_Click()X=8.267Y=