声明：本站内容部分源于网络转载，出于传递更多信息之目的，并不意味着赞同其观点或证实其描述。文章内容仅供参考，请咨询相关专业人士。
如果无意之中侵犯了您的版权，或有意见、反馈或投诉等情况, 请联系本站，
Copyright (C)2018
网站备案/许可证号：
| 欢迎来到杭州厨师培训当前位置： >>
vb新题库(填空题)
所有填空题 1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的 特点，即______和______。 答案： 1：Windows 9x/NT#Windows9x/NT#Windows 9x\NT#Windows9x\NT#Windows 9x#Windows NT#Windows9x#WindowsNT#windows 9x/NT#windows9x/NT#windows 9x\NT#windows9x\NT#windows 9x#windows NT#windows9x#windowsNT 2：事件驱动编程#可视化设计 3：可视化设计#事件驱动编程 等级：1 难度：1 知识点：VB知识点/VB简介 2、VB是一种面向______的可视化编程语言，它采用______的编程机制。答案：1：对象 2：事件驱动 等级：1 难度：1 知识点：VB知识点/VB的编程环境3、在VB集成开发环境中，运行应用程序的方法有两种：______或______。 答案： 1：编译运行模式#解释运行模式#编译运行#解释运行 2：解释运行模式#编译运行模式#解释运行#编译运行 等级：1 难度：1 知识点：VB知识点/VB简介4、VB的对象主要分为______和______两大类。 答案： 1：窗体#控件 2：控件#窗体 等级：1 难度：1 知识点：VB知识点/VB的对象、属性、方法和事件5、VB中，用来描述一个对象的状态或特征的量称之为对象的______。 答案： 1：属性 等级：1 难度：1 知识点：VB知识点/VB的对象、属性、方法和事件6、在VB中，最基本的对象是______。答案： 1：窗体 等级：1 难度：1 知识点：VB知识点/VB的对象、属性、方法和事件7、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现，这段程序代码称______。 答案： 等级：1 1：事件过程 难度：1知识点：VB知识点/VB的对象、属性、方法和事件8、调用方法的一般格式是______。 答案： 1：对象名.方法名[参数名表]#对象.方法[参数表] 等级：2 难度：2 知识点：VB知识点/VB的对象、属性、方法和事件9、VB应用程序开发的一般步骤是创建______，设置______，编写______。 答案： 1：应用程序的界面#应用程序界面 2：控件的属性#控件属性 3：响应事件的代码#响应事件代码 等级：1 难度：1 知识点：VB知识点/VB应用程序设计的基本步骤10、Visual Basic应用程序中标准模块文件的扩展名是______。 答案： 1：.bas#.Bas#.BAS#bas#Bas#BAS 等级：1 难度：1 知识点：VB知识点/基本数据类型11、如果要在单击钮时执行一段代码，则应将这段代码写在______事件过程中。答案： 1：click#Click#CLICK 等级：1 难度：1 知识点：VB知识点/简单控件设计12、一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示______文件；扩展名为.frm的文件表 示______文件；扩展名为.bas的文件表示______文件；包含ActiveX控件的文件扩展名为______。 答案： 1：工程 2：窗体 3：标准模块 4：.OCX#.ocx#.Ocx#OCX#ocx#Ocx 等级：1 难度：1 知识点：VB知识点/基本数据类型13、Visual Basic 6.0用于开发______环境下的应用程序。 答案： 1：WINDOWS#windows#Windows 等级：1 难度：1 知识点：VB知识点/VB简介14、打开&工程窗口&的方法之一是按下______组合键。 答案： 1：CTRL+R#ctrl+r#Ctrl+r#Ctrl+R#R+CTRL#r+ctrl#r+Ctrl#R+Ctrl#CTRL + R#ctrl + r#Ctrl + r#Ctrl+ R 等级：1 难度：1 知识点：VB知识点/VB的编程环境15、Visual Basic的控件通常分为3种类型，即______、______、______。其中，______不能从工具箱中被删除， ______单独保存在.OCX文件中，在必要进可以加入到工具箱中。 答案： 1：内部控件#ACTIVEX控件#可插入对象#标准控件#ActiveX控件 2：ACTIVEX控件#内部控件#可插入对象#标准控件#ActiveX控件 3：可插入对象#内部控件#ACTIVEX控件#标准控件#ActiveX控件 4：内部控件#标准控件 5：ACTIVEX控件#ActiveX控件#activeX控件 等级：1 难度：1 知识点：VB知识点/简单控件设计16、为了选择多个控件，可以按住______键，然后单击每个控件。 答案： 1：Ctrl#CTRL#ctrl 等级：1 难度：1 知识点：VB知识点/简单控件设计17、双击窗体的任何地方，可以打开______窗口。答案： 1：代码 等级：1 难度：1 知识点：VB知识点/VB的编程环境18、启动Visual Basic后，系统为用户新建的工程起一个名为______的临时名称。 答案： 1：工程1#工程 1 等级：1 难度：1 知识点：VB知识点/VB的编程环境19、Visual Basic集成环境的大部分窗口都可以从主菜单项的______下拉菜单中找到相应的打开命令。答案： 1：视图 等级：1 难度：1 知识点：VB知识点/VB的编程环境20、在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示______事件过程模板。 答案： 1：Form1_Load#form1_load#FORM1_LOAD#Form 1_Load#Form1 _ Load#Form 1 _ Load 等级：1 难度：1 知识点：VB知识点/简单控件设计21、每建立一个窗体，工程管理器窗口中就会增加一个______文件。答案： 1：窗体 等级：1 难度：1 知识点：VB知识点/VB的工程管理和环境设置22、要运行VisualBasic应用程序，可按______快捷键。 答案： 1：F5#f5 等级：1 难度：1 知识点：VB知识点/VB应用程序设计的基本步骤23、若要改变窗体运行时在窗口中的位置，可在______窗口中设置。 答案： 1：窗体布局 等级：1 难度：1 知识点：VB知识点/VB的工程管理和环境设置24、当进入VB集成环境时，若没有发现&属性窗口&，应选择______菜单的______选项。使属性窗口显示。答案：1：视图 2：属性窗口 等级：1 难度：1 知识点：VB知识点/VB的工程管理和环境设置25、若用户用鼠标单击了窗体Form1，则启动的事件名为______。答案： 1：Click#click#ClICK 等级：1 难度：1 知识点：VB知识点/简单控件设计26、Visual Basic 6．0分为三种版本，这三种版本是______、______和______。 答案： 1：学习版本#专业版本#企业版本#学习版#专业版#企业版#学习#专业#企业 2：学习版本#专业版本#企业版本#学习版#专业版#企业版#学习#专业#企业 3：学习版本#专业版本#企业版本#学习版#专业版#企业版#学习#专业#企业 等级：1 难度：1 知识点：VB知识点/VB简介27、可以通过______菜单中的______命令退出Visual Basic。答案：1：文件 2：退出等级：1 难度：1 知识点：VB知识点/VB应用程序设计的基本步骤28、退出Visual Basic的快捷键是______或______。答案：1：Alt+Q#Alt+F4#ALT+Q#ALT+F4#Alt+q#alt+q#alr+f4#Alt+f4 2：Alt+Q#Alt+F4#ALT+Q#ALT+F4#Alt+q#alt+q#alr+f4#Alt+f4 等级：1 难度：1 知识点：VB知识点/VB应用程序设计的基本步骤29、Visual Basic 6．0的菜单栏共有______个主菜单项。答案： 1：13#十三#一十三 等级：2 难度：2 知识点：VB知识点/VB的工程管理和环境设置30、快捷键Ctrl+O的功能相当于执行______菜单中的______命令；或者相当于单击工具栏上的______按钮。答案：1：文件 2：打开工程 3：打开工程 等级：1 难度：1 知识点：VB知识点/VB的工程管理和环境设置31、如果打开了不需要的菜单或对话框，可以用______键关闭。答案： 1：ESC#esc#Esc 等级：1 难度：1 知识点：VB知识点/VB的工程管理和环境设置32、Visual Basic中的工具栏有两种形式，分别为______和______形式。 答案： 1：固定#浮动#固定形式#浮动形式 2：浮动#固定#浮动形式#固定形式 等级：1 难度：1 知识点：VB知识点/VB的工程管理和环境设置33、VB6保存窗体文件的快捷键是______。 答案： 1：CTRL+S#ctrl+s#Ctrl+s#Ctrl+S#CTRL + S#ctrl + s#Ctrl + s#Ctrl + S 等级：1 难度：1 知识点：VB知识点/简单控件设计34、VB6保存工程文件的快捷键是______。 答案： 1：CTRL+S#ctrl+s#Ctrl+s#Ctrl+S#CTRL + S#ctrl + s#Ctrl + s#Ctrl + S 等级：1 难度：1 知识点：VB知识点/VB的工程管理和环境设置35、在代码调试中常见的错误类型有______、运行错误和______。答案：1：编译错误#逻辑错误 2：逻辑错误#编译错误 等级：1 难度：1 知识点：VB知识点/VB的工程管理和环境设置36、窗体的常用方法有：______、______、______等。 答案： 1：Print方法#Cls方法#Move方法#print方法#cls方法#move方法 #Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法 2：Print方法#Cls方法#Move方法#print方法#cls方法#move方法 #Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法 3：Print方法#Cls方法#Move方法#print方法#cls方法#move方法 #Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法 等级：1 难度：1 知识点：VB知识点/简单控件设计37、文本框常用的获得焦点的方法是______。答案： 1：SetFocus方法#setfocud方法#SETFOCUS方法#SetFocus#setfocud#SETFOCUS 等级：1 难度：1 知识点：VB知识点/控件的基本知识38、在窗体上打印&大家都来学用Visual Basic&，代码是______。答案： 1：print &大家都来学用Visual Basic&#Print &大家都来学用Visual Basic&#PRINT &大家都来学用 Visual Basic& 等级：1 难度：1 知识点：VB知识点/程序书写规则及格式约定39、属性窗口中属性显示的排列方式有两种：______和______。答案：1：按字母序#按分类序#按字母#按分类#按字母序排列#按分类序排列#按字母排列#按分类排列 2：按字母序#按分类序#按字母#按分类#按字母序排列#按分类序排列#按字母排列#按分类排列 等级：1 难度：1 知识点：VB知识点/VB的对象、属性、方法和事件40、清除窗体或控件对象上的信息用______方法。答案： 1：Cls#cls#CLS 等级：1 难度：1 知识点：VB知识点/简单控件设计41、工程组是一个工程的集合，它以一个独立的文件保存，扩展名是______。答案： 1：.vbg#.Vbg#.VBG#vbg#Vbg#VBG 等级：1 难度：1 知识点：VB知识点/基本数据类型42、VB有3种工作模式：______、______和______。答案：1：设计模式#运行模式#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式 2：设计模式#运行模式#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式 3：设计模式#运行模式#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式 等级：1 难度：1 知识点：VB知识点/VB的编程环境43、变量名最长可达______个字符。答案： 1：225#二五五#二百五十五 等级：1 难度：1 知识点：VB知识点/常量与变量44、整数类型数据分别包括整型和______数据。答案： 1：长整型 等级：1 难度：1 知识点：VB知识点/常量与变量45、循环是一组重复执行的指令，重复次数由______决定。答案： 1：条件#循环条件#循环的条件#循环条件语句#循环的条件语句 等级：1 难度：1 知识点：VB知识点/循环结构46、列表框（ListBox控件）显示______，用户可从中选择一个或多个项目。 答案： 1：项目列表#项目的列表 等级：1 难度：1 知识点：VB知识点/列表框和组合框47、在程序中调用子过程需要指明______，然后列出该子过程所要求的参数。答案： 1： 该过程的名称#该过程名称#过程的名称#过程名称#该子过程的名称#该子过程名称#子过程的名称# 子过程名称 等级：1 难度：1 知识点：VB知识点/函数过程48、在窗体上画一个命令按钮，然后编写如下事件过程，该过程的功能是用选择交换法将10个数排成升序，请 在______处将程序补充完整。 Private Sub Command1 _ Click() Dim a(10) For i=1 To 10 a(i)=Val(InputBox(″″,″″,0)) Next i For i=______ k=i For j=______ If ______ Then k=j; If k＜＞i Then b=a(k) a(k)=a(i) a(i)=b End If Next j Next i For k=1 To 10 Print a(k) Next k End Sub答案：1：1 to 9 2：i+1 to 10 3：a[j]&a[k] 等级：3 难度：3 知识点：VB知识点/应用程序举例49、执行下面的语句后，所产生的信息框的标题是______。 a=MsgBox(″AAAA″,5,″BBBB″)答案： 1：BBBB 等级：2 难度：2 知识点：VB知识点/应用程序举例50、下面程序运行后，输出的结果是______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End答案： 1：24 等级：2 难度：2 知识点：VB知识点/循环结构51、Visual Basic提供的对数据文件的三种访问方式为随机访问方式______和二进制访问方式。答案： 1：顺序访问#顺序访问方式 等级：1 难度：1 知识点：VB知识点/顺序文件的访问52、计算1*2*3*...*3000，当积大于3000时停止计算。请在______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ______ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub答案： 1：t=t*j 等级：3 难度：3 知识点：VB知识点/应用程序举例53、表达式5 Mod 3＋9\4/2的值是______。 答案： 1：6 等级：2 难度：2 知识点：VB知识点/顺序结构54、语句Form1.Print &10& & 20的输出结果是______。答案： 1：1020 等级：1 难度：1 知识点：VB知识点/算法与结构55、若声明了一个整型变量而没有赋值，系统默认该变量的值是______。答案： 1：0 等级：1 难度：1 知识点：VB知识点/常量与变量56、语句Print Int(123..5)/100的输出结果是______。答案： 1：123.46 等级：1 难度：1 知识点：VB知识点/运算符及表达式57、在Visual Basic中，由系统设定、能被对象识别和响应的动作称为______。答案： 1：事件 等级：1 难度：1 知识点：VB知识点/VB的对象、属性、方法和事件58、程序运行过程中，清除P1图片框中的图像应使用语句______。 答案： 1： P1.LoadPicture()#P1.LOADPICTURE()#p1.loadpicture()#P1.LoadPicture( )#P1.LOADPICTURE( )#p1.loadpi cture( ) 等级：2 难度：2 知识点：VB知识点/图形控件59、控件的______属性是对象的名字，其值在程序运行中只能被引用，不能被修改。答案： 1：Name#name#NAME 等级：1 难度：1 知识点：VB知识点/VB的对象、属性、方法和事件60、Timer控件的______属性决定该控件是否响应Timer事件。答案： 1：Enable#enable#ENABLE 等级：1 难度：1 知识点：VB知识点/时钟控件61、将窗体的______属性设为True，窗体会先于该窗体上的其他控件响应键盘事件。答案： 1：keyPreview#KeyPreview#keypreview#KEYPREVIEW 等级：1 难度：1 知识点：VB知识点/控件的基本知识62、如果列表框的ListCount属性为10，则列表框最后一项的ListIndex值为______。答案： 1：9 等级：1 难度：2 知识点：VB知识点/列表框和组合框63、要使某个命令钮不起作用，应将该按钮的______属性设置为False。答案： 1：Enable#enable#ENABLE 等级：1 难度：1 知识点：VB知识点/控件的基本知识64、要将焦点移至指定的控件，可使用______方法。答案： 1：SetFocus#setfocus#SETFOCUS 等级：1 难度：1 知识点：VB知识点/控件的基本知识65、如果要求定时器Timer事件间隔为2秒，其Interval属性应设置为______。答案： 1：2000 等级：1 难度：1 知识点：VB知识点/时钟控件66、复选框的______属性决定复选框是否被选中。答案： 1：Value#value#VALUE 等级：1 难度：1 知识点：VB知识点/单选按钮和复选框67、VB的控件分为______、ActiveX控件和可插入对象。答案： 1：内部控件#标准控件 等级：1 难度：1 知识点：VB知识点/控件的基本知识68、VB的控件分为标准控件、______和可插入对象。答案： 1：ActiveX控件#activex控件#ACTIVEX控件 等级：1 难度：1 知识点：VB知识点/控件的基本知识69、VB的控件分为标准控件、ActiveX控件和______。答案： 1：可插入对象#插入对象 等级：1 难度：1 知识点：VB知识点/控件的基本知识70、写出图片框控件的缺省英文名称______。答案： 1：PictureBox#picturebox#PICTUREBOX 等级：1 难度：1 知识点：VB知识点/图形控件71、写出单选按钮控件的缺省英文名称______。答案： 1：OptionButton#optionbutton#OPTIONBUTTON 等级：1 难度：1 知识点：VB知识点/控件的基本知识72、写出组合框控件的缺省英文名称______。答案： 1：ComboBox#combobox#COMBOBOX 等级：1 难度：1 知识点：VB知识点/列表框和组合框73、写出文本框控件的缺省英文名称______。答案： 1：TextBox#textbox#TEXTBOX 等级：1 难度：1 知识点：VB知识点/控件的基本知识74、写出窗体的缺省英文名称______。 答案： 1：Form#form#FORM 等级：1 难度：1 知识点：VB知识点/控件的基本知识75、将______属性设置为1，单选按钮和复选框的标题显示在左边。答案： 1：Alignment#alignment#ALIGNMENT 等级：1 难度：1 知识点：VB知识点/单选按钮和复选框76、将______属性设置为1，单选按钮和复选框以图形方式显示。 答案： 1：Style#style#STYLE等级：1 难度：1 知识点：VB知识点/单选按钮和复选框77、常用的容器控件有：窗体、图片框和______。答案： 1：框架 等级：1 难度：1 知识点：VB知识点/框架Frame控件78、常用的容器控件有：框架、图片框和______。答案： 1：窗体 等级：1 难度：1 知识点：VB知识点/框架Frame控件79、常用的容器控件有：框架、窗体和______。答案： 1：图片框 等级：1 难度：1 知识点：VB知识点/框架Frame控件80、当用户单击滚动条的空白处时，滑块移动的增量值由______属性决定。答案： 1：LargeChange#largechange#LARGECHANGE 等级：1 难度：1 知识点：VB知识点/框架Frame控件81、列表框中项目的序号是从______开始的。答案： 1：0 等级：1 难度：1 知识点：VB知识点/列表框和组合框82、______表示列表框中最后一项序号。答案： 1：list1.listcount-1#List1.Listcount-1#lIST1.lISTCOUNT-1 等级：1 难度：1 知识点：VB知识点/列表框和组合框83、______方法可清除列表框的所有内容。答案： 1：clear#Clear#CLEAR 等级：1 难度：1 知识点：VB知识点/列表框和组合框84、如果要每隔15S产生一个计时器事件，则Interval属性应设置为______。 答案： 1：15000 等级：1 难度：1 知识点：VB知识点/时钟控件85、如果要每隔10S产生一个计时器事件，则Interval属性应设置为______。答案： 1：10000 等级：1 难度：1 知识点：VB知识点/时钟控件86、如果要每隔20S产生一个计时器事件，则Interval属性应设置为______。答案： 1：20000 等级：1 难度：1 知识点：VB知识点/时钟控件87、如果要每隔25S产生一个计时器事件，则Interval属性应设置为______。答案： 1：25000 等级：1 难度：1 知识点：VB知识点/时钟控件88、如果要每隔5S产生一个计时器事件，则Interval属性应设置为______。答案： 1：5000 等级：1 难度：1 知识点：VB知识点/时钟控件89、在3种不同风格的组合框中，用户不能输入数据的组合框是______。答案： 1：下拉列表框 等级：1 难度：1 知识点：VB知识点/列表框和组合框90、组合框有3种不同的风格，用户通过______属性可进行设置。答案： 1：Style#style#STYLE 等级：1 难度：1 知识点：VB知识点/列表框和组合框91、组合框是文本框和______控件的组合。答案： 1：列表框 等级：1 难度：1 知识点：VB知识点/列表框和组合框92、组合框是列表框和______控件的组合。 答案： 1：文本框 等级：1 难度：1 知识点：VB知识点/列表框和组合框93、窗体和其他控件的Name属性只能在______设置。答案： 1：设计状态#设计状态时#设计的状态#设计的状态时 等级：1 难度：1 知识点：VB知识点/控件的基本知识94、将数学表达式1≤x≤9用VB逻辑表达式表示应该是______。答案： 1：x&=1 And x&=9#x&=1 and x&=9 等级：1 难度：1 知识点：VB知识点/运算符及表达式95、下面这段程序执行后，共执行了______次循环体，输出i的值是______。 For i＝1 To 5 y＝i Next i Print i答案：1：5#五 2：6等级：2 难度：2 知识点：VB知识点/循环结构96、程序运行后，单击窗体，将触发窗体的______事件。答案： 1：Click#CLICK#click 等级：1 难度：1 知识点：VB知识点/控件的基本知识97、在VB中，参数传递有值传递和______两种方式。答案： 1：地址传递 等级：1 难度：1 知识点：VB知识点/参数的传递98、设有如下程序: Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = ______ For i = 2 To 8 If arr1(i) & Min Then ______ Next i Print &最小值是:&; Min End Sub 以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空。答案：1：arr1(1) 2：min=arr1(i)#Min=arr1(i) 等级：3 难度：3 知识点：VB知识点/综合应用程序举例99、语句Option Base n定义数组下标下界时，n可以是______或______。答案：1：0#1 2：0#1等级：1 难度：1 知识点：VB知识点/数组的定义和引用100、语句Option Base n用来定义数组下标______。答案： 1：下界 等级：1 难度：1 知识点：VB知识点/数组的定义和引用101、语句Option Base n用来定义数组______下界。答案：1：下标#下标的等级：1 难度：1 知识点：VB知识点/数组的定义和引用102、语句Option ______ n用来定义数组下标下界。答案： 1：Base#base#BASE 等级：1 难度：1 知识点：VB知识点/数组的定义和引用103、语句______ Base n用来定义数组下标下界。答案： 1：Option#option#OPTION 等级：1 难度：1 知识点：VB知识点/数组的定义和引用104、数组下标上界和下界可以是任何______常量或常量表达式。答案： 1：整型 等级：1 难度：1 知识点：VB知识点/数组的定义和引用105、数组下标上界和下界可以是任何整型______或常量表达式。答案： 1：常量 等级：1 难度：1 知识点：VB知识点/数组的定义和引用106、语句Dim aa(－1 to 1，－2 to 1)定义了有______个元素的二维数组。答案： 1：12#十二#一十二#一二 等级：1 难度：1 知识点：VB知识点/数组的定义和引用107、语句Dim aa(－1 to 1，－2 to 1)定义的二维数组下标下界分别是______和______。答案：1：-1 2：-2等级：2 难度：2 知识点：VB知识点/数组的定义和引用108、如果a(－1 to 2)，则函数LBound(a)的返回值是______。答案： 1：-1 等级：1 难度：1 知识点：VB知识点/函数过程109、如果a(－1 to 2)，则函数UBound(a)的返回值是______。答案： 1：2 等级：1 难度：1 知识点：VB知识点/函数过程110、根据需要用______可以确定动态数组的大小。 答案： 1：ReDim#redim#REDIM 等级：2 难度：2 知识点：VB知识点/数组的定义和引用111、根据需要用ReDim可以确定______数组的大小。 答案： 1：动态 等级：1 难度：1 知识点：VB知识点/静态数组与动态数组112、Private Sub Command1_Click() Dim aa As Variant aa=Array(1,2,3,4) Print aa(1) End Sub 上面程序输出结果是______。答案： 1：2 等级：2 难度：2 知识点：VB知识点/数组的基本操作113、Private Sub Command1_Click() Dim aa aa=Array(&一&, &二&, &三&, &四&) For i=0 to 3 aa(i)=aa(i) +&公司& Next i Print aa(1) End Sub 上面程序输出结果是______。答案：1：二公司等级：1 难度：1 知识点：VB知识点/数组的基本操作114、Private Sub Command1_Click() Dim aa aa=Array(&一&, &二&, &三&, &四&) For i=0 to 3 aa(i)=aa(i) +&分店& Next i Print aa(1) End Sub 上面程序输出结果是______。答案： 1：二分店 等级：1 难度：1 知识点：VB知识点/数组的基本操作115、Private Sub Command1_Click() Dim aa aa=Array(&一&, &二&, &三&, &四&) For i=0 to 3 aa(i)=aa(i) +&小组& Next i Print aa(1) End Sub 上面程序输出结果是______。 答案： 1：二小组 等级：1 难度：1 知识点：VB知识点/数组的基本操作116、Private Sub Command1_Click() Dim aa(4) as Integer For i=0 to 3 aa(i)=aa(i) +2 Next i Print aa(1) End Sub 上面程序输出结果是______。答案： 1：2 等级：2 难度：2 知识点：VB知识点/数组的基本操作117、Private Sub Command1_Click() Dim aa(4) as Integer For i=0 to 3 aa(i)=aa(i) +4 Next iPrint aa(1) End Sub 上面程序输出结果是______。答案： 1：4 等级：2 难度：2 知识点：VB知识点/数组应用举例118、Private Sub Command1_Click() Dim aa(4) as Integer For i=0 to 3 aa(i)= i Next i Print aa(1) End Sub 上面程序输出结果是______。答案： 1：1 等级：2 难度：2 知识点：VB知识点/数组的基本操作119、Private Sub Command1_Click() Dim aa(4) as Integer For i=1 to 4 aa(i)= i+1 Next i Print aa(1) End Sub 上面程序输出结果是______。答案： 1：2 等级：2 难度：2 知识点：VB知识点/数组的基本操作120、Private Sub Command1_Click() Dim aa(4) as Integer For i=1 to 4 aa(i)= i+1 Next i Print aa(2) End Sub 上面程序输出结果是______。答案： 1：3 等级：2 难度：2 知识点：VB知识点/数组的基本操作121、Private Sub Command1_Click() Dim aa(4) as Integer For i=1 to 4 aa(i)= aa(i)+2 Next i Print aa(1) End Sub 上面程序输出结果是______。答案： 1：2 等级：2 难度：2 知识点：VB知识点/数组的基本操作122、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= i+2 Next i y=w Print y(1) End Sub 上面程序输出结果是______。答案： 1：3 等级：1 难度：1 知识点：VB知识点/静态数组与动态数组123、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= 2 * i Next i y=w Print y(1) End Sub 上面程序输出结果是______。答案： 1：2 等级：2 难度：2 知识点：VB知识点/数组的基本操作124、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integerFor i=0 to 4 w(i)= 3 * i Next i y=w Print y(2) End Sub 上面程序输出结果是______。答案： 1：6 等级：2 难度：2 知识点：VB知识点/静态数组与动态数组125、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= w(i) + 3 Next i y=w Print y(1) End Sub 上面程序输出结果是______。答案： 1：3 等级：2 难度：2 知识点：VB知识点/数组应用举例126、Option Base 1 Private Sub Command1_Click() Dim c(4) as integer Dim meb as Variant For i=1 to 4 c(i)= i*2 + 1 Next i For Each meb in c Print meb； Next meb End Sub 上面程序输出结果是______。答案： 1：3 5 7 9#3579 等级：3 难度：3 知识点：VB知识点/综合应用程序举例127、Option Base 1 Private Sub Command1_Click() Dim c(4) as integer Dim meb as VariantFor i=1 to 4 c(i)= i*2 + 1 Next i For Each meb in c Print meb； Next meb End Sub 上面程序输出的第2个数是______。 答案： 1：5 等级：3 难度：3 知识点：VB知识点/综合应用程序举例128、Private Sub Command1_Click() Dim c(4) as integer Dim meb as Variant For i=1 to 4 c(i)= i*2 + 1 Next i For Each meb in c Print meb； Next meb End Sub 默认情况下上面程序输出的第2个数是______。答案： 1：3 等级：3 难度：3 知识点：VB知识点/综合应用程序举例129、Option Base 1 Private Sub Command1_Click() Dim s(3) as integer Dim m as Variant For i=1 to 3 s(i)= i*2 - 1 Next i For Each m in s Print m； Next m End Sub 上面程序输出结果是______。答案： 1：1 3 5#135 等级：3 难度：3 知识点：VB知识点/综合应用程序举例130、Option Base 1 Private Sub Command1_Click() Dim s(3) as integer Dim m as VariantFor i=1 to 3 s(i)= i*i + 1 Next i For Each m in s Print m； Next m End Sub 上面程序输出结果是______。答案： 1：2 5 10#2510 等级：3 难度：3 知识点：VB知识点/综合应用程序举例131、Private Sub Command1_Click() Dim s(3) as integer Dim mb as Variant For i=0 to 3 s(i)= i^2 + 1 Next i For Each mb in s Print mb； Next mb End Sub 上面程序输出结果是______。 答案： 1：1 2 5 10#12510 等级：3 难度：3 知识点：VB知识点/综合应用程序举例132、控件数组中以______属性来区分各个元素。答案： 1：Index#index#INDEX 等级：1 难度：1 知识点：VB知识点/控件数组133、可以通过______键来对复制后的已有控件进行粘贴操作，建立一个新的控件数组元素。答案： 1： Ctrl+V#CTRL+V#ctrl+V#Ctrl+v#CTRL+v#ctrl+v#Ctrl + V#CTRL + V#ctrl + V#Ctrl + v#CTRL + v#ctrl + v 等级：1 难度：1 知识点：VB知识点/控件数组134、可以通过______键来复制已有控件,粘贴后可以建立一个新的控件数组元素。 答案： 1： Ctrl+S#CTRL+S#ctrl+S#Ctrl+s#CTRL+s#ctrl+s#Ctrl + S#CTRL + S#ctrl + S#Ctrl + s#CTRL + s#ctrl + s 等级：1 难度：1 知识点：VB知识点/控件数组135、控件数组中第一个元素的Index值是______。答案： 1：0 等级：1 难度：1 知识点：VB知识点/控件数组136、某个控件的Index值默认情况是______。答案： 1：空值#空 等级：1 难度：1 知识点：VB知识点/控件的基本知识137、可以通过修改控件数组中控件的______值改变其在数组中的顺序。 答案： 1：Index#index#INDEX 等级：1 难度：1 知识点：VB知识点/控件数组138、控件数组除了在界面设计时建立外还可以在程序______时建立。答案： 1：运行 等级：1 难度：1 知识点：VB知识点/控件数组139、在程序运行时用______语句可以添加控件数组元素。答案： 1：Load#load#LOAD 等级：2 难度：2 知识点：VB知识点/控件数组140、在程序运行时用______语句可以删除控件数组元素。 答案： 1：UnLoad#unLoad#UNLOAD 等级：2 难度：2 知识点：VB知识点/控件数组141、在程序运行中添加的控件数组元素必须将其Visible属性设置为______才能在窗体中显示。答案： 1：True#true#TRUE#真 等级：2 难度：2 知识点：VB知识点/控件数组142、Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Label1.BackColor= VbRed Case 1 Label1.BackColor= VbGreen Case 2 Label1.BackColor= VbBlue End Select End Sub 程序运行时单击第一个命令按扭Label1的背景色是______色。答案： 1：红#Red#red#RED 等级：1 难度：1 知识点：VB知识点/分支(选择)结构143、Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Label1.BackColor= VbRed Case 1 Label1.BackColor= VbGreen Case 2 Label1.BackColor= VbBlue End Select End Sub 程序运行时单击第二个命令按扭Label1的背景色是______色。答案： 1：绿#green#Green#GREEN 等级：1 难度：1 知识点：VB知识点/分支(选择)结构144、Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Label1.BackColor= VbRed Case 1 Label1.BackColor= VbGreen Case 2 Label1.BackColor= VbBlue End Select End Sub 程序运行时单击第三个命令按扭Label1的背景色是______色。答案： 1：蓝#兰#BULE#Blue#blue 等级：1 难度：1 知识点：VB知识点/分支(选择)结构145、Private Sub Command1_Click() Dim i as integer， j as integer Dim a(5,5) as integer For i=1 to 3 For j=1 to 3 a(i,j) = i*2 + j Print a(i,j) Next j Print Next i End Sub 上面程序运行后的第2行第1列的数是______。答案： 1：5 等级：3 难度：3 知识点：VB知识点/综合应用程序举例146、Private Sub Command1_Click() Dim i as integer， j as integer Dim a(5,5) as integer For i=1 to 3 For j=1 to 3 a(i,j) = i*2 + j Print a(i,j) Next j Print Next i End Sub 上面程序运行后的a(3,2)的值是______。答案： 1：8 等级：3 难度：3 知识点：VB知识点/数组应用举例147、控件数组的名字由 Name 属性指定，而数组中的每个元素由______属性指定。答案： 1：Index#index#INDEX 等级：1 难度：1 知识点：VB知识点/控件数组148、由Array函数建立的数组必须是______类型。 答案： 1：Variant#variant#VARIANT 等级：1 难度：1 知识点：VB知识点/数组的定义和引用149、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：Private Sub Command1_Click() Dim n() As Integer Dim a,b As Integer a = InputBox(&Enter the first number&) b = InputBox(&Enter the second number&) ReDim n(a To b) For k = LBound(n,1) To UBound(n,1) n(k) = k Print &n(&; &) = &; n(k) Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为 n (2) = ______ n (3) = ______答案：1：2 2：3等级：3 难度：3 知识点：VB知识点/综合应用程序举例150、在窗体上画一个命令按钮(其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 Prim a(i); Next i End Sub 程序运行后，单击命令按钮，输出结果是______。答案： 1：1 2 3 1 4 1#123141 等级：3 难度：3 知识点：VB知识点/数组应用举例151、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim M(10) As Integer For k= 1 To 10 M(k) = 12 - k Next k x=6Print M(2 + M(x)) End Sub 程序运行后，单击命令按钮，输出结果是______。答案： 1：4 等级：2 难度：2 知识点：VB知识点/数组应用举例152、在窗体上画一个命令按钮(其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 程序运行后，单击命令按钮，输出结果是______。答案： 1：1 2 3 2 4 6#123246 等级：3 难度：3 知识点：VB知识点/综合应用程序举例153、下面程序运行后，输出的结果是______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End答案： 1：24 等级：2 难度：2 知识点：VB知识点/循环结构154、设有程序： Option Base 1 Private Sub Command1_Chick() Dim arr1, Max as Integer arrl=Array(12,435,76,24,78,54,866,43) ______=arrl(1) For i=1 To 8 If arrl(i)& Max Then ______ Next iPrint &最大值是:&;Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填 空。答案：1：Max 2：Max=arr1(i) 等级：3 难度：3 知识点：VB知识点/数组应用举例155、在窗体上画一个名称为&Command1&，标题为&计算&的命令按钮，再画7个标签，其中5个标签组成名称为 Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题 为&计算结果&。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击& 计算&按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。 Private Sub Command1_Click() Sum = 0 For i = 0 To 4 Sum = Sum + ______ Next ______= Sum End Sub答案：1：Label1(i).Caption#label1(i).caption 2：Label2.Caption#label2.caption 等级：3 难度：3 知识点：VB知识点/VB的工程结构156、由下列语句定义的数组占用______字节的内存空间。 Dim a(10) As single答案： 1：44#44个#四十四#四十四个#四四 等级：2 难度：2 知识点：VB知识点/数组的定义和引用157、有如下程序段： j=1 n=0 Do While n&3 j=j * (j+1) n=n+1 Loop P j 运行后，输出的结果是_____。答案： 1：3 42#342 等级：2 难度：2 知识点：VB知识点/循环结构158、有如下程序： Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub 程序运行后，单击窗体，在文本框显示的值是______。答案： 1：12 等级：3 难度：3 知识点：VB知识点/应用案例159、以下程序段的运行结果是______。 Private Sub command1_Click() Const n = 4 Dim xx(n) As Integer For i = 1 To n xx(i) = i * 2 Print xx(i); Next i End Sub 答案： 1：2 4 6 8#2468 等级：3 难度：3 知识点：VB知识点/综合应用程序举例160、阅读程序： 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 subp a For i = 1 To 4 Print a(i); Next i End Sub 程序运行时，单击命令按钮得到的结果是______。答案： 等级：31：2 4 6 8#2468 难度：3知识点：VB知识点/应用案例161、下列语句Dim a(3 ，-2 to 2，5)声明的数组a包含的元素个数有______个。答案： 1：120#一百二十#一二零 等级：2 难度：2 知识点：VB知识点/数组的定义和引用162、以下程序段的运行结果是____。 Private Sub Form_Click() Dim ary(1 To 4) As Integer Dim i As Integer Dim sum As Integer sum = 1 For i = 1 To 4 ary(i) = i sum = sum + ary(i) Next i Print sum End Sub答案： 1：11 等级：3 难度：3 知识点：VB知识点/数组应用举例163、在窗体上添加一个命令按钮Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d = 0: c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) & c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，单击命令按钮，输出结果是______。答案： 1：23 等级：3 难度：3 知识点：VB知识点/综合应用程序举例164、在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click()Dim n(2 to 4) As Integer For k = LBound(n) To UBound(n) n(k) = k Print n(k); Next k End Sub 程序运行后，单击命令按钮，输出结果是______。答案： 1：2 3 4#234 等级：2 难度：2 知识点：VB知识点/综合应用程序举例165、在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim a,s a = Array(1, 2, 3, 4) For i = 3 To 0 Step -1 s = s + Trim(Str(a(i))) Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是______。答案： 1：4321 等级：3 难度：3 知识点：VB知识点/综合应用程序举例166、以下程序运行的结果是______。 Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next i End Sub答案： 1：6 5 4 3#6543 等级：3 难度：3 知识点：VB知识点/应用程序举例167、用语句 Dim A(-3 to 5) As Long 定义的数组元素个数是______。答案： 等级：11：9#九#9个#九个 难度：1知识点：VB知识点/数组的定义和引用168、为窗体添加按钮Command1，编写如下代码： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(43, 68, -25, 65,-78,12,-79,43,-94,72) pos=0 neg=0 For k = 1 To 10 If Arr(k)&0 Then ______ Else ______ End If Next k Print pos,neg End Sub 以上程序计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。答案：1：pos=pos+Arr(k) 2：neg=neg+Arr(k) 等级：3 难度：3 知识点：VB知识点/数组应用举例169、用语句 Dim A (3) as Integer，定义的数组元素个数是______。答案： 1：4#4个#四#四个 等级：1 难度：1 知识点：VB知识点/数组的定义和引用170、控件数组用下标索引值(Index)来标识各个控件，第一个下标索引号为______。答案： 1：0 等级：1 难度：1 知识点：VB知识点/控件数组171、下列程序段的执行结果为______。 Dim x(3,5) For i=1 to 3 For j=1 to 5 x(i,j)=i+j Next j Next i Print x(3,4)答案： 1：7 等级：2 难度：2 知识点：VB知识点/数组应用举例172、如果在模块的声明段中有Option Base 1语句，则在该模块中使用Dim a(3 To 5,6)声明的数组有______ 个元素。答案： 1：18#十八#一十八#一八 等级：1 难度：1 知识点：VB知识点/静态数组与动态数组173、如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(6, 3 To 5)声明的数组有______ 个元素。答案： 1：21#二十一#二一 等级：1 难度：1 知识点：VB知识点/静态数组与动态数组174、在执行Redim语句时为了保留原有数据须指定______保留字。答案： 1：Preserve#preserve#PRESERVE 等级：2 难度：2 知识点：VB知识点/静态数组与动态数组175、利用Array给数组赋初值时，所声明的数组可说明成Variant类型或者______类型。 答案： 1：不说明#不指定#不声明#缺省 等级：2 难度：2 知识点：VB知识点/数组的定义和引用176、表达式Str(Len(&-12.34&))的值是______。 答案： 1：6 等级：1 难度：1 知识点：VB知识点/程序书写规则及格式约定177、如果要把自定义数据类型定义为Public就必须在______模块中定义。答案： 1：标准 等级：1 难度：1 知识点：VB知识点/基本数据类型178、有赋值语句a=Array(1,2,3,4,5)，则Ubound(a)的值为______。答案： 1：4 等级：1 难度：1 知识点：VB知识点/数组的定义和引用179、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5) As String For i =1 To 5 a(i)=Chr(Asc(&A&)+(i-1)) Next i For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是______。答案： 1：ABCDE 等级：2 难度：2 知识点：VB知识点/数组应用举例180、下面过程用于用动态数组的形式存储并打印数列1，1，2，3，5，8，13，21……的前20项，填写缺失的代 码： Private Sub Command1_Click() Dim ______ ReDim f(1 To 20) Dim i As Integer f(1) = 1 f(2) = 1 For i = 3 To 20 ______ Next For i = 1 To 20 Print f(i), Next End Sub 答案： 1：f() As Integer 2：f(i)=f(i-1)+f(i-2) 等级：3 难度：3 知识点：VB知识点/数组应用举例181、command1第2次单击后的输出结果是______。 Private Sub Command1_Click() Static k(2) As Integer For i =1 To 2 k(i)=k(i-1)+10 Next i k(0)=k(2) Print k(2)End Sub答案： 1：40 等级：2 难度：2 知识点：VB知识点/VB的工程结构182、以下程序代码将整型动态数组X声明为具有20个元素的数组,并给数组的所有元素赋值1。 X() As Integer Private Sub Command1_Click() ReDim ______ For I=1 To ______ X(I)=1 Print X(I) Next I End Sub 答案： 1：X(1 To 20)#X(1 to 20) 2：20 等级：3 难度：3 知识点：VB知识点/数组应用举例183、下面这段程序是求1～10的自然数之和，请填空。 sum＝0 For i＝1 To 10 sum＝sum+______ Next i Print &sum＝&;sum答案： 1：i 等级：2 难度：2 知识点：VB知识点/循环结构184、VB的对象主要分为窗体和______两大类。答案： 1：控件 等级：1 难度：1 知识点：VB知识点/VB的对象、属性、方法和事件185、有如下事件过程，单击命令按钮扣，输出结果t为______。 Private Sub Command1_Click() Dim b%(1 To 4) , j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b() ) Print &t=&; t, End SubFunction Tax (a() As Integer) Dim t#, i% t=1 For i=2 To UBound(A． t=t * a(i) Next i Tax=t End Function答案： 1：24 等级：3 难度：3 知识点：VB知识点/应用案例186、下面程序利用Array建立一个数组，并查找输出该数组的最小值，请在空白处填入相应的代码： Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i As Integer arr1 = Array(43, 68, -25, 65,-78,12,-79,43) Min=______ For i = 2 To 8 If arr1(i)&Min Then ______ Next i Print &最小值是：&；Min End Sub 答案： 1：arr1(1) 2：Min=arr1(i) 等级：3 难度：3 知识点：VB知识点/数组应用举例187、VB的赋值语句既可以给变量赋值，也可给对象的______赋值。答案： 1：属性 等级：1 难度：1 知识点：VB知识点/VB的对象、属性、方法和事件188、 在过程内用______声明的变量为静态变量， 在执行一个过程结束时， 过程中所用到的静态变量的值会保留， 下次再调用此过程时，变量的初值是上次调用结束时被保留的值。答案： 1：static#Static#STATIC 等级：1 难度：1 知识点：VB知识点/变量与过程的作用域189、在模块文件中的声明部分用Global或______关键字声明的变量为全局变量。答案：1：Public#public#PUBLIC等级：1 难度：1 知识点：VB知识点/变量与过程的作用域190、在模块文件中的声明部分用Dim或_____定义的变量为局部变量。答案： 1：Private#private#PRIVATE 等级：1 难度：1 知识点：VB知识点/变量与过程的作用域191、标准模块存盘后，形成的磁盘文件扩展名是______。答案： 1：.bas#.Bas#.BAS#bas#Bas#BAS 等级：1 难度：1 知识点：VB知识点/文件结构及分类192、窗体模块存盘后，形成的磁盘文件扩展名是______。答案： 1：.frm#.Frm#.FRM#frm#Frm#FRM 等级：1 难度：1 知识点：VB知识点/文件结构及分类193、在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer,y1 As Integer) x1= x1+2 y1= y1+2 End Sub 程序运行后，单击命令按钮后，在窗体上显示的内容是______。 答案： 1：12 7#127 等级：3 难度：3 知识点：VB知识点/应用案例194、若调用过程时，采用值传递方式，则应在形参说明前添加关键字______。 答案： 1：ByVal#byval#BYVAL 等级：1 难度：1 知识点：VB知识点/参数的传递195、若要编写一些全局性的Sub子过程，也就是说能从多个窗体中访问这些过程，应将它们放在______中。答案： 1：标准模块 等级：1 难度：1 知识点：VB知识点/Sub过程196、通用过程分为两类：函数过程和______过程。答案： 1：子程序#sub#SUB#Sub 等级：1 难度：1 知识点：VB知识点/引言197、以保留字______开始的是函数过程。答案： 1：Function#function#FUNCTION 等级：1 难度：1 知识点：VB知识点/函数过程198、以保留字______开始的是子程序过程。答案： 1：Sub#SUB#sub 等级：1 难度：1 知识点：VB知识点/Sub过程199、Function函数过程通过______返回函数值。答案： 1：函数名#函数名称 等级：1 难度：1 知识点：VB知识点/函数过程200、只在定义它的过程内能够识别的变量称为______。答案： 1：局部变量 等级：1 难度：1 知识点：VB知识点/变量与过程的作用域201、过程的作用域有窗体／模块级和______。 答案： 1：全局级 等级：1 难度：1 知识点：VB知识点/变量与过程的作用域202、变量的作用域通常分为三级：局部级变量、______和全局级变量。 答案： 1：窗体\模块级变量#窗体/模块级变量 等级：1 难度：1 知识点：VB知识点/变量与过程的作用域203、表达式&123& & 456的值是______。答案： 1：123456 等级：1 难度：1 知识点：VB知识点/运算符及表达式204、若调用过程时，采用地址传递方式，则应在形参说明前添加关键字______或缺省。 答案： 1：ByRef#BYREF#byref 等级：2 难度：2 知识点：VB知识点/参数的传递205、如果希望自定义的过程可以在本应用程序的任何地方被调用，则应在过程名前加上______关键字。答案： 1：Public#PUBLIC#public 等级：1 难度：1 知识点：VB知识点/参数的传递206、如果在Function函数过程和Sub过程的定义语句前加上Static关键字，则表明该过程内所有的______均为 静态变量。答案： 1：局部变量 等级：1 难度：1 知识点：VB知识点/变量与过程的作用域207、在Function函数过程和Sub过程的定义语句中，如果不指明函数参数的类型，则此参数默认为______数据 类型。 答案： 1：Variant#variant#VARIANT#可变#万用 等级：1 难度：1 知识点：VB知识点/参数的传递208、当数组作为函数的参数时，只能使用______的方式。答案： 1：传地址#地址传递#传递地址 等级：2 难度：2 知识点：VB知识点/参数的传递209、在过程B中定义了静态变量x,当调用过程B后，在退出过程B前，x的值为6。请问，下次再进入过程B时，x 的值为______。答案： 1：6 等级：2 难度：2 知识点：VB知识点/变量与过程的作用域210、在Visual Basic应用程序中，过程的定义______嵌套，过程的调用可以嵌套。 答案： 1：不可以#不能 等级：1 难度：1 知识点：VB知识点/函数过程211、Visual Basic的模块分为三类，它们是______、标准模块、类模块。答案： 1：窗体模块 等级：1 难度：1 知识点：VB知识点/VB的工程结构212、在窗体模块的通用声明中声明变量时，不能使用______关键字。答案： 1：Static#static#STATIC 等级：2 难度：2 知识点：VB知识点/变量与过程的作用域213、程序运行后，单击命令按钮，在窗体上分别输出______和______。 Function fun(ByRef x As Integer,ByVal y As Integer) As Integer x＝x*y If x&5 Then fun＝x Else fun＝y End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a＝2 : b＝3 Print fun(a,b),a End Sub答案：1：3 2：6等级：3 难度：3 知识点：VB知识点/应用程序举例214、有如下程序： Private Sub Mysub(ByVal b As Integer)b = b * 3 End Sub Private Sub Form_Click() Dim y As Integer y = 6 Call Mysub(y) Print y End Sub 运行程序，单击窗体，显示结果为______。 答案： 1：6 等级：1 难度：1 知识点：VB知识点/应用程序举例215、在窗体上画一个命令按钮，然后编写如下程序： 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 程序运行后，第一次单击命令按钮时，x的结果为______。答案： 1：9 等级：3 难度：3 知识点：VB知识点/参数的传递216、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件程序： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，第一次单击命令按钮时，x的结果为______。答案： 等级：31：7 难度：3知识点：VB知识点/应用案例217、设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件程序： Private Sub Command1_Click() Dim b(5) As Variant For i = 1 To 5 b(i) = i Next n = 10 Call Fun(b(),n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是______。答案： 1：10 等级：3 难度：3 知识点：VB知识点/应用案例218、在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer,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 程序运行后，单击命令按钮时，输出的结果为______。答案： 1：33 等级：3 难度：3 知识点：VB知识点/应用案例219、若在Form1窗体模块中定义的子过程首语句是：Public Sub Sum(),则在Form2窗体模块的某一过程中对其 进行调用的调用语句是______。 答案： 1：Call Form1.Sum()#call Form1.Sum()#CALL Form1.Sum()等级：2 难度：2 知识点：VB知识点/参数的传递220、在定义过程时，过程参数使用的______参数。答案： 1：形式 等级：1 难度：1 知识点：VB知识点/参数的传递221、在调用过程时，过程参数使用的______参数。答案： 1：实际 等级：1 难度：1 知识点：VB知识点/变量与过程的作用域222、形参是指在定义过程时出现在参数列表中的变量名或______名。答案： 1：数组 等级：2 难度：2 知识点：VB知识点/参数的传递223、如果仅仅为实现一个动作，而无任何返回结果，只能用______过程实现。答案： 1：Sub子#Sub\子#Sub/子#sub子#sub\子#sub/子#SUB子#SUB\子#SUB/子#Sub#sub#SUB#子 等级：1 难度：1 知识点：VB知识点/Sub过程224、实参若是常量，则传递就相当于将该常量的值赋给形参，相当于______方式。 答案： 1：传值#传递值 等级：2 难度：2 知识点：VB知识点/参数的传递225、参数传递按方向可分为：单向和______。答案： 1：双向#双向传递 等级：1 难度：1 知识点：VB知识点/参数的传递226、下面程序段运行后的输出结果是______和______。 x=1:n=0 Do x=x*(x+3)n=n+1 Loop Until x&=20 Px答案：1：2 2：28等级：2 难度：2 知识点：VB知识点/循环结构227、下面程序段运行后的输出结果是______。 x=1 For i=6 To 8 If i Mod 2 & 0 Then x = x * i Next i Print x答案： 1：7 等级：2 难度：2 知识点：VB知识点/应用程序举例228、下面程序段运行后的输出结果是______。 x=0 i=0 Do While i &= 2 x=x+i i=i+1 Loop Print x答案： 1：3 等级：2 难度：2 知识点：VB知识点/循环结构229、执行下面的程序段后，a和b的值分别为______和______。 a=6:b=4 a=a-b b=a+b a=a+b 答案： 1：8 2：6等级：1 难度：1 知识点：VB知识点/顺序结构230、下面程序段运行后的输出结果是______。 a$=&abcdefg&b$= Left$(a$, 2)+Mid(a$,4,2) Print b$答案： 1：abde 等级：2 难度：2 知识点：VB知识点/运算符及表达式231、下面程序段运行后的输出结果是______。 x=1 For i = 1 To 5 x=i*i If x&7 Then Exit For Next i Print x答案： 1：9 等级：2 难度：2 知识点：VB知识点/综合应用程序举例232、下面程序段运行后的输出结果是______。 Dim a(9) As Integer,i% For i=1 To 5 a(i)=i Next i Print a(3)+a(4)+a(5)答案： 1：12 等级：2 难度：2 知识点：VB知识点/数组应用举例233、下面程序段运行后的输出结果是______。 a=1:b=2:c=3 If a&b Then x=4 ElseIf b&c Then x=5 Else x=6 End If Print x 答案： 1：4 等级：2 难度：2 知识点：VB知识点/分支(选择)结构234、下面程序段运行后的输出结果是______。 a=1:b=2Select Case a+b Case 1 c=10 Case 2 c=20 Case 3 c=30 End Select Print c答案： 1：30 等级：2 难度：2 知识点：VB知识点/分支(选择)结构235、程序段： For i = 5 To 5 Step -1 Print i Next i 的循环次数是______。答案： 1：1#一#1次#一次 等级：2 难度：2 知识点：VB知识点/循环结构236、下面这段程序执行后，共执行了______次循环体，输出i的值是______。 For i＝1 To 3 y＝i Next i Print i答案：1：3#三 2：4等级：2 难度：2 知识点：VB知识点/循环结构237、下面这段程序是求6的阶乘(6!)，请填空。 f＝______ For i＝1 To 6 f＝f*______ Next i Print &f＝&;f答案： 等级：21：1 2：i 难度：2知识点：VB知识点/循环结构238、下面程序段运行后的输出结果是______。 Dim x As integer x＝Int(Rnd)+3 Select Case x Case 3 Print &Blue& Case 2 Print &Green& Case Else Print &White& End Select答案： 1：Blue 等级：2 难度：2 知识点：VB知识点/分支(选择)结构239、下面程序段运行后的输出结果是______。 Dim x%,y%,z% x＝10 : y＝20 : z＝30 If x＝y Then Print &aa& ElseIf x＞z Then Print &bb& Else Print &cc& End If答案： 1：cc 等级：2 难度：2 知识点：VB知识点/分支(选择)结构240、在窗体上画一个名称为Command1的命令按钮，然后编写如下Sub子过程和命令按钮的事件过程： Private Sub test(ByRef x As Integer,ByVal y As Integer) y＝x+y x＝y*2 End Sub Private Sub Command1_Click() Dim a As Integer,b As Integer a＝2 : b＝3 Call test(a,b) Pb End Sub 程序运行后，单击命令按钮，则输出结果为______。 答案： 1：10 3#103 等级：3 难度：3 知识点：VB知识点/应用案例241、下面程序段运行后的输出结果是______。 Dim num As Integer,digit As Integer num＝9876 While num＜＞0 digit＝num Mod 10 num＝num\10 Print D Wend答案： 1：6 7 8 9#6789 等级：2 难度：2 知识点：VB知识点/循环结构242、下面程序段运行后的输出结果是______。 Dim sum%,i%,x% sum＝0 For i＝2 To 10 x＝2*i－1 If x Mod 3＝0 Then sum＝sum+1 Next i Print sum答案： 1：3 等级：2 难度：2 知识点：VB知识点/应用程序举例243、下面程序段运行后的输出结果是______。 Dim a(10) As Integer,i As Integer For i＝6 To 10 a(i)＝i－5 Next i Print a(0)+a(10)/a(6)答案： 1：5 等级：2 难度：2 知识点：VB知识点/循环结构244、下面程序段运行后的输出结果是______。 Dim a As String,b As String,c As String a$＝&abcdefgh& b$＝&AB& c$＝b$ & Ucase(Mid$(a$,4,2)) & Right$(a$,2) Print c$答案： 等级：21：ABDEgh 难度：2知识点：VB知识点/程序书写规则及格式约定245、下面程序段运行后的输出结果是______。 Dim a%,b%,c% A＝11 B＝5 C＝6 Print a＝b+c答案： 1：True#true#TRUE#真 等级：2 难度：2 知识点：VB知识点/顺序结构}