计算机题目3

52453 .下拉组合框和简单组合框(Style=0/l)时，允许用户输入那些不在列表中的选项。√ 52454 .多文档应用中打开多个子窗体时，可以将父窗体最小化，而子窗体仍然保持原来的位置和大小。× 52455 .在MDI应用程序中，每一个子窗体的菜单都只能显示在子窗体内。× 52456 .所有变量(Public/Dim/Static/Private)都可以放到窗体的通用部分定义。× 52457 .在菜单编辑器中使用\索引\时，可有一组菜单项具有相同的\名字\。√ 52458 .三种方式的组合框都允许用户输入那些不在列表中的选项。× 52459 .垂直滚动条的最上端代表最大值(MAX)，最下端代表最小值(MIN)。× 52460 .当有鼠标拖动滚动条时，既产生Change事件，又产生Scroll事件。√ 52461 .能够将文本框控件隐藏起来的属性是visible。√ 52462 .能够改变复选框中背景颜色的属性是BackColor。√ 52463.变量名第一个字符必须不能是数字√ 52464.浮点类型数据包括单精度型和【双精度】类型数据。 52465.菜单控件只包含一个事件，即(C)时间，当用鼠标单击或键盘选中后按\回车\键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件(单) A.GotFocus B.Load C.Click D.KeyDown 52466.滚动条控件的Max属性所设置的是(A)(单) A.滚动块处于最右位置时，滚动条为最大值 B.单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C.单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D.滚动条控件无该属性 52467.以下选项中，不属于标签的属性是(C)(单) A.Enabled B.Caption C.Default D.Font 52468.要求改变命令按钮显示的文字，应当在属性窗口中改变的属性是(A)(单) A.Caption B.Name C.Text D.Label 52469.设置一个单选按钮(optionbutton)所代表选项的选中状态，应当在属性窗口中改变的属性是(D)(单) A.Caption B.Name C.Text D.Value 52470.允许在菜单项的左边设置打勾标记，下面哪种论述是正确的(C)(单) A.在标题项中输入＆然后打勾 B.在索引项中打勾 C.在有效项中打勾 D.在复选项中打勾 52471.当执行以下过程时，在窗体上将显示(A)(单) Private Sub Commandl_Click( ) Print \Print \Print \End Sub A.VB Hello！VB B.VB 回车 Hello！VB 回车 C.VB 回车 Hello VB 回车 D.VB 回车 Hello！回车 VB 回车 52472 .子过程不返回与其子过程名的值。√ 52473 .表达式(8＋6)^(4/(－2))－5*(C＋D)是正确的。√ 52474 .Visual Basic正确的表达式为：5＋Sin2(c＋d) × 52475 .创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件属性(3)编写代码。√

52476 .所谓文件是指存放在内存的数据和程序等。× 52477 .多文档界面(Multiple Document Interface)是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，如果父窗口关闭，则所有子窗口全部关闭。√ 52478 .选中一个窗体，启动菜单编辑器的方法有：(1)使用菜单上[工具]/[菜单编辑器](2)使用工具栏上菜单编辑器按纽(3)键盘快捷键CTRL＋E √ 52479 .子过程是没有返回值的过程。又常被称为Sub过程。在事件过程或其它子过程中可以按名称调用过程。√ 52480 .设 A=5，B=6，C=7，D=8，计算表达式的值是True。A＞ B Or Not (C ＞ D)√ 52481.下列程序的运行结果是【55】。 Private Sub Command1_Click( ) dim Sum As Integer For c = 1 To 10 Sum = Sum + c Next c Print Sum End Sub 52482.滚动条控件的Largechange属性所设置的是(A)(单) A.单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量 B.滚动条中滚动块的最大位置的值 C.滚动条中滚动块的最小位置的值 D.滚动条控件无该属性 52483.在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。√ 52484 .表达式128÷4＋COS(28°) 是正确的Visual Basic表达式。√ 52485 .正确的Visual Basic表达式为：3cos(c+d)2 或 3*cos(c+d)*cos(c+d) × 52486 .VB程序语言两个基本特点是：面向对象和事件驱动编程。√ 52487 .随机文件类长度相等。√ 52488 .在VB6中包括四个文件控件，它们分别是DriveListBox控件、DirListBox控件、FileListBox控件和Commanddialog控件。× 52489 .莱单中列出了最近使用过的文件名就是动态菜单。√ 52490 .按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。× 52491 .函数过程(Function Procedure)用来完成特定的功能但不返回相应的结果。× 52492 .设A=3，B=4，C=5，D=6，计算表达式 A＞B AND C＜=D OR 2*A＞C的值是False。× 52493.Private Sub Commandl_Click( ) Textl.Text= \努力\End Sub Private Sub Command2_C1ick( ) Textl.Text = \学习\End Sub 单击Command2按钮，又单击Command1按钮，在文本框中显示【努力】。 52494.VB表达式Sqr(a+b)-3*2中优先进行运算的符号是(D)(单) A.Sqr函数 B.+ C.- D.* 52495.以下不具有Picture属性的对象是(D)(单) A.窗体 B.图片框 C.图像框 D.文本框 52496.系统符号常量的定义可以通过(A)获得(单) A.对象浏览器 B.代码窗口 C.属性窗口 D.工具箱 52497.下面是定义整型数据的关键字的是(A)(单) A.integer B.float C.single D.double

③关系运算混合在一起的表达式(无括号)52498.定义长整型数据的关键字是(B)(单) 中，其运算顺序为(C)(单) A.integer B.Long C.single A.①②③ B.③②① C.②③① D.double 52499.表达式2*4^2-2*6/3+3的值是(D)(单) A.28 B.29 C.30 D.31 52500.在用菜单编辑器设计菜单时，必须输入的项是(D)(单) A.快捷键 B.标题 C.索引 D.名称 52501.下列语句正确的是(B)(单) A.If X≠Y Then Print \不等于Y\B.If X＜＞Y Then Print \不等于Y\C.If X＞＜Y Print \不等于Y\D.If X≠Y Print \不等于Y\ 52502.已知X＜Y，A＞B，正确表示它们之间关系的式子是(C)(单) A.Sgn(Y－X)－Sgn(A－B) ＞ 0 B.Sgn(Y－X)－Sgn(A－B) ＝－2 C.Sgn(Y－X)－Sgn(A－B) ＝ 0 D.Sgn(Y－X)－Sgn(A－B) ＝－1 52503.ComboBox组合框的是什么类型的组合框由(A)属性确定(单) A.Style B.visible C.Enabled D.DragMode 52504.如果X的值小于或等于Y的平方，则打印\，表示这个条件的单行格式If语句是(D)(单) A.If x＜＝y2 Then Print ″OK″ B.If x＜＝y＾2 Print ″OK″ C.If x＜＝y＾2 Then ″OK″ D.If x＜＝y＾2 Then Print ″OK″ 52505.要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性(D)(单) A.Dir B.Path C.Drive D.FileName 52506.取出1至6之间的随机整数的表达式是(B)(单) A.Int(6*Rnd) B.Int(1+6*Rnd) C.Int(6*Rnd-1) D.Int(7*Rnd-1) 52507.在一个有①逻辑运算②算术运算及D.②①③ 52508.逻辑与(And)运算的结果为\真\，与它所连接的两个条件正确的是(C)(单) A.前一个为\真\，后一个为\假\B.前一个为\假\，后一个也为\假\C.前一个为\真\，后一个也为\真\D.前一个为\假\，后一个为\真\ 52509.下列运算结果中，值最大的是(A)(单) A.3.5 B.3/4 C.4 Mod 3 D.3 Mod 4 52510.在Do Until＜表达式＞?Loop循环中，判断循环表达式与结束循环的关系是(B)(单) A.先判断循环表达式，当表达式值为假时结束循环 B.先判断循环表达式，当表达式值为真时结束循环 C.先执行循环体，后判断循环表达式，当表达式值为假时结束循环 D.先执行循环体，后判断循环表达式，当表达式值为真时结束循环 52511.在Do While＜表达式＞......Loop循环中，判断循环表达式与结束循环的关系是(B)(单) A.先判断循环表达式，当表达式值为假时执行循环 B.先判断循环表达式，当表达式值为真时执行循环 C.先执行循环体，后判断循环表达式 D.无论循环体表达式的值真假与否，循环体至少执行一次 52512.当函数EOF( )的返回值为-1时，表示文件的指针指向(B)(单) A.开头 B.结尾 C.第一个记录 D.最后一个记录 52513.设a=6，则执行x=Iif(a＞5,-1,0)后,x的值为(D)(单) A.5 B.6 C.0 D.-1 52514.为显示弹出式菜单，可以使用【Popupmenu】方法。

52515.在窗体(Name属性为Formal)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click( ) A = Text.Text + Text2.Text Print a End Sub Private Sub Formm_Load( ) Text1.Text =\Text2.Text =\End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为(C)(单) A.444 B.321123 C.123321 D.132231 52516.阅读下面的程序段： For I = 1 To 3 For j = 1 To I For k = j To 3 A=A+1 Next k Next j Next I 执行上面的三重循环后，a的值为(C)(单) A.3 B.9 C.14 D.21 52517.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下的事件过程： Private Sub Command1_Click( ) X = 0 Do While x＜50 X = ( x + 2 ) * ( x + 3 ) N = n+1 Loop Text1.Text = Str(n) Text2.Text = Str(x) End Sub 程序执行后，单击命令按钮，在两个文本框中显示的值分别为(B)(单) A.1和0 B.2和72 C.3和50 D.4和168 52518.假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为(A)(单) A.Lable1.BackStyle = 0：Lable1.BorderStyle = 0 B.Lable1.BackStyle = 1：Lable1.BorderStyle = 1 C.Lable1.BackStyle = true：Lable1.BorderStyle = true D.Lable1.BackStyle = Flase：Lable1.BorderStyle = False 52519.对窗体编写如下代码： Option Base 1 Private Sub Form_KeyPress (KeyAscii As Integet) A = Array (237,126,87,48,498) M1 = a (1) M2 = 1

If KeyAscii = 13 Then For c = 2 To 5 If a (c)＞m1 then M1 = a(c) M2 = c End if Next c End if Print m1 Print m2 End Sub 程序执行后按回车键，输出结果为(C)(单) A.48 4 B.237 1 C.498 5 D.498 4 52520.执行下面的程序段后，s的值为【20】。s = 5 For c = 2 To 9 Step 3 s = s + c Next c Print s 52521.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【-】。 52522.假定建立一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2。 Private Sub Command1_Click( ) 【Unload】 Form1 Form2. Show End Sub

52523.在表达式y=InputBox (\中，(A)部分不能省略(单) A.a B.b C.c D.都不能省略 52524.按照文件的存取方式及其组成结构，文件可以分为：顺序文件、二进制文件和【随机】文件。 52525.以下叙述正确的是(A)(单) A.组合框包含了列表框的功能 B.列表框包含了组合框的功能 C.列表框和组合框的功能无相近之处 D.列表框和组合框的功能完全相同 52526.把数值123转换为字符\时应该使用的函数是(A)(单) A.Str B.Val C.Len D.Log 52527.使用【Print】方法可在窗体中进行字符的输出。 52528.使用【Circle】方法可画圆。 52529.用【Line】方法可画直线。 52530.以下哪个是合法的变量名(D)(单) A.right B.end C.123_abc D.ab123c 52531.当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到(C)(单) A.MouseDown B.MouseUp C.Load D.Click 52532.命令按钮、文本框等控件共有的visible属性=false的含义是(A)(单) A.隐藏 B.展现 C.装入 D.卸载 52533.窗体Form1的Name属性是Frm1,它的单击事件过程名是(C)(单) A.Form1_Click B.Form_Click C.Frm1_Click D.Me_Click 52534.下列说法错误的是(D)(单) A.在同一模块不同过程中的变量可以同名 B.不同模块中定义的全局变量可以不同名 C.引用另一模块中的全局变量时，必须在变量名前加模块名

D.同一模块中不同过程中变量不可以同名 52535.窗体的BackColor属性用于设置窗体的哪个特性(C)(单) A.高度 B.宽度 C.背景色 D.前景色 52536.如果要显示VB中的预定义输入对话框,需要调用哪个函数(D)(单) A.MsgBox B.Open C.Output D.InputBox 52537.把MsgBox的返回值转换为数值应该使用的函数是(D)(单) A.Log B.Str C.Len D.Val 52538.菜单控件仅支持下面哪一事件(A)(单) A.Click B.MouseUp C.KeyPress D.Load 52539.如下程序运行后输出的结果是(B)(单) Private Sub Form1_Click( ) score = 80 Select Case score Case Is ＜ 60 A$ = \Case 60 To 69 A$ = \Case 70 To 79 A$ = \

Case 80 To 89 A$ = \Case Else A$ = \End Select Print A$ End Sub A.A B.B C.C D.D 52540.下面程序执行的结果是(C)(单) Private Sub Form1_Click( ) A$ = \C = Val(A$) + Val(B$) Print C\\100 End Sub A.123 B.6 C.5 D.579

52541.下面程序运行后输出结果是(D)(单) Private Sub Form1_Click( ) X$ = \For J = 1 To 2

X$ = Y$: Y$ = Z$: Z$ = X$ Next J

Print X + Y + Z End Sub

A.CAB B.BCA C.BCB D.CBC

52542 .对象和类的区别在于前者是具体的，而后者则是抽象的。√

52543 .常量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是变量。×

52544 .程序流程是指在一个程序中语句的执行次序。√

52545跳转语句可以实现程序的某一行到另一行的直接转移√

52546 .通常把窗体定义成一个构成应用程序可见部分的窗口，而一个VB的应用程序应首先从设计窗体开始。√

52547 .列表框和组合框主要的不同在于前者能选择多个项目，后者不能。×

52548 .在VB中可以同时打开多个工程。√

52549 .ActiveX控件不是指一些遵循MicroSoft ActiveX 技术规范的可执行的代码。×

52550 .VB不能选择和管理外接程序。×

52551 .VB的每一个窗体和控件都不存在一个预定义的事件集。×

52552 .调用SUB过程不能够调用一个独立的语句。×

52553 .在MDI界面中，当父窗体关闭，子窗体也随之关闭。√

52554 .可同时打开多个文档窗口，只有一个是活动窗口。√ 52555 .文本文件属于随机文件。×

52556.运行此程序后d的结果是【14】 Private Sub Form1_load( ) d = 0

For a = 1 To 2 For b = 1 To a For c = b To 5 d = d + 1 Next c Next b Next a Print d End Sub

52557.一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是(C)(单) A.对象，属性，事件，方法 B.对象，属性，方法，事件 C.属性，对象，方法，事件 D.属性，对象，事件，方法

52558.将通用对话框commondialog1的类型设置为\颜色\对话框，可调用对话框的(C)方法(单)

A.ShowOpen B.ShowSave C.ShowColor D.ShowFont

52559.Sub过程与Function过程最根本的区别是(B)(单)

A.Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以 B.Function过程可以有参数，Sub过程不可以

C.它们的参数的可以不同

D.Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。

52560 .VB中随机文件的记录长度不相等。×

52561.下列程序的运行结果【6】。 Private Sub Form_Click( ) C= 1

Do While C＜＝ 5 C= C+ 1 Loop Print C End Sub

52562.Private Sub Commandl_Click( )

Textl.Text = \End Sub

Private Sub Command2_Click( ) Textl.Text = \程序设计\End Sub

单击Command2按钮，在文本框中显示【程序设计】。

52563.Private Sub Commandl_Click( ) Print \End sub

单击Command1后窗体显示的是【33+22=55】。

52564.Private Sub Commandl_Click( ) Print \，\，\End sub

单击Command1后窗体显示的是【33+22=33+22】。

52565.下列程序的运行结果是【120】。 Private Sub Form_Click( ) Dim sum As Integer sum = 1 u = 1

DO While u ＜＝ 5 sum = sum * u u = u + 1 LOOP

Print sum End Sub

52566.标下列程序的运行结果【你们好】。 Private Sub Form_Click( ) I＝1 I＝I＋2 I= Sqr(4) Select case I Case 1

Print \你好\Case 2

Print \你们好\Case 3

Print \大家好\End select End sub

52567.Private Sub Form_Click( ) K=5.8\\2

If K=3 then text1.text=\你好,世界\Else：text1.text=\，world\End if End Sub

单击窗体后，Text1内显示的内容是【你好，世界】。

52568.命令按钮所不能响应的事件有(BC)(多)

A.Click B.DblClick C.Change D.MouseDown

52569.文本框所不能响应的事件有(A)(单)

A.Load B.Click C.Change D.GotFocus

52570.一个显示系统当前时间的数字时钟程序，要求程序运行时，每隔1秒提取一次系统时间，并在文本框中显示出来。Private Sub Form_Load( )

Timer1.Enabled=True:Timer1.Interval=【1000】 End Sub

Private Sub Timer1_Timer( ) Label1.Caption = Time End Sub

52571.一个在窗体上画圆的程序，要求单击鼠标左键，在鼠标单击处画一个半径为800单位的圆，单击\清除\按钮清除窗口图形，单击\退出\按钮结束程序。请根据题意，编写Form_MouseDown事件过程的代码，在( )处填写合适的图形方法。

Private Sub Command1_Click( ) Cls End Sub

Private Sub Command2_Click( ) End End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X AsSingle, Y As Single)

【Circle】 (x,y),800 End Sub

52572.用下面的语句所定义的数组的元素个数是(D)(单)

Dim A(-3 To 5) As Intege

A.6 B.7 C.8 D.9

52573.用下面的语句所定义的数组的元素个数是(C)(单)

Dim arr(3 To 5, -2 To 2)

A.20 B.12 C.15 D.24 52574.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click( ) Dim Arr1(10), arr2(10) As Integer n=3 For I = 1 To 5 Arr1(I) = I arr2(n) = 2 * n + I Next I Print arr2(n); Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是(A)(单) A.11 3 B.3 11 C.13 3 D.3 13 52575.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a(10), p(3) As Integer k=5 For I= 1 To 10 a(I)= I Next I For I= 1 To 3 p(I) = a(I * I) Next I For I = 1 To 3 k = k + p(I) * 2 Next I print k End Sub 程序运行后，单击命令按钮，输出结果是(C)(单) A.35 B.28 C.33 D.37 52576.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a = Array(1, 2, 3, 4) j=1 For I = 4 To 1 Step -1 s = s + a(I)*j j =j * 10 Next I Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是(D)(单) A.4321 B.12 C.34 D.1234 52577.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim Arr(3) As Integer For I = 1 To 3 For j = 1 To 3 Arr(j) = Arr(I) + 1 Next j Next I Print Arr(3) End Sub 程序运行后，单击命令按钮，其输出结果为(C)(单) A.7 B.6 C.5 D.4 52578.由Array函数建立的数组必须是【Variant，变体】类型。 52579.控件数组的名字由Name属性指定，而数组中的每个元素由【Index】属性指定。 52580.由string函数返回的类型必须是【String，字符】类型。 52581.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click( ) Dim a(5) For I = 0 To 4 a(I) = I + 1 t = I + 1 If t = 3 Then Print a(I); a(t - 1) = a(I - 2) Else a(t) = a(I) End If If I = 3 Then a(I + 1) = a(t - 4) a(4) = 1 Print a(I); Next I End Sub

程序运行后，单击命令按钮，输出结果是【123141】。

52582.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click( ) Dim M(10) As Integer Fork= 1 To 10 M(k) = 12 - k Next k x=6

Print M(2 + M(x)) End Sub

程序运行后，单击命令按钮，输出结果是【4】。

52583.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click( ) Dim a(5, 5) For I = 1 To 3 For j = 1 To 4 a(I, j) = I * j Next j Next I

For n= 1 To 2 For M = 1 To 3 Print a(M, n); Next M Next n End Sub

程序运行后，单击命令按钮，输出结果是【123246】。

52584.在Visual Basic应用程序中(B)(单) A.过程的定义可以嵌套，但过程的调用不能嵌套

B.过程的定义不可以嵌套，但过程的调用可以嵌套

C.过程的定义和过程的调用均可以嵌套 D.过程的定义和过程的调用均不能嵌套

52585.下面程序：

Function F(a As Integer) b=0

Static c b=b+1 c=c+1 F=a+b+c

End Function

Private Sub Command1_Click( ) Dim a As Integer a=2

For I=1 To 3 Print F(a) Next I End Sub

运行上面的程序，单击命令按钮，输出结果为(B)(单)

A.4,4,4 B.4,5,6 C.4,6,8 D.4,7,9

52586.阅读程序：

Sub subP(b( ) As Integer) For I=1 To 4 b(I) = 2 * I Next I End Sub

Private Sub Command1_Click( ) Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8

call subP(a( )) For i= 1 To 4 Print a(I) Next I End Sub

运行上面的程序，单击命令按钮，输出结果为(A)(单)

A.2,4,6,8 B.5,6,7,8 C.10,12,14,16 D.出错

52587.假定有以下两个过程：

Sub S1(ByVal x As Integer, ByVal y As Integer)

Dim t As Integer t=x x=y y=t End Sub

Sub S2(x As Integer, y As Integer) Dim t As Integer t=x x=y y=t End Sub

则以下说法中正确的是(B)(单)

A.用过程S1可以实现交换两个变量的值的操作，S2不能实现

B用过程S2可以实现交换两个变量的值的

操作,S1不能实现

C.用过程S1和S2都可以实现交换两个变量的值的操作

D.用过程S1和S2都不能实现交换两个变量的值的操作

52588.假定有下面的过程： Function Func(a As Integer, b As Integer) As Integer

Static m As Integer, I As Integer m=0 I=2 I=I+m+1 m=I+a+b Func=m

End Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( ) Dim k As Integer,m As Integer Dim p As Integer k=4 m=1

p=Func(k,m) Print p;

p = Func(k, m) Print p End Sub

程序运行后，单击命令按钮，输出结果为(D)(单)

A.8 17 B.8 16 C.8 20 D.8 8

52589.在过程定义中出现的变量名叫做形式参数，而在调用过程时传送给过程的常数、变量、表达式或数组叫做【实际】参数。

52590.在窗体上画一个命令按钮，然后编写如下程序：

Sub inc(a As Integer) Static x As Integer x=x+a Print x; End Sub

Private Sub Command1_Click( ) inc 2 inc 3 inc 4 End Sub

程序运行后，第一次单击命令按钮时的输出结果为【259，2 5 9】。

52591.在窗体上画一个命令按钮，然后编写如下程序：

Function fun(By Val num As Long) As Long Dim k As Long k=1

num= Abs(num) Do While num

k = k *(num Mod 10) num= num\\ 10 Loop fun = k

End Function

Private Sub Command1_Click( ) Dim n As Long Dim r As Long

n = InputBox(\请输入一个数\n = CLng(n) r = fun(n) Print r End Sub

程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【24】。

52592.在窗体上画一个命令按钮，然后编写如下程序：

Function M(x As Integer, y As Integer) As Integer

M=Iif(x＞y, x, y) End Function

Private Sub Command1_Click( ) Dim a As Integer, b As Integer a=1 b=2

Print M(a, b) End Sub

程序运行后，单击命令按钮，输出结果为【2】。

52593.inputBox函数返回值的类型为(A)(单)

A.字符 B.数值 C.日期 D.变体

52594.可以同时删除字符串前导和尾部空白的函数是(C)(单)

A.Ltrim B.Rtrim C.Trim D.Mid

52595.表达式4+ 6 * 7 \\ 8 Mod 3 的值是(C)(单)

A.8 B.7 C.6 D.5 52596.如果在立即窗口中执行以下操作： a=8 b=9 print a＞b 则输出结果是(C)(单) A.-1 B.0 C.False D.True 52597.以下语句：Print Format$(32548.5, \输出结果是(C)(单) A.32548.5 B.32,548.5 C.032,548.50 D.32,548.50 52598.执行以下程序段后，变量c$的值为(D)（单) A$=\b$=\c$=b$ & Ucase(Mid$(a$,7,6)) & Right $ (a$,11) A.Visual BASIC Programing B.Quick Basic Programing C.QUICK Basic Programing D.Quick BASIC Programing 52599.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(B) (单) A.Caption B.Default C.Cancel D.Enabled 52600.为了把焦点移到某个指定的控件，所使用的方法是(A)(单) A.SetFocus B.Visible C.Refresh D.GetFocus 52601.设a=3，则执行 x=Iif(a＞5,-1,0)后，x 的值为(C)(单) A.5 B.6 C.0 D.--1 52602.执行下面的程序段后，x 的值为(B)(单) x = 5 For c = 1 To 5 Step 2 x = x + c \\ 5 Next c Print x A.5 B.6 C.7 D.8 52603.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For I=1 To 4 x=4 For j =1 To 3 x=x+6 Next j Next I Print x End Sub 程序运行后，单击命令按钮，输出结果是(B)(单) A.21 B.22 C.23 D.24 52604.在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_Click( ) x=0 Do Until x=-1 a = InputBox(\请输入A的值\a = Val(a) b = InputBox(\请输入B的值\b = Val(b) x = InputBox(\请输入x的值\x = Val(x) a = a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入6、4、3、2、1、-1，则输出结果为(A)(单)。 A.2 B.3 C.14 D.15 52605.在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程： Private Sub Command1_Click( ) a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_Load( ) Text1.Text=\Text2.Text=\End sub 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入456和321，然后单击命令按钮，则输出结果为(B)(单)

A.155 B.456321 C.777 D.132231 52606.阅读下面的程序段： For I=1 To 3 For j=1 To I For k=j To 2 a=a+3 Next k Next j Next I 执行上面的三重循环后，a 的值为(D)(单) A.3 B.9 C.14 D.24 52607.在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程： Private Sub Form_Load( ) Text1.Text=\For I=1 To 100 Sum=Sum+I Next I Text1.Text=Sum End Sub 上述程序的运行结果是(B)(单) A.在文本框Text1中输出55 B.在文本框Text1中输出5050 C.出错 D.在文本框Text1中输出不定值 52608.在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click( ) x=0 Do While x＜5 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为(B)(单) A.1和0 B.1和6 C.2和72 D.3和50 52609.用下面语句定义的数组的元素个数是(D)(单) Dim A (- 3 To 5 ) As Integer A.6 B.7 C.8 D.9 52610.以下程序的输出结果是(C)(单) Option Base 1 Private Sub Command1_Click( ) Dim a(10), p(3) As Integer k = 5 For I = 1 To 5 a(I) = I Next I For I = 1 To 3 p(I) = a(I * I) Next I For I = 1 To 3 k = k + p(I) * 2 Next I Print k End Sub A.33 B.28 C.5 D.7 52611.在窗体上面画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a = Array(1, 2, 3) J = 1 s = 0 For I = 3 To 1 Step -1 s = s + a(I) * J J = J * 2 Next I Print s End Sub 运行面的程序，单击命令按钮，其输出结果是(C)(单) A.22 B.123 C.11 D.33 52612.假定有如下的Sub过程： Sub S(ByVal x As Integer, ByVal y As Integer) t = x x = t \\ y y = t Mod y End Sub Private Sub Command1_Click( ) Dim a, b As Integer a = 5 b = 4 Call S(a, b) Print a, b End Sub

程序运行后，单击命令按钮，输出结果为B.执行\工具\菜单中的\菜单编辑器\命令(A)(单) 打开它 A.5和4 B.4和5 C.1和4 C.在菜单编辑器中的菜单项的标题不能重D.1和5 52613.阅读程序: Function F(a As Integer) As Integer b = 0 Static c b = b + 1 c = c + 1 F = a + b + c End Function Private Sub Command1_Click( ) Dim a As Integer a = 2 For I = 1 To 3 Print F(a) Next I End Sub 运行结果为(A)(单) A.4和5和6 B.4和4和4 C.5和5和6 D.6和6和6 52614.阅读程序： Sub P(b( ) As Integer) For I = 1 To 4 b(I) = 2 * I Next I End Sub Private Sub Command1_Click( ) Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 Call P(a( )) For I = 1 To 4 Print a(I) Next I End Sub 运行上面的程序，单击命令按钮，输出结果为(A)(单) A.2和4和6和8 B.5和6和7和8 C.5和4和6和8 D.2 52615.下列对菜单编辑器的操作不正确的是(C)(单) A.单击工具栏中的\菜单编辑器\按钮打开它 名 D.在菜单编辑器中的菜单项的标题能重名 52616.假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为(A)(单) A.MenuItem. Enabled=False B.MenuItem. Enabled=True C.MenuItem. Visible=True D.Menultem. Visible=False 52617.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是(B)(单) A.Move B.Change C.Click D.GetFocus 52618.假定窗体上有一个标签，名为Labell，为了使该标签透明，则正确的属性设置为(A)(单) A.Label1.BackStyle=0 B.Label1.BackStyle=1 C.Label1.BorderStyle=True D.Label1.Borderstyle=False 52619.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load ( ) List1.AddItem\List1.AddItem\List1.AddItem\List1.AddItem\Text1.Text=\End Sub Private Sub List1_ DblClick ( ) a =List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入\，然后双击列表框中的\，则输出结果为(A)(单) A.456789 B.789456 C.111315 D.101315 52620.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是(C)(单) A.Visible B.Timer C.Enabled D.Interval

52621.VB应用程序至少应该包括的文件有(A)(单)

A.窗体文件（.frm）、项目文件（.vbp/vbw） B.窗体文件（.frm）、项目文件（.vbp/vbw）和代码文件（.bas） C.窗体文件（.frm）、项目文件（.vbp/vbw）和模块文件（.bas） D.窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（.frx）

52622.以下关于窗体描述正确的是(B)(单) A.只有用于启动的窗体可以有菜单

B.窗体事件和其中所有控件事件的代码都放在窗体文件中

C.窗体的名字和存盘的窗体文件名必须相同

D.开始运行时窗体的位置只能是设计阶段时显示的位置

52623.VB中控件主要分为3类，下面哪一种不是VB中的控件(C)(单)

A.标准控件 B.ActiveX

C.可插入控件 D.textBox控件

52624.在VB的基本数据类型中，通用类型(Variant)可以表示任何类型的变量 ，则以下变量赋值中正确的是(D)(单) A.a=yes\C.a=04/01/2001 D.a$=\

52625.在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码： Private Sub Command1_Click( ) a = 1.2

c = Len(Str(a) + Space(10)) Text1.Text = c End Sub

程序运行后，单击命令按钮，在文本框中显示(C)(单)

A.3 B.8 C.14 D.10

52626.有如下语句： Type Student Name As String Age As Integer Sex As String End Type

Dim Stu As Student With Stu

.Name = \张红\.Age = 22 .Sex = \女\End With

执行Print Stu.Age后的结果是(B)(单) A.张红 B.22 C.\女\D.Age

52627.以下控件中可以作为容器控件的是(B)(单)

A.Image图像框控件 B.PictureBox图片框控件

C.TextBox文本框控件 D.ListBox列表框控件

52628.VB提供的单选按钮(OptionButton)可具有的功能是(A)(单)

A.单个选择 B.多重选择 C.多项选择 D.只能选择一次

52629.在VB中，按下鼠标键触发事件，正确的程序段是(D)(单)

A.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ...... End Sub

B.Private Sub Form_MouseUP(Button As Integer, Shift As Integer, X As Single, Y As Single) ...... End Sub

C.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ...... End Sub

D.Private Sub Form_Load( ) ...... End Sub

52630.以下能够正确计算1+2+3+?+10的程序是(B)(单)

A.Private Sub Command1_Click( ) Sum = 0 For Ｃ = 1 To 10 Sum = Sum + 1 Next Ｃ Print Sum End Sub

B.Private Sub Command1_Click( ) Sum = 0,Ｃ=1 Do While Ｃ＜＝10 Sum=Sum+１

Ｃ=Ｃ+1 Loop Print Sum End Sub C.Private Sub Command1_Click( ) Sum = 0;Ｃ=1 Do Sum = Sum + 1 Ｃ=Ｃ+1 Loop While Ｃ＞10 Print Sum End Sub D.Private Sub Command1_Click( ) Sum = 0;Ｃ=1 Do Sum = Sum + 1 Ｃ=Ｃ+1 Loop While Ｃ＜10 Print Sum End Sub 52631.在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下程序： Private Sub Command1_Click( ) X = 0 Do While X ＜ 10 X = (X + 1) * (X + 2) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(X) End Sub 程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是(B)(单) A.1和0 B.2和12 C.2和72 D.3和12 52632.在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click( ) a = UCase(Text1.Text) + Left(Text2.Text, 2) Print a End Sub Private Sub Form_Load( ) Text1.Text = \Text2.Text = \End Sub 程序运行后，单击命令按钮，输出结果为(B)(单) A.ab12 B.AB12 C.AB56 D.ab56 52633.在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码： Dim a As Integer Sub test( ) a = a + 1: b = b + 1: c = c + 1 Print \，\，\End Sub Private Sub Command1_Click( ) a = 2: b = 3: c = 4 Call test Call test End Sub 程序运行后，单击命令按钮，窗体中将显示(C)(单) A.Sub：3，4，5 Sub：4，5，6 B.Sub：2，3，4 Sub：2，3，4 C.Sub：3，1，1 Sub：4，1，1 D.Sub：1，1，1 Sub：1，1，1 52634.设有如下程序： Private Static Function fac(n As Integer) As Integer Dim f As Integer f = f + n fac = f End Function Private Sub Form_Click( ) Dim I As Integer For I = 2 To 3 Print \Next I End Sub 程序运行后，单击窗体，在窗体上显示的是(B)(单) A.#2=2 #3=3 B.#2=2 #3=5 C.#；2=2 #；3=3 D.#；2=2 #；3=5 52635.在窗体中添加一个命令按钮Command1，并有以下程序： Function retnum( ) nl = Chr(13) + Chr(10) msg$ = \．运行VB应用程序\+ nl + \．计算器\msg$= msg$ +nl + \请输入数字选择\

retnum = InputBox(msg$, Title, Default) End Function

Private Sub Command1_Click( ) r = retnum If r = 1 Then

x = Shell(\ElseIf r = 2 Then

z = Shell(\Else

MsgBox \请输入1-2的数\End If End Sub

程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示(B)(单)

A.请输入1-2的数 B.Windows的计算器

C.调用C:\\vbp\\vbexam.exe程序并运行 D.出错

52636.设在工程中有一个标准模块，其中定义了如下记录类型： Type Books

name As String * 10 telnum As String * 20 End Type

在窗体中添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在随机文件Person.dat中写入一条记录。下列能够完成该操作的程序段是(A)(单)

A.Private Sub Command1_Click( ) ： Dim Boo As Books ：

Open \： Boo.name = InputBox(\输入姓名\： Put #1, Boo.name ： Close #1 ： End Sub

B.Private Sub Command1_Click( ) ： Dim Boo As Books ：

Open \For Random As #1 ： Boo.name = InputBox(\输入姓名\： Write #1, Boo.name ： Cose #1： End Sub

C.Private Sub Command1_Click( ) ： Dim Boo As Books ：

Open \For Random As #1 ： Boo.name = InputBox(\输入姓名\： read #1, Boo： Close #1 ： End Sub D.Private Sub Command1_Click( ) ： Dim Boo As Books ：

Open \For Output As #1 ： name = InputBox(\输入姓名\： Write #1, name ： Close #1 ： Ed Sub

52637.一个工程中包含两个名称分别为Form1、Form2的窗体。假定在Form1和Form2中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Fun1( ) ?? End Sub

Form2中定义的过程： Private Sub Fun2( ) ?? End Sub

若要在窗体Form2调用Form1中建立的自定义过程Fun1，则调用格式正确的是(B)(单) A.Fun1( ) B.Call Form1.Fun1( )

C.Form1.Fun2( ) D.Call Fun1( )

52638.在窗体中添加一个命令按钮，然后编写如下过程：

Function fun(ByVal num As Long) As Long Dim k As Long k = 1

num = Abs(num) Do While num

k = k * (num Mod 10) num = num \\ 10 Loop fun = k

End Function

Private Sub Command1_Click( ) Dim n As Long Dim r As Long

n = InputBox(\请输入一个数\n = Val(n) r = fun(n) Print r End Sub

程序运行后，单击命令按钮，在对话框中输入234，输出结果为【24】。

52639.假定建立一个工程，该工程包括两个窗体，其名称(name属性)分别为Form1和Form2，启动窗体为Form1。在Form1中添加

一个命令按钮Command1，程序运行后，要求的\名字\当单击该命令按钮时，Form1窗体消失，显D.使用\索引\后,在单击菜单项的事件过程示窗体Form2。Private Sub 中可以通过\索引\引用具体的菜单项 Command1_Click( ) 【Unload】Form1 52648 .通过改变属性窗口中的name属性，Form2.show 来改变窗体的标题。× End Sub 52649.语句S1、S2和S3按照下面的属性执52640.VB提供控件的窗口是(C)(单) 行：先执行语句S1，再执行语句S2，最后A.工具栏 B.文本框 C.工具箱 执行语句S3，则这样的执行顺序属于编程中D.属性窗 52641.窗体的Load事件的触发时机是(B)(单) A.用户单击窗体时 B.窗体被加载时 C.窗体显示之后 D.窗体被卸载时 52642.能够改变标签(Label)控件显示标题的属性是(A)(单) A.Caption B.Name C.Click D.Text 52643.在Visual Basic中，程序执行的顺序是(B)(单) A.由Visual Basic开发系统决定 B.由事件驱动 C.由代码行的顺序决定 D.随意执行 52644.无论何种控件，共同具有的属性是(C)(单) A.Text属性 B.Caption属性 C.Name属性 D.Autosize属性 52645.如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是(B)(单) A.Text.Mytext B.Mytext.Text C.Mytext.(Text) D.Mytext*Text 52646.下列控件中可设置滚动条是(C)(单) A.复选框 B.框架 C.文本框 D.标签框 52647.以下关于菜单编辑器中\索引\项的叙述中，错误的是(A)(单) A.\索引\确定了菜单项显示的顺序 B.\索引\是菜单控件数组的下标 C.使用\索引\时,可有一组菜单项具有相同的(A)(单) A.顺序结构 B.选择结构 C.循环结构 D.嵌套结构 52650.不属于程序设计的三大基本结构的是(D)(单) A.顺序结构 B.选择结构 C.循环结构 D.递归结构 52651.编写程序： Option Base 1 Dim mark( ) As Integer Private Sub Command1_Click( ) Dim n, sum As Integer Dim ave As Single n = Val(InputBox(\输入学生的个数\ReDim mark(n) As Integer sum = 0 For I = 1 To n mark(I) = 10 * I sum = sum + mark(I) Next I ave = sum / n Print sum; \和\End Sub 单击命令按钮后输入4，则输出的结果为(D)(单) A.60和20 B.30和20 C.11和10 D.100和25 52652.在窗体中建立名称为command1的控件数组（index值分别为0，1，2和3），单击它时发生如下事件： Private Sub Command1_Click(Index As Integer) Picture1.Cls Select Case Index Case 0 Picture1.Print \画直线\Picture1.Line (2, 2)-(7, 7) Case 1

Picture1.Print \画矩形\

Picture1.Line (2, 2)-(7, 7), , BF Case 2

Picture1.Print \画圆\

Picture1.Circle (4.5, 4.5), 3.5, , , , 1.4

Case Else End

End Select End Sub

当选择index=2的按钮时，在图片框picture1中显示(C)(单)

A.\画直线\文字和一条直线 B.\画矩形\文字和一个矩形

C.\画圆\文字和一个椭圆 D.程序运行结束

52653.加载控件数组的元素，可以通过语句：Load 控件数组名(下标) 来实现。√

52654.在窗体中先建立一个名称为label1的控件数组（它的index属性为0），当执行以下程序段：

Private Sub Form_Load( )

Dim mtop As Integer, mleft As Integer, i As Integer, j As Integer mtop = 0

For i = 1 To 8 mleft = 50 For j = 1 To 8

k = (i - 1) * 8 + j Load Label1(k)

Label1(k).BackColor = IIf((i + j) Mod 2 = 0, QBColor(0), QBColor(15)) Label1(k).Visible = True Label1(k).Top = mtop Label1(k).Left = mleft

mleft = mleft + Label1(0).Width Next j

mtop = mtop + Label1(0).Height Next i End Sub

执行后的效果是(C)(单)

A.在窗体中显示16行的黑、白颜色相间的棋盘

B.在窗体中显示8行10列的黑色棋盘 C.在窗体中显示8行8列的黑、白颜色相间的棋盘

D.以上说法都不正确

52655.输入字符串，统计各字母出现的次数,大小写字母不区分。实现思路是：声明一个

具有26个元素的数组，每个元素下标表示对应字母，元素值表示对应字母出现的次数。

如下程序：

Private Sub Command1_Click( )

Dim a(1 To 26) As Integer, c As String * 1

le = Len(Text1) For t = 1 To le

c = UCase(mid【Text1，T,1】)

If c ＞＝ \And c ＜＝ \t= Asc(c) - 65 + 1 a(t) = a(t) + 1 End If Next t

For k = 1 To 26

If a(k) ＞ 0 Then Picture1.Print \Chr$(k + 64); \Next k End Sub

For k = 1 To 26

If a(k) ＞ 0 Then Picture1.Print \Chr$(k + 64); \Next k End Sub

52656.如下程序： Dim a( ) As String

Private Sub Command1_Click( ) Dim temp As String Dim i As Integer

temp = Replace(Text1, \a = Split(temp, \For i = 0 To UBound(a) Print a(i); Next i

End Sub程序运行后，在text1中输入字符串\，则单击 command1按钮后，显示的结果为(C)(单) A.23，，45，6 B.23 45 6 C.23，45，6 D.23，， 45， 6

52657.对以下此段程序说法正确的是(C)(单)

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim Lenstra As Integer, j As Integer Dim Stra As String, S As String * 1 S = Chr(KeyAscii) Select Case S

Case \Case Else KeyAscii = 0 End Select End Sub

A.S 取得的是输入的KeyAscii值

B.若在文本框中输入除了数字 0～9，,逗号，负号，小数点之外的其他字符，则能够继续输入

C.若在文本框中输入数字 0～9，,逗号，负号，小数点为有效数字串，可以继续输入 D.当KeyAscii = 0时可以继续输入

52658以下是选择排序法的程序，请将【】处的程序填写完整。 Option Base 1

Private Sub Command1_Click( ) Dim iA(1 To 10) n = 6

iA(1) = 8: iA(2) = 6: iA(3) = 9: iA(4) = 3: iA(5) = 2: iA(6) = 7

For c = 1 To n - 1 ' 进行n-1遍比较 imin = c ' 对第i遍比较时，初始假定第i个元素最小

For k = c + 1 To n ' 在数组 i~n个元素中选最小元素的下标

If iA(k) ＜ iA(iMin) Then imin=【K】 Next k

t = iA(i) 'i~n个元素中选出的最小元素与第i个元素交换 iA(i) = iA(iMin) iA(iMin) = t For k = 1 To n Print iA(k); Next k Print Next c End Sub

*52659.以下程序作用是在数组插入一个数，请将【】处填写完整。 Option Base 1

Private Sub Command1_Click( ) Dim a%(1 To 10), i%, k%

For i = 1 To 9 ' 通过程序自动形成有规律的数组

a(i) = (i - 1) * 3 + 1 Print a(i); Next i

For k = 1 To 9 ' 查找欲插入数14在数组中的位置 If 14 ＜ a(k) Then Exit For ' 找到插入的位置下标为k Next k

For i = 9 To k Step -1 ' 从最后元素开始往后移，腾出位置 a(i+1)=【a(i)】 Next i

a(k) = 14 ' 数插入 For i = 1 To 10 Print a(i); Next i End Sub

52660.以下是求三角形面积的程序：

Public Function area(x!, y!, z!) As Single Dim c!

If (x + y ＞ z And x + z ＞ y And y + z ＞ x) And (Abs(x - y)) Then c = 1 / 2 * (x + y + z)

area = Sqr(c * (c - x) * (c - y) * (c - z)) Else MsgBox \你输入的三角形三边不符和三角形组成的条件，请重新输入三边\End If

End Function

Private Sub Form_Click( ) Dim a!, b!, c!

a = InputBox(\输入a\输入b\输入c\s1 = area(a, b, c)

Print \三角形的面积=\End Sub

以下说法正确的是(B)(单)

A.当程序运行时单击窗体后分别输入3，4和5，显示对话框 \你输入的三角形三边不符和三角形组成的条件，请重新输入三边\B.当程序运行时单击窗体后分别输入3，4和5，输出显示三角形的面积=6

C.当程序运行时单击窗体后分别输入3，4和5，输出显示三角形的面积=6.5 D.以上说法都不正确

52661.以下MyReplace函数的功能是将一个字符串（保存在变量S中）中的子字符串（保存在变量OldS中）用新的字符串（保存在变量NewS中）代替，编写以下程序：

Public Function MyReplace(s$, OldS$, NewS$) As String Dim c%, lenOldS%

lenOldS = Len(OldS) c = InStr(s, OldS) Do While c ＞ 0

s = Left(s, c - 1) + NewS + Mid(s, c + lenOldS)

c = InStr(s, OldS) Loop

myreplace=【S】 End Function

Private Sub Command1_Click( )

Print MyReplace(\程序设计教程5.0版\End Sub

52662.以下MyReplace函数的功能是将一个字符串（保存在变量S中）中的子字符串（保存在变量OldS中）用新的字符串（保存在变量NewS中）代替，编写以下程序：

Public Function MyReplace(s$, OldS$, NewS$) As String Dim I%, lenOldS% lenOldS = Len(OldS) c = InStr(s, OldS) Do While c＞ 0

s = Left(s, c - 1) + NewS + Mid(s, c + lenOldS)

c = InStr(s,【Olds】) Loop

MyReplace = s End Function

Private Sub Command1_Click( )

Print MyReplace(\程序设计教程5.0版\End Sub

52663.以下MyReplace函数的功能是将一个字符串（保存在变量S中）中的子字符串（保存在变量OldS中）用新的字符串（保存在变量NewS中）代替，编写以下程序：

Public Function MyReplace(s$, OldS$, NewS$) As String Dim c%, lenOldS% lenOldS = Len(OldS) c = InStr(s, OldS) Do While c＞ 【0】

s = Left(s, c - 1) + NewS + Mid(s, c + lenOldS)

c = InStr(s,olds) Loop

MyReplace = s End Function Private Sub Command1_Click( )

Print MyReplace(\程序设计教程5.0版\End Sub

52664.以下MyReplace函数的功能是将一个字符串（保存在变量S中）中的子字符串（保存在变量OldS中）用新的字符串（保存在变量NewS中）代替，编写以下程序：

Public Function MyReplace(s$, OldS$, NewS$) As String Dim c%, lenOldS% lenOldS = Len(OldS) c = InStr(s, OldS) Do While c＞0

s = Left(s, c - 1) + NewS + Mid(s, c + lenOldS)

c = InStr(s,olds) Loop

MyReplace = s End Function

Private Sub Command1_Click( ) dim old,new as string

old=inputbox(\请输入要替换的字符\new=inputbox(\请输入替换后新的字符\Print MyReplace(\程序设计教程5.0版\End Sub

当程序运行单击命令按钮后先后分别输入\和\，程序的运行结果为(B)(单) A.\程序设计教程5.0版\B.\程序设计教程6.0版\C.\程序设计教程6版\D.\程序设计教程\

52665.以下程序段：

Function jishu1(x!, eps#) As Double Dim n%, s#, t#

n = 1: s = 0: t = 1

Do While (Abs(t) ＞＝eps) s = s + t t = t * x / n n = n + 1 Loop

jishu1 = s End Function

Sub jishu2(s#, x!, eps#) Dim n%, t#

n = 1: s = 0: t = 1

Do While (Abs(t) ＞＝ eps) s = s + t

t = t * x / n n = n + 1 Loop End Sub

Private Sub Command1_Click( ) Dim f1#, f2#

f1 = jishu1(2#, 0.000001) Call jishu2(f2, 2#, 0.000001) Print \End Sub

对程序说法正确的是(C)(单)

A.计算jishu1是调用子过程，而计算jishu2是调用函数

B.当程序运行单击命令按钮后，窗体中显示的f1和f2的结果不相同

C.当程序运行单击命令按钮后，窗体中显示的f1和f2的结果相同 D.以上说法都不正确

52666.以下程序段功能是求级数：

Function jishu1(x!, eps#) As Double Dim n%, s#, t#

n = 1: s = 0: t = 1

Do While (Abs(t) ＞＝ eps) s = s + t t = t * x / n n = n + 1 Loop

jishu1 =【S】 End Function

Sub jishu2(s#, x!, eps#) Dim n%, t#

n = 1: s = 0: t = 1

Do While (Abs(t) ＞＝ eps) s = s + t t = t * x / n n = n + 1 Loop End Sub

Private Sub Command1_Click( ) Dim f1#, f2#

f1 = jishu1(2#, 0.000001) Call jishu2(f2, 2#, 0.000001) Print \End Sub

52667.以下程序段中函数jishu1和子过程jishu2的功能都相同，请将( )处填写完整。 Function jishu1(x!, eps#) As Double Dim n%, s#, t#

n = 1: s = 0: t = 1 Do While abs(t)＞＝【Eps】 s = s + t t = t * x / n n = n + 1 Loop

jishu1 = s End Function

Sub jishu2(s#, x!, eps#) Dim n%, t#

n = 1: s = 0: t = 1

Do While (Abs(t) ＞＝ eps) s = s + t t = t * x / n n = n + 1 Loop End Sub

52668.以下程序段中函数jishu1和子过程jishu2的功能都相同，请将( )处填写完整。Function jishu1(x!, eps#) As Double Dim n%, s#, t#

n = 1: s = 0: t = 1 Do While abs(t)＞＝eps s = s + t

t = t * x/【n】 n = n + 1 Loop

jishu1 = s End Function

Sub jishu2(s#, x!, eps#) Dim n%, t#

n = 1: s = 0: t = 1

Do While (Abs(t) ＞＝ eps) s = s + t t = t * x / n n = n + 1 Loop End Sub

52669.以下程序：

Public Sub Swap1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t End Sub

Public Sub Swap2(x As Integer, y As Integer)

Dim t As Integer t = x: x = y: y = t End Sub

Private Sub Command1_Click( )

Dim a As Integer, b As Integer a = 10: b = 20 Swap1 a, b

Print \a = 10: b = 20 Swap2 a, b

Print \End Sub

当单击命令按钮后，窗体上输出的结果是(B)(单)

A.A1=20 B1=10 A2=10 B2=20 B.A1=10 B1=20 A2=20 B2=10 C.A1=10 B1=20 A2=10 B2=10 D.A1=20 B1=20 A2=20 B2=10

52670.以下程序：

Public Sub Swap1(x As Integer, ByVal y As Integer)

Dim t As Integer t = x: x = y: y = t End Sub

Public Sub Swap2(x As Integer, y As Integer)

Dim t As Integer t = x: x = y: y = t End Sub

Private Sub Command1_Click( ) Dim a As Integer, b As Integer a = 10: b = 20 Swap1 a, b

Print \a = 10: b = 20 Swap2 a, b

Print \End Sub

当单击命令按钮后，窗体上输出的结果是(D)(单)

A.A1=20 B1=10 A2=10 B2=20 B.A1=10 B1=20 A2=20 B2=10 C.A1=10 B1=20 A2=10 B2=10 D.A1=20 B1=20 A2=20 B2=10

52671.下面程序的输出结果为(C)(单) Private Sub Command1_Click( ) Dim a%(1 To 5), b%(2 To 10), i%, t1#, t2# For i = 1 To 5 a(i) = i Next i

t1 = tim(a( )) Print \End Sub Function tim(a( ) As Integer) Dim t#, i% t = 1

For i = LBound(a) To UBound(a) t = t * a(i) Next i tim = t

End Function

A.t1=10 B.t1=12 C.t1=120 D.120

52672下面程序段的功能是求1-5的整数乘积（即1*2*3*4*5），请将( )处填写完整。 Private Sub Command1_Click( ) Dim a%(1 To 5), b%(2 To 10), i%, t1#, t2# For i = 1 To 5 a(i) = i Next i

t1 = tim(a()) Print \End Sub

Function tim(a( ) As Integer) Dim t#, i% t = 1

For i = LBound(a) To UBound(a) t = 【t】*a(i) Next i tim = t

End Function

52673 .在“通用声明段”用Private关键字定义的过程，表示此过程只可被本窗体模块中的各个过程调用。√

52674.按照变量的作用域可将变量划分为(B)(单)

A.公有、私有、系统

B.全局变量、窗体/模块级变量、局部变量 C.动态、常数、静态

D.Public、 Private、 Protected

52675.要退出Do?Loop循环，可使用的语句是(D)(单)

A.Exit B.Exit For C.Do D.Exit Do

52676.把字符串函数：string(3,\的结果为(A)(单)

A.aaa B.bbb C.ccc D.abc

52677.设置标签对象的边框类型的属性是(B)(单) A.Drawstyle B.Borderstyle C.DrawWidth D.ScaleMode 52678.若要再窗体代码编辑器的\通用声明\部分定义窗体模块级Sub过程，则正确的语句是(C)(单) A.Public Sub B.Public Function C.Private Sub D.Private Function 52679.通过设置Shape控件的(A)属性来确定是何种封闭图形(单) A.Shape B.Borderstyle C.FillStyle D.Style 52680.如果准备读文件，打开随机文件\的正确语句是(D)(单) A.open \B.open \C.open \D.open \ 52681.Line(100，100) - (400，400)将在窗体中的(D)画一条直线(单) A.(200，200)到(400，400) B.(100，100)到(300，300) C.(100，100)到(500，500) D.(100，100)到(400，400) 52682.将通用对话框Commondialog1的类型设置为\字体\对话框，可调用对话框的(D)方法(单) A.ShowOpen B.ShowSave C.ShowColor D.ShowFont 52683.一个VB应用程序至少应该包含几个vbp文件(B)(单) A.可以没有 B.1个 C.2个 D.不受限制 52684.在VB的集成开发环境中通过编程写代码创建VB应用程序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必不可少的窗口是(C)(单) A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口 52685.下列赋值语句正确的是(A)(单) A.A = B + C B.B + C = A C.-2B = A D.2 = A + B 52686.VB中下列逻辑表达式书写正确的是(B)(单) A.a＞b＞c B.a＞b and a＞c C.a≤b D.a≠122 52687.Dim A( 1 To 6 ,1 To 5 )定义的数组包含的元素个数是(A)(单) A.30 B.25 C.42 D.动态变化 52688.如果创建了命令按钮数组控件，那么Click事件的参数是(A)(单) A.Index B.Caption C.Tag D.没有参数 52689.文件可从多角度加以分类，根据文件的访问方式可以分为顺序文件、随机文件和(B)(单) A.文本文件 B.二进制文件 C.数据文件 D.图形文件 52690.不属于VB数据库引擎的是(B)(单) A.ODBC B.BDE C.Jet引擎 D.OLE DB 52691.在VB程序设计中，不属于代码编译过程中的错误的是(B)(单) A.编辑错误 B.代码字体和颜色错误 C.逻辑错误 D.运行错误 52692.图像框对象的Stretch属性设置为【True】时，图像框可自动改变大小以适应其中的图形。 52693.时钟控件的【Interval】属性用来设置计时事件发生的时间间隔。 52694.用Dim A(5,5)语句声明二维数组后，数组A的元素共有【36】个。 52695.在过程中，我们把定义过程中的参数称为(B)(单) A.实参 B.形参 C.址参 D.变参 52696.结构化程序设计方法的三种基本结构是(ACD)。(多) A.顺序 B.递归 C.选择 D.循环

52697.使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体移出内存，实际上是将被调用窗体的【Visible】属性设置为FALSE。

52698.将数学表达式4 ≤ x ＜8， 写成正确的Visual Basic逻辑表达式是【4<=x and 4<8】。

52699.在Visual Basic语言中有三种形式的循环结构，其中，若循环的次数可以事先确定，可使用【for】循环。

52700.在Visual Basic语言中有三种形式的循环结构。其中，若要求先判断循环进行的条件，可使用【do while】循环。

52701以下语句的输出结果是【97】。 Dim a As integer a = asc(\Print a

52702用【print】方法可在窗体中进行文本的输出。

52703.要想在代码中在图片框Picture中输出文本：hello，应当编写的语句是【picture.print”hello”】。

52704.图片flower.jpg位于D盘根目录下，将它加载到名称为Pic的图片框中代码是【pic.picture=loadpicture(“d:\\flower.jpg”)】。

52705.用【cls】方法清除运行时在窗体和图片框中显示的文本或图形。

52706.如果我们不希望某些控件获得焦点，就可以把该控件的【Enabled】属性值设为False。

52707.Private Sub Form_Click( ) Static Sum As Integer For I = 1 To 2 Sum = Sum + I Next I Print Sum End Sub

点击窗体两次后，变量Sum的值是【6】。

52708.Private Sub Command1_Click( ) Text1.Text=2 Text2.Text=3

Text3.Text=Text1.Text+Text2.Text

Text4.Text=Val(Text1.Text)+Val(Text2.Text) End Sub

文件框Text4的结果【5】。

52709.Private Sub Commandl_Click( ) Textl.Text = \人人为我\End Sub

Private Sub Command2_Click( ) Textl.Text = \我为人人\End Sub

先单击Commaond1按钮，然后单击Command2按钮，在文本框中显示【我为人人】。

52710.

Private Sub Form_Click( ) K=5.8\\2 If K=3 then

text1.text=\你好，世界\Else

text1.text=\End if End Sub

单击窗体后，Text1内显示的内容是【你好，世界】。

52711.在窗体的单击事件中有如下程序: private sub form_click( ) for j=1 to 15 a=a+j next j Print a end sub

程序运行后单击鼠标左键，输出的结果是(D)(单)

A.1 B.15 C.90 D.120

52712.下面程序运行后，S的值是(C)(单) Private sub form_click( ) for j=1 to 10 x=j*2-1

if x/3=int(x/3) or x/5=int(x/5) then s=s+x next j

Print \end sub

A.27 B.30 C.32 D.37

end sub 52713.下面程序运行后，窗体(Form1)中输程序运行后单击命令按钮，N的值是(B)(单) 出的结果是(B)(单) A.5 B.6 C.10 D.11 Private sub form_load( ) form1.autoredraw=true 52718.为了能够通过键盘访问主菜单项，可x=3 : y=5 在菜单编辑器的\标题\选项中的某字母前Print x;y 插入符号为【&,字符&】。运行时，该字母会end sub 带有下划线，按Alt键和该字母就可以访问A.TrueTrue B.3 5 C.窗体无显示 相应的主菜单项。 D.x=3 y=5 52714.下面程序执行的结果是(D)(单) Private sub command1_click( ) a=\c=a+b Print c end sub A.135 B.246 C.\D.135246 52715.若有以下说明语句： type abc t1 as integer t2 as single end type dim abc1 as abc 则下面表示记录变量ABC1的成员T1正确的是(D)(单) A.ABC1→T1 B.T1 C.T1.ABC1 D.ABC1.T1 52716.下面程序运行时用鼠标左键单击窗体，输出的值是(D)(单) Private sub form_click( ) l$=\for j=1 to 2 l$=m$ : m$=n$ : n$=l$ next j Print l$+m$+n$ end sub A.ZXY B.YZX C.YZY D.ZYZ 52717.在窗体上画一个命令按钮，然后编写如下程序： private sub command1_click( ) for j=1 to 11 j=j+1 n=n+1 next j Print \ 5271.在运行状态下,要使得鼠标经过命令按钮时,出现一个浮动的文本提示(类似于\小贴示\可以设置命令按钮的【Tooltiptext】属性为其添加此功能提示。 52720.a,T,Z,9这四个字符中的ASCII码值最大的是【a】。 52721.保存一个工程至少应保存两个文件，这两个文件分别是(B)(单) A.文本文件和工程文件 B.窗体文件和工程文件 C.窗体文件和标准模块文件 D.类模块文件和工程文件 52722.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是(B)(单) A.MousePicture B.Style C.DownPicture D.DisabledPicture 52723.下面叙述正确的是(B)(单) A.Spc函数不能用于Print方法中 B.Space函数既能用于Print方法中，也能用于表达式 C.Spc函数与Space函数均生成空格，没有区别 D.以上说法均不对 52724.假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是(D)(单) A.bool_x=\ B.bool_x=.False. C.bool_x=#False# D.bool_x=False 52725.要存放如下方阵的数据，在不浪费存储空间的基础上，能实现声明的语句是(B)(单)

1 2 3 2 4 6 3 6 9

A.Dim A(1 to 9) As Integer

B.Dim A(1 to 3,1 to 3) As Integer C.Dim A(-1 to 1,-3 to -1) As Single D.Dim A(-3 to -1,1 to 3) As Integer

52726.下面子过程语句说明合法的是(A)(单)

A.Sub f1（ByVal n As Integer）

B.Sub f1（n As Integer）As Integer C.Function f1（f1 As Integer）As Integer D.Finction f1（ByVal f1 As Integer）

52727.已知XB，正确表示它们之间关系的式子是(C)(单)

A.Sgn(Y-X)-sgn(A-B)＜0 B.Sgn(Y-X)-Sgn(A-B)＝－2 C.Sgn(Y-X)-Sgn(A-B)＝0 D.Sgn(Y-X)-Sgn(A-B)＝－1

52728.设a=2,b=4,c=6，下列表达式的值为真的是(D)(单)

A.a＞b And c＜a B.a＞b Or c＜a C.a＞b Xor c＜a D.a＞b Eqv c＜a

52729.设S=\中华人民共和国\，表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为(B)(单)

A.\中华民国\中国人民\C.\中共人民\人民共和\

52730.下列表达式的值为2123的是(B)(单) A.Val(\B.Val(\C.Str(123) & \D.Str(123)+\

52731.下列叙述不正确的是(D)(单) A.InputBox( )函数返回值为字符型

B.MsgBox( )函数返回值为所单击按钮的键值

C.int( )函数返回整型数值

D.Shell函数返回值为所执行文件的工作代码

52732.下列叙述不正确的是(A)(单) A.命令按钮的默认属性为Caption B.标签的默认属性为Caption C.复选框的默认属性为value D.滚动条的默认属性为value

52733.初始a=10，下列各程序段执行后，a的值为11的是(D)(单) A.If a＜10 Then a=a+10

B.If a＞10 Then ：a= a+1：Else ：a= a+ 5：End If

C.If a ＜＝10 Then ： a=a + 10：End If D.If a ＜＝10 Then：a=a + 1：ElseIf a ＜＝20 Then：a=a + 10：End If

52734.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click( ) For I= 1 to 2 For J=1 to I

Print String (I,\Next J Next I End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是(D)(单)

A.H B.HH C.HHH D.HHHHH

52735.为了使图像框Image与图片框pic的大小适应图片的大小，下面属性组设置正确的是(B)(单)

A.pic.Autosize= Ture，image.Stretch= True

B.pic.Autosize= Ture， image.Stretch= False

C.pic.Autosize= False， image.Stretch= True

D.pic.Autosize= False， image.Stretch= False

52736.有如下程序：

Private Sub Form_Click( )

Dim check As Boolean, n As Integer check=False n= 0 Do

Do While n＜10 n=n + 1

If n= 5 Then check=True Exit Do End If Print n;

Loop

Loop Until check=True End Sub

程序运行后，输出的结果是(B)(单) A.1 2 3 B.1 2 3 4

C.1 2 3 4 5 D.1 2 3 4 5 6

52737.在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是(A)(单)

A.Private Sub Text1_GotFocus( ) Text1.SelStart=0

Text1.SelLength=Len(Text1.text) End Sub

B.Private Sub Text1_LostFocus( ) Text1.SelStart=0

Text1.SelLength=Len(Text1.text) End Sub

C.Private Sub Text1_Change( ) Text1.SelStart=0

Text1.SelLength=Len(Text1.text) End Sub

D.Private Sub Text1_SetFocus( ) Text1.SelStart=0

Text1.SelLength=Len(Text1.text) End Sub

52738.有如下程序，单击command1后窗体显示结果是(A)(单) Option Base 1

Private Sub Command1_Click( ) Dim a

a = Array(1, 2, 3, 4, 5)

For i = LBound(a) To UBound(a) a(i) = i * a(i) Next i

Print i; UBound(a) End Sub

A.6 5 B.6 25 C.不确定 D.程序出错

52739.在窗体上画一个水平滚动条，名称为HScroll1;再画一个文本框，名称为Text1。要想使用滚动条滑块的变化量来调用文本框中文字的大小，则可满足的语句是(C)(单)

A.Text1.FontName= HScroll1.Max B.Text1.FontSize= HScroll1.Min C.Text1.FontSize= HScroll1.value D.Text1.FontBold= HScroll1.value 52740.在下列程序中，无论使用鼠标左键还是右键都能弹出菜单，且弹出菜单中的菜单项都响应鼠标单击，下面语句正确的是(A)(单)

A.Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)：

PopupMenu test：End Sub

B.Sub Form_keypress (Button As Integer,Shift As Integer, X As Single, Y As Single)：

PopupMenu test：End Sub

C.Sub Form_keyDown (Button As Integer,Shift As Integer, X As Single, Y As Single)：

PopupMenu test：End Sub

D.Sub Form_MouseDown (Shift As Integer, X As Single, Y As Single)： PopupMenu test：End Sub

52741.假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程： Private Sub Command1_Click( ) CommonDialog1.Flags=4

CommonDialog1.Filter=\files(* . *)|* .*|text Files(* .Txt)|* .txt|Batch Filse(*.bat)|*.bat\CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName End Sub

程序运行后，单击命令按钮，将显示一个\打开\对话框，此时在\文件类型\对话框中显示的是(A)(单)

A.All Files(* . *) B.出错 C.Batch Files(.bat) D.不确定

52742.有如下的程序：

Private Sub Command1_Click( ) Dim x As Integer, y As Integer a = 8 b = 3

Call test(6, a, b + 1) Print \主程序\End Sub Sub test(x As Integer, ByVal y As Integer, ByVal z As Integer) Print \子程序\x = 2 y = 4

z = 3 End Sub 当单击Command1后，运行程序显示的结果是(C)(单) A.子程序6 4 3 主程序6 8 4 B.主程序6 4 3 子程序6 8 4 C.主程序6 8 4 子程序6 8 3 D.子程序6 8 4 主程序6 4 3 52743.Cls 方法可清除窗体或图片框中的信息是(C)(单) A.Picture属性设置的文字的颜色 B.在设计时放置的控件 C.程序运行时产生的图形和文字 D.以上方法都对 52744.下列数组声明正确的是(C)(单) A.Dim a(1 to n) As Integer B.Dim a(10) As Integer：ReDim a(1 to 12) C.Dim a( ) As Integer：ReDim a(3 ,4) As Integer D.Dim a( ) As Integer：ReDim a(1 to n) As Integer 52745.下列控件中，没有Caption属性的是(B)(单) A.框架 B.列表框 C.复选框 D.单选按钮 52746.如下程序段定义了学生成绩的记录类型，由学号、姓名、三门课程成绩(百分制)组成。 Type Stud no As Integer name As String * 10 score (1 to 3) As Single End Type 若对某个学生的各数据项进行赋值，下列程序段正确的是(C)(单) A.Dim S As Stu： Stud.no =0201： Stud.name=\李平\： Stud.score=78,88,96 B.Dim S As Stud： S.no =0201： S.name=\李平\： S.score=78,88,96 C.Dim S As Stud： S.no =0201： S.name=\李平\： S.score(1)=78： S.score(2)=88： S.score(3)=96 D.Dim S As Stud： Stud.no =0201： Stud.name=\李平\： Stud.score(1)=78： Stud.score(2)=88： Stud.score(3)=96 52747.如果Form1是启动窗体，并且Form1的Load事件过程中有Form2.Show，则程序启动后(C)(单) A.发生一个运行时错误 B.发生一个编译时错误 C.在所有的初始化代码运行后Form1是活动窗体 D.在所有的初始化代码运行后Form2是活动窗体 52748.如果列表框(List1)中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是(B)(单) A.移去第一项 B.移去最后一项 C.移去最后加入列表一项 D.以上都不对 52749.如下程序，运行的结果是(B)(单) Private Sub Form_Click( ) Dim m As Integer,I As Integer,x(10) As Integer For I= 0 to 4 x(I)=I + 1 Next I For I=1 to 2 Call proc(x) Next I For I= 0 to 4 Print x(I); Next I End Sub Public Sub proc(a( ) As Integer) Static I As Integer Do a(I)=a(I)+a(I+1) I=I+1 Loop While I＜2 End Sub A.3 4 7 5 6 B.3 5 7 4 5 C.2 3 4 4 5 D.4 5 6 7 8

52750.假设有以下程序段： Integer) As Integer For I=1 to 3 P2 = 2 * x + y For j=5 to 1 Step -1 End Function Print I*j 当单击1次和单击2次命令按钮后，文本框Next j Text1和Text2内的值分别是(C)(单) Next I A.2 4和2 4 B.2 4和4 8 则语句Print I*j的执行次数I、j 的值分C.10 10和58 58 D.4 4和8 8 别是(C)(单) A.5 0 B.3 1 C.4 0 52754.下面是一个歌手大赛评分程序。10D.3 1 52751.在窗体上一个文本框，其名称为Text1,然后编写如下事件过程： Private Sub Text2_KeyPress(KeyAscii As Integer) Dim str As String ,n As Integer str=Ucase(Chr(KeyAscii)) n=Len(str) Text1=String(n, str) End Sub 程序运行后，如果在TEXT2中通过键盘上输入单字母\，则在文本框Text1中显示的内容为(B)(单) A.k B.K C.KK D.Kk 52752.下列叙述不正确的是(D)(单) A.驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框 B.驱动器列表框设置的Drive属性只能在运行时起作用 C.驱动器列表框能够自动变更系统当前的工作驱动器 D.要改变系统当前的工作驱动器需要使用path属性 52753.窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序： Dim y As Integer Private Sub Command1_Click( ) Dim x As Integer x = 2 Text1.Text = P2(P1(x), y) Text2.Text = P1(x) End Sub Private Function P1(x As Integer) As Integer x = x + y: y = x + y P1 = x + y End Function Private Function P2(x As Integer, y As 位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。 Private Sub Form_Click( ) Max= 0 Min= 10 For I = 1 To 10 x=Val(InputBox(\请输入分数\If x＞Max Then Max=x If x＜Min Then Min=x s =s + x Next I s = s-Max-【Min】 p = s/8 Print \最高分\最低分\Print \最后得分\End Sub 52755.日期类型的数据由(D)符号括起来(单) A.* B.& C.% D.# 52756.设a=8，则执行x=Iif(a＞5,-1,0)后,x的值为(D)(单) A.5 B.6 C.0 D.-1 52757.要获得文件列表框中当前被选中的文件的文件名，则应使用(D)属性(单) A.Dir B.Path C.Drive D.FileName 52758.VB中定义常量的语法正确的(D)(单) A.常量名 [AS类型] B.常量名 [AS类型]=表达式 C.Const 常量名 [AS类型] D.Const 常量名 [AS类型]=表达式 52759.VB中关于变量或常量的命名规则说法不正确的是(D)(单) A.不区分大小写 B.名字长度不能超过255个字符 C.不能使用VB中的关键字 D.名字都以数字组成

52760.Shell函数不能调用下列文件类型中52771 .VB中标准模块文件的扩展名的(D)(单) 为.bas。√ A.命令文件（.com） B.可执行 文件（.exe） 52772 .Visual Basic程序中语句行的续行C.批处理文件（.bat） D.文本文符是单引号'。× 件（.txt） 52773 .VB中整型的类型符是!。× 52761.在调用过程时，我们把事件中的调用 过程中的参数称为(A)(单) 52774 .在算术运算中，如果操作数具有不A.实参 B.形参 C.址参 同的数据精度，则VB规定运算结果的数据D.变参 52762.MID(\你好北京!\的返回值为(B)(单) A.\好\北\C.\京\D.\ 52763.时钟控件只有一个事件是(C)(单) A.Click B.Active C.Timer D.Load 52764.要在窗体的背景上添加一张图片，应设置窗体的(D)属性(单) A.Caption B.BorderStyle C.Visible D.Picture 52765.不是结构化程序设计方法的三种基本结构的是(B)(单) A.顺序 B.递归 C.选择D.循环 52766. VB中的注释语句包括(AB)(多) A.' B.Rem C.# D.{ } 52767.VB中有三种文件访问类型，它们是(ABD)(多) A.顺序 B.随机 C.文本D.二进制 52768.下列控件中不具有Caption属性的有(AD)(多) A.Text B.Command C.Label D.Timer 52769.VB的集成开发环境包括(ABCD)(多) A.窗体窗口 B.属性窗口 C.代码窗口 D.工具箱 52770 .VB是一种面向对象的可视化开发工具。√ 类型采用精度低的数据类型。× 52775 .VB中Rnd函数返回值为0到1之间的随机小数。√ 52776 .数组控件是一组相同类型的控件，它们的控件名不同，但属性相同。× 52777 .在调用过程时，实参与形参的结合有传值和传址两种方法。√ 52778 .VB中自定义过程可分为子过程和函数过程。√ 52779 .Load事件是在窗体被装入工作区时自动触发的事件。√ 52780.VB中定义字符型的类型符是【$】。 52781.函数Int(5.8)的结果为【5】。 52782.在VB中，用于管理文件系统的3个控件是：文件列表框、目录列表框和【驱动器列表框】。 52783.数组包括静态数组、【动态】数组以及控件数组三种。 52784.多文档界面由MDI窗体和子窗体组成，子窗体可以显示在MDI窗体的工作区中，也可以显示在MDI窗体的工作区外× 52785.Visual Basic是可视化的、面向对象、采用(C)驱动方式的结构化高级程序设计语言(单) A.过程 B.对象 C.事件D.任务 52786.VB集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单) A.设计状态 B.编写代码状态

C.运行状态 D.中断状态 D.DblClick 52787.要使一个文本框对象能够显示多行52799.当一个复选框被选中时，它的Value文字，应设置该对象的(B)属性值为True。属性的值是(A)(单) (单) A.1 B.2 C.3 D.0 A.Text B.MultiLine C.Style D.Visible 52800.设有一个文件名为 \，文件号为\，则语句 52788.下列的(A)对象支持KyePress事件open\(单) #1实现的功能是打开一个(B)(单) A.文本框 B.命令按钮 C.标签 A.顺序文件 B.随机文件 C.二进制文件 D.图片框 52789.若要将窗体从内存中卸载，其实现的方法是(B)(单) A.Show B.Unload C.Load D.Hide 52790.下面四个选项，不是事件或方法的是(B)(单) A.Load B.Enabled C.Unload D.DblClick 52791.以下不具有Picture属性的对象是(D)(单) A.窗体 B.图片框 C.图像框 D.文本框 52792.从随机文件中读取数据的命令是(B)(单) A.Put B.Get C.Print D.Input 52793.VB6共有三个版本，按功能从弱到强的顺序排列应是学习版、专业版和企业版。√ 52794 .VB中使用Point方法画点。× 52795 .时钟控件的Interval属性的值是以秒为单位的。× 52796 .窗体不是VB中的标准控件。× 52797 .在VB中数据库内的表格不允许直接访问，而只能通过记录集对象(RecordSet)进行记录的操作和浏览。√ 52798.下面四个选项，不是事件的是(B)(单) A.Load B.Setfocus C.Lostfocus D.普通文件 52801.假定在图片框Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(B)(单) A.选择图片框，然后按Del键 B.执行语句Picture1.picture=LoadPicture(\C.执行语句Picture1.picture=\D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键 52802.确定一个控件在窗体上的位置的属性是(CD).(多) A.Width B.Height C.Top D.Left 52803.Visual Basic应用程序通常由以下几种模块组成(ABC).(多) A.窗体模块 B.标准模块 C.类模块 D.程序模块 52804.Visual Basic的对象包括(ABCD).(多) A.窗体 B.常用控件 C.高级控件 D.文本框控件 52805.组合框的类型有(ABC).(多) A.下拉式组合框 B.简单组合框 C.下拉式列表框 D.列表框 52806 函数递归是指在函数过程在其过程体的内部调用自己√ 52807 .VB中数组的下界默认为1，但也可用语句\base n\更改数组的下界从n开始。√ 52808 .多重窗体和多文档窗体是同一概念。

×

52809 .在子过程或函数的调用中，如果形参是数组类型，则只能采用传值调用。×

52810 .Clear方法可清除列表框或组合框的所有内容√ 。

52811 .局部变量指在过程内用Dim语句声明的变量，它只能被本窗体中的本过程使用，别的过程不能使用。√

52812.在列表框中添加一个列表项可以使用(C)方法(单)

A.Cls B.Clear C.Additem D.Removeitem

52813.当单击滚动条两端的箭头时，滑块移动的增量值用(D)属性来设置(单)

A.Max B.Min C.LargeChange D.SmallChange

52814.当把时钟控件的Interval属性设置为500,则间隔(B)的时间产生一个计时器事件(单)

A.500s B.0.5s C.0s D.5ms

52815.当建立控件数组时，应将第一个控件数组元素的index值设为(A)(单)

A.0 B.1 C.2 D.3

52816 .时钟控件不仅有Timer事件，还有Click事件。×

52817 .把光标移动到指定的文本框中，可以使用SetFocus方法。√

52818 .VB中逻辑类型能够与整型数据转换。√

52819 .文本框没有Caption属性。√

52820 MDI子窗体是一个MDIChild属性为False的普通窗体×

52821 .用Label控件显示文本时可将文本写入Label的Text属性。×

52822 .属性是对对象的一项描述内容，用以描述对象的一个特征。√

52823 .方法是与对象相关联的过程与函数的统称，即在对象中说明的并且用户可以调用的公共函数和过程。√

52824 .代码的编写是在窗体设计器中进行的。×

52825 .设置窗体和控件的属性必须都在代码编辑器中进行。×

52826 .当程序出现编译错误时，程序可以继续执行，只是运行过程中会出错。√

52827 .当程序出现逻辑错误时，程序可以执行，只是运行过程中会出错。√

52828 .程序出现编译错误时，说明程序一定有错误。√

52829 .与窗体位置及大小有关的属性有：Height、Width、Top、Left。√

52830.隐藏或显示标签Label应通过设置Label的【Visible】属性来实现。

52831.下面关于多重循环的说法正确的是(CD)(多)

A.多重循环中的内外循环是相互独立的，彼此之间没有任何关系

B.内外循环的控制变量可以同名 C.并列的循环控制变量可以同名

D.在多重循环中的每个层次可以有多个并列的循环

52832 .参加MOD运算的操作数必须是整型。√

52833 .标准函数Len的返回值为字符类型。×

52834 .编辑框TEXT中显示的文本内容是受Caption属性控制的。×

52835 .用Label标签显示在程序中的文本，用户不能直接修改。√

52836 .InputBox函数返回的数据类型为整型。×

52837 .容器控件中还可以包含其他容器控件。√

52838 .只有当控件的enabled属性的值为真(true)时，控件才能接收焦点。√ 52839 .按钮控件Command上显示的文本通过Text属性设置。× 52840 .满足条件\是小于200的非负数\的VB正确的表达式是0≤x＜200。× 52841 .内外循环的控制变量不能同名。√ 52842 .多重循环的内外循环是必须相互独立。× 52843 .内外循环的控制变量可以同名。× 52844 .在多重循环中的每个层次上只能有一个循环。× 52845 .在FOR C=1 TO 5 SETP 2.......next c循环中需要使用一个循环变量，每执行完一次循环，程序中需要有对循环变量c加1的语句。× 52846 .为了避免死循环，在do ...... Loop循环体中应有改变循环条件中变量值的语句。√ 52847.控件的名称应在(A)属性中修改(单) A.Caption B.Text C.Name D.Lines 52848.通用对话框CommonDialog控件来显示文件打开对话框时，需要调用通用对话框的(A)方法(单) A.ShowOpen B.ShowOave C.ShowColor D.ShowFont 52849.在编辑菜单时，建立热键的方法是在菜单标题的某个字符前加上一个(C)符号(单) A.- B.+ C.& D.= 52850.通用对话框CommonDialog控件来显示另存为对话框时，需要调用通用对话框的(C)方法(单) A.ShowOpen B.ShowColor C.ShowSave D.ShowHelp 52851.通用对话框CommonDialog控件来显示颜色对话框时，需要调用通用对话框的(B)(单) A.ShowOpen B.ShowColor C.ShowSave D.ShowHelp 52852.通用对话框CommonDialog控件来显示字体对话框时，需要调用通用对话框的(D)(单) A.ShowOpen B.ShowColor C.ShowSave D.ShowFont 52853.通用对话框CommonDialog控件来显示帮助对话框时，需要调用通用对话框的(D)(单) A.ShowOpen B.ShowColor C.ShowFont D.ShowHelp 52854.相对于通用对话框而言，不属于\打开\文件对话框的属性的是(D)(单) A.FileName B.FileTitle C.Filter D.Flags 52855.在\打开\文件对话框的【Filename】属性，用于设置和得到用户所选的文件名。 52856.在程序中执行Close #1命令，其作用是(A)(单) A.关闭当前正在使用的一个文件 B.关闭第一个打开的文件 C.关闭最近一次打开的文件 D.关闭所有文件 52857.使用Do while循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是(A)(单) A.Open \： Do While Not EOF(1)： Line Input #1,strLine： Loop B.Open \： Do While EOF(#1)： Line Input #1,strLine ： Loop C.FileNo=FreeFile： Open FileNo For Input As #1： Do While Not EOF(FileNo)： Line Input #1, strLine： Loop D.FileNo=FreeFile： Open FileNo For Input As #1： Do While EOF(# FileNo)：

LineInput #1, strLine： Loop

52858.当改变目录列表框控件Dir1中的当前目录时，希望同步改变文件列表框File1中显示的文件，在Dir1_change事件过程中使用的命令是(A)(单) A.File1.Path=Dir1.Path B.Dir1.Path =File 1 .Path C.File1.Path = Dir1.Drive D.Dir1.Drive= File1.Path

52859.从随机文件中写入数据的命令是(A)(单)

A.Put B.Get C.Print D.Input

52860.在VB中，当改变目录列表框的path属性值时，改变了当前驱动器的【Drive】属性。

52861.在VB中，用于打开随机文件的关键字是(A)(单)

A.Random B.Input C.Get D.output

52862.为了获得当前文件的字节数，可以利用VB提供的【Len】函数来实现。

52863.要求打开随机文件\文件，文件号为1。实现的语句如下，请将( )处填写完整。 【Open】 \for random as #1

52864.现有一个已经打开的随机文件\文件，文件号为1。关闭该文件的语句是：【Close】 #1

52865.用菜单编辑器创建菜单时，如果要在一个菜单中添加一条分隔线，正确的操作是(A)(单)

A.在标题输入框中输入\减号) B.在名称输入框中输入\减号) C.在标题输入框中输入\下划线) D.在名称输入框中输入\下划线)

52866.在显示菜单时，菜单项的下列哪个属性为False时将用浅灰色显示该菜单项标题(C)(单)

A.Caption B.Checked C.Enabled D.Visible

52867.窗体文件的扩展名【.frm】。

52868.设在菜单编辑器中定义了一个菜单项，名为menul。为了在运行时隐藏该菜单项，应在程序中使用的语句是(D)(单) A.menu1.Enabled=True B.menu1.Enabled=False C.menu1.Visible=True D.menu1.Visible=False

52869.指定窗体标题显示内容的属性是(C)(单)

A.Text B.Name C.Caption D.BackStyle

52870.当窗体最小化时缩小为一个图标，设置这个图标的属性是(B)(单)

A.MouseIcon B.Icon C.Picture D.MousePointer

52871.为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是(D)(单)

A.ControlBox B.MinButton C.Enabled D.MaxButton

52872.为了使命令按钮的Picture属性生效，必须把它的Style属性设置为(B)(单) A.0-Standard B.1-Graphical C.True D.False

52873.决定窗体有无控制菜单的属性是(A)(单)

A.ControlBox B.MinButton C.Enabled D.MaxButton

52874.为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为(D)(单) A.0-none B.1-Horizontal C.2-Vertical D.3-both

52875.使文本框失去焦点的事件是(D)(单) A.Change B.Focus C.SetFocus D.LostFocus

52876.为了使标签背景色不透明，应把BackStyle属性设置为(B)(单)

A.0 B.1 C.True B.List1.index D.False 52877.为了使标签中的内容居中显示，应把Alignment属性设置为(C)(单) A.0 B.1 C.2 D.3 52878.下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为(C)(单) A.Picture = \B.Picture1.Handle = \C.Picture1.Picture = LoadPicture(\D.Picture = LoadPicture(\ 52879.决定标签内显示内容的属性是(D)(单) A.Text B.Name C.Alignment D.Caption 52880.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(B)(单) A.Value B.Default C.Cancel D.Enabled 52881.为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(C )(单) A.Value B.Default C.Cancel D.Enabled 52882.假定在图片框Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的不正确方法是(AC)(多) A.选择图片框，然后按Delete键 B.执行语句Picture1.picture=LoadPicture(\C.执行语句Picture1.picture=\D.选择图片框，在属性窗口中选择Picture属性内容，然后按Delete键 52883.设置复选框或单选按钮标题对齐方式的属性是(B)(单) A.Align B.Alignment C.Sorted D.Value 52884.用户选择的列表框List1中的内容，可以表示为(A)(单) A.List1.text C.List1.select(3) D.List1.MultiSelect 52885.要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为(C)(单) A.0 B.1 C.2 D.其他 52886.删除列表框中指定的一个项目所使用的方法为(B)(单) A.Move B.Remove C.Clear D.RemoveItem 52887.当单击滚动条空白处时(滚动条的value值有所改变)，将触发滚动条的事件是(B)(单) A.Move B.Change C.Scoll D.SetFocus 52888.用户在组合框中输入数据可以通过一个属性获得，这个属性是(C)(单) A.List B.ListIndex C.Text D.ListCount 52889.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程(注意：变量a是字符类型)。 Private Sub Command1_Click( ) a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load( ) Text1.Text = \Text2.Text = \End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则窗体上输出结果为(C)(单) A.444 B.321123 C.123321 D.132231 52890.为了使标签能自动调整大小以显示全部文本内容，应把标签的【Autosize】属性设置为True。 52891.要想在文本框中显示垂直滚动条，必须把ScrollBars属性设置为2，同时还应把【Multiline】属性设置为True。

52892.假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是Text1.【Setfocus】。

52893.为了使一个标签透明且没有边框，必须把它的【Borderstyle】属性设置为0，并把BackStyle属性设置为0。

52894.假定有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框(名称为Picture1)，应执行的语句为【picture1.picture=loadpicture（“pic2.gif”）】。

52895 .为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的Stretch属性设置为True。√

52896.以下程序段功能是将大写字符转换为小写字符，小写字符转换为大写字符，空格不转换，其他字符转换为*星号。

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim aa As String * 1 Dim Length As Integer Length = Len(Text1.Text) aa = Chr$【keyASCII】 Select Case aa Case \

aa = Chr$(KeyAscii + 32) Case \

aa = Chr$(KeyAscii - 32) Case \Case Else aa = \End Select

Text2.Text = Text2.Text & aa End Sub

52897.以下程序段功能是将大写字符转换为小写字符，小写字符转换为大写字符，空格不转换，其他字符转换为*星号。

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim aa As String * 1 Dim Length As Integer Length = Len(Text1.Text) aa = Chr$(keyascii) Select Case aa Case \aa = Chr$(keyascii+【32】) Case \

aa = Chr$(KeyAscii - 32) Case \Case Else aa = \End Select

Text2.Text = Text2.Text & aa End Sub

52898.以下程序段功能是将大写字符转换为小写字符，小写字符转换为大写字符，空格不转换，其他字符转换为*星号。

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim aa As String * 1 Dim Length As Integer Length = Len(Text1.Text) aa = Chr$(keyascii) Select Case aa Case \

aa = Chr$(keyascii+32) Case \

aa = Chr$(【keyASCII】-32) Case \Case Else aa = \End Select

Text2.Text = Text2.Text & aa End Sub

52899.下面代码的作用是(A)(单) Command1.FontBold = True Command1.FontItalic = True Command1.FontUnderline = True Command1.Enabled = False

A.按钮上的字加粗、倾斜、下划线、按钮不可用

B.按钮上的字加粗、倾斜、下划线、按钮隐藏

C.按钮上的字加粗、不倾斜、下划线、按钮不可用

D.按钮上的字加粗、倾斜、下划线、按钮可用

52900.下面对程序段运行结果叙述正确的是(B)(单)

Private Sub Form_Click( ) Caption = \鼠标单击\

Picture = LoadPicture(App.Path + \

Print \欢迎使用VB\End Sub

Private Sub Form_DblClick( ) Caption = \鼠标双击\

Picture = LoadPicture(\Print \结束使用VB\End Sub

A.单击窗体时窗体的标题为\鼠标单击\，窗体上显示\结束使用VB\

B.双击窗体时窗体的标题为\鼠标双击\，窗体上显示\结束使用VB\

C.双击窗体时窗体的图片还在 D.单击窗体时窗体的图片删除

52901.窗体上有名称为text1和text2的文本框各一个，编写以下程序段，当单击窗体时运行的效果为(B)(单) Private Sub Form_Click( ) Text1.SelStart = 0 Text1.SelLength = 8

Text2.Text = Text1.SelText End Sub

A.text1中选择了9个字符（从第0个到第8个字符）

B.text1中选择了8个字符（从第1个到第8个字符）

C.text2中显示9个字符 D.以上说法都不正确

52902.在窗体中建立了三个文本框，名称分别为text1、text2和text3，编写以下程序段：

Private Sub Text2_LostFocus( ) Dim i As Integer

If IsNumeric(Text2) Then Text3.Text = \正确!!\Else

Text2.Text = \Text2.SetFocus

Text3.Text = \错误,再输入!!\End If End Sub

当在text2中输入字符串\后，点击text3，运行的结果为(CD)(多)

A.text2的内容清除,text3中显示\正确!!\B.text3中显示\正确!!\ C.光标聚焦在text2中

D.text2的内容清除,text3中显示 \错误,再输入!!\

52903.在窗体中建立了三个文本框，名称分别为text1、text2和text3，编写以下程序

段：

Private Sub Text2_LostFocus( ) Dim I As Integer

If IsNumeric(Text2) Then Text3.Text = \正确!!\Else

Text2.Text = \Text2.SetFocus

Text3.Text = \错误,再输入!!\End If End Sub

当在text2中输入数字123后，点击text3，运行的结果为(A)(单)

A.text3中显示\正确!!\ B.text2的内容清除

C.光标聚焦在text2中

D.text2的内容清除,text3中显示 \错误,再输入!!\

52904.窗体中有一个名称为txtNoteEdit的文本框和一个名称为cmdCut的命令按钮，编写如下程序段：

Private Sub cmdCut_Click( ) st = txtNoteEdit.SelText txtNoteEdit.SelText = \End Sub

当单击命令按钮后，程序执行的效果是(C)(单)

A.将txtNoteEdit中的所有内容存放到st变量中，并将txtNoteEdit选中的内容清除，实现了剪切

B.将txtNoteEdit选中的内容存放到st变量中，并将txtNoteEdit中所有的内容清除，实现了剪切

C.将txtNoteEdit选中的内容存放到st变量中，并将txtNoteEdit选中的内容清除，实现了剪切

D.以上说法都不正确

52905.窗体中有一个名称为txtNoteEdit的文本框和两个名称分别为cmdCut和cmdPaste的命令按钮，编写如下程序段： dim st as string

Private Sub cmdCut_Click( ) st = txtNoteEdit.SelText txtNoteEdit.SelText = \End Sub

Private Sub cmdPaste_Click( )

txtNoteEdit.Text = Left(txtNoteEdit, txtNoteEdit.SelStart) + st +

Mid(txtNoteEdit, txtNoteEdit.SelStart

+ 1) End Sub

当单击cmdPaste命令按钮后，程序执行的效果是(B)(单)

A.将文本框txtNoteEdit中的所有内容插入到光标所在的位置,实现了粘贴

B.将st变量中的内容插入到光标所在的位置,实现了粘贴

C.将文本框txtNoteEdit选中的内容存放到st变量中,实现了剪切 D.以上说法都不正确

52906.编写以下程序段： Private Sub Form_Click( ) For I = 1 To 3

Print String(I, \▼\Next I End Sub

其中〈CR〉表示换行和回车

当单击窗体时，显示的图形为(D) (单) A.▼▼▼▼ 〈CR〉 B.▼▼▼〈CR〉〉▲▲〈CR〉▼〈CR〉

C.▼▼〈CR〉▲▲▲〈CR〉▼▼▼▼ 〈CR〉 D.▼〈CR〉▲▲〈CR〉▲▲▲〈CR〉

52907.以下程序段，图形框运行后的效果为(C)(单)

Private Sub Image1_Click( ) Image1.Move (Form1.ScaleWidth - Image1.Width) \\ 2, (Form1.ScaleHeight - Image1.Height) \\ 2, Image1.Width \\ 2, Image1.Height \\ 2 End Sub

A.单击图形框，移动图形框起始点到窗体中心位置，图形大小不改变 B.单击图形框，移动图形框起始点到窗体中心位置，图形宽度改变为原来1/4 C.单击图形框，移动图形框起始点到窗体中心位置，图形宽度改变为原来1/2 D.以上说法都不正确

52908.窗体、图片框或图像框中的图形通过对象的【Picture】属性设置。

52909.计时器事件之间的间隔通过【Interval】属性设置。

52910.有时候需要暂时关闭计时器，这可以通过【Enabled】属性设置为false来实现。

52911.组合框有3种不同的类型，这3种类型是下拉式组合框、简单组合框和【下拉式

列表框】。

52912.在3种不同类型的组合框中，只能选择而不能输入数据的组合框是【下拉式列表框】。

52913.与传统的C语言程序设计相比，VB最突出的特点是（C）(单)

A.结构化程序设计 B.程序开发环境

C.事件驱动编程机制 D.程序调试技术

52914.在正确安装VB6后，可以通过多种方式启动VB，以下方式中，不能启动VB的是(D)(单)

A.通过\开始\菜单中的\程序\命令

B.通过\我的电脑\找到VB6.exe，双击该文件名

C.通过\开始\菜单中的\运行\命令 D.进入DOS方式，执行VB6.exe文件

52915.VB6集成环境的主窗口中不包括(C)(单)

A.标题栏 B.菜单栏 C.状态栏 D.工具栏

52916.用标准工具栏中的按钮不能执行的操作是(B)(单)

A.添加工程 B.打印源程序C.运行程序 D.打开工程

52917.VB窗体设计器的主要功能是(A)。 A.建立用户界面 B.编写源程序代码

C.画图 D.显示文字

52918.VB6分为3种版本，这3种版本是学习版、专业版和【企业版】。

52919.可以通过【文件】菜单中的“退出”命令退出VB。

52920.退出VB的快捷键是【ALT+Q,Q+ALT】。

52921.快捷键【CTRL+O,O+CTRL】的功能相当于执行“文件”菜单中的“打开”命令，或者相当于单击工具栏上的“打开”按钮。

52922.如果打开了不需要的菜单或对话框，可以用键盘上的【ESC】键关闭。

52923.工程文件的扩展名是【.Vbp】。

52924.VB中的菜单栏有两种形式，分别为下拉形式和【弹出】形式。

52925.下列可以激活属性窗口的操作不正确的是(ACD)(多)

A.用鼠标双击窗体的任何部位

B.执行“视图”菜单中的“属性窗口”命令 C.按Ctrl+Alt+Delete键 D.按Alt+F4键

52926.下列不能打开工具箱窗口的操作是(B)(单)

A.执行“视图”菜单中的“工具箱”命令 B.按F8键 C.单击工具栏上的“工具箱”按钮

D.按Alt+V，然后按Alt+X键

52927.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单)

A.单击窗体的边框 B.单击该控件的内部

C.双击该控件 D.双击窗体

52928.确定一个控件在窗体上的位置的属性不正确的是(AB)(多)

A.Width B.Height C.Top D.Left

52929.确定一个窗体或控件的大小的属性是(AB)(多)

A.Width B.Height C.Top D.Left

52930.在VB中的数组类型有三种，它们是(ABC )(多)

A.控件数组 B.静态数组 C.动态数组 D.长行数组

52931.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为“VB Test”的语句为(B)(单)

A.Form1=“VB Test”

B.Caption=“VB Test” C.Form1.text=“VB Test” D.Form1.Name=“VB Test”

52932.下列不能打开代码窗口的操作是(D)(单)

A.双击窗体上的某个控件 B.双击窗体

C.按F7键 D.单击窗体或控件

52933.若一个应用程序中有三个窗体文件和一个工程文件，则下列说法中正确的是(C)(单)

A.只保存窗体文件（.frm） B.只保存工程文件（.vbp）

C.分别保存工程文件和标准模块文件（.bas）

D.分别保存工程文件、窗体文件

52934.为了装入一个应用程序，应当(B)(单)

A.只需装入窗体文件（.frm）即可 B.只需装入工程文件（.vbp）即可

C.只需装入可标准模块文件（.bas）即可 D.以上都不正确

52935.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为(B)(单) A.1 B.2 C.3 D.4

52936.属性窗口分为4个部分，这4个部分分别是【对象】框、排序选项卡、属性列表和属性说明。

52937.假定一个文本框的Name属性为Text1，为了在该文本框中显示“hello”，所使用的语句为

【TEXT1.TEXT=\LLO\】。

52938.VB中的控件分为3类，它们是标准控件、可插入对象和【ActiveX】部件。

52939.一个控件在窗体上的位置由 top和left属性决定，其大小由【Width】和height属性决定。

52940 .可以通过多种方式激活属性窗口，这些方式是菜单、工具栏、快捷菜单、快捷键。√

52941.为了选择多个控件，可以按住ctrl或【shift】键，然后单击每个控件。

52942.在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如

下事件过程： Private sub command1_click( ) text1.text=\text2.text=text1.text text1.text=\End Sub 程序运行后，单击命令按钮，文本框text2中显示的内容为【VB】。 52943.在用VB开发应用程序时，一般需要设计用户界面、编写【代码】和编译运行应用程序3步。 52944.控件和窗体的Name属性只能通过【属性】窗口设置，不能在编写代码期间设置。 52945.代码窗口分为左右两栏，左边一栏称为【对象】列表栏，右边一栏称为事件列表栏。 52946.为了在输入程序时能自动进行语法检查，必须执行\工具\菜单中的\选项\命令，打开\选项\对话框，然后选择“编辑器”选项卡中的自动【语法】检测选项。 52947.在保存VB应用程序时，窗体文件和工程文件的扩展名分别为【.frm】和.vbp。 52948.为了把一个VB应用程序装入内存，只要装入【工程】文件即可。 52949.VB应用程序通常由3类模块组成，即窗体模块、【标准】模块和类模块。 52950.下列可作为VB的变量名的是(B)(单) A.Filename B.A3B C.254D D.Print 52951.下列可作为VB中允许表示出来的数是(A)(单) A.10＾（0.25） B.D32 C.2.5E-19 D.12E3 52952.设a=2，b=3，c=4，d=5，表达式 a＞b and c＜=d or 2*a＞c 的值是(B)(单) A.true B.false C.－1 D.1 52953.设a=2，b=3，c=4，d=5，表达式 3＞2*b or a=c and b＜＞c or c＞d 的值是(C)(单) A.1 B.true C.false D.－1 52954.设a=2，b=3，c=4，d=5，表达式 not a＜＝c or 4*c＝b^2 and b＜＞a+c 的值是(D)(单) A.1 B.－1 C.true D.false 52955.数学表达式|3d+cos(28)|有错误，其正确的VB形式是【abs(3*d+cos(28))】。 52956.下列VB表达式(－3/8＋8.int24.8)有错误，其正确的形式是【－3/8+8*int(24.8)】。 52957.下列VB表达式 ((8＋6)＾(4÷－2)＋sin(2×PI) 有错误，PI=3.14，其正确的形式是【(8+6)^(4/(-2))+SIN(2*3.14)】。 52958.与下列数学式cos2(c+d)对应的VB表达式是【cos(2*(c+d))】。 52959.与下列数学式2a(7＋b)对应地VB表达式是【2*a*(7+b)】。 52960.在VB中，字符串常量要用【双引号】括起来。 52961.在VB中，日期/时间型常量要用【#】括起来。 52962.下列语句Print int(12345.6789*100+0.5)/100的输出结果是【12345.68】。 52963.假定picture1和text1分别为图片框和文本框的名称，下列不正确的语句是（C）(单) A.print 25 B.picture1.print 25 C.text1.print 25 D.form1.print \你好\ 52964.以下语句 a=27 b=65 print a;b 的输出结果是(D)。(其中的△表示空格，CT表示回车和换行)(单)

A.27 CT 65 CT B.CT 27 CT 65

本文来源：https://www.bwwdw.com/article/65d7.html