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)Scrollbars B)Multiline C)Seltext D)sellength(4)int(rnd*50)+10表示的是（ D ）范

2、围内的整数。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

3、两个窗体，执行“F1Show：F2Hide”语句后，F1. F2窗体显示的结果为C。A) 都显示 B) 都不显示 C) 仅显示F1窗体 D) 仅显示F2窗体(10) 在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Labe l3、Label4、Label5、Label6，其中标签Label 4 Label6分别显示A、B、A*B等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮计算时，对标签Label1、Lab

4、el2中显示的两个值求积，并将结果显示在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.Value * HScroll2.ValueEnd SubC）Private Sub Command1_Click() Label3.Caption = Val(Label1. Ca

5、ption )*Val( Label2.Caption) End SubD）Private Sub Comma nd1_Click() Label3.Caption = HScroll1.Text * HScroll2.Text End Sub(11)当滚动条位于最左端或最上端时，Valve属性被设置为（ A ）。A）Min B）Max C）Min与Max之间 D）Min与Max之外（12）在窗体中画一个名称为 timer1的计时器控件，要求每隔0.5s发生一次计时器事件，则以下正确的属性设置语句是（ D ）。A）erval=0.5 B）erval=5C

6、）erval=50 D）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= *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

7、Mod 9 的值是（ B ）。A) 4 B) 5 C) 6 D) 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) 为了某个命令按钮无效（显灰色），需要把该命令按钮的一个属性设置为false，这个属性是（ D ）。A) Value B) Default C) Cancel D) Enabled(21) 窗体FontSize属性缺省值为（ B ）。 A) 5 B) 9 C) 12 D) 16(22)

8、 由“FOR i=1 to 9 step -3”决定的循环结构被执行（ D ）次。“FOR i=10 to 9 step -3”决定的循环结构被执行（ ）次。“FOR i=1 to 9 step 3”决定的循环结构被执行（ ）次。A) 4 B)5 C) 6 D) 0(23) 设计动画时通常用定时器控件的（ A ）属性来控制动画速度。A) interval B)timer C) move D) enabled(24) 要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置（ B ）属性。A) AutoSize B)multiline C) alignment D) enabled(2

9、5) 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a=(Text1.Text)+(Text2.Text)Print aEnd Sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（ C ）。A) 444 B) 321123 C) 123321 D) 132231(26) 下列可作为Visual Basic变量名的是（ D ）。A)A#A

10、 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) lineB) shapeC) psetD) circle(30) 决定一个控件在窗体的左右位置的属性是（ C ）。A) widthB) heightC) leftD) top(31) 当图片框的AutoSize 属性值为true时（ C ）。A

11、)图片大小随影像框的大小进行调整B)影像框的大小随图片大小进行调整C)图片框大小随图片的大小进行调整D)图片大小随图片框的大小进行调整(32) RGB函数中3个数字分别表示（ B ）。A)红、绿、白 B)红、绿、兰C)当前色、前景色、背景色D)红、黄、兰(33) 如果在立即窗口中执行以下操作：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(35) 双精度变量占用( D )个字节。 A)1 B)2 C)4

12、 D)8(36)表达式9 mod 22+2的值是( B ) A)4 B)3 C)2 D)1(37)阅读下面的程序段：Private Sub Form_Click()a=2For i = 1 To 2 a = a *iNext iEnd Sub执行上面的循环后，a的值为( C ) A)2 B)3 C)4 D)8(38)Int(rnd*10)表示的是 C 范围内的整数。 A)0,10 B)1,9 C)0,9 D)1,10(39)Integer类型数据能够表示的最大整数为（ ） A)215 B)215 -1 C)216 D)216-1(40)输入对话框InputBox的返回值的类型是 A A)字符串

13、 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 I10I=I+2Wend A)2 B)3 C)4 D)5(43)窗体的FontName属性的缺省值是( ) A)宋体 B)仿宋体 C)楷体 D)黑体(44)决定窗体标题内容的属性是( D ) A)Text B)Name C)Alignment D)Caption(45)将命令按钮设置Command1为窗体的取消按钮，可修改该控件的 ( D ) 属性。A)Enabl

14、ed 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 )语句不能用于

15、变量说明。A)Dim B)Public C)Const D)Private(51)设计动画时通常用定时器控件( A )属性来控制动画速度。A)Interval B)Timer C)Move D)Enabled(52)要想在文本框中显示滚动条，则应首先将( C )属性设置为True。A)MaxLength B)MultiLine C)ScrollBars D)Change(53)设置文本框中能输入的字符为“*”，由下列 C 属性来反应。A)MaxLength B)Sellength C)PasswordChar D)Caption(54)如果将文本框的Maxlength属性设置为0，则文本框中的

16、字符不能超过( c )。 A)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-3x2Sin(a)/3的Visual Basic表达式 5*x2-3*x2*Sin(a)/3 。2执行下面的程序段后，s的值为 9

17、。s = 5For i = 2.6 To 4.9 Step 0.6s = s+1Next i3如设置对象的属性是运行期设置，设置格式为 对象名.属性=属性值 。4表示x是5的倍数或是9的倍数的逻辑表达式是 X MOD 5=0 OR X MOD 9=0 。6表达式Ucase(Mid(“abCDEFghij”，3，4)的值是 CDEF 。7新建工程时系统会自动将窗体标题设置为 Form1 。8为了选择多个控件，可以按住 shift 键，然后单击每个控件。9下列语句段在运行时显示的结果是 5 .Cls: x=10.38+8 : print len(x)10.下列程序功能是：当x100时，无意义。请在

18、空白处填入恰当的内容，将程序补充完整。 Dim x as single X=inputboa(“请输入 x的值”) select case x Case is 50Y=0.8*xCase is=50,is15 and 85+2的输出结果为 true 。16执行下面的程序段后，b的值为 300 。a=300b=20a=a+bb=a-ba=a-b17以下程序段的输出结果是 1 2 3 。num=0do While num023.求a与b之积除以c的余数可用表达式是 。24.执行以下语句后，输出结果是 。 Print chr$(65)25. 提供 函数用于将字符型转换成数值。表达式Fix(-32.6

19、8)+Int(-23.02)的值为 。chr(65)的值为 。26.工程文件的扩展名为 ，窗体文件的扩展名为 。27.表达式10+4*2 mod 6 85的值是： 。28.面向对象程序设计是一种以 为基础，由 驱动对象的编程技术。三、读程序写结果1在窗体上画一个命令按钮，然后编写如下事件过程：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+xLoop

20、Print aEnd Sub程序运行后，单击命令按钮，若准备依次在输入对话框中输入5、-1、6、8、20、-1，则输出结果为：272.在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint “a=”;aEnd SubPrivate Sub Formm_Load()Text1.Text=Text2.Text=End sub程序运行后，在第一个文本框（Text1）和第二个

21、文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为：a=1233213.在窗体上画一个 名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3 0 Then m = m + n 3Next nPrint “m=”,m End Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是:m= 424.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()S=0DoS=(s+1)*(s+2)Number=number+1

22、Loop until s=30Print number，sEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是:3 1285. Private sub Form_Click( )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=4For j =1 To 3x=x+3Next jNext iPrint xEnd Sub结果为：139Private Sub Command1_Click()Dim a(5,5) as byte,I as byte,j as byteFor i=1 to 5 For j=1 to 5A(I,j)=i*jNext jNext iFor i=1 to 5 Print a(i,i);Next iEnd sub结果为：1 4 9 16 2510.Private Sub Command1_Click()X=8.267Y= Int(x*10+0