大学vb考试题库大全

1、WORD格式哇咔咔 谢谢使用呼唤奇迹的爷们一、单项选择题1、与传统的程序设计语言相 比,Visual Basic 最突出的特点 是（C）。B、程序开发环A 、结构化程序设计C、事件驱动编程机制境D 、程序调试技术2、赋值语句： a=123 & MID(123456,3,2)执行后， a 变量中的值是（ C ）A 、 12334B、 123C、 12334D、 1573、保存一个工程至少应保存两个文件，这两个文件分别是（ B ）。A 、文本文件和工程文件 B 、窗体文件和工程文件C、窗体文件和标准模块文件D 、类模块文件和工程文件专业资料整理窗体 的语句是（ C ）。4、以下能在窗Form1 的

2、标题栏中显示体VisualBasic窗体 窗体 A 、Form1.Name=VisualBasicB、Form1.Title=VisualBasicC、Form1.Caption=VisualBasic窗体 D、Form1.Text=VisualBasic 窗体 5、为了装入一Visual Basic应用程序，应当个（ D ）.frmA 、只装入窗体文件（）.vbpB、只装入工程文件（）C、分别装入工程文件和标准模块文件.bas（）D、分别装入工程文件、窗体文件和标准模块文 件A 、标题栏B、菜单栏C、状态栏9、以下叙述中错误的是(C) 。A 、 VisualBasic是事件驱动型可视化编程工

3、具B、 Visual应用程序不具有明显的开始和结束语Basic句C、 Visual Basic工具箱中的所有控件都具有宽度（D、 Visual Basic中控件的某些属性只能在运行时设置10、要使 Print方法在 Form_Load 事件中起作用的A 、D、工具栏Width ）和高度（ Height 属性要对窗体BackcolorB、 ForeColorC、 AutoRedrawD 、 BackStyle（C） 属性进行设6、赋给一个数组的数据类型一定要（A ）。A 、相同 B 、不相同C、两可D、都不对7、下面正确的赋值语句是（C）。A 、 x+y=30B、 y= *r*rC、 y=x+3

4、0D、 3y=x8、 Visual Basic 6.0集成环境的主窗口中不包括 （ C ）11、若要使命令按钮不可操作，要对（A） 属性进行设 制A 、 EnabledB 、 VisibleC、 BackColorD、 Caption12、以下叙述中错误的是 (B) 。A 、一个工程中可以包含多个窗体文件B、在一个窗体文件中用Private 定义的通用过程能被其他窗体调用C、在设计 VB 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D、一个工程默认的启动对象是Form113、Cls 方法可以清除窗体或图片框中的 (C) 内容 。A 、在设计阶段使用 Picture 设置的背

5、景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上均可14、设 x=3,y=5, 则以下表达式值为真的是 (C)B 、 (xx) And (y0) (y0)C、 (xy) Or(y0)D 、 x=y And y1015、为了防止用户随意将光标置于控件之上，应将进 行 (D) 设置 A 、将控件的 TabIndex 属性设置为B、将控件的TabStop属性设置为TrueC、将控件的TabStop属性设置为FalseD、将控件的Enabled属性设置为False(D) 事件中判Enter键，应在文本框16、要判断在文本框是否按了的断。A 、 ChangeB、KeyDownC、 C

6、lickD、KeyPress17、以下关于焦点的叙述中，错误的是(A) 。TabStop 属性为 False ，则不能接收从键盘上输入的0A 、如果文本框的 数据B、当文本框失去焦点时，触发LostFocus 事件C、当文本框的 Enabled 属性为 False 时，其 Tab 顺序不起作用D、可以用 TabIndex 属性改变 Tab 顺序Enabled 属性设为 False ，则18、如果文本框的 (A) 。A 、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上。B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本 框中的内容。C、文本框的文本将变成灰色，

7、用户仍然能改变文本框中的内 容。D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内 容。19、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 (C) 。(B)A 、 MouseDown B 、 MouseUp C、 LoadD 、 Click20、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是 A 、 AutosizeB、 StretchC、 AutoRedrawD、 Appearance21、为了防止用户随意将光标置于控件之上，应设置的属性是(D) 。A 、将控件的 TabIndex 属性设置为 0B、将控件的 TabStop 属

8、性设置为 TrueC、将控件的 TabStop 属性设置为 False D、将控件的 Enabled 属性设置为 False22、不论何控件，共同具有的是(B) 属性。A 、 TextB、 NameC、 ForeColorD、 Caption23、以下关于窗体的描述中，错误的是(A) 。A 、执行 Unload Form1 语句后，窗体 Form1 消失，但仍在内存 中 B、窗体的 Load 事件在加载窗体时发生C、当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被 禁止 D、窗体的 Height 、 Width 属性用于设置窗体的高和宽24、当运行程序时，系统自

9、动执行窗体的(A) 事件过程。B 、A 、 LoadC、 Unload25、窗体设计器是用来设计A 、应用程序的代码段C、对象的属性26、 Visual Basic是取了A 、事件驱动ClickD 、 GotFocus(B) 。B、应用程序的界面(A) 的编程机 制。D 、对象的事件 向对象的可视化程序设计语言，采B 、按过程顺序执行C、从主程序开始执行D、按模块顺序执行27、确定一个控件在窗体上的位置的属性是(D) 。A 、 Width 或 HeightB 、 Width 和 HeightC、 Top 或 LeftD 、 Top 和 Left28、如果要改变窗体的标题，则需要设置的属性是 (

10、A) 。A 、 Caption B 、 NameC、 BackColorD 、 BorderStyle29、以下叙述中错误的是 (C) 。A 、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B、保存 Visual Basic程序时，应分别保存窗体文件及工程文件C、Visual Basic应用程序只能以解释方式执行D、事件可以由用户引发，也可以由系统引发30、以下叙述中错误的是 (B) 。A 、双击鼠标可以触发 DblClick 事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发MouseMove 事件D、控件的名称可以由编程人员设定31、在 Visual

11、 Basic中最基本的对象是 (C) 。它是应用程序的基石，是其他控件的容器。A 、文本框B 、命令按钮C、窗体D 、标签32、以下叙述中正确的是 (A) 。A 、窗体的 Name 属性指定窗体的名称，用来标识一个窗体B、窗体的 Name 属性的值是显示在窗体标题栏中的文本C、可以在运行期间改变对象的Name 属性的值D、对象的 Name 属性值可以为空33、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)A 、工程资源管理器窗口B、工具箱窗口C、代码窗口D、属性窗口(A)(A)34、Visual Basic是一种面向对象的可视化程序设计语言，采取了的编程机制是A 、事件驱动B 、按

12、过程顺序执行C、从主程序开始执行D、按模块顺序执行35、用来设置粗体字的属性是(C)。A 、 FontItalicB、 FontNameC、 FontBoldD 、 FontSize36、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的 是A 、如果工程中含有 Sub Main 过程，则程序一定首先执行该过程B、不能把标准模块设置为启动模块C、用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D、任何时刻最多只有一个窗体是活动窗体37、为了把焦点移到文本框，所使用的方法是(A)A 、 SetFocusB、 VisibleC、 RefreshD、 GetFocus38、 INT(

13、100*RND)产生的随机整数的闭区间是( A )。A、0 ，99B 、 1 ， 100C、 0 ， 100D 、 1 ， 99(B )39、如果要在命令按钮上显示图形文件，应设置命令按钮的 A 、 Style 属性和 Graphics 属性 B 、 Style 属性和 Picture 属性B 、 VisibleD 、 CaptionForm1, 则把窗体的标题设置为“ VB_Test ”的语句为(B)C、 Caption 属性40、若要使命令按钮不可操作，要对 A 、 EnabledC、 BackColor41、假定窗体的名称为 A 、 Form1= “ VB_TestD、Graphics

14、属性(A) 属性进行设制。B、 Form1.Caption= “ VB_TestC、 Form1.Text= “ VB_Test42、以下叙述中错误的是 (A)” D 、F= “ VB_Test。A 、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、以 .BAS 为扩展名的文件是标准模块文件C、窗体文件包含该窗体及其控件的属性D、一个工程中可以含有多个标准模块文件43、要使文本框获得输入焦点，则应采用文本框控件的哪个方 法 (A) 。 A 、GotFocusB 、 LostFocusC、KeyPressD 、 SetFocus44、以下不能在“工程资源管理

15、器”窗口中列出的文件类型是(B) 。A 、 .bas B 、 .resC、 .frmD、 .ocx45、刚建立一个新的标准EXE 工程后，不在工具箱中出现的控件是 (C) 。A 、单选按钮B、图片框C、通用对话框D 、文本框(B)46、以下叙述中错误的是。A 、双击鼠标可以触发 DblClick 事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发MouseMove 事件D、控件的名称可以由编程人员设定47、以下能够触发文本框 A 、文本框失去焦点 C、设置文本框的焦点48、以下叙述中错误的是 A 、一个工程中只能有一 个Change 事件的操作是 (D)B、文本框获得焦点

16、D 、改变文本框的内容 (C)。Sub Main 过程B、窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗 体 C、窗体的 Hide 方法和 Unload 方法的作用完全相同D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体的输出结果是 (A)49、语句 Print Abs(-62)+Int(-62)A、0B、1C、-1D、-7250、如果将布尔常量值TRUE 赋值给一个整型变量，则整型变量的值为(B)B、-1C、TRUED 、 FALSE51、函数 String(n, str) 的功能是 (B)A 、把数值型数据转换为字符串B、返回由 n 个字符组成的字符串C、从字符

17、串中取出 n 个字符D、从字符串中第 n 个字符的位置开始取子字符串52、语句 Print Format( “ Hello World ” , “ ” ) 的输出结果是(B) 。A 、 helloB 、 helloWORLDworldC、HELLO WORLDD、HELLO world53、声明符号常量应该用关键字(B) 。A 、StaticB、 ConstC、PrivateVariant54、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句(B)A 、 Option Base 0C、 Option Base1Visual Basic 55、下列可作为 (D) 。B 、 Optio

18、nExplicitD 、 Option Compare 变量名的是b cA 、B 、TrueFalseC、 157、执行x$=String(6,后， x 的值是124abc)(B) 。A、 A#AB 、 4AC、 ?xy56、设 a=10 ， b=5 ， c=1 ，执行语句 Print a D、 constA后，窗体上显示的是 (B)D、出错信息A 、124abcB 、 111111C、 12458、设 a=6 ，则执行x=IIf(a5,-1,0)后，x的值为( D )A 、5B、 6C、 059、执行语句： c$=“ Glad ” & Mid$(“ Nice to meet you为 (C)

19、 。D 、 abcA 、 Nice to meet youB 、 Glad Nice to meet youD、-1,5,3) ，则变量 c$ 的值C、Glad toD、 Glad60、下面 (D)是合法的字符常数。C、 A 、ABC$B、 ABCABCD 、 ABC61、对于语句If x=1 Then y=1，下列说法正确的是(C)A 、x=1 和 y=1 均为赋值语句B、x=1 和 y=1 均为关系表达式 为关系表达 为赋值语C、x=1 式，y=1 句D、 x=1 为赋值语句， y=1 为关系表达式62、设有声明： Dim X As Integer,如果Sgn(X)的值为 -1 ，则 X

20、的值是 (D )A 、任何整数 B 、 0 63、在一行内写多条语句时，每个语句之 间用C、等于 0 的整数 D 、小于 0 的数(B) 符号分隔B、：C、str1 、 str2 中。确定第二个字符串在64、从键盘上输入两个字符串，分别保存在变量第一个字符串中起始位置的函数是A 、（D） 。A 、Left B 、 MidC、 StringD、 Instr65、设 S= 中华人民共和 ，表达Left （S,1 ） +Right （ S,1 ） +Mid （ S,3,2 ）B）国式的值为（A、 中华民国 B、 中国人民 C、 中共人民 D、 人民共和 66、下列可作为BasicB、中的变量名的是

21、(A)A 、FilenameA(A+B)C、254D67、下面 (A)是合法的变量名。B、C、A 、X_yz123abcInteger68、以下变量命名非法的是(C)。A 、B、xyz123printaaC、boolean69、设有变量声:Dim TestDate As Date,为变量明方式是VisualD、 BernaldTestDate 正确赋值的表达D、 PrintD、 X-Y(A)A 、 TextDate=#1/1/2002#B、TestDate=# “ 1/1/2002 ” #C、TextDate=date( “ 1/1/2002 ” )D、TestDate=Format( “ m

22、/d/yy ” , “ 1/1/2002 ” )的值是 (B)71、表达式 6*8 Mod 9的值是 (B)。A 、4B、3C、6D 、 772、假设变量 bool_x是一个布尔型(逻辑型 ) 的变量，则下面正确的赋值语句是(B 、bool_xA 、bool_x = False= .False.C、bool_x = #False#D 、bool_x =FalseA 、 TrueB 、 FalseC、-1D、173、设 a= “ Visual Basic70、设 a=2,b=3,c=4,d=5 ，表达式 ab AND c=dC、76、Dim x_y_z%D、 Static var3 As Int

23、eger可以同时删除字符串前导和尾部空白的函数b=Left(a,8,12)b=Mid(a,8,5)C、D 、b=Rigth(a,5,5)b=Left(a,8,5)74、语句 Print Format$(32548.5, ( B )。“ #,#.#” )的输出结果是A 、D 、32548.5B、 32,548.5C、 032,548.5032,548.5075、以下声明语句中错误的是(D) 。B 、 Dim var2 =A 、面使 b= “ Basic ”的语句是 (B) B 、A 、 Const var1=123 ABCC、 TrimD 、 MidpublicD、 thanksgiving(C

24、)C、 1D 、无任何值(B) 。C、 20D 、 240 岁条件的人是A 、 LtrimB、 Rtrim77、下列可为合法变量名的是(D) 。A 、IntegerB、 FalseC、78、变量未赋值时，数值型变量的值为 ( A)B 、A 、 0 空79、表达式 16/4-25*8/4 Mod52 的值为B 、A、144确的 80 、下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于数，不正语句是（D ）。A 、 If sex=男 And age 40 And (duty= 教授 Or duty= 副教授 )Then n=n+1B、 If sex=男 And age 0Then n=

25、n+1C、 If sex=男 And age 40 And Right(duty,2)= 教授 Then n=n+1D、If sex= 男 And age =b And b10B、(ab)Or(b0)C、(a0)or(ba)And(b0)82、执行语句 a=InputBox(Today,Tomorrow,Yesterday,Day before yesterday,5),一个输入对话框，在对话框的输入区中显示的信息 是A 、 Today(A) 。B、TomorrowC、YesterdayD、Day before Yesterday83、VB 提供了结构化程序设计3 种基本结构，3 种基本结构是

26、 B )的这(A 、递归结构，分支结构，循环结构B、选择结构，过程结构，顺序结构C、过程结构，输入、输出结构，转向结构D、分支结构，循环结构，顺序结构84、下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不 正确的语句是( D )。A 、 If sex=“男”And ageAnd InStr(duty,“教授” ) 0Then n=n+1B、 If sex=“男”And ageAnd (duty= “教授” Or duty= “副教 40授” )Then n=n+1C、 If sex=“男”And ageAnd Right(duty,2)=“教 40授”The

27、n n=n+1D、 If sex=“男”And ageAnd duty= “教授”And duty= “副教10, ”Red ” , “ Green ”) 执行后， 变量 w 中的值是(C)。A 、 NullB、“ Red ”C、“ Green ”D、-186、赋值语句： a=123+MID( “ 123456 ” ,3,2) 执行后， a 变量中的值是(D)。A 、“ 12334 ”B、123C、12334D、 15787、设有语句 x=InputBox( “ AAAA ”，“ BBBB ”，“” ), 程序运行后，所产生的对话 框的标题应为 (C) 。A 、 AAAAB、空C、BBBBD、

28、出错，不能产生对话框88、下面正确的赋值语句是C)。(A 、 x+y=30B、 y= *r*rC、 y=x+30D、3y=x89、VB 提供了结构化程序设计的三种基本结构，三种基本结构(D)是A 、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入输出结构、转向结构D、选择结构、循环结构、顺序结构90、下面程序段求两个数中的大数，不正确的是（D）。A 、 Max=IIf(x y,x,y)B、 If x y Then Max=x Else Max=yC、 Max=x ： If y =x Then Max=yD、 If y x ThenMax=y ： Max=x91、下

29、列程序x If xPrintElse Print x+1段： （ A ）。DimThenx结果是运行后，显示的A 、 1B、0C、-1D、出错vb 的三种基本结构的是92、以下不属于 （C）？A 、顺序结构B、选择结构C、递归结构D、循环结构93、语句 If x=1 Then y=1,下列说法正确的是（ C ）。A 、 x=1 和 y=1 均为赋值语句B、x=1 和 y=1 均为关系表达式C、x=1 为关系表达式， y=1 为赋值语句D、x=1 为赋值语句， y=1 为关系表达式C）94、赋值语句： a=123 & MID（ “ 123456 ” ,3,2） 执行后， a 变量中的值是（A 、

30、“ 12334B、 123C、 12334D、15795、下面程序段显示的结果是(A )Dim xx=Int(Rnd)+5Select Case xCase 5“优秀”Case 4Print “良好”Case 3Print “通过”Case ElsePrint “不通过”End SelectA 、优秀B、良好C、通过D、不通过96、为了 x,y 这 3 个变量赋初 给 ,z 值1，下面正确的赋值语句是A)。(A 、 x=1 ： y=1 ： z=1B、 x=1,y=1,z=1C、 x=y=z=1D、 xyz=197、下列语句正确的是（ C）A 、 If A B Then Print A不等于 B

31、B、 If AB Then Printf A不等于 BC、 If AB Then Print A不等于 B98、设有语句 x$=InputBox(“输入数值” ，“ 0 ”，“示例” ）, 程序运行后，如果从键盘上输入数C、 0 是默认值D、变量 X 的值是字符串“ 10”99、运行下列程序段后，显示的结果 为（A 、 4B、 9C、 13D、 49100、函数返回值的类型InputBox为A 、数值B、字符串C、变体D、数值或字符串（视输入的数据而定） 101、一个数组说明为 Dim a（0 to 5 数组共有（A、25(B)B )J1=4: J2=9 If J1J2 Then Print

32、J2 Else Print J1， 1 to 5) As Integer，则该C) 个元素值 10 并按回车键，则下列叙述中正确的是（D）B、 36C、 30D、不确定102、数组声明语句Dim a(2 to 3, -2 to 2,3 to 5) 数为 (C) 。中，数组 a 包含元素的个A、120B、75C、30D、13103、如果在上题语句前加入Option Base 1 ，则该数组共有（ D ） 个元素A、15B、16C、13D、不确定104、如果有声明 Dim a（15） As Integer，则该数组共有（ B ）个元素A、15B、16C、13D、不确定105、一个数组说明Dim a

33、（5 ， 1 to 5） As Integer，则该数C） 个元素为 组共有（A、25B、36C、30D、不确定106、在 VB 中，默认的数组下标的下界从 （ A ）。0 开始，要想在通用声明段界定下界，则应使用A 、 Option BaseB、 Option ExplicitC、 ExplicitD、 Low Base107、如下数组声明语句，正确的是（B）A 、 Dim a3, 4asIntegerIntegeB、 Dim a(3,4) asrC、 Dim a(n, n)asIntegerIntegeD、 Dim a34)asr108、赋给一个数组的数据的值的类型一定要（A ）A 、相同

34、B、不相同C、两可D、都不对109、数组的下标可取的变量类型是（A ）A 、数值型B、字符型C、日期型D、可变型110、数组声明语 句Dim a(0 to 3, to 2,0 to 5) 中 ，a 包含元素的个数(A) 。-2 数组 为A、120B、 75C、 60D、 13111、假定有如下的 Sub 过程： Sub S (x As Single, y As Single) t = x x = t / y y = t Mod y EndSub 在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Single Dim b A

35、s Single a = 5: b = 4 S a, b Print a, b End Sub 单击命令按钮得到的结果( D )。程序运行时，B、 11A 、在窗体模块 用 B、在窗体模 块用 C、在窗体 模块用C、 1.254D、 1.251112、用以下方式声明的变量， Dim 进行声明B ）可以在整个程序中通用？Public 进行声明Private 进行声明Private x As IntegerN=10: z=N+z: y=y+z:x=x+z程序运行后， 连续三次单 击Static 类型D、在窗体模块用 Static 进行 声明编写事件过程：113、在窗体上添加一个命令按钮和三个标签，

36、Private SubCommand1_Click() IntegerStatic y As Dim z As Integer Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 命令按钮，则三个标签中显示的内容分别是( A )。A、101010B、303030C、303010D、1030 30114、以下叙述中错误的是 (D) 。A 、如果过程被定义为 Static 类型，则该过程中的局部变量 都是B、Sub 过程中不能嵌套定义Sub 过程C、Sub 过程中可以嵌套调用Sub 过程Text1 ，然后编写如 过事件D

37、、事件过程可以像通用过程一样由用户定义过程名115、在在窗体上添加一个命令按 钮Command1和 一个文本框程：Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 5 y = 7z = 0 Text1.Text = Call p1(x, y, z)Text1.Text = Str(z)End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + bEnd Sub 程序运行后，单击命令按钮

38、得到的结果是( A )。A、12B、0C、Str(z)D、没有显示结果B)116、如果在程序中要将 a 定义为静态变量，且为整型数，则应使用的语句是： A 、 Redim a As IntegerB、Static a As IntegerC、Public a As IntegerD、Dim a As Integer117、以下程序的运行结果是(C)Sub s1(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integer For i = 1 T

39、o 4a(i) = i + 5Next i s1 a() For i = 1 To 4 Print a(i)NextiEnd SubA、121416 18B、6789C、2468D、1234118、以下程序的运行结果是 ( D )。 Function f(m As Integer) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_Click() Dim a As Integer a= 2 Sum = 0 For i = 1 To 3

40、Sum = Sum + f(a) Next i PrintSum End Sub A 、 12B、28 C 、32 D 、24119、下列程序输出结果(C )。Private Sub Command1_Click()For i = 1 To 10GetValue iNext iPrint GetValue(i)End SubPrivate Function GetValue(ByVal a As Integer) Static S AsInteger S = S + a GetValue = SEnd FunctionA、10B、65C、66D、11120、在过程定义的变量，若希望在离开该过程

41、后，还能保存过程中局部变量的值， 则应使用 (D) 关键字在过程中定义局部变量。A 、 DimB、PrivateC、PublicD、Static121、在过程定义中用 (C) 表示形参的传值 A 、 VarB、ByDefC、ByValD、Value122、在在窗体上添加一个命令按钮Command1和 两个名称分别为Label1 和 Label2 的标签，然后编写如下事件过程：Private X As Integer Private Sub Command1_Click()X= 5: y = 3 Call proc(X, y) Label1.Caption = X Label2.Caption

42、= yEnd Sub Subproc(ByVal a As Integer, ByVal b As Integer) X = a * a y = b + b End Sub程序运行后，单击命令按钮，则两个标签 label1 和 label2 中显示的内容分别是( B )。A 、 25,3B、25,6C、5,3D、5,6123、以下程序的运行结果是(C)。 Dim x As Integer, y As Integer, z As Integer Sub s1(a AsInteger, b As Integer)Dim c As Integera = 2 * a b = b + 2 c = a +

43、 bEnd SubSub s2(a As Integer, ByVal b As Integer)Dim c As Integera = 2 * ab = b + 2c = a + bEnd SubPrivate Sub Command1_Click()x = 4 ： y = ： 4 z = 6Call s1(x, y)Print x + y + zCall s2(x, y)Print x + y + zEnd SubA、2428B、2028C、2018D、2020124、以下关于过程及过程参数的描述中，错误的是(C)A 、过程的参数可以是控件名称B、用数组作为过程的参数时，使用的是“传地址”

44、方式C、只有函数过程能够将过程中处理的信息传回到调用的程序中D、窗体可以作为过程的参数125、以下属于 Visual Basic合法的数组元素是(C)A 、 x8B、x 8 C、s(0)D、v8126、下列叙述中正确的是 (C) 。A 、在窗体的 Form_Load 事件过程中定义的变量是全局变量B、局部变量的作用域可以超出所定义的过程C、在某个 Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作 用域只限于该过程0 或空字符D、在调用过程时，所有局部变量被系统初始化为串127、假定有以下函数过程： Function Fun(S As String) As String

45、 Dim s1 As String For i = 1 To在窗体上添加一个命令按 Dim str1 As String, str2Prinstr2 = Fun(str1)Len(S) s1 = UCase(Mid(S, i, 1) + s1 Next i Fun = s1 End FunctionAs String str2 End Sub钮，然后编写如下事件过程： Private Sub Command1_Click()str1 = InputBox(请输入一个字符串 )程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg”，击 确定 按钮后程序在窗体上输出结果(D )。A

46、 、 abcdefgB、gfedcbaC、GFEDCBAD、ABCDEFG128、若已编写了一个 Sort 子过程，在该工程中有多个窗体，为了方便的 Sort 子过 调用 程， 应该将该过程放在 (B) 。A 、窗体模块B、标准模块C、类模块D、工程129、下面子过程语句说明合法的是(D )A 、 Sub f1 ( ByVal n() AsInteger )B、Functionf1 ( f1 As Integer) As IntegerC、Sub f1 ( n() As Integer) AsIntegerD、Function ( ByVal n As Integer) Asf1 Intege

47、r130、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值， 则应使用 (D) 关键字在过程中定义局部变量。A 、 DimB、PrivateC、PublicD、Static131、在窗体上画三个单选按钮，组成一个名为chkOption 的控件数组。用于标识各个控件数组元素的参数是 (D) 。A 、 TagB、IndexC、ListIndexD、Name132、假如列表框( List1 )有四个数据项，那么把数据项“ China ”添加到列表框的最后，应 使用 (D) 语句。A 、 List1.AddItem 3, ChinaB、List1.AddItem China, Lis

48、t1.List1Count-1C、List1.AddItem China, 3D、List1.AddItem China133、如果列表框（ List1 ）中没有被选定的项目，则 List1.RemoveItem List1.ListIndex 执行 语句的结果 (D) 。 是A 、移去第一项B、移去最后一项C、移去最后加入列表的一项D、以上都不对(C) 。A 或 a 被视作相同的字 (即具有相 母1”和右侧小键盘上的1”视作不同134、以下叙述中错误的是事件过程中，从键盘上输A 、在 KeyUp 和 KeyDown 入 同 KeyCode) 的B、在 KeyUp 和 KeyDown 事件过程

49、中，将键盘上的的数字 ( 具有不同的 KeyCode)C、KeyPress 事件中不能识别键盘上某个键的按下与释放D、KeyPress 事件中可以识别键盘上某个键的按下与释放135、设组合框 Combo1 中有 3 个项目，则以下能删除最后一项的语句是 (B)A 、 Combo1.RemoveItem TextB、Combo1.RemoveItem 2C、Combo1.RemoveItem 3D、Combo1.RemoveItem Combo1.Listcount136、下列控件中，没有 Caption 属性的是 (B) 。A 、框架B、列表框C、复选框D、单选按钮137、引用列表框( List1 )最后一个数据项应使用的表达式是(C)A 、 List1.List(List1.ListCount)B、List1.List(ListCount)C、List1.List(List1.ListCount-1)D、List1.List(ListCount-1)138、窗体的 MouseDown 事件过程 Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y