VB练习题(含答案)Word版

VB单元练习MATCH_ word word文档格式规范word作业纸小票打印word模板word简历模板免费word简历 _1717039627612_1一一、选择题1、VisualBasic集成开发环境中不包括下列哪些窗口？（D）A.工具箱窗口B.工程资源管理器窗口C.属性窗口D.命令窗口2、“一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中，“客车”，“小”，“行进”和“被一辆大型货车撞坏了”分别对象VisualBasic中的哪些术语？（B）A.对象、属性、事件、 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 B.对象、属性、方法、事件C.属性、对象、事件、方法D.属性、对象、方法、事件3、对象的特征和状态特征称为？（C）A.事件B.方法C.属性D.类4、下面哪一个属性用来标识对象的名称？（D）A.CaptionB.ValueC.TextD.Name5、下列哪个符号是合法的变量名?（A）A.VB123B.AbsC.99JiD.x\y6、数学式子10sin25o写成VisualBasic表达式是？（D）A.10sin25B.10*sin(25)C.10*sin(25o)D.10*sin(25*3.14/180)7、VisualBasic中不存在下列哪一种数据类型？（D）A.字符串类型B.日期类型C.逻辑类型D.指针类型8、表达式Left(“Visual”,3)+Lcase(“AB”)的值是？（C）A.visABB.VisABC.VisabD.ualab9、表达式6+10Mod4*2+1的值是？（A）A.9B.11C.1D.310、把数值型转换为字符串型需要使用下列哪一种函数?（B）A.Val()B.Str()C.Asc()D.Chr()11、VB中窗体文件的扩展名是______。（B）(A)VBP(B)FRM(对)(C)VBW(D)PDM12、在设计应用程序时，通过______窗口可以查看到应用程序工程中的所有组成部分。（D）(A)代码窗口(B)窗体设计窗口(C)属性窗口(D)工程资源管理器窗口(对)13、在VisualBasic中，所有的窗体和控件都必定具有的一个属性是______。(A)Name(对)(B)Font(C)Caption(D)FillColor14、对变量名说法不正确的是__AC____。(A)必须是字母开头，不能是数字或其他字符(B)不能是VB的保留字(C)可以包含字母、数字、下划线和标点符号(对)(D)不能超过255个字符15、以下变量名中，______是不符合VisualBasic的命名规范的。(A)Abc901(B)_mnu_Open_234(对)(C)price_(D)K16、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()DimbAsIntegerb=b+1EndSub运行程序，三次单击命令按钮后，变量b的值是：______。(A)0(B)1(对)(C)2(D)317、下列程序段的执行结果为______。X=5:Y=-20IfNotX>0ThenX=Y-3ElseY=X+3EndifPrintX-Y;Y-X(A)-33(对)(B)58(C)33(D)252518、当x为偶数时，则在窗体上显示“偶数”，否则显示“奇数”，不能实现该代码段功能的是(A)ifx\2=x/2thenprint"偶数"elseprint"奇数"(B)ifxmod2=0thenprint"偶数"elseprint"奇数"(C)ifnotxmod2<>0thenprint"偶数"elseprint"奇数"(D)ifx\2=int(x/2)thenprint"偶数"elseprint"奇数"(对)19、若要执行下列程序段后窗体上显示＂红＂字，则x可取的值为：Selectcaseint(x/10)case2,4,6,8print"黄"case1,3,5,7,9print"绿"caseelseprint"红"endselect(A)27(B)38(C)10(D)5(对)20、在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。(A)Picture1.Picture="mypic.jpg"(B)Picture1.Image="mypic.jpg"(C)Picture1.Picture=LoadPicture("mypic.jpg")(对)(D)LoadPicture("mypic.jpg")21、大部分控件都没有的属性是______。(A)Top(B)Name(C)Enabled(D)Interval(对)22、下列属于正确的字符串常量的是____________(A)#ABC"(B)$ABC$(C)'ABC'(D)"ABC"(对)23、设a=8,b=10，则以下表达式的值为真的是____________(A)(-3+5>a)and(b>0)(B)a>=bandb>12(C)not(b>0)(D)(a>b)or(b>0)(对)24、语句Z=y+1代表________(A)将变量Z存入变量y中，再加上1的表达式(B)变量Z取得y+1的值(对)(C)变量Z取得变量y的值，然后再加上1的一个表达式(D)将变量Z存入变量y+1中25、执行下面的语句后，所产生的信息框的标题是___________。A=MsgBox("AAAAA",3,"BBBBB")(A)BBBBB(对)(B)AAAAA(C)空(D)出错，不能产生信息框26、执行下列代码，分别输入12和89，输出结果是_____。PrivateSubForm_Click()a=InputBox("D")b=InputBox("E")Printa+bEndSub(A)101(B)DE1289(C)DE(D)1289(对)27、为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是_______。(A)Enabled(对)(B)Visible(C)Timer(D)Interval28、下列表达式，哪一个可以产生1到6之间的随机整数（包括1和6）___。(A)Int(Rnd*7)(B)Int(Rnd(6)+1)(C)Int(Rnd*6)(D)Int(Rnd*6+1)(对)29、执行下列程序，从键盘输入10，运行结果是_________。PrivateSubCommand1_Click()S=InputBox("请输入一个数字：")SelectCaseSCaseIs>0Print">0"CaseIs>3Print">3"CaseIs>5Print">5"EndSelectEndSub(A)>0(对)(B)>3(C)>5(D)>030． VB6.0共有3个版本，它们分别是___B____ A．学习版、 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 版和企业版    B．学习版、专业版和企业版C．学习版、标准版和网络版    D．标准版、专业版和中文版31． VB的集成开发环境中有___c____工作状态A．一种    B． 两种C．三种    D． 四种32． VB6.0的集成开发环境不包括___D____A．窗体窗口   B．工具箱C．代码窗口   D．过程窗口33． VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是___B____A．设计状态     B． 编写代码状态C．运行状态     D．中断状态34． 用VB设计的应用程序，文件的扩展名中不含____D___A． .Frx     B． .BasC． .Vbp    D． .Form35． 以下说法正确的是___B____A．属性窗口包括：标题栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明B．属性窗口包括：标题栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明C．属性窗口包括：菜单栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明D．属性窗口包括：菜单栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明36．VB中，强制变量声明的语句是___A____。A．OptionExplicitB．OptionBaseC．REMD．PUBLIC37． VB6.0集成开发环境有三种工作状态，工作状态显示在____D___。A．状态栏的最左方  B．状态栏的最右方C．状态栏的中括号内D．标题栏的中括号内38． 在界面设计时，双击窗体中的对象后，VB将显示的窗口是__B____。A．立即窗口   B．代码窗口C．属性窗口   D．项目（工程）窗口39． 下述选项中，属于VB的程序设计方法是____B___。A．面向对象、顺序驱动   B．面向对象、事件驱动C．面向过程、事件驱动   D．面向过程、顺序驱动40．VB集成开发环境中，功能键F5的功能是___D____。A．进入帮助窗口        B．进入编辑状态C．进行上下窗口的切换  D．运行程序41．VB设计的应用程序，扩展名为.Vbp的文件是____C__。A．窗体文件    B．类文件C．工程文件    D．标准模块文件42．VB设计的应用程序，扩展名为.Frm的文件是__A____。A．窗体文件        B．类文件C．工程文件        D．标准模块文件43．用VB可视化程序设计语言设计应用程序的主要工作是完成___B___。A．设计流程和编写代码        B．设计界面和编写代码C．设计算法和编写代码        D．设计程序和编写代码44．在VB6.0中，12345&的数据类型是（B）A．整数型B．长整数型C．字符常数D．双精度常数45．在VB6.0中，语句DimM1#,Abc,XyzAsSingle定义的M1、Abc和Xyz的类型分别是（D）A．双精度、整数型、单精度B．双精度、单精度、单精度C．双精度、整数型、整数型D．双精度、可变类型、单精度46．在VB6.0中，下列不正确的Integer型常数是_____A__________。A．32768B．0C．037%D．–2222247．在VB6.0K，12345678#的类型是__B____。A．整数型B．长整数型C．字符常数D．双精度常数6．在VB6.0中，合法的字符串常数是______B______。A．ABC$B．“3+4”C．‘ABC’D．‘3+4’48．方法PRINT20\30输出结果是——D——。A．“20\30”B．20\30C．出现错误信息D．049．假定Bln1是逻辑型变量，下面赋值语句中正确的是__D___.A．Bln1=’True’B．Bln1=.True.C．Bln1=#True#D．Bln1=3<450．在以下运算符中，优先级最低的是（C）A．/B．\C．ModD．^51．VB6.0中，执行下面的四个语句时出现错误的是（C）A．x=SGN(0)B．x=SQR(1)C．x=LOG(0)D．x=SIN(1)52．VB6.0表达式COS（0）+ABS（-1）+INT（RND（1））的值是(D)A．1B．–1C．0D．253．设a为整型变量，不能正确表达数学关系66Anda<15D．a>6AndNot(a>=15)54．骰子是一个正六面体，用1~6这六个数分别代表这六面，掷一次骰子出现的数可表示为（D）A．INT（RND（6）+1）B．INT（RND*6）C．INT（RND（1）*7）D．INT（RND（1）*6+1）55．逻辑运算符And,Or和Not的优先顺序，从高到低是____C___A．Or-And-NotB．And-Not-OrC．Not-And-OrD．Not-Or-And56．计算b的自然对数使用的VisualBasic表达式是____A_____A．Log(b)B．Lg(b)C．Loge(b)D．Lge(b)57．方法Print28Mod–15输出结果是____D____A．“28Mod–15”B．28Mod–15C．-13D．1358．已字母A的ASCII码为十进制的65，表达式Asc（“A”）+Asc（“C”）的值是_______B__A．6567B．132C．“AC”D．AC59．若X=5、Y=6，则表达式X+Y=11的值是___C___A．X+Y=11B．11C．TrueD．False60．下列执行语句后，V的值是____B____A$=”54321”V=Val(Mid$(A$,3,2))A．43B．32C．432D．061．执行下列语句后，E、F、G的值分别是___B___E=5:F=4:G=3E=F:F=G:G=EA．345B．434C．454D．45562．m,n是整数，且n>m,在下面四个语句中，能将x赋值为一个m~n之间（含m,n）的任意整数，即满足m<=x<=n的是__A_____A．x=INT(RND*(n-m+1))+mB．x=INT(RND*n)+mC．x=INT(RND*m)+nD．x=INT(RND*n-m)+m63．VB6.0表达式Log(1)+ABS(-1)+Int(Rnd(1))的值是__C_____A．-1B．0C．1D．264．VB表达式10^-2的值是____D___A．–100B．0.01C．100D．–0.0165．VB6.0表达式Len(Left(“abcd”,2)+Right(“济南学院”，2))的值为___B______A．2B．4C．6D．866．Load事件是在窗体被装入工作区时（D）触发的事件。A．用户B．程序员C．手工D．自动67．修改控件属性，一般可以使用属性窗口，也可以通过（D）为属性赋值。A．命令B．对象C．方法D．代码68．下面是窗体的四个属性，在界面设计时，改变属性值就看不到窗体变化的属性是__D___。A．TopB．WidthC．LeftD．Enabled69．下面四个选项，不是事件的是___B__。A．LoadB．EnabledC．UnloadD．DblClick70．以下叙述正确的是___A____。A．窗体（名称）属性是用来标识窗体的B．窗体（名称）属性的值显示在窗体的标题栏中C．可以在运行期间改变窗体的（名称）D．窗体的（名称）属性值可以为空71．决定窗体标题条显示内容的属性是___C___。A．(名称)B．TextC．CaptionD．Top72．若要使某文本框获得控制焦点，可使用的方法是___C____。A．LostFocusB．PointC．SetFocusD．GotFocus73．以下选项中，不是VisualBasic6.0缺省控件名称的是__D____。A．Command1B．TextlC．labellD．Change74．若要将某命令按钮设置为默认命令按钮，则应设置为True的属性是____C_____。A．EnabledB．CancelC．DefaultD．Value75．令按钮不能响应的事件是___CD__。A．DblClickB．clickC．MouseDownD．MouseUp二、填空题1、下列哪些可以作为变量?12fd　　x13　　r2　　a2　　23a22、下列哪些可以作为常量？并说明是数值型还是字符型、逻辑型、日期型？“asdf”　asdf　"1234"　1234　#2008/11/10#　true　　false　　a33、把下列数学式子写成VB表达式4、计算下列VB表达式的值(要求写出步骤)5*3*6\2　　458/4*2.5/1.25*(3.7+2.5)　24.818\4*4.0^2/1.6025\3Mod3*2　　226\3Mod0.4*Sqr(25)08/4*5/2.5*(3.25+6.75)403*7\21014/5*25.615\5*2127^1/3927^(1/3)3sqr(100)\4*215、按下列要求写出赋值语句(1)把数值234赋给变量a(2)把字符串abc赋给变量z1(3)把标签Lblts的内容改为”姓名”6、写出下列函数的值Int(-3.14159)-4Sqr(sqr(16))27、随机产生a-b范围内(包括b)整数的公式：__int（rnd*（b-a+1）+a）__8、写出输入输出语句输出对话框：要求使用图标，标题为：”输出对话框”，对话框中的内容是”你输错了”_MsgBox"你输错了",16,"输出对话框"VB单元练习题二1.下列叙述中正确的是(C) A.只有窗体才是VisualBasic中的对象B.只有控件才是VisualBasic中的对象C.窗体和控件都是VisualBasic中的对象D.窗体和控件都不是VisualBasic中的对象2.确定一个控件在窗体上的位置的属性是(D) A.Width或HeightB.Width和HeightC.Top或LeftD.Top和Left3.为了同时改变一个活动控件的高度和宽度，正确的操作是(A) A.拖拉控件4个角上的某个小方块B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度4、用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为：（D）A、面向对象的程序设计B、结构化程序设计C、事件驱动的编程机制D、可视化程序设计5、VB6共有三个版本，按功能从弱到强的顺序排列应是（C）A、学习版、专业版和工程版B、学习版、工程版和专业版C、学习版、专业版和企业版D、学习版、企业版和专业版6、VB集成开发环境有三种工作状态，不属于三种工作状态之一的是（B）A、设计状态B、编写代码状态C、运行状态D、中断状态7、工程文件的扩展名是（B）Ａ、.frmB、.vbpＣ、.basＤ、.frx8、窗体文件的扩展名是（A）Ａ、.frmB、.vbpＣ、.basＤ、.frx9、VB集成开发环境可以（D）A、编辑、调试、运行程序，但不能生成执行程序B、编辑、生成可执行程序、运行程序，但不能调试程序C、编辑、调试、生成可执行程序，但不能运行程序D、编辑、调试、运行程序，也能生成执行程序10、标准模块文件的扩展名是（C）Ａ、.frmB、.vbpＣ、.basＤ、.vbg11．用于获得字符串S从第5个字符开始的3个字符的函数是（A）。A．Mid(S,5,3)B.Middle(S,5,3)C.Right(S,5,3)D.Left(S,5,3)12.用于从字符串左边截取字符的函数是（D）。A、Ltrim()　　B、Trim()　　C、Instr()D、Left()　　13.用于去掉字符串左右两边的空格的函数是（B）。A、Ltrim()　　B、Trim()　　C、Left()　　D、Instr()14.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为“VBTest”的语句为(B) A.Form1="VBTest"B.Caption="VBTest"C.Form1．Text="VBTest"D.Form1.Name="VBTest"15下列说法中正确的是：为了保存一个VisualBasic应用程序，应当(D)A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件16.要使一个标签框对象能够显示所需要的文本，应设置该对象的那一个属性的值？(A)A.CaptionB.TextC.NameD.AutoSize17.要使一个命令按钮称为图形式命令按钮，应设置该队象的哪一个属性值？(B)A.PictureB.StyleC.DownPictureD.DisabledPicture18.为使计时器对象每隔5秒钟产生一个时钟事件（Timer事件），则其Interval属性值应设置为(D)A.5B.300C.500D.500019.一个标准的VB应用程序至少要包含一个(C)对象。A.文本框B.标签框C.窗体D.命令按钮20.要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为True.A.TextB.MultiLineC.StyleD.Visible21、双击窗体中的对象后，VB将显示的窗口是（C）A、工具箱B、项目（工程）窗口C、代码窗口D、属性窗口22、下述先项中，属性VB的程序设计方法是（B）A、面向对象、顺序驱动B、面向对象、事件驱动C、面向过程、事件驱动D、面向过程、顺序驱动23、下面是窗体的四个属性，在界面设计时，改变属性值看不到窗体变化的是（D）A、TopB、WidthC、LeftD、Enabled24、下面四个选项，不是事件的是（B）A、LoadB、EnabledC、UnloadD、DblClick25、用来设置窗体背景图片的属性是（B）A、MoveableB、PictureC、ForeColorD、WindowState26、在VB6中的每一个对象都具有自己的属性、___C____和方法。A、控件B、函数C、事件D、公用过程27．计算结果为0的表达式是（B）。A．Int(3.4)+Int(-3.8)B.Int(3.4)+Fix(-3.8)C．Fix(3.4)+Fix(-2.8)D.Fix(3.4)+Int(-3.8)28.假设A=3，B=7，C=2，则表达式NOT(BA的值是(B)A.TrueB.FalseC.表达式错误D.不确定29.在表达式y=InputBox(a,b,c)中，a,b,c分别为输入函数对话框的(B)（A）（C）。A.标题B.提示C.预设值D.帮助文件名30.在窗体上画一个命令按钮，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　　　a=InputBox("EntertheFirstinteger")　　　　b=InputBox("EntertheSecondinteger")　　　　Printb+a　　EndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是(D) A.579B.123C.456D.12345631.在窗体上画一个命令按钮，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　　　Dima,bAsInteger　　　　a=InputBox("EntertheFirstinteger")　　　　b=InputBox("EntertheSecondinteger")　　　　Printb+a　　EndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是(A) A.579B.123C.456D.12345632.执行下面的语句后，所产生的信息框的标题是a=MsgBox("AAAA"，，"BBBB"，""，5)(A) A.BBBBB.空C.AAAAD.出错，不能产生信息框33.假定x的值为5，则在执行以下语句时，其输出结果为"Result"的SelectCase语句是(C)A.SelectCasex　　　　Case10To1　　　　　　　Print"Result"　　　　EndSelectB.SelectCasex　　　　CaseIs＞5,Is＜5　　　　　　　Print"Result"　　　　EndSelectC.SelectCasex　　　　CaseIs＞5,1,3To10　　　　　　　Print"Result"　　　　EndSelectD.SelectCasex　　　　Case1,3,Is＞5　　　　　　Print"Result"　　　　EndSelect34.假定有以下循环结构　　DoUntil条件　　　　　循环体　　Loop则正确的描述是(B) A.如果"条件"是一个为0的常数，则一次循环体也不执行B.如果"条件"是一个为0的常数，则无限次执行循环体C.如果"条件"是一个不为0的常数，则至少执行一次循环体D.不论"条件"是否为"真"，至少要执行一次循环体35.以下程序段的输出结果为　　x=1　　y=4　　DoUntily＞4　　　　x=x*y　　　　y=y+1　　LoopPrintx　　(B) A.1B.4C.8D.2036.执行下面的程序段后，x的值为　　x=5　　Fori=1To20Step2　　　　　x=x+i\5Nexti(A) A.21B.22C.23D.2437.在窗体上画一个命令按钮，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　　　　x=0　　　　　DoUntilx=-1　　　　　　　a=InputBox("请输入A的值")　　　　　　　a=Val(a)　　　　　　　b=InputBox("请输入B的值")　　　　　　　b=Val(b)　　　　　　　x=InputBox("请输入x的值")　　　　　　　x=Val(x)　　　　　　　a=a+b+x　　　　　Loop　　　　　Printa　　　EndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为(A) A.2B.3C.14D.1538．如果要在文本框中键入字符时，只显示某个字符，如星号(*)，应设置文本框的(B)属性。A．CaptionB．PasswordCharC．TextD．Char39.退出For循环可使用的语句为（　A　）。A、ExitFor　B、EndFor　　C、ExitDo　　D、EndDo40.退出Do…Loop循环可使用的语句为（　C　）。A、ExitFor　B、EndFor　　C、ExitDo　　D、EndDo41.退出函数过程可使用的语句为（　D　）。A、Exitsub　B、Endsub　　C、EndFunctionD、ExitFunction　　42.退出sub过程可使用的语句为（　A　）。A、Exitsub　B、Endsub　　C、EndFunctionD、ExitFunction　　43.在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：　　PrivateSubForm_Load()　　　　　Text1.Text=""　　　　　Text1.SetFocus　　　　　Fori=1To10　　　　　　　　Sum=Sum+i　　　　　Nexti　　　　　Text1.Text=Sum　　　EndSub上述程序的运行结果是（C） A.在文本框Text1中输出55B.在文本框Text1中输出0C.出错D.在文本框Text1中输出不定值44.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　　　x=0　　　　DoWhilex＜50　　　　　　x=(x+2)*(x+3)　　　　　　n=n+1　　　　Loop　　　　Text1.Text=Str(n)　　　　Text2.Text=Str(x)　　EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为(B) A.1和0B.2和72C.3和50D.4和16845.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：　　PrivateSubCommand1_Click()　　　　ForI=1To4　　　　　　　ForJ=0ToI　　　　　　　　　　PrintChr(65+I);　　　　　　　NextJ　　　　　　　Print　　　　NextI　　EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是(A) A.BBCCCDDDDEEEEEB.ABBCCCDDDDC.BCCDDDEEEED.AABBBCCCCDDDDD46.在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程　　PrivateSubForm_Click()　　　　　x=-5:s=-5　　　　　SelectCases　　　　　　　　CaseIs＞0　　　　　　　　　　y=x+1　　　　　　　　CaseIs＞=0　　　　　　　　　　y=x+2　　　　　　　　CaseElse　　　　　　　　　　y=x+3　　　　　EndSelect　　　　　Label1.Caption=x　　　　　Label2.Caption=y　　EndSub程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是(A) A.-5和-2B.-5和-4C.-5和-3D.-5和–533.下列VB程序语句正确的是(D).A.IfA≥BThenT=A:A=B:B=TB.IfA≥BThenT=A;A=B;B=TC.IfA>=BThenT=AA=BB=TD.IfA>=BThenT=A:A=B:B=T47.下列程序段执行后输出的结果是(C)n=10Fork=nTo1x=k^2NextkPrintxA.-2B.-1C.1D.048下列程序段执行后输出的结果是(A)i=0Fork=10To19Step3i=i+1NextkPrintiA.4B.5C.3D.649下列程序段执行后输出的结果是(B)x=int(Rnd+4)SlectCasexCase5Print"优秀"KCase4Print"良好"Case3Print"及格"CaseElsePrint"不及格"EndSelectA.优秀B.良好C.及格D.不及格50.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：　　OptionBase1　　PrivateSubCommand1_Click()　　　　　Dimａ　　　　　a=Array(1,2,3,4)　　　　　j=1　　　　　Fori=4To1Step-1　　　　　　　　s=s+a(i)*j　　　　　　　　j=j*10　　　　　Nexti　　　　　Prints　　EndSub运行上面的程序，单击命令按钮，其输出结果是(D)A.4321B.12C.34D.123451.定窗体标题条显示内容的属性是(C)A.TextB.NameC.CaptionD.BackStyle52．要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（A）A．Passwordchar属性值为*B.Caption属性值为*C．PasswordChar属性值为真D.Text属性值为*53决定窗体有无控制菜单的属性是(A)A.ControlBoxB.MinButtonC.EnabledD.MaxButton54使文本框获得焦点的方法是(C)A.ChangeB.GotFocusC.SetFocusD.LostFocus`55下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（C）A.Picture="pic1.jpg"B.Picture.Handle="pic1.jpg"C.Picture1.Picture=LoadPicture("pic1.jpg")D.Picture=LoadPicture("pic1.jpg")56决定标签内显示内容的属性是(D)A.TextB.NameC.AlignmentD.Caption57假定在图片框Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(B)A.选择图片框，然后按Del键B.执行语句Picture1.picture=LoadPicture("")C.执行语句Picture1.picture=""D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键58.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（A）。A．当图片框（PictureBox）的AutoSize自属性为False时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸B．当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框C．两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小D．两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分59删除列表框中指定的项目所使用的方法为(D)A.MoveB.RemoveC.ClearD.RemoveItem60.若要向列表框添加列表项，可使用的方法是（　A　）。A、AddItemB、Remove　　C、Clear　　D、Add　　61当拖动滚动条中的滚动块时，将触发的滚动条的事件是(BC)A.MoveB.ChangeC.ScollD.SetFocus62．滚动条控件的LargeChange属性所设置的是（B）A．滚动条中滚动块的最大移动范围B．单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量C．滚动条中滚动块的最大移动位置D．滚动条控件无该属性63用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是(C)A.ListB.ListIndexC.TextD.ListCount64．设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D）A．CaptionB．NameC．TextD．Value65.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：　　PrivateSubCommand1_Click()　　　　a=Text1.Text+Text2.Text　　　　Printa　　EndSubPrivateSubForm_Load()　　　　Text1.Text=""　　　　Text2.Text=""　　EndSub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为(C)A.444B.321123C.123321D.13223165．运行下面程序后输出的结果是（B）PrivateSubForm_Click()K=4IfK<=3Thenn=5IfK<=4Thenn=4IfK<=5Thenn=3PrintnEndSubA．无输出B．3C．4D．566．运行下面程序后输出的结果是（B）PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60:PingYu="未通过"Case60To69:PingYu="合格"Case70To79:PingYu="中"Case80To89:PingYu="良"CaseElse:PingYu="优"EndSelectPrintPingYuEndSubA．优B．良C．中D．合格67．有如下程序：PrivateSubForm_Click()A=3IfA<=3ThenPrint3;EndIfIfA<=4ThenPrint4;EndIfIfA<=5ThenPrint5;EndIfIfA<=6ThenPrint6;EndIfPrintEndSub运行后输出的结果是345668．窗体上有两个文本框Text1和Text2，下面程序的功能是：在文本框Text1中输入一个0~6的整数，然后单击窗体；在文本框Text2中用英文显示是星期几。请将程序补充完整。注意：不得增行或删行，也不得更改程序的结构！PrivateSubForm_Click()DimVar%Var=Text1.TextSelectCaseVarCase0Text2.Text="Sunday"Case1Text2.Text="Monday"Case2Text2.Text="Tuesday"Case3Text2.Text="Wednesday"Case4Text2.Text="Thursday"Case5Text2.Text="Friday"Case6Text2.Text="Saturday"CaseElseText2.Text="Mustbe0to6"___EndSelect_______________EndSub69．以下叙述正确的是（）A．SelectCase语句中的测试表达式可以是任何形式的表达式B．SelectCase语句的测试表达式只能是数值表达式或字符表达式C．在执行SelectCase语句时，所有Case子句均按出现的次序被顺序执行D．如下SelectCase语句的Case表达式是错误的SelectCaseCase1TO10……EndSelect答案：A70．窗体上画一个命令按钮，其名称为command1，然后编写如下事件过程：PrivateSubcommand1_click()ForI=1To4IfI=1Thenx=IIfI<=4Thenx=x+1Printx;NextIEndSub程序运行后，单击命令按钮，其输出结果为（）A．1234B．2345C．2344D．3456答案：B71．有如下程序。其输出结果为（）PrivateSubcommand1_click()x=Sqr(2)\2+Sgn(2)\2+Rnd(2)\2x=Sqr(3)\3+Sgn(3)\3+Rnd(3)\3Ifx>yThenPrint"x>y"ElseIfx=yThenPrint"x=y"ElsePrint"xyB．x=yC．x0Thens=s+ii=i+1Elsei=i+1EndIfLoopPrintsEndSub运行后输出的结果是____D_____A．4050B．5050C．4000D．450077．有如下程序：PrivateSubform_click()A$="54321"b$="abcde"Forj=1To5PrintMid$(b$,j,1)+Mid$(A$,6-j,1);NextjPrintEndSub运行后输出的结果是_____A______A．a1b2c3d4e5B．a5b4c3d2e1C．5a4b3c2d1eD．e1d2c3b4a5二、填空题1.在VB6集成开发环境中,可以编辑程序代码,但不能修改用户界面的工作状态是(中断模式).2.控件和窗体的Name属性只能通过(属性窗口)设置,不能在(运行)期间设置.3.VB的数值型数据有(整数类型),(实数类型),(字节类型).4.当程序运行后用鼠标双击对象时触发的事件是__DbClick()____5.当程序运行后用鼠标单击对象时触发的事件是__Click()______.6当程序运行后Tab键使一个对象获得焦点时触发的事件是__Gotfocus()7.在VisualBasic中,字符串常量要用(双引号)括起来,日期/时间型常量要用(#)括起来.8.为了使标签能自动调整大小以显示全部文本内容,应把标签的(AutoSize)属性设置为True.9.要想在文本框中显示垂直滚动条,必须把(ScrollBars)属性设置为2,同时还应把(MultiLine)属性设置为True.10.假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是(Text1.SetFocus).11.VB中若要产生一消息框,可用__MsgBox___函数来实现.12.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把该图像框的(Stretch)属性设置为True.13.窗体,图片框或图像框中的图形通过对象的(Picture)属性设置14.VB的"计时器"控件用于_计时___,时间间隔以___毫秒____为单位.15.计时器事件之间的间隔通过(Interval)属性设置.16.VB的"滚动条"控件分为两种(水平滚动条)和(垂直滚动条).它们都有最小值和最大值.其取值范围是(小于等于max且大于等于min).17.组合框有3种不同的类型,这3种类型是下拉式组合框,简单组合框,下拉式列表框,分别通过把Style属性设置为0,1,2来实现.18.在3种不同类型的组合框中,只能选择而不能输入数据的组合框是下拉式列表框19.由Array函数建立的数组赋值时，数组必须是（动态可变类型），简单变量必须是Variant类型.20.在VB中若要让某对对象获取焦点,则可通过_SetFocus_方法来实现.21.在模块文件中的声明部分用__Dim___或_Private_定义的变量为模块级变量.22.For循环中,当步长大于零时,初始值_小于等于__终止值,当步长小于零时,初始值_大于等于__终止值,不指明步长时,默认步长是__1___23.VB中通用过程的参数传送有__值传递___和_地址传递___.24.在过程定义中出现的变量名叫做(形式参数),而在调用过程时传送给过程的常数,变量,表达式或数组叫做(实际参数)25.下图为运行后的VB程序（1）当按下[显示]按钮时，在文本框中显示“欢迎使用VisualBasic6.0”，按下[清屏]按钮时清除文本框中显示的内容，按下[退出]按钮时退出程序。请补全相对应的单击事件代码。PrivateSubCommand1_Click()'按下[显示]按钮_____________________________（1）EndSubPrivateSubCommand2_Click()'按下[清屏]按钮_____________________________（2）EndSubPrivateSubCommand3_Click()'按下[退出]按钮__________（3）EndSub（2）当选择字体外观和字体名称时，触发下面的事件，请补全代码。PrivateSubCheck1_Click()'字体外观的多项选择IfCheck1.Value=1ThenText1.FontBold=_________（4）'“粗体”被选中ElseText1.FontBold=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=________Then（5）'“斜体”被选中Text1.FontItalic=True___________（6）Text1.____________=False（7）EndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1ThenText1.______________=True（8）'“下划线”被选中ElseText1.FontUnderline=FalseEndIfEndSubPrivateSubOption1_Click()'字体名称选宋体Text1.FontName="宋体"EndSubPrivateSubOption2_Click()Text1.FontName="___________"（9）'字体名称选隶 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf EndSubPrivateSubOption3_Click()____________________=“黑体”（10）'字体名称选黑体EndSub（1）text1.text=”欢迎使用VisualBasic6.0”（2）text1.text=””（3）end（4）true（5）1（6）Else（7）FontItalic（8）FontUnderline（9）隶书（10）Text1.FontName（11）（12）（13）（14）（注：可编辑下载，若有不当之处，请指正，谢谢!）（15）（16）（17）（18）（19）（20）（21）