VB 例题解析和练习题

3第1章VisualBasic集成开发环境一.例题解析单项选择题使用VB6.0集成开发环境开发的应用程序不适宜的运行环境是 。Windows3.2 B)Windows9xC)WindowsNT D)Windows2000【答案】AVB6.0集成开发工具，是32WindowsNT或Vindows2000环境中运行。而DOSWindows3.X16位的操作系统。VB6.0共有三个版本，按功能从弱到强的顺序排列应是 。学习版、专业版和工程版 B)学习版、工程版和专业版C)学习版、专业版和企业版 D)学习版、企业版和专业【答案】CVB6.0业版。VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是 。设计状态 B)编写代码状态C)运行状态 D)中断状态【答案】BVB也称三种模式或三种阶段。不能打开代码窗口的操作是 。A)双击窗体设计器的任何地方B)按下F4键单击工程窗口中的【查看代码】按钮选择“视图”菜单中的“代码窗口”命令【答案】B【解析】按下F4键将打开属性窗口，其余的操作都能够打开代码窗口。工程文件的扩展名是 。.frm B).vbp C).bas D).frx【答案】B【解析】VB的应用程序称为工程，一个工程由若干文件组成，其中工程文件的扩展名是.vbp。窗体文件的扩展名是 。.frm B).vbp C).bas D).frx【答案】A【解析】在VB的应用程序中，每个窗体对应一个文件，窗体文件的扩展名是.frm。在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 。工程资源管理器窗口 B)工具箱窗C)代码窗口 D)属性窗口【答案】C所在的代码窗口。填空题VB6.0窗体文件默认主名是 。【答案】Formx【解析】其中x1，2，3VB6.0窗体的名称属性和标题属性的默认值为可以改变保存窗体文件的主名。启动VB6.0后，要建立一个新工程，开始的操作是 。【答案】在“新建工程”对话框中选择“标准EXE”选项，单击“打开”按钮。【解析】VB6.0把一个项目称为一个工程。VB6.0生成可执行程序的扩展名是 。【答案】.exe【解析】VB6.0是解释型语言。在输入代码的同时，解释系统将高级语言翻译成机器指令，并可判断语法是否正确。在设计程序时，还可以运行程序。设计、调试成功的程序可以编译生成可执行文件(.exe)，这样的文件可脱离VB6.0在Windows环境下运行。在VB6.0集成开发环境中的工作状态显示在 的方括号内。【答案】标题栏【解析】VB的工作状态有：设计状态、运行状态和中断状态。设计状态：用于设计应用程序的用户界面和编写程序代码。运行状态：运行应用程序。此时，不能修改用户界面和编辑程序代码。中断状态：运行的应用程序被暂时中断，按F5或单击工具栏的“继续”按钮可继续运行程序，单击“结束”按钮停止程序的运行。此时，可以编辑程序代码，但不能修改用户界面。此状态会弹出“立即”窗口，在“立即”窗口内可以输入命令，并立即执行。二.练习题单项选择题VisualBasic6.0是一种面向 的程序设计语言。A)机器 B)对象 C)结构 D)过程下列程序设计语言中支持面向对象的程序设计语言是 。C B)Pascal C)VisualBasic D)Cobol下列叙述中，错误的是 。B)启动VisualBasic后，工具箱中只有标准控件C)在VisualBasic集成开发环境中，工具箱窗口只能位于窗体的左侧D)用户可以清除立即窗口中的内容启动VisualBasic6.0中文版后，标题栏中显示的信息是 。MicrosoftVisual设计]1-MicrosoftVisualBasic设计]1-Visual设计]1-MicrosoftVisualBasic设计]VisualBasic6.0窗体设计器的主要功能是 。工程界面设计 B)过程代码设计C)图形图像设计 D)添加控件下列叙述中，错误的是 。启动VisualBasic后，工具箱中只有标准控件工具箱中的控件是固定的，无法添加新的控件。在VisualBasicD)工具箱中控件的是类而不是对象。工程资源管理器窗口可以列出 种文件A)2 B)3 C)4 D)5下列叙述中，错误的是 。启动VisualBasic后，屏幕只有一个窗体Form1C)标准模块由程序组成D)用使标准工具栏上的 按钮可以打开工具箱窗口下列叙述中，正确的是 。一个工程只有一个窗体Form1。255个窗体。窗体模块由程序组成用使工程资源管理器窗口的 按钮可以查看窗体对象下列关于属性窗口的叙述中，正确的是 。一个工程可以打开任意个属性窗口。用使标准工具栏的 按钮可以打开属性窗口属性窗口的属性列表只能按字母顺序排列在工程设计中，只能在属性窗口设置属性以下不是VisualBasic特点的是 。可视化编程 B)面向对象 C)事件驱动 D)算法生成以下叙述中错误的是 。打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件保存VisualBasic程序时，应分别保存窗体文件及工程文件VisualBasic应用程序只能以解释方式执行事件可以由用户引发，也可以由系统引发以下叙述中错误的是 。B).bas为扩展名的文件是标准模块文件C)窗体文件包含该窗体及其控件的属性D)最常用于变量跟踪的窗口是 。监视窗口 B)代码窗口 C)立即窗口 D)工程资源管理器窗口启动VisualBasic后，在工具箱中列出的控件是 。A)ActiveX控件 B)标准控件 C)ODBC控件 D)可插入对象以下关于保存工程的叙述中，正确的是 。A)保存工程时只保存窗体文件即可B)保存工程时只保存工程文件即可C)保存工程时，先保存工程文件后保存窗体文件D)保存工程时，先保存窗体文件后保存工程文件以下操作不能启动VisualBasic6.0的是 。A)双击VisualBasic6.0的快捷方式图标B)通过“开始”菜单中的“运行”命令C)通过“开始”菜单中的“程序”命令D)在DOS的实模式下，进入VisualBasic的安装目录，运行vb6.exe以下操作不能打开VisualBasic6.0属性窗口的是 。F4键C)单击标准工具栏中的【属性窗口】按钮D)按Ctrl+T在VB集成开发环境中，功能键F8的功能是 。A）运行程序 B）进入编辑状态C）新建工程 D）逐语句调试填空题VisualBasic6.0是基于Microsoft的 位操作系统设计的。VisualBasic程序设计的核心是设计 。VB的一个应用程序是由窗体模块、 模块和 模块等组成的。编写可视化程序的基本步骤依次是工程界面设计设置对象的属性、 调试运行工程和保存工程。VisualBasic6.0的编程机制是 。VisualBasic6.0的程序设计方法是 。

的作用是 。的作用是 。的作用是 。图标 或“视图”菜单的 命令可以打开属性窗口。保存一个新建工程时，一般先保存 文件，然后保存 文件。使用“文件”菜单的 命令，能够生成工程1的exe文件。VisualBasic6.0集成开发使用的操作系统是 。在工程资源管理器窗口顶部有3个按钮，分别为 【查看对象】和【切文件夹。【答案】单项选择题（1）B（2）C（3）C（4）D（5）A（6）B（7）D（8）B（9）B（10）B（11）（12）（13）（14）（15）（16）（17）（18）（19）DCACBDDDD填空题（1）32对象标准，类编写程序代码事件驱动面向对象打开工程资源管理器窗口运行工程保存工程属性窗口frm（或窗体）vbp（或工程）1.exeWindows查看代码第2章面向对象的程序设计一．例题解析面向对象的程序设计指满足 。B)封装性、继承性、多态性C)对象的链接、动态链接、动态数据交换D)ODBC，DDE，OLE【答案】B【解析】具有封装性、继承性、多态性的程序设计称为面向对象的程序设计。用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成序代码，这种设计方式称为 。B)结构化程序设计C)事件驱动的编程机制D)可视化程序设计【答案】DVB6.0VBActiveX控件的文件扩展名是。.cls B).ocxC).frm D).bas【答案】B.frm和.basB。以下叙述中错误的是 。B)以.bas为扩展名的文件是标准模块文件C)窗体文件包含该窗体及其控件的属性D)【答案】A序具有多个工程时，工程资源管理器窗口中将包含多个工程文件。以下不属于VisualBasic系统的文件类型是 。.frm B).bat C).vbg D).vbp【答案】B.frmVisualBasic.bat是批处理文件的扩展名。以下不能在工程资源管理器窗口中列出的文件类型是 。A).bas B).res C).frm D).ocx【答案】D【解析】VB的工程资源管理器窗口中通常列有以下几类文件：工程文件(.vbp)组文件(.vbg)(.frm)(.bas)(.cls)(.res)ActiveX控件文件的扩展名，它不能在工程资源管理器窗口中列出。以下叙述中错误的是。VisualBasic是事件驱动型可视化编程工具VisualBasic应用程序不具有明显的开始和结束语句VisualBasic和高度(Height)属性VisualBasic中控件的某些属性只能在运行时设置【答案】C【解析】VisualBasic工具箱中的大部分控件都具有宽度(Width)和高度(Height)属性，但有些控件没有这两个属性，例如计时器(Timer)控件和直线(Line)。二．练习题单项选择题对象的含义是 。代码的集合 B)数据的集合C)代码和数据的集合 D)数据或代码的集合对象的组成的三个要素是 。函数、过程、语句 B)窗体、控件、行C)属性、方法、事件 D)窗体、模块、控以下关于对象属性叙述中错误的是 。对象有自己特殊的属性所有的对象都有相同的属性C)D)属性值的设置可以在属性窗口中进行下述选项中，属于VB的程序设计方法是 。面向对象、顺序驱动 B)面向对象、事件驱动C)面向过程、事件驱动 D)面向过程、顺序驱动事件的名称必须是 。窗体所能够识别的 B)能够被用户触发的对象所具有的 D)该事件有对应的方法可执行VisualBasic中的Move、Print是对象的 。事件 B)方法 C)属性 D)名称VisualBasic中的Click、Load是对象的 。事件 B)方法 C)属性 D)名称VisualBasic中的Left、Top是对象的 。事件 B)方法 C)属性 D)名称下列有关属性设置的语句中，错误的是 A)Labell.Caption="画"B)Textl.Text=Forml.CaptionC)Commandl.Name="VisualBasic"Forml.Caption=Labell.Caption下面四个选项，不是事件的。A)Click B)Visible C)Unload D)Change下列选项中，属于VisualBasic事件的是 。Cls B)Click C)Caption D)Top在属性窗口设置对象的属性时，通常采用的方式有 。A)直接键入属性值 B)选择输入C)利用对话框 D)以上三种方式都是下列关于控件属性的叙述中，正确的是A)控件属性只能在设计时设置，不能在运行时设置B)所有控件的相同属性都有相同的默认值所有对象都具有相同的属性控件的属性值可以在属性窗口修改填空题（1）用来描述对象的特征的一组数据称为对象的 。（2）对象的属性值可以在应用程序的执行中由VB代码设定。设定的格式是 。在VB中对象的 是指对象要完成的某个任务或动作。在VB中 是预先定义好的能够被对象所识别的动作。名称是每个对象最基本的属性。单窗体的默认名为 。决定对象左上角在载体上的位置的属性是 和 。要使一个控件失效，应该将该控件的 属性设置为False。设置控件上所显示文字的字体和格式的属性是 。【答案】单项选择题（（1）CB（2）C（12）D（3） （4） （5） （6） （7） （8） （9） （10）B（13）DBCBACCB填空题属性.属性=属性值方法事件Form1注：两个答案可以交换）EnabledFont（9）（10）第3章窗体和菜单设计一．例题解析在VB中，要将一个窗体装载到内存进行变量初始化等预处理，应使用是 。Show方法 B)UnLoad语句 C)Load语句 D)Hide方法【答案】C【解析】要将一个窗体装载到内存应使用LoadShow法是隐藏窗体，Unload语句是卸载窗体。如果要改变窗体的标题，则需要设置的属性是 。A)Caption B)Name C)BackColor D)BorderStyle【答案】A【解析】窗体的标题由窗体的Caption属性设置。Name属性是窗体的名称，BackColor属性是窗体分背景色，BorderStyle属性是窗体边框的样式。以下关于窗体的描述中，错误的是 。UnloadForm1Form1消失，但仍在内存中Load事件在加载窗体时发生EnabledFalse时，通过鼠标和键盘对窗体的操作都被禁止Height、Width属性用于设置窗体的高和宽【答案】A【解析】Unload语句的功能是将窗体从内存中卸载，因而窗体不但从屏幕上消失，同时也从内存中卸载掉。以下叙述中正确的是 。Name属性指定窗体的名称，用来标识一个窗体NameC)Name属性的值D)对象的Name属性值可以为空【答案】A【解析】窗体的Name属性指定窗体的名称，用来惟一的标识一个窗体，不能为空。窗体的Name属性只能在设计阶段修改，不能在运行期间修改。设在菜单编辑器中定义了一个菜单项，名称为menu1。为了在运行时使该菜单不可见，应使用的语句是 。menu1.Enabled=True B)menu1.Enabled=FalseC)menu1.Visible=True D)menu1.Visible=False【答案】D【解析】Visible属性用于表示菜单项是否可见，Enabled属性用于表示菜单项是否可用。要隐藏菜单项menu1，将其Visible属性设置为False即可。所以，答案是D。二．练习题单项选择题如果要改变窗体的标题，则需要设置的属性是 。A)Caption B)Name C)BackColor D)BorderStyle若要将窗体从内存中卸载，其实现的方法。使用Show方法 B)使用Load语句C)使用UnLoad语句 D)使用Hide方法设有一个菜单项，名称为MenuIte，为了在运行时使该菜单失效（变灰，应用的正确语句是 。MenuItem.Enabled=False C)MenuItem.Visible=True D)MenuItem.Visible=FalseC:\pic。为了将该图形装入窗体Form1，应使用的正确语句是 。Form1.Picture="Welcome.gif"Form1.Picture=C:\Pic\Welcome.gifForm1.Picture="C:\Pic\Welcome.gif"Form1.Picture=LoadPicture("C:\Pic\Welcome.gif")窗体的标题内容是由下列属性中的 属性决定的。Name B)Caption C)FontName D)Text如果将窗体的ControlBox属性值设置为False，则 。B)ControlBox属性仍然起作用窗体边框上的最大化和最小化按钮消失动、关闭等操作工程中创建新窗体的方法是 。利用标准工具箱中的窗体控件创建利用“工程”菜单的“添加窗体“项由系统自动产生利用“工具”下拉菜单中的命令创建下列关于窗体的说法中，不正确的是一个工程只能有一个窗体C)VisualBasic的一个对象D)只有在窗体上的控件才是对象要让窗体不具有最大化功能，应该将窗体的 属性设置为FalseA)Max B)MaxButton C)AutoRedraw D)BorderStyle在属性窗口设置窗体的下列属性时不需要通过对话框设置的属性是 。A)Font B)Picture C)Icon D)ControlBox下列属性中不属于窗体的是 。A)Enabled B)Left C)Value D)Visible在窗体上建立第一个文本框，则该文本框的默认名称是 。A)Label0 B)Label1 C)Text0 D)Text1清除窗体或图形框中由绘图方法或Print方法在运行时生成的图形或文字用 。Cls B)Hide C)Show D)Move在设计多窗体程序时，按照系统默认的名称分别建立4个窗体Forml、Form2Form3和Form4，则程序运行后，最先出现的窗体是 。A)Forml B)Form2 C)Form3 D)Form4设在菜单编辑器中定义了一个菜单项名为menu1为了在运行时隐藏该菜单项应使用的语句是 。menu1.Enabled=True C)menu1.Visible=True D)menu1.Visible=False以下关于菜单的叙述中，错误的是 。在程序运行过程中可以增加或减少菜单项如果把一个菜单项的Enabled属性设置为FalseC)弹出式菜单在菜单编辑器中设计D)利用控件数组可以实现菜单项的增加或减少下列关于多窗体工程的存取说法错误的是 。A)以.frm为扩展名保存窗体文件，以.vbp扩展名保存工程文件B)每个窗体保存为一个扩展名为.frm的文件.frm为扩展名的文件用“打开工程”对话框打开一个工程时将把属于该工程的所有文件装入内存如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 。A)如果工程中含有SubMain过程，则程序一定首先执行该过程B)不能把标准模块设置为启动模块C)用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D)任何时刻最多只有一个窗体是活动窗体以下叙述中错误的是 。一个工程中可以包含多个窗体文件在一个窗体文件中用Private定义的通用过程能被其他窗体调用在设计VB磁盘文件全局变量可以在标准模块中定义也可以在其他模块中定义下列说法正确的是 。一个应用程序只包含一个窗体一个应用程序可以有多个启动窗体B)一个大型应用程序通常由多个主窗体和子窗体组成D)一个窗体对应一个窗体文件填空题窗体 决定了窗体的外观。窗体的 属性用于设定窗体的标题。程序运行后，用鼠标单击对象时触发的事件是 事件。使用对象的 方法可以移动对象，并在移动的同时变更对象的大小。MID应用程序一般由一个 和多个子窗体构成。在Windows环境下，菜单分为两种形式：即 。在应用程序的的窗体设计窗口中，执行“工具”菜单下“菜单编辑器”命令则打开 窗口。菜单编辑器窗口中的标题栏内用于输入本菜单项的 。在菜单编辑器中建立了一个菜单项，名称为pmenu弹出式菜单弹出，请填空。Form1.【答案】1．单项选择题pmenu（1） （2）（3）（4）（5）（6）（7）（8）（9）（10）A CADBCBABD（12）（13）（14）（15）（16）（17）（18）（19）（20）C DAADBCABD2．填空题属性CaptionClickMove父窗体下拉菜单和快捷菜单菜单编辑器标题PopupMenu第4章常用标准控件一．例题解析以下能够触发文本框Change事件的操作是 。A)文本框失去焦点 B)文本框获得焦点C)设置文本框的焦点 D)改变文本框的内【答案】D【解析】文本框的Text属性内容每发生一次改变，将触发一次Change事件；所以本题的正确答案是选项A。另外，文本框失去焦点将触发LostFocus事件，文本框获得焦点将触发GotFocus事件。设窗体上有一个列表框控件List1选中的列表项内容的是。List1.List B)List1.ListIndexC)List1.Index D)List1.Text【答案】D【解析】列表框的Text属性的值是最后一次选中的列表项的文本；ListIndex属性的值Index值；ListIndexD。为了清除列表框中的所有内容，应使用的方法是。Cls B)Clear C)Remove D)RemoveItem【答案】B【解析】Cls和Remove不是列表框的方法；Clear方法用来删除列表框中的所有项目；RemoveItem方法从列表框删除指定项目。在窗体上放置两个滚动条和六个标签，滚动条的名称分别为Hscroll1和Hscroll2，标签的名称分别为Label～Label其中标签Label～Label6分别显ABA*B”等文字信息，标签Label1、Label2分别显示其右侧滚动条的当前值，Label3显示A*B的计算结果。如下图所示。当滚动条的值改变时，在相应的标签中显示滚动条的值。当单击【算】按钮时，能够对标签Label1Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 。PrivateSubCommand1_Click()Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))EndSubPrivateSubCommand1_Click()Label3.Caption=Hscroll1.Value*HScroll2.ValueEndSubPrivateSubCommand1_Click()Label3.Caption=Hscroll1*HScroll2EndSubPrivateSubCommand1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEndSub【答案】DTextD题目要求的功能，答案是D。在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为要求每一秒钟在文本框中显示一次当前的时间。程序为：PrivateSubTimer1 TxtTime.Text=TimeEndSub在下划线上应填入的内容是 。A)Enabled B)Visible C)Interval D)Timer【答案】D只具有Timer事件，所以本题的正确答案是选项D。以下选项中，不是VisualBasic标准控件的A)命令按钮 B)定时器C)窗体 D)单选框【答案】C【解析】对象包括窗体和控件，控件不含窗体。标准控件指工具箱中VB6.0自带的控件。因此，本题答案为C。文本框的默认属性是 。Caption B)TextC)Name D)Top【答案】B【解析】文本框的默认属性是Text，Text是文本框的内容，因此，本题答案为B。标签默认属性是 。Caption B)TextC)Name D)Top【答案】A【解析】标签默认属性是Caption，Caption用来改变标题信息。因此，本题答案为A。滚动条的默认属性是 。Min B)MaxC)Value D)Name【答案】C【解析】滚动条的默认属性是Value属性。滚动条Value属性的值随着滚动滑块位置的改变而改变，是一个整型数据。只能用来显示字符信息的控件是 。A)图像框 B)图形框C)标签框 D)文本框【答案】C文本框不仅能够显示字符信息，还能编辑字符信息。确定复选框是否选中，应访问的属性是 。A)Selected B)CheckedC)Style D)Value【答案】DSelectedChecked属性。SelectedStyle属性决定了复选框的外观。设置命令按钮的标题文字时，应改变的属性是 。A)Text B)CaptionC)Name D)FontName【答案】B【解析】命令按钮没有Text属性。Name属性是命令按钮的名称，FontName属性是命令按钮的标题文字所采用的字体名。若要获得滚动条的当前值，可访问的属性是 。A)Min B)MaxC)Text D)Value【答案】D【解析】滚动条没有Text属性。滚动条的MinMax最大值。当滚动滑块的位置移动时，滚动条的Value属性值也随之改变。命令按钮能响应的事件是 。A)DblClick B)ClickC)Scroll D)Load【答案】B【解析】命令按钮不支持DblClick事件。命令按钮也没有Load和Scroll事件。命令按钮能响应的事件在四个选项中只有Click事件。设置组合框的样式，可用的属性是 。A)BackStyle B)BorderStyleC)Style D)Sorted【答案】CBackStyleBorderStyleSorted否按序排列，若设置为TrueStyle属性控为复选框样式。要设置计时器控件的定时时间，需设置的属性是。A)Interval B)EnabledC)Value D)Text【答案】AValueTextEnabledInterval毫秒数)发计时器两个事件之间的毫秒数，Interval0~65535。Change事件的操作是。A)拖动滚动条上的滑块 B)单击滚动条上的滑块C)单击滚动条两端的箭头 D)单击箭头与滑块之间的滚动条【答案】BValueLargeChangeSmallChange属性的改变量决定滑块的移动量。它们都能使滚动条的Value属性值改变，因此也就能够触ChangeValue属性值，也不能触Change事件。不能作为容器使用的对象是 。A)窗体 B)框架C)图形框 D)图像框【答案】D像框不能放置其他控件，不能作为容器使用。VB6.0应用程序提供的一组单选钮所具有的功能是 。A)选择一次 B)选择多次C)单一选择 D)多个选择【答案】CVB6.0二．练习题单项选择题用于设置命令按钮控件的外观样式的属性是 。Image B)Picture C)Style D)Caption用于设置命令按钮是否为取消按钮的属性是 。Image B)Default C)Cancel D)Caption鼠标停留在控件上时将显示一文本内容该文本内容是通过 属性设置的。Text B)CaptionC)ToolTipText D)HelpContextID设置标签中显示的文本的对齐方式使用 属性。Alignment B)BorderStyle C)AutoSize D)TabIndex标签控件显示文本是使用 属性来实现的。Caption B)Text C)Alignment D)Visible标签和文本框都可以用于显示文本，正确的叙述是 。标签、文本框中的文本都是只读文本文本框、标签中的文本都是可编辑的文本标签中的文本是只读文本，文本框中的文本是可编辑的文本标签中的文本是可编辑的文本，文本框中的文本是只读文本用来设置文本框控件中有无滚动条的属性是 。Appearance B)MultiLine C)ScrollBars D)SelText通过 方法可以将焦点移到指定的对象上。GotFocus B)SetFocusC)KeyPress 在文本框中输入新信息时，能同时引发的事件是 。KcyPress和Click B)KeyPress和LostFocusC)KeyPress和Change D)Change和LostFocus在列表框中当前被选中的列表项的序号是由 属性返回的。A)Columns B)List C)）ListIndex D)ListCount列表框的AddItem方法的作用是 。清除列表框中的全部内容重新设置列表框控件外观向列表框添加项目显示列表框中的列表项目数从列表框中删除一个项目使用 方法。A)RemoveItem B)AddItem C)Clear D)Move组合框可以看成是 和文本框的组合。列表框 B)命令按C)复选框 D)单选按钮下面关于框架的说法错误的是 。是一个容器C)框架可以接收用户输入D)当框架控件的Enabled属性设置为False时，框架中的所有控件都被屏蔽。用鼠标拖动滚动条上的滑块时将触发 事件。A)Change B)KeyPress C)Scroll D)KeyDown当滚动条上滑块的位置改变时将触发 事件。A)Scroll B)Change C)Scroll和Change D)Move将指定的图片文件加载到当前对象中可在属性窗口使用 属性。A)Picture B)CurmetX C)AutoSize D)Stretch为了让图片框的大小可以自动适应所加载的图像大小，则应该 。A)设置Stretch属性值为TrueB)设置AutoSize属性值为TrueC)设置Stretch属性值为False D)设置AutoSize属性值为为了让图像框的大小可以自动适应所加载的图像大小，则应该 。A)设置Stretch属性值为TrueB)设置AutoSize属性值为TrueC)设置Stretch属性值为False D)设置AutoSize属性值为在窗体、图片框或图像框中装入图形使用 函数。PictureLoad B)LoadPictureC)LoadImage D)ImageLoad卸载在图片框中已经加载的位图图像使用 。Picturel.Picture语句Picturel.PictureLoadPicture("…")语句Picturel=LoadPicture语句选择图片框，在弹出的快捷菜单中选择“删除”下列事件中属于计时(Timer)的事件是 。A)Click B)DblClick C)Timer D)KeyDownLabel1正确的是。Label1.BackStyle=0 B)Label1.BackStyle=0Label1.BorderStyle=1 Label1.BorderStyle=0C)Label1.BackStyle=True Label1.BorderStyle=True Label1.BorderStyle=FalseLabel1Alignment1，则该标签的标题。靠左显(默认方) B)靠右显示C)居中显示 D)垂直显示List1Label1程序中能实现上述功能的程序是。PrivateSubList1_Click() B) PrivateSubList1_Clicd()Label1.Caption=List1.Selected EndSub EndSubC) PrivateSubList1_Click() D) PrivateSubList1_Click()Label1.Name=List1.Text EndSub EndSub填空题VB中的控件通常分为三种类型： 、 和可插入的对象。在属性窗口中用于改变选中控件的大小的属性是 和 。鼠标位于命令按钮上并按下鼠标的瞬间，所触发的事件是 事件。当文本框具有焦点时，按下键盘上的任意键，都会触发 事件。列表框的项目内容是一个数组，下标从0开始， 是第一个列表项。列表框中的 和 属性为数组。在三种不同类型的组合框中只能选择而不能输入数据的是Style属性的值为 。滚动条响应的重要事件有 和 。Interval属性用于设定计时器触发Timer事件的时间间隔，该属性值为 屏蔽计时器。如果要求每隔15秒钟触发一次计时器事件，应将Interval属性设置为 。(名称为Label1)(名称为Timer1)下程序，该程序运行后，单击窗体，在标签中显示当前时间并每隔1秒钟变换一次。PrivateSubForm_Load()Timer1.Enabled=FalseTimer1. ① =EndSubPrivateSubForm_Click()Timer1. ② =EndSubPrivateSubTimer1_Timer()Label1.Caption= EndSubLabellLabel2，Caption属性分别为“数HScrolllMin100程序运行后，如果单击滚动条两端的箭头，则在标签Label2中显示滚动条的值。请填空将程序补充完整。PrivateSubHscroll1 ① ()Label2. ② =EndSub【答案】单项选择题（1）C（2）C（3）C（4）A（5）A（6）C（7）C（8）B（9）C（10）C（11）（12）（13）（14）（15）（16）（17）（18）（19）（20）CAACCBADCB（21）（22）（23）（24）（25）CCABD填空题标准控件，ActiveX控件Width，HeightMouseDownKeyDown（KeyUp）List(0)List，Selected（7）2（8）Scroll事件，Change事件（9）0（10）15000①Interval ②Enabled ③Time①_Change ②Caption5章程序设计基础一．例题解析执行下列语句后，Print语句的输出结果是 。a=8：b=9Print A）-1 B）0 C）True D）False【答案】D【解析】VB中使用常量True表示逻辑真，False表示逻辑假。表达式a>b的结果是逻辑假，所以Print语句的输出结果为False。设x为整型变量，能正确表示1<x<5的逻辑表达式是 。A）1<x<5 B）1<x or x<5C）1<x And x<5 D）1<x && x<5【答案】CVBAnd运算符。函数Int(Rnd(2)*10)产生的是闭区间 范围的整数。A）[0,9] B）[1,10] C）[0,10] D）[1,9]【答案】A【解析】Rnd函数产生的是区间(0,1)之间的随机数，所以Rnd(2)*10产生的是区间(0,10)之间的随机数，Int函数的功能是截尾取整，即舍去所有的小数部分。下列四个表达式中，其值为0的是 。A）3/4 B）3\4 C）4Mod3 D）3Mod4【答案】B【解析】在此题中出现了三种运算符Mo选项A0.75；选项B0；选项C1；选项D。下列常量表示中，合法的长整型常量是 。A)123456@ B)0& C)31276! D)345#【答案】B【解析】VB6.0中可以使用类型后缀识别常量的类型，@是货币型常数，&是长整数，!是单精度常数，#是双精度数。下面逻辑表达式的值为真的是 。"ABC">"abc" B)"ABC">"b23"C)"ABC">"ABC" D)"ABC">"ABC"【答案】D等。若二者不相等，则以第一个出现的不同字符比较结果为准。下列函数中，返回值是字符串的是 。Chr B)Instr C)Val D)Asc【答案】A【解析】函数Chr的功能是将ASCII码转换成字符；函数Instr的功能是返回一个字符ValAscASCII码。以下声明语句中错误的是 。A)Constvarl=123 B)Dimvar2='ABC'C)DefInta-z D)Staticvar3AsInteger【答案】BBDim始值的，因而该选项是错误的。下列可作为VisualBasic变量名的是 。A)A#A B)4A C)?xy D)constA【答案】DVisualBasic变量命名的规则是：变量名的第一个字符必须是字母并由字母、255VB保留字。在上述选项中，选项AB以数字开头，选项C均不满足变量的命名规则。函数String(n,"str")的功能是 。把数值型数据转换为字符串B)nn个字符n个字符的位置开始取子字符串【答案】B【解析】函数String(n,"str")返回由n个字符"s"组成的字符串。Command1和Label1，文本框的Text属性设置为空白，然后编写如下事件过程：PrivateSubCommand1_Click()x=Int(Val(Textl.Text)+0.5)Label1.Caption=Str(x)EndSub程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 。A)27 B)28 C)29 D)30【答案】CInt串转换成数值；Str函数的功能是将一个数值表达式转换成一个字符串。本题中使用"28.653"转换成数值28.653，Int(28.653+0.5)的值是29，Str29LabelCaption29。在窗体上画一个命令按钮名称为CommandlPrivateSubCommandl_Click()b=5c=6Printa=b+cEndSub程序运行后，单击命令按钮，输出结果是 。A)a=11 B)a=b+c C)11 D)False【答案】D【解析】本题出现在Printa、bc0、、6ab+c的值不相等，所以表达式“a=b+cFalse。在窗体上放置两个文本框和一个命令按钮，并编写如下事件过程：PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=Text1.Textb=Text2.TextPrint a+b;Text1+EndSub程序运行后，在Text1中输入3，在Text2中输入4，然后单击命令按钮，则输出结果为 。A)3434 B)347C)734 D)77【答案】CTextab已经声明为整型，所Text1Text2aa+b是数值的加法运算，输出结果为整数7；而Text1+Text234二．练习题单项选择题CInt函数的返回值类型是 。整型 B)字符串C)变体 D)字符串或整型在VB中，常量22#的数据类型是 。A）整型 B）双精度型 C）单精度实型 D）长整型设当前日期是2004年4月30日表达式，PrintDay(Now)的输出结果是 。A)2004 B)4/30/04 C)30 D)4下述四个字"C""z"、"A"和"8"中，ASCII码值最小的是 。A)"C" B)"8" C)"A" D)"z"VB中1e-6写成普通十进制数是 。A)0.000001 B)–0.000001C)1.00005 D)–1.00005函数InStr()返回的是 数据。字符串类型 B)长整型 C)单精度类型 D)字节型表达式10^3的值是 。A）-1000 B）0.001 C）1000 D）-0.001VB变量名abc%的类型是 。字符串类型 B)单精度类型C)整型 D)双精度类型下面VB程序运行结果的值是 。PrivateSubCommand1_Click()Dimsa=1：b=2：c=3s=a<bOrb<cOrc<aPrintsEndSubTrue B)False C)0 D)Boolean（10）方法PrintInt(11111.5555*100+0.5)/100输出结果是 。A)11111.55 B)11111.00 C)11111 D)11111.56方法PrintFormat(122.3,"00000.000")输出结果是 。A)12.230 B)12.23 C)122.30 D)00122.300下列名称表示变体数据类型的是 。A)Boolean B)Currency C)Double D)Variant下列不能定义一个整型变量test的语句的是 A)PublictestAsInteger B)DimtestAsIntegerC)Dimtest% AsInteger D)Dimtest%下面程序运行后，单击窗体，窗体输出为 。DefStrX-ZPrivateSubForm_Click()x="a":y="b":z="c"x="1":y="2":z="3"x=y:y=z:z=t=x+ya=Val(t)+PrintaEndSubA)21 B)323 C)232 D)25以下语句的输出结果是 。PrintFormat$(32548.56,"###,###.#")A)32548.6 B)32,548.6 C)032,548.56以下关系表达式中，其值为False的是 。A)"ABC">"AbC" B)"the"<>"they"C)"VISUAL"=UCase("Visual") D)计算结果为0的表达式是 。A)Int(2.3)+Int(-2.8) B)Cint(2.3)+Cint(-2.8)C)Fix(2.3)+Int(-2.8) D)Fix(2.3)+Fix(-2.8)

D)32548.56填空题设a=18,b=25,c=30,d=10,表达式的d>cOrNota>b的值是 。用DimabcAsVariant定义的abc变量类型是 。将数学表达式Cos2(a+b)+5e2写成VB的表达式，其正确的形式是 。执行以下程序段后，变量c的值是 。a="12A34"： b="78"c=Val(a)+Val(b)有如下程序PrivateSubForm_Click()Dimz1,z2AsIntegerz1=15.6： z2=Printz1;z2EndSub运行后，单击窗体，则输出的结果是 。【答案】单项选择题（1）A（2）B（3）C（4）B（5）A（6）B（7）C（8）C（9）A（10）D（11）（12）（13）（14）（15）（16）（17）DDCDBAD填空题True变体类型（3）Cos(a+b)^2+5*Exp(2)（4）90（5）15.6 16第6章程序流程控制一．例题解析设有语句 x=InputBox("输入数值","0","示例"), 程序运行后如果从键盘上输数值10并按回车键，则下列叙述中正确的是 。x10InputBox对话框标题栏中显示的是“示例”0是默认值x"10"【答案】D【解析】InputBox函数一般格式是：InputBox(<提示>[,标题][,默认值][,X][,Y][,帮助文件名,上下文编号])1D是正确答案。在窗体上放置一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima,baInputBox("")bInputBox("PrintbaEndSub程序运行后，单击命令按钮，在输入对话框中分别输入 321和456，输出结为 。A)321456 B)456321C)777 D)有语法错误，不能执行【答案】B【解析】“+”运算符有两个作用：对于字符串型运算数，执行字符串连接运算；对InputBoxab456321。运行下列程序，单击窗体，则消息框中显示的提示是。PrivateSubForm_Click()MsgBoxStr(123+EndSubA)123+123 B)"246"C)246 D)显示出错信息【答案】CMsgBoxStr(123+123)是消息框中要显示的提示信Str(123MsgBox符。执行如下语句后，Print语句的输出结果是 。A=100PrintIIf(A>50,"Large","Small")1000 B)True C)Large D)Small【答案】CIIFIIf(123)1的值为True23C下列语句中，与Else匹配的If语句是 。Ifx>0ThenIfx<10ThenPrintxElsePrintEndifEndif第一个 B)第二个C)第一个或第二个 D)程序有错误【答案】BIf语句的嵌套时，ElseIf运行下列程序，单击窗体，则输出结果是 。PrivateSubM=5IfM>=0ThenN=IfM>=1ThenN=2IfM>=2ThenN=3PrintN;EndSubA)1 B)2 C)3 D)123【答案】C5M>＝0，条件满足，变量N1；继续判断第二个条件M>=1，条件仍然满足，变量NNPrintN。运行下列程序，单击窗体，从键盘输入50，则输出结果是。PrivateSubForm_Click()a=Val(InputBox("A="))SelectCaseaCaseIs<100:Printa+CaseIs<80:Printa+CaseIs<60:Printa+CaseElse:Printa+4;EndEndSubA)51 B)52 C)53 D)51525354【答案】ASelectCase语句的执行方法是：用测试表达式的值与第一个CaseCaseSelect执行；如果不匹配，依次比较第二、第三、……各Case子句。＝5，与第一Case子句的条件匹配Is<10，所以输出结果是51。For循环中，循环控制变量的增量（循环步长）。只能是整数 B)只能是正整数只能是不为0的整数 D)任何数值型数据【答案】DFor在循环体内，必须有可以结束循环的语句，否则会形成“死循环运行下列程序后，单击窗体，则其中的循环体一共被执行 次。PrivateSubForm_Click()ForI=7To100StepPrintINextIEndSubA)16 B)17 C)18 D)19【答案】D【解析】For～Next循环中，循环体的执行次数=Int((上界下界)/步长+1)Int((100-7)/5+1)。运行下列程序，单击窗体，则运行结果是 。PrivateSubForm_Click()Forx=1To2a=0Fory=1Tox+a=a+1NextyPrinta;NextxEndSubA)1 1 B)0 0C)1 2 D)2 3【答案】D【解析】本题是嵌套两层的For循环结构，外层循环控制变量是1控制执行两次循环体，每次执行循环体的第—个语句是把0a，执行循环体的最后a的值，用内层循环计算a的值，当x1时，内层循环执行2次，每次a1a2，2x23a1a3，3Print语句以分号2。运行下列程序，单击窗体，则执行结果是 。PrivateSubForm_Click()s=0Dos=(s+1)*(s+2)Number=Number+1LoopUntils>=30PrintNumber;sEndSubA)01 B)30 30C)4 30 D)3 182【答案】D【解析】本题使用了Do～LoopUntil循环结构，循环初始设置s0(s+1)*(s+2)计算出新的s1次执行后s的值是2234s1231314s182s的303次循环，Numberl，所以Number3，s182。以下能够正确计算n!的程序是。PrivateSubCommandl_Click()n=5:x=1Dox=x*ii=i+1LoopWhilei<nPrintxEndSubPrivateSubCommandl_Click()n=5:x=l:i=lDox=x*ii=i+1LoopWhilei<nPrintxEndSubPrivateSubCommandl_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei<=nPrintxEndSubPrivateSubCommandl_Click()n=5：x=l：i=lDox=x*ii=i+lLoopWhilePrintxEndSub【答案】CAii0x0A是错误的。B中各变量的初始值是正确的，错在判断循环执行的条件Whilei<ni等于5时，循环停止，所以只计算到4DWhilei>n只能执行一次，即终止循环，即x中求出的是1在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：PrivateSubCommand1_Click()Fori=1To4Forj=0ToiPrintChr$(65+NextjPrintNextiEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 。A)BBB)AC)BD)AACCCBBCCBBBDDDDCCCDDDCCCCEEEEEDDDDEEEEDDDDD【答案】A【解析】当i101，在同一行输出ASC66B两次i2C三次后换行。依此类推。二．练习题单项选择题有如下程序：PrivateSubForm_Click()ddd=MsgBox("注意",vbAbortRetryIgnore+vbExclamation,"标题")EndSub运行后，单击窗体，则显示的消息对话框是 。A)B)C)D)下面程序运行后，单击窗体，输出的结果是 。PrivateSubForm_Click()Fori=10To4Step-2k=iNextiPrintk;iEndSubA)5 2 B)5 3 C)4 2下面程序中，能正确计算出10的阶乘值1）的是 PrivateSubp=0Fori=1To10p=p*iNextiPrintpEndSubPrivateSubp=1Fori=1To10p=p*iNextiPrintp

4 3EndSubPrivateSubForm_Click()Fori=1To10p=0p=p*NextiPrintpEndSubPrivateSubForm_Click()Fori=1To10p=1p=p*NextiPrintpEndSub下面程序运行后，单击窗体，从键盘输入a，输出的结果是 PrivateSubform_Click()t=InputBox("请输入一个字符：")SelectCasetCase"a"y=String(3,UCase(t))Case"A"y=String(3,LCase(t))CaseElsey="AaA"EndSelectPrintyEndSubaaa B)AAA C)AaA D)aAa下面程序运行后，单击窗体，输出的结果是 。PrivateSubm=63n=14DoWhilem<>nDoWhilem>m=m-LoopDoWhilen>n=n-mLoopLoopPrintm;EndSubA)7 7 B)1 1 C)1 7 D)7 1下面程序运行后，单击窗体，输出的结果是 。PrivateSubForm_Click()a$="1234512345"Fori=1ToLen(a$)k=Mid(a$,i,1)m=Trim(Str(Val(k)+2))s=s+mNextiPrintsEndSubA)30 B)50 C)3456734567 D)2345623456下面程序运行后，单击窗体，输出的结果是 。PrivateSubform_Click()k="A"Fori=5To0Step-1t=t+Chr(Asc(k)+NextiPrinttEndSub运行后输出结果是ABCDE B)ABCDEFC)FEDCBA D)EDCBA下面程序运行后，单击窗体，输出的结果是 。PrivateSubForm_Click()ForJ=4To1Step-1PrintTab(6-J);ForK=3To1Step-1Print"*";NextKPrintNextJEndSubA)***B)***C)***D)*************************************下面程序运行后，单击窗体，输出的结果是 。PrivateSubForm_Click()a=100DoIfaMod2=0Thens=s+1EndIfa=a+1LoopWhilea<Printa;sEndSubA)120 12 B)120 10C)122 12 D)121 11下面程序运行后，单击窗体，从键盘输入1，输出的结果是 。PrivateSubx=-5s=InputBox("请输入一个整数")SelectCasesCaseIs>0:y=x+1Case1To10:y=x+2CaseElse:y=x+EndPrintx;yEndSubA)-5-1 B)-5-4 C)-5-3 D)-5-5在窗体上画一个名称为CommandlPrivateSubCommand1_ClickDimsumAssum=1DoUntilsum>Printsumsum=sum+LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是 。A)lB)1C)1D)无数据输出324546在窗体上画一个名称为CommandlPrivateSubCommand1_Click()Forn=1To10IfnMod3<>0Thenm=m+n\5NextnPrintmEndSub程序运行后，如果单击命令按钮，则窗体上显示的内容是 。A)5 B)3 C)2 D)4有如下程序PrivateSuby=1: x=1DoUntily>x=x*yy=y+LoopPrintx;EndSub运行后输出的结果为A120 6 B)24 5 C)6 6 D)显示出错信息下面程序运行后，单击窗体，则输出结果为 。PrivateSuba$="1234"b$="-*/"Forj=4To1Step-1c$=c$+Mid$(a$,j)+Mid$(b$,j,NextjPrintEndSubA)4*34-234+1234 B)4/3*2-1C4/34*234-1234 D)出错填空题下列VisualBasic代码的执行结果是 。a=b=Ifa<bThena=a/bElseb=a\bPrinta;b执行下面的程序段后，变量S的值为 。S=5Fori=2．6ToStepS=S+1Nexti下面程序运行后，单击窗体，输出的结果是 。PrivateSubm=0Fori=-5To5Forj=5 To0 Stepm=m+1NextjNextiPrintmEndSub运行下面程序后，单击窗体，要求能够显示下图所示的消息框，请填空。PrivateSubForm_Click()asd=MsgBox("确定", +vbInformation,标题EndSub在下面的程序中，要求循环体执行4PrivateSubCommand1_Click()x=1DoWhilex=x+LoopPrintxEndSub202003005整PrivateSubCommand1_Click()Fori=1To20x=Int( ① *200+If ② =0ThenPrintxs=s+ ③EndIfNextiPrint"Sum=";sEndSub以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请填空。PrivateSubForm_Click()DimxAsInteger，amaxAsInteger，aminAsIntegerx=InputBox("输入一个分数：")amax=x: DoWhile ①Ifx>amax Then if ② Then amin=xx=InputBox("请输入下一个分数：")LoopPrint"Max="；amax，"Min="；aminEndSub【答案】单项选择题（1）D（2）C（3）B（4）B（5）A（6）C（7）C（8）B（9）D（10）B（11）（12）（13）（14）AAAC填空题（1）5 1（2）9（3）33vbYesNox<8或者x<=7或者x<=8或者x<9①Rnd() ②xMod5 ③x①x>=0 x<aminx<=aminamin>xamin>=x第7章数组和用户自定义类型一.例题与解析Command1OptionBase1PrivateSubCommand1_Click()d=0: c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序运行后，单击命令按钮，则窗体上的输出结果为 。A)89 B)99 C)23 D)77【答案】C【解析】语句OptionBase11xArray(10,12,21,32,24)x各元素的值分别为：x(1)=10，x(2)=12，x(3)=21，x(4)=32，x(5)=24i1时，x(i)>cd=d-cd的值为-10；i2时，x(i)>c的值为真，d=d+x(i)c=x(i)，使得dc23的值为真，执d=d+x(i)c=x(i)dc2321;i4时，x(i)>c的值为真，执d=d+x(i)c=x(i)，使得dc5532i5的值为假，执d=d-cd55-32=23。Text1Command1编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimi,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+NextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是 。A)12 B)13 C)14 D)15【答案】Ai=1j的值分别为234i=2时，j、、4array(2,2)=4，array(2,3)=5，array(2,4)=6；i=3时，j的值、34array(3,2)=5，array(3,3)=6，array(3,4)=7。因此文本框内显示的值应该12。设有如下程序：OptionBase0PrivateSubCommand1_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-NextEndSub程序运行后，单击窗体，则在窗体上显示的是 。A)4321 B)5432 C)6543 D)7654【答案】Ca初始化后，数组各元素的值分别是：a(4)=5，a(5)=6，a(6)=7，a(7)=8，a(8)=9ForPrinta(5)、a(4)、a(3)、a(2)、5、、。用下面语句定义的数组的元素个数是 。DimA(-3To5)AsIntegerA）6 B）7 C）8 D）9【答案】D（-（如本例的AA(-3)、A(-2)、A(-1)、A(0)、A(1)A(2)A(3)A(4)、A(5)9个元素。设有如下数组声明语句，则下列对数组元素的引用中错误的是 。DimA(5)A）A(0)=1.57 B）A(6)=12 C）A(5)="qaz" D）A(1)=True【答案】B0，则数组A的A(0)A(1)A(2)A(3)、A(4)A(5)A(6)另外，在本题中声明数组A时省略了数据类型，则系统默认为Variant类型，即数组的每个元素可以存放不同类型的数据。运行下列程序，单击窗体，则运行结果是 。OptionBase1PrivateSubDima(10)Fori=1To10a(i)=10-i+iModNextiFori=10To1StepPrinta(i);NextiEndSubA)0 2 4 6 8 B)8 6 4 2 0C)1 3 5 7 9 D)9 7 5 3 1【答案】A【解析】本题要注意两点：第一个For语句的循环体有一条a(i)=10-i+iMod2语句完成数组元素的生成；另外，第二个For语句的参数是10To1Step-2，逆向间隔输出。计算数组元素中Mod运算符优先，当i是奇数时Mod2的值为1，当i是偶数时Mod2的值为0，10-i在循环中得到9 8 7，6，5，4，3，2，1，0，当i是奇数时加1，因此a数组中的数是最后逆向间隔输出，输出的结果是4，6，8。运行下列程序，单击窗体，则运行结果是 。OptionBase1PrivateSubForm_Click()Dimaa=Array(1,5,"abcde")Fori=1To3Printa(i);NextiEndSub1 5 abcde B)1 5 "abcde"C)出错信息 D)15abcde【答案】AA是变体变量，使用Array不同；并且字符串输出是不带定界符（一对单引号。二．练习题单项选择题下面程序运行后，单击窗体，窗体输出为 。OptionBase1PrivateSubForm_Click()x=Array(10,25,15,20,25,25,50,40,50,60)p=x(1)Fori=2To10Ifx(i)>pp=x(i)s=s+EndIfNextiPrintp;sEndSubA)10 10 B)60 70 C)60 135 D)10 65在窗体上放一个命令按钮，并编写如下程序，运行后单击命令按钮，则输出结是 。PrivateSubCommand1_Click()DimAA=Array(1,2,3,4)S=0ForI=1To2S=S+PrintS;NextIEndSubA）2 5 B）1 3 C）5 D）4Command1PrivateSubCommand1_Click()Dimi,jAsIntegerDima(10,10)AsFori=1To3Forj=1To3a(i,j)=(i-1)*3+Printa(i,j);NextjPrintNextiEndSub程序运行后，单击命令按钮，窗体上显示的是 。A)123 B)234 C)147 D)123246 345 258 456369 456 369 789设有如下程序PrivateSubForm_Click()Dimabc()Asn1=Int(10*Rnd())n2=Int(10*Rnd()+ReDimabc(n1Ton2)PrintLBound(abc);UBound(abc)EndSub运行程序后，多次单击窗体，则输出结果范围最大的两个数是A)10 60 B)10 59 C)0 59 D)0 60下面四个选项中，正确的用户定义类型是 。Decabc B)DecabcxmAsString xmAsString*4nlAsInteger nlAsIntegerxbAsBoolean xbAsEndDec EndDecTypeabc D)TypeabcxmAsString xmAsString*4nlAsInteger nlAsIntegerxbAsBoolean xbAsEndType EndType设有如下程序OptionBase1PrivateSubForm_Click()a张刘郝陈王")wa(1)Fori=1To4a(i)=a(i+Nextia(5)=wFori=5To1StepPrinta(i);NextiEndSub运行程序后，输出结果是 。张王陈郝刘 B)王陈郝刘张 C)张刘郝陈王 D)刘郝陈王张Form1Command1,Caption属性值是按控件数组元素索引号顺序排列的，如下图所示。下列程序中，运行后单击命令按钮，能在窗体上输出被单击命令按钮的索引号和Caption属性值的是 。PrivateSubCommand1_Click(IndexAsInteger)PrintIndex;Command1(Index).CaptionEndSubPrivateSubCommand1_Click(IndexAsInteger)PrintCommand1.Index;Command1(Index).CaptionEndSubPrivateSubCom