VB期中练习题.pdf

《VB期中练习题.pdf》由会员分享，可在线阅读，更多相关《VB期中练习题.pdf（39页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB单元练习题一一、选择题1、Visual Basic集成开发环境中不包括下列哪些窗口?（A.工具箱图口B.工程资源管理器窗口 C.属性窗口D.命令窗口2、“一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中：客车T 小 行 进”和“被一辆大型货车撞坏了”分别对象Visual Basic中的哪些术语？（）A.对象、属性、事件、方法B.对象、属性、方法、事件C.属性、对象、事件、方法D.属性、对象、方法、事件3、对象的特征和状态特征称为？（A.A 件B.方法C.属性D.类4、下面哪一个属性用来标识对象的名称？（A.CaptionB.ValueC.TextD.Name5、下列哪个符号是合

2、法的变名？A.VB123 B.AbsC.99JiD.xy6、数学式子10sin25写成Visual Basic表达式是？()A.10sin25 B.10*sin(25)C.10*sin(25)D.10*sin(25*3.14/180)7、Visual Basic中不存在下列哪一种数据类型？()A.字符串类型 B.日期类型 C.逻辑类型 D.指针类型8、表达式 Left(Visuar,3)+Lcase(AB”)的值是？()A.visAB B.VisAB C.Visab D.ualab9、表达式6+10 Mod 4*2+1的值是？()A.9 B.11 C.1 D.310、把数值型转换为字符串型需要

3、使用下列哪一种函数？（）A.Val()B.Str()C.Asc()D.Chr()11、V B 中窗体文件的扩展名是 o(A)VBP(B)FRM(C)VBW(D)PDM12、在设计应用程序时，通过 JS 口可以查看到应用程序工程中的所有组成部分。(A)代码窗口(B)窗体设计窗口(C)属性窗口(D)工程资源管理器窗口13、在 Visua旧asic中，所 有 的 窗 体 利 控 件 都 必 定 具 有 的 一 个 属 性 是。(A)Name(B)Font(C)Caption(D)FillColor14、对变曜名说法不正确的是_ _ _ _ _o(A)必须是字母开头，不能是数字或其他字符(B)不能是V

4、 B 的保留字(C)可以包含字母、数字、下划线和标点符号(D)不能超过255个字符15、以下变名 中，是不符合Visua旧asic的命名规范的。(A)Abc901(B)_mnu_Open_234(C)price_(D)K16、在SB体上画一个命令按钮(名称为Commandl),然后编写如下事件过程：PrivateSubCommand 1_Click()DimbAsIntegerb=b+1EndSub运行程序，三次单击命令按钮后，变 量 b 的值是：O(A)0(B)1(C)2(D)317、下列程序段的执行结果为 oX=5:Y=-20If NotX0 ThenX=Y-3ElseY=X+3Endif

5、Print X-Y;Y-X(A)-3 3(B)5 8(C)3 3(D)25 2518、当 x 为偶数时，则在国体上显示“偶数”，否则显示“奇数”，不能实现该代码段功能的是(A)if x2=x/2 then print偶数 else print奇数(B)if x mod2=0 then print偶数else print奇数(C)if not x mod 20 then print偶数else print奇数(D)if x2=int(x/2)then print偶数else print奇数19、若要执行下列程序段后窗体上显示 红 字，则 x 可取的值为：Select caseint(x/10)c

6、ase2,4,6,8print jteasel,3,5,7,9print绿caseelseprint红endselect(A)27(B)38(C)10(D)520、在程序代码中将图片文件mypiejpg装入图片框Picturel的语句是_ _ _ _ _ _。(A)Picture1.Picture=mypic.jpg(B)Picture1.lmage=mypic.jpg(C)Picture1.Picture=LoadPicture(mypic.jpg)(D)Load Picture(mypic.jpg)21、大部分控件都没有的属性是 o(A)Top(B)Name(C)Enabled(D)lnt

7、erval22、下列属于正确的字符串常的是_ _ _ _ _ _ _ _ _ _ _ _(A)#ABC(B)$ABC$(C)ABC(D)ABC23、设 a=8,b=10,则以下表达式的值为真的是_ _ _ _ _ _ _ _ _ _ _ _(A)(-3+5a)and(b0)(B)a=bandb12(C)not(b0)(D)(ab)or(b0)24、语句Z=y+1代表(A)将变-Z存入变-y 中，再加上1 的表达式(B)变Z 取得y+1的值(C)变取得变的值，然后再加上1 的一个表达式(D)将变Z 存入变y+1中25、执行下面的语句后，所产生的信息框的标题是_ _ _ _ _ _ _ _ _ _

8、 _ o A=MsgBox(AAAAA,3,BBBBB)(A)BBBBB(B)AAAAA(C)空(D)出 借，不能产生信息框26、执行下列代码，分别输入12和 89,输出结果是 oPrivate Sub Form_ClickOa=lnputBox(D)b=l 叩 utBox(E)Print a+bEnd Sub(A)101(B)DE1289(C)DE(D)128927、为了替时关闭计时器，应把该计时器的某个属性设为False,这个属性是(A)Enabled(B)Visible(C)Timer(D)lnterval28、下列表达式，哪一个可以产生1 到 6 之间的随机整数(包括1 和 6)一(A

9、)lnt(Rnd*7)(B)lnt(Rnd(6)+1)(C)lnt(Rnd*6)(D)lnt(Rnd*6+1)29、执行下列程序,从健盘输入10,运行结果是 oPrivateSubCommand 1_Click()S=lnputBox(请输入一个数字：)Select Case SCase ls0Print 0Case ls3Print 3Case ls5Print 5End SelectEnd Sub(A)0(B)3(C)5(D)030.VB6.0共有3 个版本，它们分别是_ _ _ _ _ _A.学习版、标准版和企业版 B.标准版、专业版和企业版C.学习版、标准版和网络版 D.标准版、专业版

10、和中文版31.V B 的集成开发环境中有 工作状态A.一种 B.两种 C.三种 D.四种32.VB6.0的集成开发环境不包括_ _ _ _ _ _A.窗体窗口 B.工 具 箱 C.代码皆口 D.过程窗口33.VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是A.设计状态 B.墟写代码状态 C.运行状态 D.中断状态3 4 .用 VB设计的应用程序，文件的扩展名中不含_ _ _ _ _ _A.Frx B.Bas C.Vbp D.Form35.以下说法正确的是_ _ _ _ _ _A.属性窗口包括：标IB栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明B.属性窗口包括：标题栏、

11、对象名称的下拉列表、选项卡、属性列表、属性含义说明C.属性窗口包括：菜单栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明D.JB性窗口包括：菜单栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明36.V B 中，强制变声明的语句是 oA.Option Explicit B.Option Base C.REM D.PUBLIC37.VB6.0集成开发环境有三种工作状态，工作状态显示在 oA.状 态 栏 的 最 左 方 B.状态栏的最右方C.状态栏的中括号内D.标题栏的中括号内38.在界面设计时，双击雷体中的对象后，VB将显示的窗口是_ _ _ _oA.立即窗口 B.代码窗口 C.属性窗

12、口 D.项 目（工 程）窗口39.下述选项中，属于VB的程序设计方法是_ _ _ _ _,A.面向对象、顺序驱动 B.面向对象、事件驱动C.面向过程、事件驱动 D.面向过程、顺序驱动40.VB集成开发环境中，功能键F5的功能是_ _ _ _ _oA.进入帮助窗口B.进入编辑状态C.进行上下窗口的切换D.运行程序41.VB设计的应用程序，扩展名为.Vbp的文件是 oA.窗体文件 B.类文件 C.工程文件 D.标准模块文件42.V B 设计的应用程序，扩展名为.Frm的文件是。A.窗体文件 B.类文件 C.工程文件 D.标准模块文件43.用 VB可视化程序设计语言设计应用程序的主要工作是完成 oA

13、.设计流程和编写代码 B.设计界面和编写代码C.设计算法和结写代码 D.设计程序和端写代码44.在 VB 6.0中，12345&的数据类型是（）A.整数型 B.长整数型C.字符常数 D.双精度常数45.在 VB6.0中，语 句 Dim M1#,Abc,Xyz As Single定义的M1、A be和 Xyz的类型分别是（）A.双精度、整数型、单精度 B.双精度、单精度、单精度C.双精度、整数型、整数型 D.双精度、可变类型、单精度46.在 VB6.0中，下列不正确的Integer型常数是_，A.32768B.0C.037%D.-2222247.在 VB6.0K,12345678#的类型是.A.

14、整数型B.长整数型C.字符常数D.双精度常数6.在 VB6.0中，合法的字符串常数是.A.ABC$B：3+4”C.ABC D：3+448.方法PRINT 2030输出结果是-。A.2030B B.2030C.出现错误信息 D.049.假 定 Bln1是逻辑型变,下 面 鼠 值 语 句 中 正 确 的 是.A.Bln1=True B.Bln1=.True.C.Bln1=#True#D.Bln1=3450.在以下运算符中，优先级最低的是()A./B.C.Mod D.51.VB6.0中，执行下面的四个语句时出现错误的是()A.x=SGN(0)B.x=SQR(1)C.x=LOG(0)D.x=SIN(1

15、)52.VB 6.0 表达式 COS(0)+ABS(-1)+INT(RND(1)的值是()A.1 B.-1C.0 D.253.设 a 为整型变一，不能正确表达数学关系6a15的 VB6.0表达式是()A.6a15 B.Not(a=6)And a6 And a6 And Not(a=15)54.股子是一个正六面体，用 16这六个数分别代表这六面，掷一次般子出现的数可表示为()A.INT(RND(6)+1 )B.INT(RND*6)C.INT(RND(1)*7)D.INT(RND(1 )*6+1)55.逻辑运算符AndQr和 Not的优先顺序，从高到低是_ _ _ _ _ _A.Or-And-No

16、tB.And-Not-OrC.Not-And-OrD.Not-Or-And56.计第b的自然对数使用的Visual Basic表达式是A.Log(b)B.Lg(b)C.Loge(b)D.Lge(b)57.方法Print 28 Mod-1 5输出结果是A.28 Mod-15 B.28 Mod-15C.-13 D.1358.已字母A的ASCII码为十进制的65,表达式Asc(“A”)+Asc(C)的值是A.6567 B.132C.AC D.AC59.若X=5、Y=6,则表达式X+Y=11的值是A.X+Y=11 B.11C.True D.False60.下列执行语句后，V的值是_A$=54321V=

17、Val(Mid$(A$,3,2)A.43 B.32 C.432 D.061.执行下列语句后，E、F、G的值分别是_E=5:F=4:G=3E=F:F=G:G=EA.3 4 5 B.4 3 4 C.4 5 4 D.4 5 562.m,n是整数，且nm,在下面四个语句中，能将x鼠值为一个mn之间(含m,n)的任意整数，即满足m=x=n的是_A.x=INT(RND*(n-m+1)+m B.x=INT(RND*n)+mC.x=INT(RND*m)+n D.x=INT(RND*n-m)+m63.VB6.0 表达式 Log+ABS(-1)+lnt(Rnd)的值是A.-1 B.0 C.1 D.264 .V B

18、表达式10A-2 的值是A.-100 B.0.01 C.100 D.-0.0165.VB6.0 表达式 Len(Left(“abcd”,2)+Right(“济南学院”，2)的值为A.2 B.4 C.6 D.866.Load事件是在窗体被装入工作区时()触发的事件。A.用户 B.程序员 C.手工 D.自动67.修改控件属性，一般可以使用属性窗口，也可以通过()为属性鼠值。A.命令 B.对象 C.方法 D.代码68.下面是国体的四个属性，在界面设计时,改变属性值就言不到窗体变化的属性是.A.Top B.Width C.Left D.Enabled69.下面四个选项，不是事件的是 oA.Load B

19、.Enabled C.Unload D.DbICIick70.以下叙述正确的是.A.窗体(名称)属性是用来标识窗体的B.窗体(名称)属性的值显示在窗体的标题栏中C.可以在运行期间改变窗体的(名称)D.窗体的(名称)属性值可以为空71.决定窗体标题条显示内容的属性是_ _ _ _ _ oA.(名称)B.Text C.Caption D.Top72.若要使某文本框获得控制焦点，可使用的方法是_ _ _ _ _ _,A.LostFocusB.Point C.SetFocusD.GotFocus73.以下选项中，不是Visual Basic6.0缺省控件名称的是_ _ _ _ _。A.Commandl

20、 B.Textl C.labell D.Change74.若要将某命令按钮设为默认命令按钮，则应设为T rue的属性是。A.Enabled B.Cancel C.Default D.Value75.令按钮不能响应的事件是_ _ _ _ oA.DbICIick B.click C.MouseDown D.MouseUp二、填空题1、下列哪些可以作为变量？12fd x13 r2 a2 23a22、下列哪些可以作为常量？并说明是数值型还是字符型、逻辑型、日期型？“asdf asdf 12341234#2008/11/10#true false a33、把下列数学式子写成V B表达式J x2+y2+z

21、22sm(亨)c s(U)隹/4、计算下列V B表达式的值(要求写出步票)5*3*628/4*2.5/1.25*(3.7+2.5)184*4.0A2/1.6253 Mod 3*2263 Mod 0.4*Sqr(25)8/4*5/2.5*(3.25+6.75)3*7214/5*2155*227A1/327A(1/3)sqr(100)4*25、按下列要求写出赋值语句(1)把数值234鼠给变a(2)把字符串abc鼠给变量z1(3)把标签Lblts的内容改为“姓名”6、写出下列函数的值lnt(-3.14159)Sqr(sqr(16)7、随机产生a-b范围内(包括b)整数的公式：8、写出输入输出语句输出

22、对话框：要求使用3 图 标，标 题 为 r输出对话框”，对话框中的内容是“你输错了”VB单元练习题二1.下列叙述中正确的是（）A.只有窗体才是Visual Basic中的对象B.只有控件才是Visual Basic中的对象C.SB体和控件都是Visual Basic中的对象D.0I体和控件都不是Visual Basic中的对象2.确定一个控件在窗体上的位置的属性是（）A.Width 或 Height B.Width 和 Height C.Top 或 Left D.Top 利 Left3.为了同时改变一个活动控件的高度和宽度，正确的操作是（）A.拖拉控件4 个角上的某个小方块B.只能拖拉位于控件

23、右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度4.用户在屏幕上画出应用程序界面，并设好对象的属性，系统便可以自动生成程序代码，这 称 为（A、面向对象的程序设计 B、结 构 化程序设计C、事件驱动的编程机制 D、可视化程序设计5.VB6共有三个版本，按功能从弱到强的顺序排列应是（）A、学习版、专业版和工程版 B、学习版、工程版利专业版C、学习版、专业版和企业版 D、学习版、企业版和专业版6.VB集成开发环境有三种工作状态，不属于三种工作状态之一的是（）A、设计状态 B、编写代码状态 C、运行状态 D、中断状态7 .工程文件的扩展名是（）A、.firm B,.v

24、bp C、.bas D、.frx8 .窗体文件的扩展名是（）A、.frmB、.vbpC、.basD、.frx9.VB集成开发环境可以()A、编辑、调试、运行程序，但不能生成执行程序B、编辑、生成可执行程序、运行程序，但不能调试程序C、编辑、调试、生成可执行程序，但不能运行程序D、擒辑、调试、运行程序,也能生成执行程序10.标准模块文件的扩展名是()A、.firm B,.vbp C、.bas D、.vbg11.用于获得字符串S 从 第 5 个字符开始的3 个字符的函数是(1A.Mid(S,5,3)B.Middle(S,5,3)C.Right(S,5,3)D.Left(S,5,3)12.用于从字符

25、串左边截取字符的函数是(A、Ltrim()B、Trim()C、lnstr()D、Left()13.用于去掉字符串左右两边的空格的函数是().A、Ltrim()B、Trim()C、Left()D、lnstr()14.假定理体的名称(Name JB性)为Forml,则把窗体的标题设置为“VB Test”的 语 句 为()A.Form 1 =VB Test B.Caption=VB TestC.Forml.Text=VB Test D.Forml.Name=VBTest1 5 下列说法中正确的是：为了保存一个Visual Basic应用程序，应 当()A.只保存窗体模块文件(frm)B.只保存工程文

26、件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、留体文件和标准模块文件16.要使一个标签框对象能够显示所需要的文本，应设置该对象的那一个属性的值？()A.Caption B.Text C.Name D.AutoSize17.要使一个命令按钮称为图形式命令按钮，应设该队象的哪一个属性值？()A.Picture B.Style C.Down Picture D.DisabledPicture18.为使计时器对象每隔5 秒钟产生一个时钟事件（Timer事 件），则 其 Interval属性值应设置为（）A.5 B.300 C.500 D.500019.一个标准的VB

27、应用程序至少要包含一个（）对象。A.文本椎 B.标签框 C.窗体 D.命令按钮20.要使一个文本框对象能修显示多行文字，应设置该对象的（）属性值为True.A.Text B.MuKiLine C.Style D.Visible21、双击窗体中的对象后，VB将显示的窗口是（）A、工具箱 B、项 目（工 程）窗口 C、代码窗口 D、属性窗口22、下述先项中，属性V B的程序设计方法是（）A、面向对象、顺序驱动 B、面向对象、事件驱动C、面向过程、事件驱动 D、面向过程、顺序驱动23、下面是窗体的四个属性，在界面设计时，改变属性值看不到窗体变化的是（）A、Top B、Width C、Left D、E

28、nabled24、下面四个选项，不是事件的是（）A、Load B、Enabled C、Unload D、DbICIick25、用来设|1窗体背景图片的属性是（）A、Moveable B、Picture C、ForeColor D、WindowState26、在 VB6中的每一个对象都具有自己的属性、和方法。A、控件 B、函数 C、事件 D、公用过程27.计算结果为0 的表达式是（lnt（3.4）+lnt（-3.8）B.lnt（3.4）+Fix（-3.8）C.Fix（3.4）+Fix（-2.8）D.Fix（3.4）+lnt（-3.8）28.假设 A=3,B=7,C=2,则表达式 NOT（BA 的

29、值是（）A.TrueB.False C.表达式错误 D.不确定29.在表达式y=InputBox(a,b,c)中，a,b,c分别为输入函数对话框的()()().A.标题 B.提示 C.预设值 D.帮助文件名30.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command 1 _Click()a=lnputBox(Enter the First integer)b=lnputBox(Enter the Second integer)Print b+aEnd Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456利 123,则输出结果是()A.579 B.1

30、23 C.456 D.12345631.在盲体上画一个命令按钮，然后编写如下事件过程：Private Sub Command 1_Click()Dim a,b As Integera=lnputBox(Enter the First integer)b=lnputBox(Enter the Second integer)Print b+aEnd Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和 123,则输出结果是(A.579 B.123 C.456 D.12345632.执行下面的语句后，所产生的信息框的标题是()a=MsgBox(AAAA,BBBB,5)A.BBBB

31、B.空 C.AAAA D.出 错，不能产生信息框33.假定x 的值为5,则在执行以下语句时，其输出结果为ResiT的 Select Case语句是()A.Select Case xCase 10To 1Print ResultEnd SelectB.Select Case xCase Is 5,Is 5,1,3 To 10Print ResultEnd SelectD.Select Case xCase 1,3,Is 5Print ResultEnd Select3 4.假定有以下循环结构Do Until 条件循环体Loop则正确的描述是（）A.如果 条件 是一个为0的常数，则一次循环体也不执

32、行B.如果 条件 是一个为0的常数，则无限次执行循环体C.如果 条件 是一个不为0的常数，则至少执行一次循环体D.不论 条件 是否为 真，至少要执行一次循环体35.以下程序段的输出结果为（）x=1y=4Do Until y 4x=x*yy=y+iLoopPrint xA.1 B.4 C.8 D.2036.执行下面的程序段后，x 的值为x=5For i=1 To 20 Step 2x=x+i5Next IA.21 B.22 C.23 D.2437.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x=0Do Until x=-1a=l叩utBo

33、x（请 输 入 A 的值）a=Val(a)b=lnputBox（请输入B 的值”）b=Val（b）x=lnputBox（请输入x 的值”）x=Val（x）a=a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为（）A.2 B.3 C.14 D.1538.如果要在文本椎中健入字符时，只显示某个字符，如星号（*）,应设置文本框的（）属性。A.Caption B.PasswordChar C.Text D.Char39.退出For循环可使用的语句为（A、Exit For B、End For C、Exit Do D、End

34、 Do40.退出Do.Loop循环可使用的语句为（A、Exit For B、End For C、Exit Do D、End Do41.退出函数过程可使用的语句为（卜A、Exit sub B、End sub C、End Function D、Exit Function42.退出sub过程可使用的语句为（A,Exit sub B、End sub C、End Function D、Exit Function43.在窗体上画一个文本框（其 Name属性为Textl）,然后编写如下事件过程：Private Sub Form_Load（）Textl.Text=Textl.SetFocusFor i=1 T

35、o 10Sum=Sum+iNext iTextl.Text=SumEnd Sub上述程序的运行结果是（）A.在文本框Text）中输出55 B.在文本框Text）中输出0C.出错 D.在文本框Text）中输出不定值44.在窗体上画两个文本框（其 Nam e属 性 分 别 为 T e x tl和 Text2）利一个命令按钮（其 Nam e属性为Commandl）,然后编写如下事件过程：Private Sub Command 1_Click（）x=0Do While x 0y=x+1Case Is =0y=x+2Case Elsey=x+3End SelectLabel 1.Caption=xLab

36、el2.Caption=yEnd Sub程序运行后，单击窗体，标 签 LabeH和 Label2中显示的内容分别是（）A.-5 和-2 B.-5 和-4 C.-5 利-33 3.下列VB程序语句正确的是（）.A.If A&BThenT=A:A=B:B=TC.If A=B Then T=A A=B B=T4 7.下列程序段执行后输出的结果是（）D.-5 和-5B.If A&BThenT=A;A=B;B=TD.If A=B ThenT=A:A=B:B=Tn=10For k=n To 1x=kA2NextkPrint xA.-2 B.-1 C.1 D.O4 8下列程序段执行后输出的结果是（）i=0F

37、or k=10 To 19 Step 3i=i+1NextkPrint iA.4 B.5 C.3 D.64 9下列程序段执行后输出的结果是（）x=int（Rnd+4）Sleet Case xCase 5Print优秀KCase 4Print良好Case 3Print及格Case ElsePrint 不及格End SelectA.优秀 B.良好 C.及格 D.不及格50.在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1Fori=4To 1

38、 Step-1s=s+a(i)*jj=j*1 0Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是()A.4321 B.12 C.34 D.123451.定理体标题条显示内容的属性是()A.Text B.Name C.Caption D.BackStyle52.要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设(A.Passwordchar J 性值为*B.Caption 属性值为*C.PasswordChar属性值为真 D.Text属性值为*53决定窗体有无控制菜单的属性是()A.ControlBox B.MinButton C.En

39、abled D.MaxButton54使文本程获得焦点的方法是()A.Change B.GotFocus C.SetFocus D.LostFocus55下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中 的 语 句 为()A.Picture=pid.jpgB.Picture.Handle=pic1.jpgC.Picture 1.Picture=LoadPicture(pic 1.jpg)0.Picture=LoadPicture(pic 1.jpg)56决定标签内显示内容的属性是()A.Text B.Name C.Alignment D.Caption57假定在图片框

40、Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(B)A.选择图片框，然后按Del健B.执行语句 Picturel.picture=LoadPicture()C.执行语句 Picturel.picture=D.选择图片框，在属性窗口中选择Picture属性条,然后按回车键58.比较图片框(PictureBox)和图像框(Image)的使用，正确的描述是(卜A.当图片框(PictureBox)的 AutoSize自属性为False时，只在装入图元文件(*.wmf)时，图形才能自动调整大小以适应图片框的尺寸B.当图像框(Image)的 Str

41、etch属性为True时，图像框会自动改变大小以通应图形的大小，使图形充满图像框C.两类控件都可以设 AutoSize属 性，以保证装入的图形可以自动改变大小D.两类控件都可以设置Stretch属 性，使褥图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分59删除列表椎中指定的项目所使用的方法为（）A.Move B.Remove C.CIear D.Removeltem60.若要向列表椎添加列表项，可使用的方法是（卜A、Additem B、Remove C、Clear D、Add6 1 当拖动滚动条中的滚动块时，将触发的滚动条的事件是（）A.Move B.Change C.Scoll

42、D.SetFocus62.滚动条控件的LargeChange属性所设的是（）A.滚动条中滚动块的最大移动范围B.单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变C.滚动条中潼动块的最大移动位置D.滚动条控件无该属性63用户在组合框中输入或选择的数据可以通过一个属性获簿，这个属性是（）AList B.Listlndex C.Text D.ListCount64.设僮一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（）A.Caption B.Name C.Text D.Value65.在窗体（Name属 性 为 Forml）上画两个文本框

43、（其 Name属性分别为T e x tl和 Text2）和一个命令按钮（Name属性为Command 1）,然后媚写如下两个事件过程：Private Sub Command 1 _CIick（）a=Textl.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load（）Text 1.Text=Text2.Text=End Sub程序运行后，在第一个文本框(Text!)利第二个文本程(Text2)中分别输入123利 321,然后单击命令按钮，则输出结果为()A.444 B.321123 C.123321 D.13223165.运行下面程序后输出的结果是

44、()Private Sub Form_ClickOK=4If K=3 Then n=5If K=4 Then n=4If K=5 Then n=3Print nEnd SubA.无输出 B.3 C.4 D.566.运行下面程序后输出的结果是()Private Sub Form_ClickOscore=lnt(Rnd*10)+80Select Case scoreCase Is 60:PingYu=未通过Case 60 To 69:PingYu=合格Case 70 To 79:PingYu=11 中Case 80 To 89:PingYu=良Case Else:PingYu=优End Selec

45、tPrint PingYuEnd SubA.优 B.良 C.中 D.合格67.有如下程序：Private Sub Form_ClickOA=3If A=3 ThenPrint 3;End IfIf A=4 ThenPrint 4;End IfIf A=5 ThenPrint 5;End IfIf A=6 ThenPrint 6;End IfPrintEnd Sub运行后输出的结果是68.窗体上有两个文本椎Textl和Text2,下面程序的功能是：在文本框Text）中输入一个0-6的整数,然后单击盲体；在文本框Text2中用英文显示是星期几。请将程序补充完整。注意:不需增行或删行，也不得更改程序

46、的结构IPrivate Sub Form_Click()Dim Var%_=T ext1.TextSelect Case VarCaseOText2.Text=SundayCase 1Text2.Text=MondayCase 2Text2.Text=TuesdayCase 3Text2.Text=WednesdayCase 4Text2.Text=ThursdayCase 5Text2.Text=FridayCase 6Text2.Text=SaturdayCase ElseText2.Text=Must be Oto 6End Sub69.以下叙述正确的是（）A.Select Case语句

47、中的窝试表达式可以是任何形式的表达式B.Select Case语句的测试表达式只能是数值表达式或字符表达式C.在执行Select C ase语句时，所有C ase子句均按出现的次序被顺序执行D.如下Select C ase语句的Case表达式是错误的Select CaseCase 1 TO 10End Select70.国体上画一个命令按钮，其名称为commandl,然后编写如下事件过程：Private Sub command 1_click()For I=1 To 4If I=1 Then x=IIf I y ThenPrint xyElself x=y ThenPrint x=yElseP

48、rint xy B.x=y C.xy D.以上都不正确72.有如下程序：Private Sub Form_ClickOA=0For j=1 To 20 Step 2A=A+j5NextjPrint AEnd Sub运 行 后，输出的结果是()A.12 B.16C.40 D.10073.有一个分数序列：2/1 3/2 5/3 8/5 13/8求这个序列前20项的和。请将程序补充完整。注 意：不需增行或删行，也不得更改程序的结构。Private Sub form_click()Dim s As SingleDim t1 As Integer,t2 As Integer,t As IntegerDi

49、m I As Integers=0t1=2t2=1I=0DO whileS=_t=t1+121 =1 +1Print I;t1;t2;sLoopPrint sEnd Sub74.有如下程序：Private Sub Form_click()A=0For j=1 To 10A=A+j2 +jM od3NextjPrint AEnd Sub运 行 后，输出的结果是A.20 B.25C.30 D.3575.有如下程序：Private Sub Form_clik()Dim s%,i%s=0i=100Do While i=120lf(i3)*3 =iThens=s+1i=i+1End Ifi=i+1Loo

50、pPrint sEnd Sub运行后输出的结果是A.7B.9C.11 D.1376.有如下程序：Private Sub form_click()s=0i=1Do While i=100If i Mod 10 OThens=s+ij=j+1Elsei=i+1End IfLoopPrint sEnd Sub运行后输出的结果是_ _ _ _ _ _ _ _ _A.4050 B.5050C.4000 D.450077.有如下程序：Private Sub form_click()A$=54321b$=abodeFor j=1 To 5Print Mid$(b$,j,1)+Mid$(A$,6-j,1);N