vb程序的设计期末习题与答案

1、vb 程序设计期末复习题及答案一、填空题1.创建一个VB应用程序三个主要的步骤是 、和2当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的窗口中，把此文本框的 属性设置成空白。3 Label 和 TextBox 控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 控件；若允许用户输入文本，则应使用 控件。4窗体的常用方法有、 、 和。5 .要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK应当编写的语句是6 .若命令按钮的名称为Cmdopen程序要求单击该命令按钮时，打开一个窗口 frml ,请对以下事件过程填空。Private Su

2、b CmdopenEnd Sub7 Visual Basic 6 种类型的表达式是 、 、 、 、 。 Visual Basic 根据表达式的 来确定表达式的类型。8 .表达式 93 7 Mod 2人2 的值是。9已知a=3， b=4 ， c=5 ，表达式 a>b and Not c>a Or c>b And c<a+b 的值是 。表达式 c>a And Not b<c 的值是 。10 日期表达式#2/24/02# - #2/12/02# 的值为 。11数学表达式sin2x+ 写成等价的 Visual Basic 表达式为 。12.设某个程序中要用到一个二维

3、数组，要求数组名为A,类型为字符串类型，第一维下标从 1 到 5，第二维下标从-2 到 6，则相应的数组声明语句为13事件就是在对象上所发生的事情，Visual Basic 中的事件如 、 等。一个对象响应的事件可以有个，用户不能建立新的事件。事件过程是指 。假设某一事件过程如下：Private Sub cmd1_Click（）Form1.Caption="VB 示例 "End Sub则响应该过程的对象名是 ，事件名是 。14对象的方法用于 。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为 ,例如，对窗体 Forml使用Show方法，应写成15 Pictur

4、eBox 控件可通过设置其属性为 True 使之可自动调整大小；而 Image控件可通过设置其属性为 True ，使其加载的图片能自动调整大小以适应Image。16在Visual Basic 程序中实现复制文件“ c:command. ”到 d: 盘根目录下的语句为、单项选择题1 下列控件中没有Caption 属性的是（ ）A、标签B、文本框C、框架D、命令按纽2除框架外，能对单选按纽分组的控件是（）。A、窗体B、标签C、图片框D、图像3 下列符号不能作为VB 中变量名的是（ ）。A 、 ABCDEFG B 、 P00000C 、 89YWDDFD、 xyz4 下列不属于Visual Basi

5、c 数据文件的是（ ）。A、顺序文件B、随机文件C、二进制文件D、数据库文件5若要求从文本框中输入密码时在文本框中只显示* 号，则应用在此文本框的属性窗口中设置（ ）。A、 Text 属性值为 *B 、 Caption 属性值为 *C、 Password 属性值为空D 、 PasswordChar 属性值为 *. 专业 . 专注 .）。6.表达式2*3A2+2*8/4+3人2 的值为（7A、8A、A 、 64mid("abcdefg",3,2)abc B 、 cd数学表达式Sin25 °写成Sin25B、 31的值是（C 、 bcdVB表达式是（B 、 Sin (

6、 25) C、 Sin）。25°)C、 49D 、 abcdeD、 SinD、 4225*3.14/1809Sub 过程与Function 过程最根本的区别是（）。A、Sub 过程可以使用 Call 语句或直接使用过程名调用，而Function 过程不可以。B、Function 过程可以有参数， Sub 过程不可以。C、。两种过程参数的传递方式不同OD、Sub 过程的过程名不能返回值，而Function过程能够通过过程名返回值。10.选拔身高T超过1.7米且体重 W、于62.5公斤的人，表示该条件的布尔表达式为A、T>=1.7 And W<=62.5B、 T<=1.

7、7 Or W>=62.5C、T>1.7 And W<62.5D、 T>=1.7 Or W<62.511. 下列对象不能响应Click 事件的是（A、列表框B 、图片框C、窗D 、计时器12在Visual Basic中，按文件的访问方式不同，可以将文件分为（A、顺序文件、随机文件和二进制文件B 、文本文件和数据文件C数据文件和可执行文件D、ASCn文件和二进制文件13将通用对话框CommonDialog 的类型设置成“颜色”对话框，可调用该对话框的）方法。A、 ShowOpenB 、 ShowSaveC 、 ShowColorD、ShowFont三、指出下列句中的错

8、误，修改或者说明原因。1. sum和int.sum 都可以作为 VB的变量名。2 变量名的长度最长可达1024 个字符。3 下列程序运行结果：3 ， 3Option ExplicitPrivate Sub Command1_Click()Dim a ， b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = bEnd Sub4程序可以改变定长字符串的容和长度。5 Variant 是一种特殊的数据类型，可以包含任何种类型的数据。6 下列程序运行结果为TruePrivate Sub Command1_Click()a = 1b = 2c = 3Te

9、xt1.Text = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2End Sub7 #12/31/1999# - #12/20/1999# 的运算结果是#12/11/1999#8可以在窗体的通用部分声明静态变量。9 使用声明语句建立一个变量后，Visual Basic 会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串 "" ，定长字符串用空格填充， Variant 变量被初 始化为 Empty ，布尔型的变量被初始化为False 。10 .事件过程通常由事件驱动执

10、行，而Sub过程通过过程调用执行。11将焦点主动设置到指定的控件或窗体上应采用SetFocus 方法。12.当图像控件(Image)的Stretch属性为True时，Image控件能自动调整自己的尺寸 与显示的图片匹配。四、读程序题，写出程序运行结果。1 Private Sub Form_Click()For I = 1 To 9For j = 1 To 30 - 3 * IPrint " "Next jFor k = 1 To IPrint k;Next kFor k = I - 1 To 1 Step -1Print k;Next kPrintNext IEnd Sub

11、2Option ExplicitPrivate Sub Command1_Click()Static S As IntegerDim i As IntegerS = 1For i = 1 To 5S = S * iNext iPrint SEnd Sub3For X = 5 To 1 Step -1For Y = 1 To 6 - XPrint Tab(Y + 5); "*"Next YPrintNext X4Private Sub Form_Activate()Print "aa" & "bb",-5 * 6,Not 2 &

12、lt;= 3Print "aa" & "bb" -5 * 6; Not 2 <= 3PrintPrint "30+60",Print 30 + 60？ "30+60" 30 + 60End Sub5X=1Do While X<=10If X Mod 7 =0 ThenY = X + 6ElseZ = XEnd IfX = X + 2LoopPrint X,Y,Z五、编程题1 设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1( text1 )、文本框 2 ( text2 )、文本框

13、 3( text3 )、文本框4 ( text4 )，和三个按钮：命令按钮1(command)、命令按钮 2 (command2、命令按钮3 (command-4组成。程序运行后，用户单击清除按钮，则清除文本框中显示的容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。2 设计程序。要求：从文本框Text1 中接收输入的数据，当单击确定按钮(command1)时，如果该数据满足条件：除以 3 余 2 ，除以 5 余3，除以7 余 4 ，则输出；否则将焦点定位在文本框Text1 中，选中其中的文本。3设计一个欢迎程序。该程序用户界面如图所示。要求程序运

14、行后，用户选中粗体复选框时，标签(Label1 )中的文字(欢迎您！)的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4任意输入3 个数，求大小排第二的那个数，写出程序代码。VB»期末复习参考答案一、填空题1 创建应用程序界面设置属性编写代码2 属性、 text3 Label TextBox4 Load 方法 Show 方法Hide 方法Unload 方法5 txtshow.text="GOOD WORK"6 Click() 、 frm1.show7 算术表达式字符串表达式关系表达式布尔表达式 日期表达式对象表

15、达式 运算符8 19 True False10 1211 . Sin(x) A 2 + Sqr(x A 2 - y A 2) / (2 * x)12 Dim A(1 To 5 ， -2 To 6) As String13 单击双击装载多 响应某个事件后所执行的程序代码cmd1 Click14完成某种特定的功能对象名 . 方法名 Form1.Show15 AutoSizeStretch16 FileCopy "c:command."， "d:command."二、单项选择题1 B2 C 3 C4 D 5 D 6 B7 B8 D9 D 10 C 11 D 1

16、2 A 13 C三、指出下列句中的错误，修改或者说明原因。1 int.sum 不正确。变量名中不能包括小数点。2 变量名的长度最长可达 255 个字符。3 3.6 ， 4因为 a 不是整型变量。4不正确。程序不可以改变字符的长度，这是VB 规定。5 不完全正确。 Variant 是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是 VB规定。6 False 。逻辑表达式计算结果。7 不正确。两个日期型数据相减，其结果是一个数值型数据。8不正确。静态变量为局部变量，只能在过程中声明。9正确。10 正确。11 正确。12不正确。该属性设为 Ture 时， Ima

17、ge 控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。四、读程序题，写出程序运行结果。1 程序运行后，单击窗体，输出结果为：11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 6 5 4 3 2 11 2 3 4 5 6 7 6 5 4 3 2 11 2 3 4 5 6 7 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 12 .程序运行后，单击按钮 Command1输出结果为：120。3.*4.aabb-30Falseaabb-30 False30+609030+60 905.11139五

18、、编程题1Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = "" Or b = "" Or c = "" ThenMsgBox &

19、quot; 成绩填写不完全！ ", vbCriticalElseText4.Text = (Val(a) + Val(b) + Val(c) / 3End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub2Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 ThenPrint xElseText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(

20、Text1.Text)End IfEnd Sub3Private Sub Check1_Click()If Check1.Value = 1 ThenLabel1.Font.Bold = TrueElseLabel1.Font.Bold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenLabel1.Font.Italic = TrueElseLabel1.Font.Italic = FalseEnd IfEnd SubPrivate Sub Command1_Click()Unload MeEnd Su

21、b4")")")a = Val(InputBox("输入第一个数：b = Val(InputBox("输入第二个数：c = Val(InputBox("输入第三个数：If a <b Thent =a: a= b:b = tIf a <c Thent =a: a= c:c = tIf b <c Thent =b: b= c:c = tMsgBox (" 求大小排第二的数是： " & b). 专业 . 专注 .VB期末考试试题A卷填空题1、VB程序设计的主要特点是(1)和 (2)。2、在 VB

22、中，最主要的两种对萩一(3)而 (4)。3、工程是构成应用程序文件的。4、方法是VB提供的一种 (6),用来完成一定的操作。5、浮点类型数据包括单精度型和 (7) _数据。6、事件是窗体或控件对象识别的 ( 8) 。7、可用窗体的 (9) _方法在窗体中显示文字。8、复选框控件Value属性指示复选框处于 (10)或禁止状态(暗淡的)中的某 一种。9、在VB中，修改窗体的(11)和 (12)属性值，可改变窗体的大小。10、双击工具箱中的控件图标，可在窗体的(13)出现一个尺寸为缺省值的控件。11、在MsgBox函数中，如果缺省title 参数，则使用 (14)作为消息框的标题。12、设 x=

23、34.58,语句 Print Format(x, “000.0 ”)的输出结果是(15)。13、在VB中，数值型变量的初值为(16) , Varant型变量的初值为(17),布尔型变量的初值为(18)。14、设置窗体的(19) 属性,可在窗体上显示图片。15、程序运行工程中，清除一MP图片框中的图片应使用语句(20)。二、选择题1、菜单控件只包括一个事件，即 (1),当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A、GotFocusB 、Load C 、Click D 、KeyDown2、滚动条控件(如图所示)的Max属性所设置的是(2)。A、滚动

24、框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量H滚动条控件无该属性3、SQL 语句 Select * Form student 中的 * 表示 £3) 。A所有记录B 、所有字段C 、所有表 D、都不对4、以下选项中，不属于标签的属性是(4)。A Enabled B 、Caption C 、Default D 、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是(5)A、Caption B 、Name C 、Text D 、Label.专业

25、.专注.所代表选项的选中状态，应当在属性窗口中改变的6、设置一个单选按钮 (OptionButton) 属性是 (6。A、Caption B、Name C 、Text D 、Value7、允许在菜单项的左边设置打勾标记, A、在标题项中输入&,然后打勾 C、在有效项中打勾下面哪种论述是正确的？ B 、在索引项中打勾D、在复选项中打勾.专业.专注.8、当执行以下过程时，在窗体上将显示 (8)Private Sub Command1_Click()Print "VB"Print "Hello!"Print "VB"End SubA

26、 VBHello!VBB、VBHello!VBC VBD、VBHello! VBHello!VB9、语句 Print "The answer is:"20/4-2的结果为(9)。A、The answer is 20/4-2B、The answer is 3C The answer is "20/4-2"D、非法语句10、下列哪个控件是容器控件(10)。A、Image B 、Picture C 、ComboBox D 、FileListBox 11、若要将窗体从存中卸载出去，其实现的方法是(11)。A.Show B.HideC.LoadD.UnLoad12

27、、以下选项中，不是 Visual Basic控件的是(12)。A.窗体 B.定时器 C.单选框D.命令按钮13、双击窗体中的对象后，Visual Basic将显示的窗口是(13)。A.代码窗口B .工具箱 C .项目(工程)窗口 D.属性窗口14、可决定窗体的左上角是否有控制菜单的属性是(14)。A.ControlBox B.MinButtonC.MaxButtonD.BorderStyle15、设有如下语句：Strl = InputBox ("输人"，""，"练习")从键盘上输人字符“示例”后，Strl的值是(15)。A . “输入

28、" B . " " C . “练习”D . “示例”16、窗体Form1的Name属性是Frm1,它的单击事件过程名是(16)A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click17、窗体的hide属性的含义是(17)。A.隐藏 B. 展现 C. 装入 D. 卸载 18、若要设置定时器控件的定时时间，需设置的属性是(18)。A. Enabled B . Value C. Interval D . Text19、能够改变复选框中背景颜色的属性是(19)。A . Value B . FontColor C . Ba

29、ckColor D . Font 20、窗体能响应的事件是(20)。A . ActiveForm B . Load C . Drive D . Change:、判断题(判断下列正确与否，正确的打，错误的打X。 )1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。4、通过改变属性窗口中的Name属性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。6、变量是指在程序运行过程中其

30、值可以改变的那些量，而值不能改变的是常量。7、已知 P= MsgBox( "Howareyou?" , VbYesNo+VbQuestion, “Hello!"),变量 P 是 Integer 数据类型。8、工程文件的扩展名是.vbg 。9、VB允许设计和使用用户自己设计的控件。10、 OptionButton 控件没有 DblCliek 事件。11、同一条记录中的各数据具有相同的类型。12、使用Data 控件可以直接显示数据库中的数据。13、 ImageList 是一个图像容器控件，可用作工具栏的图像库。14、当用户单击工具栏按钮时，将触发工具栏按钮的Butto

31、nClick 事件。15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除(真正删除)。16、如果列表框的ListConut 的属性为10，则列表框最后一项的ListIndex 值为10。17、要是某个命令按钮不起作用，应将该按钮的Enabeld 属性设置为 False 。18、使用数组定义语句：Dim D$( 10)，则数组D 中各元素的值为空。19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。四、读程序题，写出程序运行结果1 、 Private Sub Form_

32、Click()Static SUM As IntegerI = 1Do While I<=10SUM = SUM + II = I + 1Loop Print SUM End Sub运行程序，第一次单击窗体：第二次单击窗体：2、 Private Sub Form_Click() Print "*" Tab(6); 2, Tab(15); 5 PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub程序运行结果：五、编程题（一）窗体

33、中有图片框（Picturel）和计时器（TimeN）两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip （20分之一像素）。请填空：Private Sub Form_load（）（1） =loadPicture（"c:ball.ico ”）（2） .lnterval=200End SubPrivate Sub Timer1_Timer() Static x , y As Integer x=x+100 y=y+100Picturel.Move(3)End Sub(二)有一个单击按钮过程，其作用是产生50个60

34、100的随机数，统计其中被 6整除余2的个数，并将这些数输出。请填空：Private Sub Command1_Click() Dim x As Integer, N% Dim Counter As Integer TimerFor N=1 To 50X=Rnd()* (2) If (3)=2 ThenPrint xCounter= (4) (5) Next NPrint Counter End SubVB程序设计与应用参考答案一、填空题12345答案可视化设计事件驱动编程窗体（form ）控件集合题号678910答案特殊子程序双精度动作Print选中题号1112131415答案高度(Heig

35、ht )宽度(Width)中央工程134.6题号1617181920答案0空FalsePictureCls二、选择题12345答案CABCA题号678910答案DDABB题号1112131415答案DAAAD题号1617181920答案CACCB三、判断题12345678910答案XXXVXVVVVX11121314151617181920答案VXVVXXVXXV四、程序阅读题：（一）（1。分）1、552、110（二）、（10 分）* 2515 307516 3280五、编程题 （20分）（一） 1、Picture1.Picture2、 Timeh3、 x ,y（2345二）1、 Random

36、ize、Rnd（）*41+60、x Mod 6、 Counter +1End If 、单项选择题（共 10分）1 .在代码中引用一个控件时，应使用控件的（B）属性。D . Index卜面表达式（A）的值为“假”。.x > 0 AND y < 0.x+y > a+b AND NOT （y < b）A. Caption B . Name C . Text 2.设变量 x = 4 , y = -1 , a = 7 , b = -8, A . x+a <= b-yBC. a = b OR x>yD3.表达式Int（Rnd*71）+10 产生的随机整数围是（C ）。A

37、. （10, 80）B . （ 10, 81） C . 10, 80 D . 10, 814.函数Sgn（3.1416）的返回值是（C ）。A. -1 B . 0 C . 1 D .以上都不对5 . 67890属于（D ）类型数据。A .整型 B .单精度浮点数 C ,货币型 D .长整型6 .下列变量名中正确的是（D）。A. 3s B . Print C . Select My Name D . Select_17 .下列赋值语句(A )是有效的。A. sum = sum -sum B. x+2 = x + 2 C . x + y = sumD. last = y / 0D . Checkb

38、oxD）属性来实现。8 .以下的控件或方法具有输入和输出双重功能的为(B)。A. Print B . Textbox C . Optionbutton9 .若要获得列表框中被选中的列表项的容，可以通过访问（.专业.专注.A. Name B . Listindex CListCount DText10 .下列代码的运行结果为( B )。Private Sub command1_click()Dim m(10)For k = 1 To 10m(k) = 11 - kNext kx = 5Print m(2 + m(x)C .4 D . 5End SubA. 2 B . 3二、填空题(10分)1.写

39、出整数n能同时被13和17整除的Basic 表达 n Mod 13=0 And n Mod 17=02 .代码窗口中有两个下拉列表框：左侧是3 .写出在字符串" Visual Basic 6.0（对象）列表框，右侧是过程列表框。中截取"Visual ”的Basic表达式LEFT( "Visual Basic 6.0"，6)。4 .函数Len( "abcdef")的返回值是(6)。5 .设 a = 2 , b = 5 , c = -2 , d = 100 ,贝U a > b >= c AND a < b >= d

40、 的值为False三、将下列数学表达式转换为VB表达式。（6分）1, a2+2ab+b2 : aA2+2*a*b+bA22. 8exln10 : 8*exp(x)*log(10)3. 2sin(450)cos(450): 2*sin(3.1416/4)*cos(3.1416/4)6.在VB中，用户定义常量使用Const语句，声明变量使用 Dim语句。1 .在VB 6.0中，扩展名为.vbp的文件称为 A。A）工程文件B）窗体文件C）类模块文件D）标准模块文件2 .在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口 是 A 。A)代码窗口B)窗体设计窗口C)属性窗口

41、D)工程资源管理器窗口3 .设有变量定义语句Dim a%,则变量a的数据类型是 A。A)整型B)单精度类型C)双精度类型 D)字符串类型4 .下列表达式中，值为False的是 D。A) "AB"<"abc"B) "ABC" = UCase("abc")C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3)5 .函数 InStr("ABCDEF", "CD

42、") 的值是 BA) 2B) 3C) True6 .下列程序运行后，单击窗体，输出结果是 C 。Private Sub Form_Click()Dim a As Integer, b As Integer a = 3 b = 5Print a + b; a & bEnd SubA) 8 8B) 35 35C) 8 357 .下列程序运行后，单击窗体，输出结果是 B 。Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a- b : a = a - bPrint a; bEnd SubA) 4 3B) 7 3C) 3 7D

43、) CDEFD) 35 8D) 10 78.下面程序段所表示的数学关系式是CIf (a < b) ThenIf d = c Then x = 1ElseEnd IfA) xC) x1(a2(a1(a2(ab且c b且c b且c b)d) d) d)B) Y1(ab且cd)B) x2(ab且cd)1(ab且cd)D) x2(cd)C 。9.下列程序运行后，单击窗体，输出结果是Private Sub Form_Click()s = 0: k = 1Dos = s + k: k = k + 1Loop Until k <= 5Print sC) 1D) 0End SubA) 15B) 1

44、010 .下列程序段的输出结果是BFor k = 4 To 2 Step -2 m = kNext kPrint m; k;C) 2 1D) 0 0A) 2 2B) 2 011 .用下面的语句定义数组，则数组中的元素个数是d 个。Option Base 1Dim A(-1 To 2 , 5) As IntegerA) 5B) 10C) 15D) 2012 .下面程序段的输出结果是 C。Dim a(4) As Integer, s As IntegerFor k = 1 To 4a(k) = 2 * kNext kFor k = 1 To 4 Step 2s = s + a(k)Print s;

45、Next kA) 8B)20C) 2 8D)2 6 12 2013 .设有如下的用户自定义类型Private Type Stu name As String * 10 age As IntegerEnd Type则以下正确引用该类型成员的代码是B。A) S="zhang"B) Dim s As S = "zhang"C) Dim s As Type StuD) Dim s As T = "zhang" = "zhang"14 .用“B”关键字声明的变量称为

46、全局变量。A) PrivateB) PublicC) DimD) Staticabc,但显示的却是* ,可15 .在窗体上放置一个文本框，程序运行后，在文本框中输入能的原因是该文本框的 D 属性值已经被设置为"*"A) FontB) TextC) NameD) PasswordChar16 .在 VB 6.0中，Print 是对象的 B。A)属性B)方法C)事件D)名称17 .在VB 6.0中，要判断复选框是否为选中状态，使用的属性是 D。A) CaptionB) CheckedC) SelectedD) Value18.设列表框 List1中共有3个列表项，如右图所示。则

47、下列语句中，能够删除最后一个列表项的是上2SJ列表框A) List1.RemoveItem 2B) List1.RemoveItem " 项目 C"C) List1.RemoveItem List1. ListcountD) List1.RemoveItem List1. ListIndexA.lffCjujni 目19 .组合框分为下拉式组合框、简单组合框和下拉式列表框，在“属性”窗口中这三种类型是由A 属性设置的。A) StyleB) FillStyleC) BackStyleD) BorderStyleValue属性所增加D) LargeChange20 .用户单击滚

48、动条的空白处(滑块与两端滚动箭头之间的区域)时, 或减少的值，是由 D属性决定的。A) MinB) MaxC) SmallChange21 .将图片文件“ b.jpg ”作为背景图片，装入当前窗体，正确的语句是DA) Me.Picture=b.jpgB) Me.Picture= LoadPicture(b.jpg)C) Me.Picture="b.jpg"D) Me.Picture= LoadPicture("b.jpg")22 .要将两个单选按钮放置在同一个框架，使它们成为一组，正确的操作是AA)先放置一个框架，然后在框架中放置两个单选按钮B)先放置两

49、个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上C)先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架D)以上三种方法都正确23 .计时器控件能够响应的事件是D。A) LoadB) ClickC) ChangeD) Timer24 .要使命令按钮处于无效状态，可以设置按钮的B 属性值为False。A) CaptionB) EnabledC) StyleD) Visible25 .如果在一个工程中有多个窗体和模块，则VB默认的启动对象是 C。A)第一个标准模块B)最后一个被添加的窗体C)设计时的第一个窗体D)最后一个被添加的标准模块26 .在窗体上放置一个图像框，名称为 Im

50、agel。程序运行时，要保持图像框大小不变，使 框中的图片能够自动适应图像框的大小，可以执行语句B。A) Image1.AutoSize=TrueB) Image1.Stretch=TrueC) Image1.AutoSize=FalseD) Image1.Stretch=False27 .使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号 是 A 。A)减号-B)下划线_C) &D) #28 .要将窗体Forml从存中卸载，正确的语句是D 。A) Forml.ShowB) Load FormlC) Forml.HideD) UnLoad Forml29 .在窗

51、体上单击时，会触发鼠标事件MouseDown其事件过程的一般格式如下：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub此时，如果单击的是鼠标右键，则 Button参数的值是 B。A) 1B) 2C) 3D) 430 .获取文件的长度(字节数)，可以使用的函数是B。A) LEN( )B) LOF( )C) EOF( )D) LOG()1 .数学表达式 父3y改写为VB表达式，形式是 1。答案sqr(3*y)/(x+y)x y2 .在VB 6.0中，Inp

52、utBox函数返回值的数据类型是【2】。答案：字符串类型或String3 .语句Print Tab(5);"ABC"的功能是【3】。答案：从第5列开始输出字符串“ ABC4 .下面程序段的功能是：在文本框 Text1中输入一个数值 x,如果满足5Vx<10,那么输出 “Yes”，否则输出“ No”。请填空。x =Val(Text1.Text)答案 5 < x And x <10If【4】 Then Print "Yes" Else Print "No"5 .设 a=1,b=2,c=3 ,语句 Print a <

53、 b Or b < c And c < a的输出结果是【5】。答案：True6 .在窗体上放置一个标签，名称为 Label1 ,使用语句【6】可以把标签的前景色设置为蓝色。Label1.ForeC010r = vbBlue或 RGB(0,0,255)或 QBColor(9)7 .在窗体上放置一个图像框，名称为 Image1,要使该图像框向下移动 10个默认单位 (twip ),正确的语句是Image1.Top = J7 答案：Image1.Top +108 .使用“菜单编辑器”建立了一个主菜单，名称为 menul要把它作为窗体 Form1的快捷 菜单(也称为弹出式菜单)弹出，使用的

54、语句是：答案：PopupmenuForm1. _8_menu19 .在窗体上放置一个通用对话框控件，名称为 CommonDialog1。使用该控件建立"打开” 文件对话框时，要求只能显示文本文件(即扩展名为“ .txt ”的文件)，则正确的设置语句是 CommonDialog1. 【9=" 文本文件(*.txt)|*.txt"。 答案：Filter10 .设磁盘上已存在顺序文件“ a.txt ”，为了从文件中顺序读取数据而打开该文件，正确的语句是 Open "a.txt" For【10】 As #1 。 答案：Input1 .下列面程序运行后，单击窗体，输出结果是1。答案：1 3 9Private Sub Form_Click() s = 0For n=1 To 3p = 1For k = 1 To n p = p * kNext k s = s + pPrint s; Next nEnd Sub2 .下列程序运行后，单击窗体，输出结果是。答案：7Private Sub Form_Click() m = 0 For k = 1 To 4Select Case kCase 1,2m = m +