VB练习题含答案

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

2、extD. Name5、以下哪个符号是合法的变量名？( A )A. VB123B. AbsC. 99JiD. xy6、数学式子10sin25o写成Visual Basic表达式是？ ( D)A. 10sin25B. 10*sin(25)C. 10*sin(25 o)D. 10*sin(25*3.14/180)7、Visual Basic中不存在以下哪一种数据类型？ ( D )A.字符串类型 B.日期类型 C.逻辑类型D.指针类型8、表达式 Left( Visual,3)+Lcase( AB")的值是？ ( C)A. visAB B. VisABC. Visab D. ualab9、表

3、达式 6+10 Mod 4*2+1的值是？ ( A)A. 9B. 11C. 1D. 310、把数值型转换为字符串型需要使用以下哪一种函数 ？ (B)A. Val()B. Str()C. Asc()D. Chr()11、VB中窗体文件的扩展名是 . (B)(A)VBP(B)FRM( X)(C)VBW (D)PDM12、在设计应用程序时,通过 窗口可以查看到应用程序工程中的所有组成局部.(D)(A)代码窗口(B)窗体设计窗口 (C)属性窗口 (D)工程资源治理器窗口 (又)13、在VisualBasic中,所有的窗体和控件都必定具有的一个属性是 .(A)Name( X)(B)Font (C)Cap

4、tion (D)FillColor14、对变量名说法不正确的选项是_AC.(A)必须是字母开头,不能是数字或其他字符(B)不能是VB的保存字(C)可以包含字母、数字、下划线和标点符号)(D)不能超过255个字符15、以下变量名中, 是不符合VisualBasic的命名标准的.(A)Abc901(B)_mnu_Open_234( X)(C)price_ (D)K16、在窗体上画一个命令按钮(名称为 Commandl),然后编写如下事件过程：PrivateSubCommand1_Click()DimbAsIntegerb=b+1EndSub运行程序,三次单击命令按钮后,变量 b的值是： .(A)0

5、(B)1()(C)2(D)317、以下程序段的执行结果为 .X=5:Y=-20If Not X>0 ThenX=Y-3ElseY=X+3EndifPrint X-Y;Y-X(A)-33( X)(B)5 8(C)33(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 mo

6、d 2<>0 then print"偶数"else print"奇数"(D)if x2=int(x/2 )then print" 偶数"else print"奇数"()19、假设要执行以下程序段后窗体上显示"红"字,那么 x可取的值为：Select case int(x/10)case2,4,6,8print"黄"case1,3,5,7,9print"气|i"case elseprint"红"end select(A)27(

7、B)38(C)10(D)5(X)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( X)22、以下属于正确的字符

8、串常量的是 (A)#ABC" (B)$ABC$(C)'ABC' (D)"ABC"( X)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)( X)24、语句 Z=y+1代表(A)将变量Z存入变量y中,再加上1的表达式(B)变量Z取得y+1的值()(C)变量Z取得变量y的值,然后再加上1的一个表达式(D)将变量Z存入变量y+1中25、执行下面的语句后,所产生的信息框的标题是 .A=Ms

9、gBox("AAAAA",3,"BBBBB")(A)BBBBB(X)(B)AAAAA(C)空(D)出错,不能产生信息框26、执行以下代码,分别输入12和89,输出结果是 .Private Sub Form_Click()a=InputBox("D")b=InputBox("E")Print a+bEnd Sub(A)101(B)DE1289 (C)DE(D)1289( X)27、为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是 .(A)Enabled( X)(B)Visible(C)Timer

10、 (D)Interval28、以下表达式,哪一个可以产生1到6之间的随机整数(包括 1和6) .(A)Int(Rnd*7) (B)Int(Rnd(6)+1) (C)Int(Rnd*6) (D)Int(Rnd*6+1)( X)29、执行以下程序,从键盘输入10,运行结果是 .PrivateSubCommand1_Click()S=InputBox("请输入一个数字：")Select Case SCase Is>0Print ">0"Case Is>3Print ">3"Case Is>5Print &quo

11、t;>5"End SelectEnd Sub(A)>0( X)(B)>3(C)>5(D)>030. VB6.0共有3个版本,它们分别是 BA.学习版、标准版和企业版B.学习版、专业版和企业版C.学习版、标准版和网络版D.标准版、专业版和中文版31. VB的集成开发环境中有c 工作状态A . 一种 B. 两种 C.三种 D. 四种32. VB6.0的集成开发环境不包括 DA.窗体窗口B.工具箱 C.代码窗口D.过程窗口33. VB6.0集成开发环境有三种工作状态,不属于三种工作状态之一的是BA .设计状态B, 编写代码?犬态C.运行状态D.中断状态34.

12、用VB设计的应用程序,文件的扩展名中不含 DA. .FrxB.Bas C. .Vbp D. .Form35. 以下说法正确的选项是BA.属性窗口包括：标题栏、对象名称的单项选择按钮、选项卡、属性列表、属性含义说明B.属性窗口包括：标题栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明C.属性窗口包括：菜单栏、对象名称的单项选择按钮、选项卡、属性列表、属性含义说明D.属性窗口包括：菜单栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明36. VB中,强制变量声明的语句是A .A . Option Explicit B. Option Base C. REM D . PUBLIC37. V

13、B6.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_oA.窗体文件B.类

14、文件C.工程文件 D.标准模块文件42 . VB设计的应用程序,扩展名为 .Frm的文件是 A .A.窗体文件B.类文件 C.工程文件D.标准模块文件43 .用VB可视化程序设计语言设计应用程序的主要工作是完成B.A.设计流程和编写代码B.设计界面和编写代码C.设计算法和编写代码D.设计程序和编写代码44 .在 VB 6.0中,12345&的数据类型是BA.整数型 B.长整数型C.字符常数D.双精度常数D)45 .在 VB6.0中,语句 Dim M1#,Abc,Xyz As Single 定义的 M1、Abc和Xyz的类型分别是A.双精度、整数型、单精度B.双精度、单精度、单精度C.双

15、精度、整数型、整数型D.双精度、可变类型、单精度46 .在VB6.0中,以下不正确的 Integer型常数是 A.A .32768B. 0 C.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 .方法PRINT 2030输出结果是 D.A .“2030"B. 2030C.出现错误信息D. 049 .假定Bln1是逻辑型变量,下面赋值语句中

16、正确的选项是_D.A. Bln1=' True' B. Bln1=.True.C. Bln1=#True# D. Bln1=3<450.在以下运算符中,优先级最低的是( C)A./ B.C. Mod D. A51. VB6.0中,执行下面的四个语句时出现错误的选项是( C)A.x=SGN(0)B.x=SQR(1)C.x=LOG(0)D.x=SIN(1)52. VB 6.0 表达式 COS (0) +ABS (-1) +INT (RND (1)的值是(D)A . 1B. - 1C. 0D . 253 .设a为整型变量,不能正确表达数学关系6<a<15的VB6.0

17、表达式是(A)A .6<a<15B . Not(a<=6) And a<15C. a>6 And a<15D. a>6 And Not (a>=15)54 .骰子是一个正六面体,用16这六个数分别代表这六面,掷一次骰子出现的数可表示为( 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的优先顺序,从高到低是 CA .Or-And-NotB.And-Not-OrC.Not-And-OrD.Not-Or-And

18、56 .计算b的自然对数使用的 Visual Basic表达式是 AA.Log(b)B.Lg(b)C.Loge(b)D.Lge(b)57 .方法Print 28 Mod - 15输出结果是 DA."28 Mod -15"B.28 Mod - 15C.-13D . 1358.已字母A的ASCII码为十进制的65,表达式Asc (“A)+Asc (“C")的值是 B_A.6567B. 132C,“ACD. AC59 .假设X=5、Y=6 ,那么表达式X+Y=11的值是C A . X+Y=11 B. 11C. TrueD. False60 .以下执行语句后,V的值是 B

19、A$=" 54321 V=Val(Mid$(A$,3,2) A . 43B. 32C. 432D . 061 .执行以下语句后,E、F、G的值分别是 BE=5:F=4:G=3 E=F:F=G:G=E A .3 4 5B .4 3 4C.4 5 4D .4 5 562 . m,n是整数,且n>m,在下面四个语句中,能将x赋值为一个 mn之间(含m,n)的任意整数,即满足m<=x<=n 的是 AA . 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 表

20、达式 Log(1)+ABS(-1)+Int(Rnd(1)的值是 _CA.-1B.0C.1D .264 . VB表达式10A-2的值是 DA .- 100 B . 0.01C. 100D. - 0.0165 . VB6.0 表达式 Len(Left( “ abcd ,2)+Right( “济南学院 ,2)的值为BA.2B.4C.6D.866 .Load事件是在窗体被装入工作区时(D)触发的事件.A.用户B.程序员C.手工D.自动67 .修改控件属性,一般可以使用属性窗口,也可以通过(D)为属性赋值.A .命令B.对象C.方法D.代码68 .下面是窗体的四个属性,在界面设计时,改变属性值就看不到窗

21、体变化的属性是_D.A.TopB .WidthC.LeftD .Enabled69 .下面四个选项,不是事件的是 B_oA. LoadB. EnabledC. UnloadD. DblClick70 .以下表达正确的选项是A .A .窗体名称属性是用来标识窗体的B.窗体名称属性的值显示在窗体的标题栏中C.可以在运行期间改变窗体的名称D.窗体的名称属性值可以为空71 .决定窗体标题条显示内容的属性是C.A.名称B. TextC. CaptionD. Top72 .假设要使某文本框获得限制焦点,可使用的方法是C.A. LostFocusB. PointC.SetFocusD. GotFocus73

22、 .以下选项中,不是 Visual Basic6.0缺省控件名称的是 _D.A. Command1B . TextlC. labellD . Change74 .假设要将某命令按钮设置为默认命令按钮,那么应设置为True的属性是 C.A. EnabledB. CancelC. DefaultD. Value75.令按钮不能响应的事件是 CD_OA. DblClickB . clickC. MouseDownD . MouseUp二、填空题1、以下哪些可以作为变量 ？12fd x13 r2 a2 23a22、以下哪些可以作为常量？并说明是数值型还是字符型、逻辑型、日期型？“asdf"a

23、sdf"1234"1234#2022/11/10# true false a33、把以下数学式子写成VB表达式4、计算以下VB表达式的值(要求写出步骤)5*3*62458/4*2.5/1.25*(3.7+2.5)24.8184*4.0A2/1.60253 Mod 3*22 263 Mod 0.4*Sqr(25)8/4*5/2.5*(3.25+6.75)403*721014/5*25.6155*2127A1/3927A(1/3)3sqr(100)4*215、按以下要求写出赋值语句把数值234赋给变量a(2)把字符串abc赋给变量z1(3)把标签Lblts的内容改为“姓名6、写

24、出以下函数的值Int(-3.14159)-4Sqr(sqr(16)27、随机产生 a-b范围内(包括b)整数的公式：int (rnd* (b-a+1) +a) 8、写出输入输出语句输出对话框：要求使用 3图标,标题为：输出对话框,对话框中的内容是“你输错了MsgBox "你输错了 ",16."输出对话框VB单元练习题二1.以下表达中正确的选项是(C)A.只有窗体才是 Visual Basic中的对象B.只有控件才是 Visual Basic中的对象C.窗体和控件都是 Visual Basic 中的对象D.窗体和控件都不是Visual Basic 中的对象2.确定一

25、个控件在窗体上的位置的属性是(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、学习版、专业版

26、和工程版B 、学习版、工程版和专业版C学习版、专业版和企业版D 、学习版、企业版和专业版6、VB集成开发环境有三种工作状态,不属于三种工作状态之一的是 B A、设计状态 B、编写代码状态 C、运行状态 D、中断状态7、工程文件的扩展名是BA、.frmB、.vbpC、.basD、.frx8、窗体文件的扩展名是AA、.frmB、.vbpC、.basD、.frx9、VB集成开发环境可以D A、编辑、调试、运行程序,但不能生成执行程序 日编辑、生成可执行程序、运行程序,但不能调试程序 C编辑、调试、生成可执行程序,但不能运行程序 D编辑、调试、运行程序,也能生成执行程序 10、标准模块文件的扩展名是C

27、 A、.frm B 、.vbp C、.basD、.vbg11 .用于获得字符串S从第5个字符开始的3个字符的函数是A .A. MidS,5,3 B.MiddleS,5,3 C.RightS,5,3 D.LeftS,5,312 .用于从字符串左边截取字符的函数是D.A Ltrim B、Trim C、Instr D 、Left13 .用于去掉字符串左右两边的空格的函数是B.A Ltrim B、Trim C Left D、Instr14 .假定窗体的名称Name属性为Form1,那么把窗体的标题设置为“ VB Test 的语句为BA. Form1 = "VB Test" B.Ca

28、ption ="VB Test" C.Form1 . Text = "VB Test" D.Form1.Name ="VB Test"15以下说法中正确的选项是：为了保存一个Visual Basic 应用程序,应当DA.只保存窗体模块文件.frm B.只保存工程文件.vbpC.分别保存工程文件和标准模块文件.bas D.分别保存工程文件、窗体文件和标准模块文件16 .要使一个标签框对象能够显示所需要的文本,应设置该对象的那一个属性的值？ AA. Caption B. Text C. Name D.AutoSize17 .要使一个命令按

29、钮称为图形式命令按钮,应设置该队象的哪一个属性值？BA.Picture B.Style C.DownPicture D.DisabledPicture18 .为使计时器对象每隔5秒钟产生一个时钟事件Timer事件,那么其Interval属性值应设置为DA.5B.300C.500D.500019 . 一个标准的VB应用程序至少要包含一个C对象.A.文本框B.标签框C.窗体D.命令按钮20.要使一个文本框对象能够显示多行文字,应设置该对象的B属性值为True.A.Text B.MultiLine C.Style D.Visible21、双击窗体中的对象后,VB将显示的窗口是C A、工具箱B、工程工

30、程窗口 C、代码窗口D、属性窗口22、下述先项中,属性VB的程序设计方法是B A、面向对象、顺序驱动B 、面向对象、事件驱动C面向过程、事件驱动D、面向过程、顺序驱动23、下面是窗体的四个属性,在界面设计时,改变属性值看不到窗体变化的是(D )A、Top B 、Width C 、Left D 、Enabled24、下面四个选项,不是事件的是( B )A Load B 、Enabled C、Unload D 、DblClick25、用来设置窗体背景图片的属性是( B )A Moveable B 、Picture C 、ForeColor D 、WindowState26、在VB6中的每一个对象都

31、具有自己的属性、C和方法.A控件 B 、函数 C、事件 D 、公用过程27 .计算结果为0的表达式是(BA. 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 ( B<C ) AND C>A 的值是(B)A.True B.False C.表达式错误D. 不确定29 .在表达式y = InputBox ( a, b, c )中,a,b,c 分别为输入函数对话框的(B) (A) (C).A.标题 B. 提示 C. 预设

32、值 D.帮助文件名30 .在窗体上画一个命令按钮,然后编写如下事件过程：Private Sub Command1_Click()a = InputBox("Enter the First integer")b = InputBox("Enter the Second integer")Print b + aEnd Sub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,那么输出结果是(D)A.579 B.123 C.456 D.12345631 .在窗体上画一个命令按钮,然后编写如下事件过程：Private Sub Command1

33、_Click()Dim a, b As Integera = InputBox("Enter the First integer")b = InputBox("Enter the Second integer")Print b + aEnd Sub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,那么输出结果是(A)A.579 B.123 C.456 D.12345632 .执行下面的语句后,所产生的信息框的标题是a=MsgBox("AAAA", , "BBBB", ""

34、, 5)(A)A.BBBB B.空 C.AAAA D. 出错,不能产生信息框33 .假定x的值为5,那么在执行以下语句时,其输出结果为"Result"的Select Case 语句是(C)A. Select Case xCase 10 To 1Print "Result"End SelectB.Select Case xCase Is > 5, Is < 5Print "Result"End SelectC. Select Case xCase Is > 5, 1, 3 To 10 Print "Resul

35、t"End SelectD. Select Case xCase 1,3, Is > 5 Print "Result"End Select34.假定有以下循环结构Do Until 条件循环体Loop那么正确的描述是(B)A.如果"条件是一个为0的常数,那么一次循环体也不执行B.如果"条件是一个为0的常数,那么无限次执行循环体C.如果"条件是一个不为0的常数,那么至少执行一次循环体D.不管"条件"是否为"真",至少要执行一次循环体35 .以下程序段的输出结果为x=1y=4Do Until y

36、 > 4x=x*yy=y+1LoopPrint x (B)A.1 B.4 C.8 D.2036 .执行下面的程序段后,x的值为x=5For i = 1 To 20 Step 2x=x+i5Next i (A)A.21 B.22 C.23 D.2437 .在窗体上画一个命令按钮,然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x = -1a=InputBox("请输入A的值") a=Val(a) b=InputBox(" 请输入 B的值") b=Val(b) x=InputBox(" 请

37、输入x的值") x = Val(x) a=a+b+x Loop Print a End Sub程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1 ,那么输出结果为(A)A.2 B.3 C.14 D.1538 .如果要在文本框中键入字符时,只显示某个字符,如星号A . Caption B. PasswordChar C. Text39 .退出For循环可使用的语句为( A ).A、Exit ForB、End ForC、Exit Do40 .退出Do-Loop循环可使用的语句为( C ).A、Exit ForB、End ForC、Exit Do(*),应设置文本框的

38、(B )属性.D. CharD、End DoD、End Do41 .退出函数过程可使用的语句为(D ).A、 Exit sub B、 End subC、 End Function D 、 Exit Function42 .退出sub过程可使用的语句为( A ).A、 Exit sub B、 End sub C End Function D 、 Exit Function43 .在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 10

39、Sum = Sum + iNext iText1.Text = Sum End Sub上述程序的运行结果是(QText1和Text2)和一个命令按钮(其Name属性为A.在文本框 Text1中输出55 B.在文本框 Text1中输出0 C.出错 D.在文本框Text1中输出不定值 44.在窗体上画两个文本框(其Name属性分别为Command1)然后编写如下事件过程：Private Sub Command1_Click() x=0 Do While x < 50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text = Str(n) Text2.Text = Str(x

40、)End Sub(B)程序运行后,单击命令按钮,在两个文本框中显示的值分别为A.1 和 0 B.2 和 72 C.3 和 50 D.4 和 16845 .在窗体上画一个命令按钮,名称为Command 1然后编写如下程序:Private Sub Command1_Click()For I= 1 To 4For J = 0 To IPrint Chr(65 + I);Next JPrint Next I End Sub程序运行后,如果单击命令按钮,那么在窗体上显示的内容是AA.BBCCC DDDD EEEEE B.A BB CCC DDDD C.B CC DDD EEEE D.AA BBB CCC

41、C DDDDD46 .在窗体上画两个名称分别为Labell和Label2的标签,然后编写如下事件过程Private Sub Form_Clickx= -5:s= -5 Select Case s Case Is > 0 y=x+1 Case Is > = 0 y=x+2 Case Else y=x+3End SelectLabel 1.Caption = xLabel2.Caption = y End Sub程序运行后,单击窗体,标签 Labell和Label2中显示的内容分别是A A.-5 和-2 B.-5 和-4 C.-5 和-3 D.-5 和5 33. 以下VB程序语句正确的

42、选项是D.A. If A>B Then T=A: A=B: B=T B. If A> B Then T=A; A=B; B=TC. If A>=B Then T=A A=B B=T D. If A>=B Then T=A: A=B: B=T47.以下程序段执行后输出的结果是Cn=10For k=n To 1x = kA2Next kPrint xA.-2B.-1C.1D.048以下程序段执行后输出的结果是Ai=0For k=10 To 19 Step 3 i=i+1Next kPrint iA. 4 B. 5C. 3 D. 649以下程序段执行后输出的结果是Bx=int

43、 Rnd+4Slect Case xCase 5Print " 优秀"KCase 4Print " 良好"Case 3Print " 及格"Case Else Print " 不及格"End SelectA.优秀B.良好C.及格D.不及格50 .在窗体上画一个命令按钮其Name属性为Command1然后编写如下代码:Option Base 1Private Sub Command1_Click Dim aa = Array1,2, 3, 4 j=1For i = 4 To 1 Step -1 s = s + ai*

44、j j =j * 10Next iPrint sEnd Sub运行上面的程序,单击命令按钮,其输出结果是DA.4321B.12C.34 D.123451 .定窗体标题条显示内容的属性是CA.TextB.NameC.CaptionD.BackStyle52 .要求从文本框中输入密码时在文本框中只显示*号,那么应用在此文本框的属性窗口中设置 AA. Passwordchar 属性值为 * B. Caption 属性值为 *C. PasswordChar属性值为真 D. Text 属性值为*53决定窗体有无限制菜单的属性是AA.ControlBoxB.MinButtonC.EnabledD.MaxB

45、utton54使文本框获得焦点的方法是CA.ChangeB.GotFocusC.SetFocusD.LostFocus'55以下可以把当前目录下的图形文件pic1.jpg 装入图片框Picturel中的语句为CA.Picture = "pic1.jpg"B.Picture.Handle = "picl .jpg"C.Picture I.Picture = LoadPicture"pic 1.jpg"D.Picture = LoadPicture"pic 1.jpg"56决定标签内显示内容的属性是DA.Tex

46、tB.NameC.AlignmentD.Caption),图形57假定在图片框Picture1中装入了一个图形,为了去除该图形注意,去除图形,而不是删除图片框应采用的正确方法是BA.选择图片框,然后按 Del键B.执行语句 Picture1.picture=LoadPicture""C.执行语句 Picture1.picture=""D.选择图片框,在属性窗口中选择Picture属性条,然后按回车键58.比拟图片框PictureBox 和图像框Image的使用,正确的描述是 A .A.当图片框PictureBox 的AutoSize自属性为 False时

47、,只在装入图元文件*.wmf时,才能自动调整大小以适应图片框的尺寸B.当图像框Image的Stretch属性为True时,图像框会自动改变大小以适应图形的大小,使图形充满图像框C.两类控件都可以设置 AutoSize属性,以保证装入的图形可以自动改变大小D.两类控件都可以设置Stretch 属性,使得图形根据物件的实际大小进行拉伸调整,保证显示图形 的所有局部59删除列表框中指定的工程所使用的方法为DA.MoveB.RemoveC.ClearD.Removeltem60.假设要向列表框添加列表项,可使用的方法是 A .A、Addltem B、RemoveC、Clear D Add61当拖动滚动

48、条中的滚动块时,将触发的滚动条的事件是 BCA.MoveB.ChangeC.ScollD.SetFocus62.滚动条控件的 LargeChange属性所设置的是B A.滚动条中滚动块的最大移动范围B.单击滚动条和滚动箭头之间的区域时,滚动条控件value属性值的改变量C.滚动条中滚动块的最大移动位置D.滚动条控件无该属性63用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是CA.ListB.ListIndexC.TextD.ListCount64 .设置一个单项选择按钮OptionButton 所代表选项的选中状态,应当在属性窗口中改变的属性是 D A. Caption B .

49、Name C Text D . Value65 .在窗体Name属性为Form1上画两个文本框其NameW性分别为Text1和Text2和一个命令按钮Name 属性为Command1然后编写如下两个事件过程：Private Sub Command1_Clicka = Text1.Text + Text2.TextPrint aEnd SubPrivate Sub Form_LoadText 1.Text =""Text2.Text =""End Sub程序运行后,在第一个文本框Text1和第二个文本框Text2中分别输入123和321,然后单击命令按钮,

50、那么输出结果为CA.444B.321123C.123321D.13223166 .运行下面程序后输出的结果是 BPrivate Sub Form_ClickK = 4If K <= 3 Then n = 5If K <= 4 Then n = 4If K <= 5 Then n = 3Print nEnd SubA,无输出B. 3C. 4D. 567 .运行下面程序后输出的结果是( B)Private Sub Form_Click()score = Int(Rnd * 10) + 80Select Case scoreCase Is < 60: PingYu =&quo

51、t;未通过"Case 60 To 69: PingYu ="合格"Case 70 To 79: PingYu ="中"Case 80 To 89: PingYu ="良"Case Else: PingYu ="优"End SelectPrint PingYuEnd SubA.优B.良C.中D. 合格67 .有如下程序：Private Sub Form_Click()A = 3If A <= 3 ThenPrint 3;End IfIf A <= 4 ThenPrint 4;End IfIf A

52、 <= 5 ThenPrint 5;End IfIf A <= 6 ThenPrint 6;End IfPrintEnd Sub运行后输出的结果是345668 .窗体上有两个文本框Textl和Text2,下面程序的功能是：在文本框Textl中输入一个06的整数,然后单击窗体；在文本框Text2中用英文显示是星期几.请将程序补充完整.注意：不得增行或删行,也不得更改程序的结构！Private Sub Form_Click()Dim Var%Var =Text1.TextSelect Case VarCase 0Text2.Text = "Sunday"Case 1

53、Text2.Text = "Monday"Case 2Text2.Text = "Tuesday"Case 3Text2.Text = "Wednesday"Case 4Text2.Text = "Thursday"Case 5Text2.Text = "Friday"Case 6Text2.Text = "Saturday"Case ElseText2.Text = "Must be 0to 6"End SelectEnd Sub69.以下表达正确的选项

54、是()A. Select Case语句中的测试表达式可以是任何形式的表达式B. Select Case语句的测试表达式只能是数值表达式或字符表达式C.在执行Select Case语句时,所有 Case子句均按出现的次序被顺序执行D.如下Select Case语句的Case表达式是错误的Select CaseCase 1 TO 10End Select答案：A70 .窗体上画一个命令按钮,其名称为command1,然后编写如下事件过程:Private Sub command1_click()For I = 1 To 4If I = 1 Then x = IIf I <= 4 Then x

55、= x + 1Print x;Next IEnd Sub程序运行后,单击命令按钮,其输出结果为()A. 1 2 3 4 B. 2 3 4 5 C. 2 3 4 4 D, 3 4 5 6答案：B71 .有如下程序.其输出结果为()Private Sub command1_click()x = Sqr(2) 2 + Sgn(2) 2 + Rnd(2) 2x = Sqr(3) 3 + Sgn(3) 3 + Rnd(3) 3If x > y ThenPrint "x>y"ElseIf x = y ThenPrint "x=yElsePrint "x&

56、lt;yEnd IfEnd SubA . x>y B . x=yC. x<yD.以上都不正确答案：B72.有如下程序：Private Sub Form_Click()A = 0For j = 1 To 20 Step 2A = A + j 5Next jPrint AEnd Sub运行后,输出的结果是(B)A.12B.16C.40D .10073 .有一个分数序列：2/1 3/2 5/38/513/8求这个序列前20项的和.请将程序补充完整. 注意：不得增行或删行,也不得更改程序的结构. Private Sub form_click()Dim s As SingleDim t1 A

57、s Integer, t2 As Integer, t As Integer Dim I As Integer s = 0 t1 = 2 t2 = 11 = 0DO while I<20S= s+t1/t2 t = t1 + t2t2=t1t1=tPrint I; t1; t2; sLoopPrint sEnd Sub74 .有如下程序：Private Sub Form_click()Forj = 1 To 10A = A + j 2 + j Mod 3Next jPrint AEnd Sub 运行后,输出的结果是 DA.20B. 25C.30D. 3575.有如下程序：Private Sub Form_clik()Dim s%, i%s = 0 i = 100 Do While i <= 120If (i 3) * 3