2017vb习题集给学生

VB习题集（2017版）第一章习题一、选择题1.以下不可以在（A）.bas

"工程资源管理器"窗口中列出的文件种类是（（B）.res（C）.frm（D）.ocx

）。2.以下不属于（A）.frm

VisualBasic系统的文件种类是（（B）.batC）.vbgD）.vbp

）。3.以下表达中错误的选项是（）。（A）翻开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件（B）保留VisualBasic程序时，应分别保留窗体文件及工程文件（C）VisualBasic应用程序只好以解说方式履行（D）事件能够由用户引起，也能够由系统引起4.以下表达中错误的选项是（）。（A）VisualBasic是事件驱动型可视化编程工具（B）VisualBasic应用程序不拥有显然的开始和结束语句（C）VisualBasic工具箱中的全部控件都拥有宽度（Width）和高度（（D）VisualBasic中控件的某些属性只好在运转时设置

Height）属性5.以下不可以翻开属性窗口的操作是（）。（A）履行“视图”菜单中的“属性窗口”命令B)按F4键C）按Ctrl+T（D）单击工具栏上的“属性窗口”按钮假设一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保留该应用程序，以下正确的操作是（）。（A）只保留窗体模块文件（B）分别保留窗体模块、标准模块和工程文件（C）只保留窗体模块和标准模块文件（D）只保留工程文件7.以下表达中错误的选项是（）。（A）在工程资源管理器窗口中只好包含一个工程文件及属于该工程的其余文件（B）以.BAS为扩展名的文件是标准模块文件（C）窗体文件包含该窗体及其控件的属性（D）一个工程中能够含有多个标准模块文件8.以下能够翻开立刻窗口的操作是（）。（A）Ctrl+D（B）Ctrl+E（C）Ctrl+F（D）Ctrl+G9.在VB开发集成环境中，假如工具箱不行见，应在（）主菜单中操作而使它可见。（A）视图（B）窗口（C）文件（D）编写10.在VB的工程中，窗体文件的扩展名是（（A）.frm（B）.vbgC）.vbpD）

.bas

）。11.以下能够翻开菜单属性窗口的操作是（（A）Ctrl+D（B）Ctrl+E（C）

Ctrl+F

）。（D）

Ctrl+G12.VB是一种面向对象的程序设计语言，构成对象的三因素是（）。（A）属性、事件、方法（B）控件、属性、事件（C）窗体、控件、过程（D）窗体、控件、模块13．有程序代码：Command1.Enabled=True，此中Command1、Enabled、True分别代表（）。（A）对象、属性、值（B）对象、方法、属性（C）对象、值、属性（D）属性、对象、值14．假如要改变窗体的标题，则需要设置的属性是（）。（A）Caption（B）Name（C）BackColor（D）BorderStyle15．为了消除窗体上的一个控件，以下正确的操作是（）。（A）按回车键（B）按Esc键（C）选择（单击）要消除的控件，而后按Del键（D）选择（单击）要消除的控件，而后按回车键16．以下表达中错误的选项是（）。（A）一个工程能够包含多种种类的文件（B）VisualBasic应用程序既能以编译方式履行，也能以解说方式履行（C）程序运转后，在存中只好驻留一个窗体（D)对于事件驱动型应用程序，每次运转时的履行次序能够不同样17．程序运转后，在窗体上单击鼠标，此时窗体不会接收到的事件是（（A）MouseDown（B）MouseUp（C）Load（D）Click

）。18．以下没有Caption属性的控件是（（A）CheckBox（B）Label

）。（C）CommandButton

（D）TextBox19．以下对于窗体的描绘中，错误的选项是（（A）履行UnloadForm1语句后，窗体

）。Form1消逝，但仍在存中（B）窗体的Load事件在加载窗体时发生（C）当窗体的Enabled属性为False时，经过鼠标和键盘对窗体的操作都被严禁（D）窗体的Height、Width属性用于设置窗体的高和宽20．为了在运转时能显示窗体左上角的控制框（系统菜单），一定（）。（A）把窗体的Contro1Box属性设置为False,其余属性随意（B）把窗体的ControlBox属性设置为True,而且把BoderStyle属性设置为1-5（C）把窗体的ControlBox属性设置为False,同时把BoderStyle属性设置为非0值（D）把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值21．TextBox的以下属性能够让用户接受多行文本的是（

）。（A）Name（B）MultiLine（C）Text

（D）Autosize22．设置TextBox控件文字颜色的属性是（）。（A）Font（B）BackColor（C）ForeColor

（D）ToolTipText23．使一个控件不行用，应设置其（（A）Visible（B）Enabled

（C）

）属性。Font（D）BackColour24．一般不用来触发事件的对象是（）。（A）标签（B）窗体（C）命令按钮

（D）文本框25．以下表达中错误的选项是（）。（A）双击鼠标能够触发DblClick事件（B）窗体或控件的事件的名称能够由编程人员确立（C）挪动鼠标时，会触发MouseMove事件（D）控件的名称能够由编程人员设定26．在窗体上有若干控件，此中有一名称为是（）。（A）TabStop（B）Enabled

Text1的文本框，影响Text1的Tab次序的属性（C）Visible（D）TabIndex27．VisualBasic6.0集成开发环境有（A）在状态栏的中括号（C）标题栏的中括号

3种工作状态，工作状态显示在（（B）窗体窗口的标题栏中（D）工程窗口的标题栏中

）。28．在VisualBasic工程中，能够作为“启动对象”的程序是（A）任何窗体或标准模块B）任何窗体或过程C）SubMain过程或其余任何模块D）SubMain过程或任何窗体

）。29．设窗体上有一个文本框，名称为但能输出信息，以部下性设置正确的选项是（

text1,程序运转后，要求该文本框不可以接受键盘输入，）。A）text1.maxlength=0C）text1.visible=flase

B）text1.enabled=flaseD）text1.width=030．以下能在窗体Form1的标题栏中显示“A）Form1.Name="VisualBasic窗体"C）Form1.Caption="VisualBasic窗体"

VisualBasic窗体"的语句是（）。B）Form1.Title="VisualBasic窗体"D）Form1.Text="VisualBasic窗体”二、填空题1.当运转程序时，系统第一履行窗体的事件过程。2.改变控件在窗体中的水平方向上的地点应改正该控件的属性。3.不任什么对象，都拥有属性。4.在设计阶段，当双击窗体上的某个控件时，所翻开的窗口是。5.改变文本框的容能触发文本框的事件的操作。6.窗体的Load事件在时发生。7.要使Print方法在Form_load事件中起作用，要设置窗体的属性。在窗体上有命令按钮OK，在代码编写窗口有与之对应的CmdOK_Click( )事件，则命令按钮名称属性和Caption属性的值分别为。9．为了把焦点移到某个指定的控件，所使用的方法是。10．使一个控件不行见，应设置属性。11．不论什么控件，都拥有一个共有的属性，这个属性是。12．要使得文本框输入的文本为密码，就要设置属性。13．设置TextBox控件背景颜色的属性是。14．VisualBasic应用程序中标准模块文件的扩展名是。15、一个窗体的名称为frmEg，则该窗体的单击事件过程名为。16、在VB应用程序中，控件常被用来在单击时履行指定的操作。17.VisualBasic应用程序往常由3类模块构成，即标准模块、类模块和。18.设置文本框或许标签控件显示容文字的字体名称时使用属性。19.设置文本框或许标签控件显示容文字的大小时，使用属性。20.VB中一个应用程序称为一个，它包含各样文件。第二章习题一选择题1定义钱币种类数据应当用重点字（A）SINGLE（B）DOUBLE

（）。（C）CURRENCY

（D）BOOLEAN以下的几对数据种类中，（）所占的存大小同样。（A）Long，Single（C）Integer，Double

（B）Byte，Single（D）Date，Long以下（）数据种类的变量不可以寄存负值。（A）Integer（B）Long（C）Double（D）Byte4.钱币型数据需（）字节。（A）2（B）4（C）6（D）85.申明符号常量应当用重点字（）（A）Static（B）Const（C）Private（D）Variant6.“计算机”作为字符串常量，在VB中能够表示为（）。（A）{计算机}（B）（计算机）（C）计算机（D）"计算机"7.VB以为下边（）组变量是同一个变量。（A）A1和a1（B）SUM和SUMMARY（C）AVER和AVERAGE（D）A1和A_18.以下字符串常量中，最大的是（）。（A）“”（B）“”（C）“”（D）“”9.系统符号常量能够经过（）获取。（A）对象阅读器（B）代码窗口（C）属性窗口（D）工具箱10.在VB中，36&是（）种类的常数。（A）整型数（B）长整型数（C）字符常数（D）双精度数11.假设bln1是逻辑型变量，下边赋值语句中正确的选项是（）。（A）bln1=’True’（B）bln1=.True.（C）bln1=#True#（D）bln1=3<412.表达式的值是（）。（A）1（B）5（C）4（D）犯错13．以下能够作为VB变量名的是（）。（A）sub（B）CO1（C）COS（X）（D）X（-1）14．在一个语句行写多条语句时，语句之间应当用（）分开。（A）逗号（B）分号（C）顿号（D）冒号15．设a=10，b=5，c=1，履行语句Printa>b>c后，窗体上显示的是（）。（A）True（B）False（C）1（D）犯错信息16．以下为日期型常量的是（）。（A）”2/1/02”（B）2/1/02（C）#2/1/02#（D）|2/1/02|17．以下对变量的种类说明符的使用不正确的选项是（）。（A）a=2000（B）a%=50000（C）a&=True（D）a$=”OK”18．以下申明语句中错误的选项是（）。（A）Constvar1=123（B）Dimvar2='ABC'（C）DefInta-z（D）Staticvar3AsInteger19．以下合法的VisualBasic表记符是（）。（A）ForLoop（B）Const（C）9abc（D）a#x20．以下对变量的定义中，不可以定义A为变体变量的是（）。（A）DIMAASDOUBLE（B）DIMAASVARIANT（C）DIMA（D）A=2421．设有变量申明DimTestDateasDate，为变量TestDate正确赋值的表达式是（）。（A）TestDate=#1/1/2002#（B）TestDate=#“1/1/2002”#（C）TestDate=date(“1/1/2002”)（D）TestDate=format(“m/d/yy”,“1/1/2002”)22．Rnd函数不行能产生的（）值。（A）0（B）1（C）0.1234（D）0.0000523．表达式（7\3+1）*(18\5-1)的值是（）。（A）8.76（B）7.8（C）6（D）6.6724．以下关系表达式中，其值为False的是（）。（A）"ABC">"AbC"（B）"the"<>"they"（C）"VISUAL"=UCase("Visual")（D）"Integer">"Int"25．以下切合常量的申明中，（）是不合法的。（A）constMaxAsInteger=100（B）ConstPiAsDouble＝3.1415926（C）ConstxAsSingle＝Log(2)（D）Constx=”123”26．表达式4+5\6*7/8Mod9的值是（）。（A）4（B）5（C）6（D）727．在下边的表达式中，x取任何值都成立的表达式是（）。（A）Int(x)>=Abs(x)（B）Int(x)>Abs(x)（C）Int(x)<=Abs(x)（D）Int(x)<>Abs(x)28．以下可作为VisualBasic变量名的是（）。A）A#AB）4AC）?xyD）constA29．假如在立刻窗口中履行以下操作：a=8(是回车键，下同)b=9printa>b则输出结果是（）。A）-1B）0C）FalseD）True30．设a=3，b=5，则以下表达式的值为真的是（A）a>=bandb>10B）(a>b)or(b>0)C

）。）(a<0)eqv(b>0)

D

）(-3+5>a)and(b>0)二填空题1.表达式3≤X≤10的VB表达式为。2.设a=3，b=5，则表达式（a>b）or（b>0）的值为。3.表示条件“A为能被3或7整除的数”的逻辑表达式为。4.变量未赋值时，数值型变量的值为。5.INT（100*RND（1））产生的随机整数的闭区间是。6.函数Len(trim(Str(Val(“123.4”))))的值是。7.表达式：XMODy/2(x=3，y=6)的值是。8.代数式a≤b＜c改写成VisualBasic表达式为。9.若要强迫变量一定先定义再使用，应当使用的说明语句是。10.表示条件“M是小于100的非负数”的表达式为。11.表达式2+3*4^3-SIN（X+1）/2中最初进行的运算是这一步。12.产生[10，36]之间的随机整数的VisualBasic表达式是。13.设a=6，则履行x=IIf(a>5,-1,0)后，x的值为。14.表示条件“x的绝对值大于等于y同时不等于z”的逻辑表达式为。15.语句PrintFormat(32458.5,“000,000.00”)的输出结果为。16.int（-3.5）、fix（-3.5）的值分别是。17.表达式4+5\6*7/8Mod9的值是。假如在立刻窗口中履行以下操作：a=8(是回车键，下同)b=9printa>b则输出结果是。19.设x=4,y=8,z=7，以下表达式x<yAnd(Noty>z)Orz<x的值是。20.运算符“&”是运算。21.表达式（-1）*Sgn（-100+Int(Rnd*100)）的值是。22.语句PRINT“INT（-13.2）=”；INT（-13.2）的输出结果是。23.设a="a"，b="b"，c="c"，d="d"，履行语句x=IIf((a<d),"A","B")后，x的值是。，/，Mod，*等4个算术运算符中，优先级最低的是。25.语句Print5/4*6\5Mod2的输出结果是。26.设a=5，b=4，c=3，d=2表达式3>2*bOra=cAndb<>cOrc>d的值是。27.履行语句s=Len(Mid("VisualBasic",1,6))后，s的值是。28.能够同时删除字符串前导和尾部空白的函数是。29.Cint(8.5)、Fix(-3.5)的值分别是。30.履行以下两条语句，窗体上显示的是。a=9.8596PrintFormat(a,"$00,00.00")31.变量未赋值时，数值型变量与字符型变量的的值分别是。32.强迫显示申明变量，应放在模块的段中加入语句OPTIONEXPLICIT。33.表达式INT（8*SQR（36）*10^（-2）*10+0.5）/10的值是。34.设A=”abcdefghijklm”，的函数值为”jklm”。35.函数Ucase(Mid(“visualbasic”,8,8))的值为。36.表达式8＝8＝8的值是。37.语句PrintInt(12345.6789*100+0.5)/100输出的结果是。字符型数据的比较是将两个字符串中的字符逐对进行比较，比较的是字符码值。39.函数MSGBOX的返回值是一个数。40.表达式TrueOrNot(7-3<=4)的值。三程序填空题1.以下程序运转后，信息框中提示信息是○，程序履行的结果是○2。1PrivateSubCommand1_Click( )a="VisualBasic"MsgBoxa,34,"VB程序设计"PrintMid(a,8,5)EndSub2.在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，而后编写以下程序：PrivateSubCommand1_Click( )a=InputBox("请输入日期（1~31）")t="旅行景点："_&IIf(a>0Anda<=10,"长城","")_&IIf(a>10Anda<=20,"故宫","")_&IIf(a>20Anda<=31,"颐和园","")Text1.Text=tEndSub程序运转后，假如从键盘上输入16，则在文本框显示的容是○3，假如输入9，则在文本框中显示的容是○4。3.在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，履行以下事件过程：PrivateSubCommand1_Click( )a="softwareandhardware"b=Right(a,8)c=Mid(a,1,8)MsgBoxa,,b,c,1EndSub则在弹出的信息框的标题栏中显示的信息是○5，信息框中提示的信息

是○6

。4.在窗体上画一个名称为

Command1的命令按钮，单击命令按钮，编写以下事件过程

:PrivateSub○7c=1234c1=Trim(Str(c))ForI=1To4○8PrintNextEndSub程序运转后，单击命令按钮，要求在窗体上显示以下容,请完美这个程序的编写。11212312345．以下程序段的功能是鉴别一个数PrivateSubcommand1_click( )DimIAsInteger,mAsIntegerm=InputBox("")ForI=2Tom-1IfmModI=0ThenNextIIf○10ThenPrintm;"是素数。"ElsePrintm;"不是素数。EndIfEndSub

"

m是不是素数，请完美程序代码。○96．以下程序判断从文本框Text1中输入的数据，假如该数据是奇数，则输出；假如该数据是偶数，则弹出对话框”请输入奇数”，并将焦点定位在文本框Text1中，请完美这个程序。PrivateSubCommand1_Click( )x=Val(Text1.Text)If○11ThenPrintxElseIf○12ThenMsgBox"请输入奇数！"Text1=""Text1.SetFocusEndIfEndSub在窗体上画两个文本框，而后编写以下程序：PrivateSubForm_Load( )ShowText1.Text=""Text2.Text=""Text1.SetFocusEndSubPrivateSubText1_Change( )Text2.Text=Mid(Text1.Text,8)PrintLeft(Trim(Text1.Text),7)EndSub容是

程序运转后，假如在文本框Text1○13，在窗体上显示的信息是

中输入○14

BeijingChina

，则在文本框

Text2

中显示的8.以下程序运转后，单击窗体，则在弹出的信息框的标题栏中显示的信息是框中提示信息是Microsoft，请完美这个程序。PrivateSubForm_Click( )K$="MicrosoftVisualBasic"A$=15○b$=16○

Basic

，信息c$=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSub下边是一个歌手大赛评分程序。10位评委，除掉一个最高分和一个最低分，计算均匀分（设满分为10分）。请在横线处填入适合的容，将程序增补完好。Max=0Min=0Fori=1To10x=Val(InputBox("请输入分数"))If17○ThenMax=xIf18○ThenMin=xs=s+xNextis=

○19p=s/8Print"

最高分

";"

最低分

";MinPrint"最后得分";pEndSub以下程序段是将意输入的八进制数变换成相应的十进制数，请完美程序。PrivateSubform_click( )DimxAsString,mAsIntegerx=InputBox("输入一个八进制数")n=20○Fori=1Tonk=Val(Mid(x,i,1))m=m+k*8^(n-i)○21Print"八进制数";x;"对应的十进制数是";mEndSub第三章习题一选择题1.设变量N是一个整型变量，则履行赋值语句N=“2”+3以后，变量N的值是（）。（A）0（B）3（C）5（D）232.假如将布尔常量值True赋值给一个整型变量，则整型变量的值为（）。（A）0（B）-1（C）Ture（D）False3.假如Tab函数的参数小于1，则打印地点在第（）列。（A）0（B）1（C）2（D）34.履行语句PrintFormat(5459.478,”##,##0.00”),正确的输出是（）。（A）5459.48（B）5,459.48（C）5,459.478（D）5,459.475.以下程序履行的结果为（）。PrivateSubForm_click( )A=10:b=3Printb=a*bEndsub（A）30（B）b=30（C）False（D）不确立6.设a=6，则履行x=IIF(a>5，-1,0)后，x的值为（）。（A）5（B）6（C）)0（D）-17.以下语句正确的选项是（）。（A）ifA>BThenT=AA=BB=T（B）ifA>BThenT=A；A=B；B=T（C）ifA>BThenT=A，A=B，B=T（D）ifA>BThenT=A：A=B：B=T在窗体上画两个名称分别为Label1和Label2的标签，而后编写以下事件过程PrivateSubForm_Click( )x=-5:s=-5SelectCasesCaseIs>0y=x+1CaseIs>=0y=x+2CaseElsey=x+3EndSelectLabel1.Caption=xLabel2.Caption=yEndSub程序运转后，单击窗体，标签Label1（A）-5和-2（B）-5和-49.若要使以下程序中循环体语句履行X=1Do

和Label2中显示的容分别是（C）-5和-33次，则应在loopuntil

（（D）-5后添入（

）。和–5）。PrintxX=x+3Loopuntil（A）x>=7（B）x<10

（C）x>=10

（D）x>7以下程序段中能够正的确现“假如X<Y，则A=15,不然A=-15，并输出A的值”的是（）。（A）（B）ifX<YThenA=15A=15A=-15ifX<YThenA=-15PrintAPrintA（C）（D）ifX<YThenifX<YThenA=15A=15ElseElseA=-15A=-15PrintAEndIfEndIfPrintA11.下边语句正确的选项是（）。（A）Ifx≥yThenT=AA=BB=T（B）Ifx﹤﹥yThenT=A;A=B;B=T（C）Ifx﹥=yThenT=AA=BB=T（D）Ifx﹥=yThenT=A:A=B:B=T12.以下程序段履行后，变量c的值为（）。A=2B=19SelectCaseb\aCaseIs<1c=a*10+bCase1To9c=a*100+bCase10To99C=a*100+bEndSelect（A）0（B）21（C）219（D）201913．以下程序段的履行结果为( )。a=75Ifa>60Theni=1Ifa>70Theni=2Ifa>80Theni=3Ifa>90Theni=4Print“i=”;i（A)i=1（B）i=2（C）i=3（D）i=414．多分支选择构造中，SelectCase语句的“测试表达式”( )。（A）只好是数值表达式（B）只好是字符串表达式（C）能够是关系表达式或逻辑表达式（D）能够是数值表达式或字符串表达式15．要使循环体起码履行一次，应使用()循环。（A）ForNext（B）WhileWend（C）doWhileloop（D）DoLoop[While|Until]16．以下程序段中，循环体语句将共履行（t=0c=1Dot=t+cc=c+1Ift>=10ThenExitDoEndIfLoopWhilec<=10Printc,t

）次。（A）4

（B

）5

（C

）

8

（D）1017．以下程序段的履行结果为（）。a=1:b=0SelectCaseaCase1SelectCasebCase0Print"**0**"Case1Print"**1**"EndSelectCase2Print"**2**"EndSelect（A）

**0**

（B）

**1**

（C）**2**

（D）

018．对While-Wend循环表述正确的选项是（）。（A）先判断循环条件表达式,当其值为”假”时不履行循环体（B）先判断循环条件表达式,当其值为”真”时不履行循环体（C）后判断循环条件表达式,当其值为”假”时结束循环（D）不论循环条件表达式怎样,循环体起码履行一次19．以下程序段的履行结果为（I=4a=5DoI=I+1a=a+2LoopUntilI>=7Print"i=";I,"a=";a（A）i=4a=5（B）

）。i=7a=13

（C）

i=8a=7

（D）

i=7a=1120．以下程序段中，循环体语句将共履行（Fori=1To2Forj=1ToiFork=1TojPrint"a";Nextk,j,i

）次。（A）4

（B）6

（C

）

7

（D）821．以下程序段履行后，变量

n的值是（

）。Fori=1To5n=0Forj=iTo5n=n+1NextjNexti（A）15

（B）10

（C）5

（D）122.多分支选择构造履行哪一个分支的依据是（）。（A）SelectCase语句的“测试表达式”与Case语句的“变量值列表”同为false（B）SelectCase语句的“测试表达式”与Case语句的“变量值列表”同为假（C）SelectCase语句的“测试表达式”与Case语句的“变量值列表”相般配（D）SelectCase语句的“测试表达式”与Case语句的“变量值列表”完好相等23．设有以下程序段：x=2Fori=1To10Step2x=x+iNext运转以上程序后，x的值是（）。（A）26（B）27（C）38（D）5724．下边程序的循环次数是（

）。PrivateSubCommand1_Click( )Fori=8To35Step3Printi;NextEndSub（A）

10

（B）

9

（C）

27

（D）2825．以下程序的履行结果是（PrivateSubform_click( )x=3:y=2:z=-1Printx>y>=zEndSub

）。（A）Ture

（B）

False

（C）1

（D）-126．以下程序段的输出结果为（x=1y=4DoUntily>4x=x*yy=y+1LoopPrintx

）。（A）1

（B）4

（C）8

（D）2027．退出DoLoop循环可使用的语句为（）。（A）ExitFor（B）EndFor（C）ExitDo

（D）EndDo28．设（A）

a=9，则履行x=IIf(a>5,-1,0)5（B）6

后,x（C）

的值为（0

）。（D）-129．以下程序段的履行结果为（x=Int(Rnd( )+4)SelectCasexCase5Print"优异"Case4Print"优异"Case3Print"经过"Case2Print"不经过"EndSelect

）。（A）

优异

（B）优异

（C）

经过

（D）不经过30．下边语句运转后的输出结果是（）。PrivateSubCommand1_Click( )x=0Whilex<10x=x+1:x=x*xWendPrintxEndSub（A）16（B）19（C）20（D）25二程序填空题在窗体上画一个命令按钮，而后编写以下事件过程：a=InputBox("请输入一个整数")b=InputBox("请输入一个整数")PrintVal(a+b);PrintVal(a)+Val(b)EndSub程序运转后，单击命令按钮，在输入对话框中分别输入

321和

456，输出结果为

○1

、○2。2.以下程序履行的结果分别是

○3

、○4PrivateSubCommand1_Click( )m%=10:m=15PrintmPrintm%EndSub3.以下程序履行后，在窗体上输出的三行数据分别是

○5

、

○6

、○7

。PrivateSubForm_click( )A=0:b=1A=a+b:b=a+b:Printa;bA=a+b:b=a+b:Printa;bA=a+b:b=a+b:Printa;bEndSub在窗体中增添两个文本框和一个命令按钮，而后编写以下两个事件过程：PrivateSubCommand1_Click( )a=UCase$(Text1.Text)+Left$(Text2.Text,2)PrintaEndSubPrivateSubForm_Load( )Text1.Text="aB"Text2.Text="123456"EndSub程序运转后，单击命令按钮，输出结果为○8。5.以下过程履行时，有键盘输入3，则运转结果分别是○9、10○PrivateSubCommand1_Click( )x=Val(InputBox("输入x"))Ifx^2<9Theny=1/xIfx^2=9Theny=xIfx^2>=9Theny=x^2+1Print"x=";xPrint"y=";yEndSub6运转以下程序段，窗体上显示的数据分别为○11、12○PrivateSubForm_Click( )x=5y=-20IfNotx>0Thenx=y-3Elsey=x+3Printx-y;Printy-xEndSub7.以下程序运转后，程序中的循环体共履行了○13次，窗体上显示的容是14○。PrivateSubForm_Click( )DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub8.在窗体上画两个文本框和一个命令按钮

,而后编写以下事件过程

:PrivateSubCommand1_Click( )x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运转后,单击命令按钮,在两个文本框中显示的值分别是○159．在下边程序运转时分别键入3、5，则该程序的运转结果分别是PrivateSubForm_Click( )x=InputBox("请输入一个整数（>=3）")SelectCasexCaseIs<-3Print(x+1)/(x+3)Case-3To3Printx*x+1CaseIs>3Print(x+1)/(x-3)EndSelectEndSub

与○17

○16、

。

○18

。10．下边程序运转后输出的结果为

○19

，程序中的循环体履行了

○20

次。PrivateSubCommand1_Click( )Whilej<10j=(j+1)*(j+1)n=n+1WendPrintjEndSub11．在窗体中增添一个命令按钮

,并编写以下代码

:PrivateSubCommand1_Click( )c=1DoUntilc>0c=c+1LoopPrintcEndSub运转后点击命令按钮,输出结果是21○，程序中循环体履行了○22次。12．在窗体上画一个名称为Command1的命令按钮，而后编写以下事件过程：PrivateSubCommand1_Click( )x=0n=InputBox("")Fori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub程序运转后，单击命令按钮，假如输入窗体上显示的是24○。

3，则在窗体上显示的容是

○23

。假如输入

6，则在窗体上画一个命令按钮，而后编写以下事件过程：x=0DoUntilx=-1a=Val(InputBox("请输入A的值"))b=Val(InputBox("请输入B的值"))x=Val(InputBox("请输入x的值"))a=a+b+xLoopPrintaEndSub程序运转后，单击命令按钮，挨次在输入对话框中输入25○。

5、4、3、2、1、-1，则输出结果14、下边的程序用于依据文本框Text中输入的容进行以下办理：若Text为2,4,6,则打印“Text的值为2，4，6”；若Text为1,3,5,则打印“Text的值为3，5”；若Text为8,9,则打印“Text的值为8，9”；不然打印“Text的值不在围”。PrivateSubForm_Click( )SelectCaseVal(Text.Text)Case26○Print"Text的值为2，4，6"Case27○Print"Text的值为1，3，5"Case28○

1，Print"Text的值为8，9"CaseElsePrint"Text的值不在围"EndSelectEndSub15.在以下程序段运转时输入1.23，则输出的结果是29○，len(N)是○30PrivateSubForm_Click( )n=Str(InputBox("请输入一个实数："))p=InStr(n,".")PrintMid(n,p)EndSub16.以下程序的功能是计算S=1!+2!+3!++n!，请增补完美程序。PrivateSubCommand1Click( )n=Val(InputBox("请输入一个数"))s=0Fori=1Tonp=1Forj=1Toi31○Nextj32○NextiPrintsEndSub17.PrivateSubForm_Click( )x=5e=Sgn(x)+1Ife=133○y=x*x+1ElseIfe=2Theny=5*x+5Elsey=0EndIfPrintyEndSub运转时输出的结果是34○。18.以下程序的履行结果为○35。PrivateSubForm_click( )a=10:b=3Printb=a*bEndSub19.以下程序的功能是：当x<50时，y=0.8x;当50≤x≤100时，y=0.7x;当x>100时，没存心义。请填空。PrivateSubCommand1_Click( )DimkAsSinglen=Val(InputBox("请输入x的值！"))○36CaseIs<50y=0.8*xCase50To100y=0.7*x○37Print"输入的数据出界！"EndSelectPrintx,yEndSub设有以下程序：PrivateSubForm_Click( )DimaAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是○38,程序运转后，单击窗体，输出结果为○39。三编程题斐波纳契数列(FibonacciSequence),又称黄金切割数列，指的是这样一个数列：1、1、2、3、5、8、13、21、。编程计算斐波纳契数列前n项之和2.编程找出999以的全部素数，并按每6个一行的格式输出。编程将一个十进制整数变换成相应的二进制数。4．编程求出班级某门课考试成绩的均匀分。（要求：人数不定，成绩由键盘输出，当输入-1时结束）5．编程求两个自然数m和n的最大条约数DYS和最小公倍数XBS。6．编程实现：给定一个正整数，将此数据的每一位数字按逆序方式从头组建一个数显示出来。7．编程找出随机产生的K个两位数正整数中的最大和最小的一个数，并指出最大和最小数的序号。8．编程将随意输入的把进制数变换成相应的十进制数。9．编写程序，输入正整数N，求最大的K，使1×1+2×2+3×3++K×K<N成立。（提示：此题是累加问题，不知道累加的次数，用循环求累加和，直到累加和大于N，退出循环，最后所求得值是K-1）10.编程求，直到最后一项小于10-6。第4章习题一填空题1.控件数组中的每一个控件都有唯一的下标，下标值由属性指定。2.数组元素个数能够改变的数组称为。3.数组元素能够寄存不同种类数据的数组称为。4.数组的erase语句用于。5.假如数组元素的下标值为实数，则VB系统会按进行办理。6.控件数组是由一组种类和都同样的控件构成。7.控件数组中全部控件的事件过程是的。8.控件数组中的第一个控件的index值为。9.在使用动向数组时，要改变数组的大小又不丢掉数组中的数据，可使用拥有重点字的ReDim语句。10.一组拥有同样种类和名称、不同下标的变量的会合称为。二选择题1.以下一维数组说明语句错误的选项是（（A）Dimb(100)ASDouble（C）Dimb(5To5)ASString

）。（B）Dimb(-5To0)ASByte（D）Dimb(-10To–20)ASInteger2.已知有数组申明：

Dima(-1To3,2To5)AsInteger,

以下引用数组中的元素，正确的是( )。（A）a(-1,2)（B）a(4)（C）a[-1,2]（D）a(0,6)3.如有数组说明语句为：Dima(-3To8)，则数组a包含元素的个数是（）。（A）5（B）8（C）11（D）12窗体上有一个命令按钮,命令按钮的单击事件过程以下。运转程序后,单击命令按钮,输出结果是（）。PrivateSubCommand1_Click( )Dimaa=Array(1,2,3,4,5)Fork=1To4s=s+a(k)NextPrintSEndSub（A）10（B）14（C）15（D）1205.设有数组说明语句：Dimc(1To10)，i=4，则下边表示数组c的元素选项中（）是错误的。（A）c(i-1)（B）c(5+0.5)（C）c(0)（D）c(10)若在某窗体模块中有以下事件过程：PrivateSubCommand1_Click(IndexAsInteger)EndSub则以下表达中正确的选项是（）。（A）此事件过程与不带参数的事件过程没有差别（B）有一个名称为Command1的窗体，单击此窗体则履行此事件过程（C）有一个名称为Command1的控件数组，数组中有多个不同种类控件（D）有一个名称为Command1的控件数组，数组中有多个同样种类控件阅读程序：PrivateSubCommand1_Click( )DimarrDimiAsIntegerarr=Array(0,1,2,3,4,5,6,7,8,9,10)Fori=0To2Printarr(7-i);NextEndSub程序运转后，窗体上显示的是（（A）876（B）765

）。

（C）654

（D）5438.下边选项中，错误的选项是（）。（A）DimsAsvariant：s=Array("one","two","Three")（B）Dimb：b=Array(1,2,3)（C）DimbAsInteger：b=Array(1,2,3)（D）DimbAsvariant：b=Array(1,2,3)9.设有数组说明语句：（A）12

Dimb（-１To２，-２To２），则数组（B）15（C）16

b中元素的个数是（（D）20

）。10.在窗体上画一个命令按钮，其名称为

Commandl，而后编写以下代码：OptionBase1PrivateSubCommand1_Click( )Dimaa＝Array(1,2,3,4)＝1Fori＝4To1Step－1s＝s＋a(i)*jj＝j*10NextiPrintsEndSub程序运转后，单击命令按钮，其输出结果是（）。（A）4321（B）1234（C）34（D）1211.如有数组说明语句：Dima( )ASInteger，则a被定义为（）。（A）定长数组（B）可调数组（C）静态数组（D）可变种类数组12.下边正确使用动向数组的是（）。（A）Dimarr(30)AsIntegerReDimarr(10)（B）Dimarr( )ReDimarr(30)AsInteger（C）Dimarr( )AsIntegerReDimarr(30)AsString（D）Dimarr( )AsIntegerReDimarr(3,6)13.定义有5个整数型元素的数组,正确的语句是（）。（A）Dima(4)AsInteger（B）OptionBase1:Dima(5)（C）Dima&(5)（D）Dima(5)AsInteger14.语句Dima(－2To3,2To6)AsInteger定义的数组的元素个数是（）。（A）20（B）25（C）30（D）3615.如有数组说明语句：Dimt(1To10)ASVariant,则t被定义为（）。（A）数值数组（B）可调数组（C）字符串数组（D）可变种类数组在窗体上画一个名为Command1的命令按钮，而后编写以下代码：OptionBase1PrivateSubCommand1_Click( )Dimaa＝Array(4,3,2,1)＝1Fori＝3To1Steps＝s＋a(i)*j:jNextiPrintsEndSub

－1＝j*10运转上边的程序，其输出结果是（（A）1234（B）234

）。（C）4321

（D）

43217.以下数组定义语句中，错误的选项是（（A）Dimarr(－5)AsInteger（C）Dimarr(2,1To3)

）。（B）Staticarr(5)（D）Dimarr(0To2,1To3)AsInteger18.默认状况下，下边申明的数组的元素个数是（Dima(4，-1To2)

）。（A）20

（B）24

（C）25

（D）3019.下边正确使用动向数组的是（（A）Dimart( )AsInteger

）。ReDimarr(3,5)（B）Dimarr( )AsIntegerReDimarr(50)AsString（C）Dimarr( )ReDimarr(50)AsInteger（D）Dimarr(50)AsIntegerReDimarr(20)设有以下程序：PrivateSubForm_Click( )Dimary(1To5)AsIntegerDimiAsIntegerDimsumAsIntegerFori＝1To5ary(i)＝i＋1sum＝sum＋ary(i)NextiPrintsumEndSub程序运转后，单击窗体，则在窗体上显示的是（

）。（A）15（B）16（C）20

（D）2521.以下数组说明语句中正确的选项是（

）。（A）Dima(-1To5,8)ASString（C）Dima(0To8,5To–1)ASSingle

（B）（D）

Dima(n,n)ASIntegerDima(10,-10)ASDouble22.语句OptionBase1:Dima(3,4,5)（A）10（B）60

定义的数组中所包含的数组元素的个数是（C）120（D）345

( )

。窗体上有Command1、Command2两个命令按钮。现编写以下程序：OptionBase0Dima( )AsInteger

，mAsIntegerPrivateSubCommand1_Click( )m＝InputBox("

请输入一个正整数

")ReDima(m)EndSubPrivateSubCommand2_Click( )m＝InputBox("请输入一个正整数")ReDima(m)EndSub运转程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是（）。（A）5（B）6（C）10（D）11已知在4行3列的数组score(4,3)中寄存了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，编写程序以下：OptionBase1PrivateSubCommand1_Click( )DimsumAsInteger,score(4,3)AsIntegersum＝0Fori＝1To4Forj＝1To3Score(I,j)=inputbox(“”)sum＝sum＋score(i，j)NextjPrint"

第"&i&"

个学生的总分是：

"；sumNextiEndSub运转此程序时发现，除第1个人的总分计算正确外，其余人的总分都是错误的，程序需要改正。以下改正方案中正确的选项是（）。（A）把外层循环语句Fori＝1To4改为Fori＝1To3层循环语句Forj＝1To3改为Forj＝1To4（B）把sum＝0移到Fori＝1To4和Forj＝1To3之间（C）把sum＝sum＋score(i，j)改为sum＝sum＋score(j，i)（D）把sum＝sum＋score(i，j)改为sum＝score(i，j)25.语句Dima(（A）18

－3To4,3To6)AsInteger（B）21

定义的数组的元素个数是（（C）28（D）32

）。26.在窗体上用复制、粘贴的方法成立了一个命令按钮数组

,数组名为M1。设窗体

Form1标题为"myform1",双击控件数组中的第3个按钮,翻开代码编写器,写下以下代码:PrivaeSubM1_Click(IndexAsInteger)Form1.Caption="myform2"EndSub运转时,单击按钮数组中的第1个按钮,窗体标题为（）。（A）Form（B）M1（C）myform1（D）myform227.在窗体上画一个命令按钮，名称为Command1，而后编写以下代码：OptionBase0PrivateSubCommand1_Click( )DimA1(4)AsInteger，A2(4)AsIntegerFork＝0To2A1(k＋1)＝InputBox("请输入一个整数")A2(3－k)＝A1(k＋1)NextkPrintA2(k)EndSub程序运转后，单击命令按钮，在输入对话框中挨次输入2、4、6，则输出结果为（）。（A）0（B）1（C）2（D）328.假设经过复制、粘贴操作成立了一个文本框数组Text1，以下说法中错误的选项是（）。（A）数组中每个文本框的名称(Name属性)均为Text1B）若未做改正，数组中每个文本框的大小都同样C）数组中各个文本框使用同一个Change事件过程D）数组中每个文本框的Index属性值都同样29.以下数组定义语句中，错误的选项是（）。（A）Statica(10)AsInteger（B）Dimc(3,1To4)（C）Dimd(－10)（D）Dimb(0To5,1To3)AsInteger30.默认状况下，Dima(5，-2To2)，数组a的元素个数是（）。（A）20（B）24（C）25（D）30在窗体上边一个命令按钮(其Name属性为Command1)，而后编写以下代码：PrivateSubCommand1_Click( )DimM(10)AsIntegerFork＝1To10M(k)＝12－kNextkx＝6PrintM(2

＋M(x))EndSub程序运转后，单击命令按钮，输出结果是（（A）4（B）6（C）8

）。（D）10窗体上有一个名称为Option1的单项选择按钮数组,程序运转时,当单击某个单项选择按钮时,会调用下边的事件过程PrivateSubOptionl_Click(IndexAsInteger)EndSub下边对于此过程的参数Index的表达中正确的选项是（（A）Index为1表示单项选择按钮被选中,为0表示未选中（B）Index的值可正可负（C）Index的值用来划分哪个单项选择按钮被选中（D）Index表示数组中单项选择按钮的数目

）。33.1个二维数组能够寄存1个矩阵。在程序开始有语句中正好能够寄存1个4×3矩阵(即只有12个元素)的是（

OptionBase0）。

，则下边定义的数组A）Dima(－2To0,2)AsIntegerB）Dima(3,2)AsIntegerC）Dima(4,3)AsIntegerD）Dima(－1To－4，－1To－3)AsInteger下边的语句用Array函数为数组变量a的各元素赋整数值：a＝Array(1,2,3,4,5,6,7,8,9)针对a的申明语句应当是（）。（A）DimaAsInteger（B）Dima（C）Dima(9)AsInteger（D）Dima( )AsInteger35.设窗体上有一个命令按钮数组，能够划分数组中各个按钮的属性是（（A）Name（B）Index（C）Caption（D）Left

）。在窗体上画的3个名称为Command1命令按钮是控件数组，从左到右，控件数组下标分别为0、1、2，以以下图所示。编写以下程序：PrivateSubCommand1_Click(IndexAsInteger)DimsAsStringSelectCaseIndexCase0s="单击第一个按钮"Case1s="单击第二个按钮"Case2s="单击第三个按钮"EndSelectMsgBoxs,IndexEndSub履行程序后，单击中间的按钮，显示对话框的形式为（（A）（B）

）。（C）（D）37.设有数组说明语句：Dim项中（）是正确的。（A）c(i+j)（B）

c（-１To2c(i)(j)

，１To５），且i=1,（C）c(i-1,i+1)

则以下表示数组c的元素选（D）c(1,0)38.以下说法中错误的选项是（）。（A）命令按钮只好辨别单击(Click)事件（B）能够用多个命令按钮构成命令按钮数组（C）命令按钮数组的Name属性一致，而Index属性有差别（D）经过设置命令按钮的Enabled属性，能够使该命令按钮有效或禁用在窗体上边画一个命令按钮(其Name属性为Command1)，而后编写以下代码：PrivateSubCommand1_Click( )Dimarr(10)AsIntegerFori=1To10arr(i)=10-2*iNextii=5Printarr(arr(i)+2)EndSub程序运转后，单击命令按钮，输出结果是（

）。（A）4（B）6

（C）8

（D）1040.在窗体上画一个命令按钮，名称为

Command1，而后编写以下事件过程：OptionBase0PrivateSubCommand1_Click( )DimdayaAsVariantdaya=Array("

昨天","

今日

","

明日","

后天")Printdaya(2)EndSub程序运转后，假如单击命令按钮，则在窗体上显示的容是（（A）昨天（B）今日（C）明日

）。（D）后天三程序填空题编写程序，设有一包含10个元素的有序数组，从键盘上输入一个数，将其插入数组中使其仍有序。OptionExplicitOptionBase1PrivateSubCommand1_Click( )DimiAsInteger,jAsInteger,nAsInteger,a(11)AsIntegerj=1Fori=3To21Step2a(j)=i:Printa(j);(1)NextiPrintn=InputBox("请输入一个数")Fori=1To10Ifn<=a(i)ThenForj=10ToiStep-1(2)Nextja(i)=n:ExitForEndIfNextiIfi>10Thena(i)=nFori=1To11Printa(i);NextiEndSub2.从键盘上输入一个正整数，鉴别它能否为回文数。比如，PrivateSubCommand1_Click( )ClsDimnumAsLong,nAsLong,i%,k%,f%,b%(10)num=InputBox("请输入一个整数：")k=0:(1)Do

13531

是回文数。b(k)=nMod10k=k+1n=n\10LoopWhilen<>0f=1Fori=0To(k-1)/2Ifb(i)<>b(k-1-i)Then(2)NextiPrintIffThenPrintTab(2);num;"

是回文数！

"ElsePrintTab(2);num;"

不是回文数！

"EndIfEndSub3.在窗体上画一个命令按钮，其名称为Command1，而后编写以下代码：OptionBase1PrivateSubCommand1_Click( )DimArrArr＝Array(43,68,－25,65,－78,12,－79,43,－94,72)pos＝0：neg＝0Fork＝1To10IfArr(k)>0Then（1）_Else（2）__EndIfNextkPrintpos,negEndSub达成以下功能：计算并输出数组Arr中10个数的正数之和pos与负数之和neg。4.履行下边的程序，单击窗体，在窗体上显示的第一行是（1），第三行是（2）。PrivateSubForm_Click( )Dima(3,3)AsInteger,iAsInteger,jAsIntegerFori=1To3Forj=1To3a(i,j)=(i-1)*2+jNextJNextiForj=1To3ForI=jTo3Printa(j,i);NextiPrintNextjEndSub5.产生10个个位数互不同样的三位随机正整数，并寄存到下标与其个位数同样的数组元素中。比如，635应存到a(5)中。PrivateSubForm_Click( )Dima(9)AsInteger,XAsInteger,kAsInteger,iAsIntegerRandomizeDoWhilei<=9X=Int(Rnd*900+100)1）ifa(k)=0Thena(k)=X2）EndIfLoopFori=0To9Printa(i);NextiEndSub下边程序的功能是随机产生20个两位数，从中找出最大的元素和最小的元素并输出。OptionBase1PrivateSubCommand1_Click( )DimD(20)AsInteger,IAsIntegerDimMaxAsInteger,MinAsIntegerRandomizeForI=1to20D(i)=（1）PrintD(i);NextIPrint2）ForI=2To20IfD(i)>MaxThenMax=D(i)ElseIfD(i)<MinThenMin=D(i)EndIfNextIPrint"最大数是：";MaxPrint"最小数是：";MinEndSub7.单击窗体显示Fibonacci

数列前

20个数值

11235

，每行显示

4个。PrivateSubform_Click( )Dimf(20)AsIntegerf(0)=1:f(1)=1Fori=2To19（1）NextiFori=0To19If（2）ThenPrintPrintf(i),NextiEndSub输出方阵SC中的下三角元素，运转界面以下图：PrivateSubForm_click( )Dimsc(10,10)Fori=0To4Forj=0Toi1）Printsc(i,j);"";Nextj(2)NextiEndSub随机产生10个3位数，而后逆序寄存并输出。ConstN=10Dima(1ToN)AsInteger,iAsInteger,tAsIntegerRandomizeFori=1ToNa(i)=Int(Rnd*900)+100Printa(i);NextiFori=1ToN\2t=a(i)(1)(2)NextiPrintFori=1ToNPrinta(i);NextiPrint10.生成20个200～300之间的随机整数，输出此中能被PrivateSubCommand1_Click( )Dima%(1To20),i%,s%RandomizeFori=1To20a(i)=(1)Ifa(i)Mod5=0ThenPrinta(i);(2)EndIfNextiPrint"Sum=";sEndsub

5整除的数并求出它们的和。四编程题单击窗体从键盘输入10个整数存入下标从1开始的数组，计算并显示出值最大的数据和其在数组中的地点。样例：单击按钮产生2位随机整数存入下标从1开始二维数组a(2,3)，而后将二维数组元素的队列交换存入数组b(3,2)并输出。样例：单击按钮，从键盘输入整型数据存入下标从1开始一个二维数组A(3,3)，按3行3列输出，而后分别求其两条对角线元素之和并输出。样例：4.单击窗体产生不大于而后找出数组中全部大于

100的随机整数存入下标从0开始一个四行四列二维数组60的元素及其所在地点。样例：

arr

，输出，单击按钮1产生不大于10的随机整数存入下标从1开始一个二维数组A(4,5)，而后单击按钮2求二维数组每列元素的和并输出。样例：单击按钮1从键盘上输入10个整数存入下标从1开始一个数组a(10)，而后单击按钮2将10个数从大到小排序后输出。7.单击窗体从键盘上输入30个学生的考试得分存入下标从1开始的数组。1）输出学生的均匀成绩。2）每行5个，输出≥均匀成绩的学生成绩。3）输出≥均匀成绩的学生成绩的个数。单击窗体产生不同的不大于100的随机整数存入下标从1开始的数组a(10)，输出这些数据，而后逆序寄存并输出。样例：编程生成并输出对角元素为0、上三角元素为1、下三角元素为-1的10×10方阵，而后输出。样例：10.单击窗体从键盘输入整数存入下标从1开始的3行4列的二维数组。按3行4列输出数组。2）单击按钮交换第一行和第三行的各元素并输出交换后的数组。样例：第5章习题一填空题1.要把图形文件“e:\data\diat.jpg”装载到图片框Picture1上，使用的语句为。2.只有控件对象的Enabled和Visible属性值都为时，该控件对象才能接受焦点。3.若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为。4.Tab次序是由成立控件时的来确立。5.图片框Picture1能够在设计阶段经过改正属性装载图形。6.列表框ListBox中项目的序号从开始到结束。7.若程序中要把一些文本容输出到图片框PictureBox，可使用方法。在窗体上画三个单项选择按钮，构成一个控件数组。用于表记各个控件数组元素的参数是。9.当单项选择按钮OptionButton的Value属性为时，表示该单项选择按钮处于未选中状态。10.在框架上能够设置一组有关控件，这些控件作为框架的控件，它们拥有整体的激活障蔽特征。11.当复选按钮的Value属性为时，表示处于选中状态。12.若障蔽框架上的控件对象，则需设置属性的值为False。13.设置框架Frame上的文本容需要使用属性。14.要显示列表框List1中序号为3的项目容，语句为。15.向组合框Combo2增添序号为5，容为“怀德学院”的项目，使用的语句为。16.菜单项作为一个控件只包含一个事件，这个事件称为事件。17.要删除组合框Combo1序号为3的项目，使用的语句为。18.在VB中，菜单设计可经过来设置菜单的属性。19.能够消除图形框中在程序运转时产生的图形和文字的方法是。20.引用列表框List1最后一个数据项应使用表达式是。二选择题1.在使用菜单编写器创立菜单时，可在菜单名称中某字母前插入（）符号，那么在运行程序时按【Alt】键和该字母键便可翻开该命令菜单。（A）下划线（B）&（C）$（D）2.对于某对象的SetFocus和GotFocus描绘中，正确的选项是（）。（A）SetFocus是方法，GotFocus事件（B）SetFocus是事件，GotFocus是事件（C）SetFocus是方法，GotFocus是方法（D）SetFocus是事件，GotFocus是方法3.以下控件中，其值既能在设计时设定，又能在程序运转时经过赋值改变的是（）。（A）List1.ListCount（B）Text1.Index（C）Combo1.Text（D）Label1.Visible4.若需要在同一窗体安排两组互相独立的单项选择按钮(OptionButton)，可使用（）控件将它们分分开。①TextBox②Picture③Image④Frame（A）①②（B）②③（C）②④（D）③④在设计菜单时,假如要在菜单中加入一个菜单分开项,则菜单分开项的标题一定设置为（）。（A）+（B）-（C）*（D）!6.当复选框Value属性值为（）表示该复选框被选中。（A）0（B）1（C）2（D）37.要使某菜单能够经过按住键盘上的Alt键及K键翻开，应（）。（A）在“名称”栏中“K”字符前加上“&”（B）在“标题”栏中“K”字符后加上“&”（C）在“标题”栏中“K”字符前加上“&”（D）在“名称”栏中“K”字符后加上“&”8.以下控件中（）不可以接受GotFocus和LostFocus事件。（A）命令按钮（B）组合框（C）复选按钮（D）标签9.以下不可以做父对象的控件是（）。（A）窗体（B）图片框（C）图像（D）框架10.若要获取列表框中项目的数目，能够接见（）属性。（A）List（B）ListIndex（C）ListCount（D）Text11.对于代码：Option.Value=True，Option、Value和True分别称为（）。（A）对象、属性值和属性（B）对象、事件和属性（C）对象、属性和属性值（D）对象、方法和属性值12.以下有关控件数组与一般控件的区其余表达中，最合理的是(（A）控件数组必定由多个同种类的控件构成,一般控件只有一个控件（B）控件数组的Index为0,一般控件的Index为空（C）控件数组的Index为1,一般控件的Index为0（D）控件数组的成立经过Dim语句申明,一般控件不用申明。

)13.以下控件中，没有（A）框架

Caption属性的是（B）列表框

(

)。（C）复选框

（D）单项选择按钮若窗体中已经有若干个不同的单项选择按钮，要把它们改为一个单项选择按钮数组，在属性窗口中需要且只需要进行的操作是（）。A）把全部单项选择按钮的Index属性改为同样值（B）把全部单项选择按钮的Index属性改为连续的不同值（C）把全部单项选择按钮的Caption属性值改为同样（D）把全部单项选择按钮的名称改为同样，且把它们的

Index

属性改为连续的不同值15.以下能够作为容器控件的是（

）（A）Image图像框控件（C）TextBox文本框控件

（B）PictureBox图片框控件（D）ListBox列表框控件16.以下对于菜单的说法中，错误的选项是( )。A）每个菜单项都是一个控件，与其余控件同样也有其属性和事件B）除了Click事件以外,菜单项不可以响应其余事件C）菜单项的索引号能够不连续D）菜单项的索引号一定从1开始17.对于Image控件和PictureBox控件的说明，此中错误的选项是（）。（A）Image控件和PictureBox控件都有Picture属性（B）Image控件和PictureBox控件都支持Print方法（C）Image控件和PietureBox控件都能够用LoadPicture函数把图形文件装入控件中（D）Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运转时期装入图形文件以下属性值为字符串的属性是( )。（A）Caption（B）Value（C）Width（D）Height19.文本框（Text1）中有选定的文本，履行Text1.SelText＝“Hello”的结果是( )。（A）“Hello”将替代掉本来选定的文本（B）“Hello”将插入到本来选定的文本以前（C）Text1.SelLength为5（D）文本框中只有“Hello”20.以下表达中正确的选项是（）。（A）组合框包含了列表框的功能（B）列表框包含了组合框的功能（C）列表框和组合框的功能无邻近之处（D）列表框和组合框的功能完好同样21.以下对象中没有焦点属性的是（A）命令按钮控件（C）文本框控件

(

)。（B）标签控件（D）单项选择框控件22.要使某控件在运转中不显示，经过设置可达到此要求的属性是(（A）Enabled（B）Visible（C）BackColor（D）Caption

)

。23.在以下说法中，正确的选项是( )。A）窗体的load事件中没法在窗体上显示信息B）在列表框中不可以进行多项选择C）在列表框中能将项目按字母次序从大到小摆列D）框架也有Click和Dblick事件24.每单击一次就能把选定的菜单项向上挪动一个等级的箭头键是（（A）右箭头（B）左箭头（C）上箭头（D）下箭头

）。在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。以下能正确实现上述功能的程序是（）。（A）PrivateSubLis