vb期末复习指导.docx.pdf

《vb期末复习指导.docx.pdf》由会员分享，可在线阅读，更多相关《vb期末复习指导.docx.pdf（72页珍藏版）》请在三一文库上搜索。

1、Visual Basic程序设计期末复习指导 I复习要求 第一章VB语言概述 1. 掌握VB程序设计的特点。 2. 理解可视化设计和事件驱动编程的概念。 第二章VB 6.0集成开发环境 1. 掌握窗体、工程窗口、属性窗口、代码编辑器窗口的功能与使用。 2. 掌握VB编程的基本步骤，会设计简单的VB程序。 3. 理解对彖、属性、事件和方法的概念及其Z间的关系。 4. 了解工貝箱中各种控件的功能与使用。 第三章程序设计基础 1. 了解VB屮定义的13种标准数据类型。 VB中定义了13种数据类型，它们是整型、长整型、单精度浮点型、双精度浮点型、货币型、 字节型、变长字符串、定长字符串、布尔型、tl期

2、型、对象型、可变类型（数值）、可变类型（字符）。 2. 掌握变量、常量的概念及其数据类型。掌握变量的命名规则，理解变量声明的含义。 变量的数据类型即为13种标准数据类型，常量的数据类型有字符串常量、数值常量、布尔常 量、日期常量。 3. 掌握数组（包括静态数组与动态数组）的概念与声明。 4. 理解记录类型（用户自定义类SD的定义。 5. 掌握各种运算符与表达式的含义和应用，掌握运算符的优先级。 运算符是用来对运算对象进行各种运算的的操作符号，而表达式是由多个运算对象和运算符组合在 一起的合法算式。在VB中冇4类运算符、5种类型的类表达式，即算术运算符和算术表达式、字符串运算 符和字符串表达式、

3、关系运算符和关系表达式、布尔运算符和布尔表达式、口期表达式。 6. 掌握赋值语句、注释语句、条件分之语句（If Then Else、If Then Endlf、Select Case ） 循环语句 （Do.LoopFor.Next For Each.Next While.Wend）的含义及书写格式。 7. 理解常见标准函数（交互式函数、类型转换函数、数学函数、H期和时间函数、字符串函数、目 录和文件函数）的用途。 第四章窗体与基本输入觀出 1. 掌握Print方法和与Print方法有关的Tab函数和Spc函数，InputBox函数、MsgBox 函数和语句 的使用方法。 2. 理解用Print

4、方法和InputBox、MsgBox函数编写的程序。 Print方法用于在窗体、图片框、打印机等对象屮显示文本字符串和表达式的值，语法为： 对象.JPrint expressionlit 对象可以是窗体、图片框、打印机等，如果省略，则在当前窗体上输出。例如： Picturel.prinf ,Visual Basic ，在图片框Picture 1 中显示：“Visual Basic“ PrinfVisual Basic , b and Not ca Or cb And c15 And 8 Let语彳U B、Rem语句C、Set语句D、Print语句 3. 下列符号不能作为VB中变量名的是（）。

5、A、abed pl234 C、89edf D xyz 4. 将焦点主动设置到指定的控件或窗体上，应采用的方法是（）。 5. 若要求从文木框中输入密码时在文木框屮只显示*号，则M用在此文木框的属性窗口 屮设置（）。 A、Text属性值为 * C、Password属性值为空 6. 表达式10+10Mod3*3的值为（ A、11 B、2 C、13 D、6 7. 冇如下程序段： Dim strl As String * 5 stri二”Visual Basic “ 当该段程序被执行完时，变量strl的值为（ A、“Visual ” B、nVisua H C 、”V ” 8. 数学式了 Sin25。写成

6、VB表达式是（）。 A、Sin25 B、Sin （25） C、SIN （25 ） 9. Sub过程与Function it程最根本的区别是（）。 A、Sub过程可以使用Call语句或直接使用过程名调用，而Function 程不町以。 B、Function H程可以有参数，Sub过程不可以。 A、SetDate B、SetFocus C SetText D、GetGate B、Caption属性值为 * D、Passwordchar 属性值为 * ）o )o D “ Visual Basic ” D、Sin (25*3.14/180) C、 两种过程参数的传递方式不同。 D、Sub过程的过程名不

7、能返冋值，而Function il程能够通过过程名返回值。 10. 要使文框显示滚动条，需先设置的属性 是（） C、Alignmcnt D Scrollbars 11. 下列对象不能响应Click事件的是（）。 A、列表框B、图片框C、窗体D、计时器 12. 在Visual Basic中，按文件的访问方式不同，可以将文件分为（）。 A、顺序文件、随机文件和二进制文件B、文木文件和数据文件 C、数据文件和可执行文件D、ASCII文件和二进制文件 13. 将通用对话框CommonDialog的类型设置成“颜色”对话框, 可调用该对话框的（ ） 方法。 A、ShowOpen B、ShowSave C

8、、ShowColor D、ShowFont 14. 在下列文件类型屮，不属于Visual Basic6.0工程文件类型的是（）。 A . dsw B、. cis C、. vbp D . frm 15. 多窗体程序由多个窗体组体组成，在缺省的情况下，VB在执行应用程序时，总是 将（）指定为启动窗口。 A、不包含任何控件的窗口B、包含控件最多的窗口 C、命名为Forml的窗体D、设计时的第一个窗体 三、指出下列句中的错误，修改或者说明原因。 1. Sum_l和Sum-l都可以作为VB的变量名。 2. 变量名的长度最长可达1024个字符。 3. 下列程序运行结果：3, 3 Option Explic

9、it Private Sub Commandl Click（） Dim a, b As Integer a = 3. 6 b = 3.6 Textl. Text = a Text2. Text = b End Sub 4. 所谓保存工程，是指保存正在编辑的工程的窗体。 5. Variant是一种特殊的数据类型，可以包含任何种类型的数据。 6. 下列程序运行结果为True Private Sub Commandl Click（） a = 1 b = 2 c = 3 Textl. Text = ca + bOrb-l c - 1 And c + a a Xor b 10 Then Print s

10、s = 0 End If Next i End Sub 2. Option Explicit Private Sub Command1 Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub For X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); *；Next Y Print Next X Private Sub Form_Activatc() Print ”aa” y End SubEnd

11、 Sub 写出程序运行时连续单击三次窗体后，Forml上的输出结果。 3. Private Sub Command 1 _Click() Dim s As Double Dim i As Integer s = 5 i= 1 Do While i ” Then rn Text 1.Text = 2 _ Else MsgBox “请在文本框小输入信息！” -3 End Sub Private Sub Command2_Click() Listl. Removeitem 4 _ End Sub Private Sub Command3_Click() Text2.Text =_ End Sub P

12、rivate Sub Command4 Click() Unload Me End Sub 函数图形程序。用Psct方法在图形fr： Picture 1内绘制y=Sinx在视到兀之间的图形。运行结果如 图8所示。 图8函数图形程序 程序如下，请补充完整：Private Sub Command 1 _Click() Picture 1.Scale (-4, 2)-(4, -2) Picture 1.Line (-4, 0)-(4, 0) -11 Picture l.CurrcntX = 0.2 Picture 1 .CurrentY = -0.1 L2J Picture 1 .CurrentX

13、= -3.2 Picture l.CuiTentY = -0.1 Picture 1.Print“- n ” Picture l.CurrcntX = 3.3 Picture 1 .CurrentY =?0 Picture 1.Print * n ” Picture l.CuiTentX = 0.2 Picture l.CuiTentY = 0.9 Picture 1.Print ”1” Picture 1 .CurrentX = 0.2 Picture 1.CurrentY = -0.8 Picture 1.Print ”?1” Fori = Picturel.PSct (41 Next i

14、 ，定义坐标系 画x轴 ，画y轴 设置原点横坐标 设置原点纵坐标 *标记原点 ，标记“1 ” 标记“?1” Step 0.001 End Sub Private Sub Command2_Click() T5 End Sub 五、编程题 编写一程序，要求单击 “开始”按钮(Command 1),在列表框(Listl)屮输Hl 200-300 Z 间不能被5整除的 数，单击清除按钮(Cominand2),清除文木框中的全部内容。程序运行结果如图所示。 注：其它类型的完善程序题和编程题，请参考上学期网上复习要点及练习。 期末综合练习题 ( 二) 答案 一、单项选择题 1. B 2? D 3. C

15、4. B 5. D 6. C 7. A 8. B 9. D 10. B 11. A 12. c 13. C 14. D 15. 0 16. A 17. B 18. D 19. D 20. C 21. D 22. B 23. A 24. B 25. B 26. C 27. B 28. A 29. B 30. C 31. c 32. A 33. D 二、填空题 1. 设计界面 2. F1 3. open*D:text.dat“ For Output As # 1 4. 5A(l/2)*sin(30*3.14/180), 或者Sqr *sin(30*3.14/180) 5. True 6. 本地计算

16、机的IP地址返回或设置远程计算机的名称 7. 右上 8. Connection 9. ActiveConnection 10. 木地数据库远程数据库 11. ADOrs Open“Select * From Table 1“ 12. 选择结构循环结构顺序结构 13.15000 14. 实时错误逻辑错误 15. Time 16. Circle(ScaleWidth/2,ScaleHeight/2),800 17. Name Index 18. DAO RDO ADO 19. 顺序文件随机文件二进制文件 20. Timer Interval ms 三、阅读程序题 1. 5 3 2. x = 2 y

17、=3 x = 2 y=6 x = 2 y=9 3. 29 4. 9 5. 5 7 9 6. 1 3 7. 20 10 10 20 四、完善程序题 1 List 1. Additem Text 1.Text 2 ” 3 End If 4 List 1. Listindex 5 List 1.ListCount 2. 1 Picture 1.Line (0, 2)-(0, -2) 2 Picture 1.Print ”0” 3 41 To 3.141 Step 0.001 4 i, Sin(i) 5 End 五、编程题 Private Sub Commandl_Click() Dim x As I

18、nteger X = 200 Do Until x 300 If x Mod 500 Then Listl. AddItem x End If X = X + 1 Loop End Sub Private Sub Command2_Click() Listl. Clear End Sub 二级VB试题 一、选择题 (4 ) ( 20 )每小题2分，(21 ) ( 30 )每小题3分，共30题，70分) 下列各题A)、B )、C )、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置 上，答在试卷上不得分。 (1 ) 以下不能在“工程资源管理器”窗口中列出的文件类型是 A )

19、 .bas B ) .res C ) .frm D ) .ocx (2)以下关于窗体的描述中，错误的是 A )执行Unload Forml语句后，窗体Forml消失，但仍在内存中 B )窗体的Load事件在加载窗体时发生 C )当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D )窗体的Height、Width属性用于设置窗体的髙和宽 (3 )下列可作为Visual Basic变量名的是 A ) A#A B ) 4A C ) ?xy D ) constA (4) 设有如下的记录类型 Type Student number As String name As Str

20、ing age As Integer End Type 则正确引用该记录类型变量的代码是 A ) Student.name =“张红“B ) Dim s As Student s.name = ”张红” C ) Dim s As Type Student D ) Dim s As Type s.name =“张红“s.name =“张红“ (5 )函数String ( n, “str“)的功能是 A) 把数值型数据转换为字符串 B) 返回由n个字符组成的字符串 C) 从字符串中取出n个字符 D) 从字符串中第n个字符的位置开始取子字符串 (6 )将数学表达式Cos2(a+b)+5e2写成Vis

21、ual Basic的表达式，其正确的形式是 A ) Cos (a+b) A2+5*exp(2) B ) CosA2(a+b)+ 5*exp(2) C ) Cos (a+b) A2+5*ln(2) D ) CosA2(a+b)+ 5*ln(2) (7 )在窗体上画一个命令按钮，名称为Commandlo单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$ = “software and hardware“ b$ = Right(a$, 8) c$ = Mid(a$, 1,8) MsgBox a$, , b$, c$, 1 End Sub 则在弹出的信息

22、框的标题栏中显示的信息是 A ) software and hardware B ) software C ) hardware D ) 1 (8)执行如下语句 : a = lnputBox(“Today H, tomorrow“, nYesterday“, , Day before yesterday“, 5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 A ) Today B ) Tomorrow C ) Yesterday D ) Day before yesterday (9)表示滚动条控件取值范围最大值的属性是 A ) Max B ) LargeChange C ) Val

23、ue D ) Max-Min (10 )在窗体上画一个名称为Listl的列表框，一个名称为Label 1的标签。列表框中显示若干城市的名称。 当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 A ) Private Sub List1_Click() B ) Private Sub List1_Click() Labell.Caption = Listl.Listindex Labell. Name = Listl. Listindex End Sub End Sub C ) Private Sub List1_Click() D ) Private S

24、ub List1_Click() Labell.Name = Listl.Text Labell.Caption = Listl.Text End Sub End Sub (11 )在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n = lnputBox( ,m ) For i = 1 T on Forj = 1 To i Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3,则在窗体上显示的内容是 A) 3B)4C)5D)6 (12 )以下关于菜单的叙述中

25、，错误的是 A) 在程序运行过程中可以增加或减少菜单项 B ) 如果把一个菜单项的Enabled属性设置为False ,则可删除该菜单项 C) 弹出式菜单在菜单编辑器中设计 D) 利用控件数组可以实现菜单项的增加或减少 (13 )在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参 数是 A ) Tag B ) Index C ) Listindex D ) Name (14 )在窗体上画一个命令按钮，名称为Commandl ,然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city

26、 As Variant city = Array(“北京” , ”上海” ,“ 天津“，”重庆”) Print city(1) 程序运行后 , 如果单击命令按钮 , 则在窗体上显示的内容是 A )空白B )错误提示C )北京D )上海 (15 )假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1) + s1 Next i Fun = s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub

27、 Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBoxf请输入一个字符串”) Str2 = Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串 nabcdefg,-,则单击”确定“按钮后在窗体上 的 输岀结果为 A ) abcdefg B ) ABCDEFG C ) gfedcba D ) GFEDCBA (16 )设有语句 Open “c:Test.Dat“ For Output As #1 则以下错误的叙述是 A )该语句打开C盘根目录下一个已存在

28、的文件Test.Dat B )该语句在C盘根目录下建立一个名为Test.Dat的文件 C)该语句建立的文件的文件号为1 D )执行该语句后，就可以通过Print #语句向文件Test.Dat中写入信息 (17 )以下叙述中错误的是 A )用Shell函数可以调用能够在Windows下运行的应用程序 B )用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数 C )调用Shell函数的格式应为 :v 变量名=Shell ( ) D )用Shell函数不能执行DOS命令 (18 )以下关于过程及过程参数的描述中，错误的是 A) 过程的参数可以是控件名称 B )用数组作为

29、过程的参数时，使用的是”传地址”方式 C) 只有函数过程能够将过程中处理的信息传回到调用的程序中 D) 窗体可以作为过程的参数 (19 )在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyascii as integer) 若焦点位于文本框中，则能够触发KeyPress事件的操作是 A）单击鼠标B）双击文本框 C）鼠标滑过文本框D）按下键盘上的某个键 （20 ）目录列表框的Path属性的作用是 A）显示当前驱动器或指定驱动器上的路径 B）显示当前驱动器或指定驱动器上的某目录下的文件名 C）显示根目录下的文件名 D）只显示当

30、前路径下的文件 （21 ）假定有如下事件过程： Private Sub Form_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single） If Button = 2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是 A）该过程的功能是弹岀一个菜单 B ） popForm是在菜单编辑器中定义的弹出式菜单的名称 （：）参数乂、丫指明鼠标的当前位置 D ） Button = 2表示按下的是鼠标左键 （22 ）以下能够正确计算n!的程序是 A ) Private S

31、ub Command1_Click() n = 5: x = 1 Do x = x * i i = i + 1 Loop While i n Print x End Sub (23 )在窗体上画一个名称为Command 1的命令按钮，再画两个名称分别为Label仁Label2的标签，然 后 编写如下程序代码： Private X As Integer Private Sub Command1_Click() X = 5: Y = 3 Call proc(X, Y) Labell.Caption = X Label2.Caption = Y End Sub Private Sub proc(By

32、Val a As Integer, ByVai b As Integer) X = a*a End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是 A ) 5 和3B)25 和3C)25 和6D)5 和6 (24 )在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过 程： Private Sub Command1_Click() s = 0 For i = 1 To 15 x = 2*i-1 If x Mod 3 = 0 Then s = s + 1 Next i Labell.Capti on = s End Sub 程序运行后，

33、单击命令按钮，则标签中显示的内容是 A ) 1 B ) 5 C ) 27 D ) 45 (25 )在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell. Label2、Label3的标签， 然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y+ z X = X + z Labell .Caption = x Label2.Caption = y Label3.Caption = z End

34、 Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是 A) 10 10 10 B ) 30 30300) 30 30 10 D) 10 30 30 (26 )设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程 : Private Sub Command1_Click() Static b As Variant b= Array(1,3,5,7,9) End Sub 此过程的功能是把数组b中的5个数逆序存放 (即排列为97,5,3,1 ) 。为实现此功能，省略号处的程序段应 该是 A ) For i = 0 To 5-1 2 tmp = b(i) b(i) =

35、 b(5-i-1) Next B ) For i = 0 To 5 tmp = b(i) b(i) = b(5 - i ?1) b(5 - i - 1) = tmp Next C ) For i = 0 To 5 2 tmp = b(i) b(i) = b(5 - i ?1) b(5 - i - 1) = tmp Next D ) For i = 1 To 5 2 tmp = b(i) b(i) = b(5 - i ?1) b(5 - i - 1) = tmp Next (27 )在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为Filel 的文件列表框

36、，两个名称分别为Labelk Label2 ,标题分别为空白和“共有文件“的标签。编写程序，使得 驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签LabeH中显示当前文件夹中 文件的数量。如图所示。 能够正确实现上述功能的程序是 A ) Private Sub Dir1_Change() B ) Private Sub Dir1_Change() Filel.Path = Dirl.Path Filel.Path = Dirl.Path End Sub End Sub Private Sub Drive1_Change() Private Sub Drive1_Change

37、() Dirl.Path = Drivel.Drive Dirl.Path = Drivel.Drive Labell.Caption = Filel.ListCount Labell.Caption = Filel.List End Sub End Sub C ) Private Sub Dir1_Change() D ) Private Sub Dir1_Change() Filel.Path = Dirl.Path Filel.Path = Dirl.Path Labell.Caption = Filel.ListCount Labell.Caption = Filel.List End

38、 Sub End Sub Private Sub Drive1_Change() Private Sub Drive1_Change() Dirl.Path = Drivel.Drive Dirl.Path = Drivel.Drive Labell.Caption = Filel.ListCount Labell.Caption = Filel.List End Sub End Sub Se： BRIDGE INSTALL. HTM READMEIUI. HTM HProgram Files REAIiMEDT. HTM READMERP. HTM READMESS. HTM READMEV

39、B. HTM READMEVC. HTM Microsoft Visual S L Common OMSDN OVB98 OVIntDev98 2d READMEVE. HTM READMEVF. HTM READMEVI. HTM 共有文件卩2 iii.Forml-Ini x| (28 ) 一个工程中包含两个名称分别为Fom1、Form2的窗体，一个名称为mdIFunc的标准模块。假定 在Form1. Form2和mdIFunc中分别建立了自定义过程，其定义格式为： Forml中定义的过程： Private Sub frmFunction1() End Sub Form2中定义的过程： Pu

40、blic Sub frmFunction2() End Sub mdIFunc中定义的过程： Public Sub mdlFunction() End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是 A)上述三个过程都可以在工程中的任何窗体或模块中被调用 B ) frmFunction2和mdIFunction过程能够在工程中各个窗体或模块中被调用 C)上述三个过程都只能在各自被定义的模块中调用 D )只有mdIFunction过程能够被工程中各个窗体或模块调用 (29 )窗体上有两个名称分别为Texts Text2的文本框，一个名称为Commandl的命令按

41、钮。运行后的 窗体外观如图所示。 设有如下的类型声明 Type Pers on name As String*8 major As String*20 End Type 当单击“保存“按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正 确 地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是 A ) Open “c:Test29.dat“ For Random As #1 Put#1, 1, p Close #1 B ) Open “c:Test29.dat“ For Random As #1 Get #1, 1, p Close #1

42、Test29.dat” For Random As #1 Len = Len(p) Put #1, 1, p Close #1 D ) Open ” Test29.dat” For Random As #1 Len = Len(p) Get#h h p Close #1 (30 )在窗体上画一个名称为CommonDialogl的通用对话框 . 一个名称为Commandl的命令按钮。要求单 击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“SaveFile ”， 在 “文件类型“栏中显示ttxt。则能够满足上述要求的程序是 A ) Private Sub Co

43、mmand 1 _Click() CommonDialogl .FileName = HSaveFile,f CommonDialogl.Filter = “All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc“ Comm on Dialogl.Filterindex = 2 CommonDialogl.DialogTitle = “Save， Com mon Dialogl. Action = 2 End Sub B ) Private Sub Command1_Click() CommonDialogl.FileName = ” SaveFile” Commo

44、nDialogl.Filter = “All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc“ CommonDialogl .Filterindex = 1 CommonDialogl.DialogTitle = “Save” Com mon Dialogl. Action = 2 End Sub C ) Private Sub Command1_Click() CommonDialogl .FileName = ” Save ” CommonDialogl.Filter = “All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc H

45、Com mon Dialogl.Filterindex = 2 CommonDialogl .DialogTitle = HSaveFileH Comm on Dialogl. Actio n 二2 End Sub D ) Private Sub Command 1 _Click() CommonDialogl .FileName = “SaveFile” CommonDialogl.Filter = “All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc“ Common Dialogl .Filterlndex = 1 CommonDialogl.DialogT

46、itle = ” Save， Com mon Dialogl. Action = 1 End Sub 二、填空题 (每空2分，共30分) 请将每空的正确答案写在答题卡【4】 15序号的横线上，答在试卷上不得分。 (1 ) Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是【1】。 (2 ) Visual Basic提供的对数据文件的三种访问方式为随机访问方式、2和二进制访问方式。 (3 )执行下面的程序段后，变量S的值为【3】。 S = 5 For i = 2.6 To 4.9 Step 0.6 Next i (4 )为了在运行时把d:pic文件夹下的图形文件a.jpg

47、装入图片框Picturel ,所使用的语句为【4】。 (5) 计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。 (6 )以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的 和。请填空。 Private Sub Command1_Click() For i = 1 To 20 x = lnt( 6 *200 + 100) If 7 =0The n Print x S = S+ 8 End If Next i Print “Sum = S End Sub (7) 设有如下程序 Private Sub Form_Click()

48、 Dim a As In teger, b As In teg er a = 20: b = 50 p1 a, b p2 a, b p3 a, b Print na=H; a, ”b=“; b End Sub Sub p1(x As Integer, ByVai y As Integer) x = x + 10 y = y + 20 End Sub Sub p2(ByVal x As Integer, y As Integer) x = x + 10 y = y + 20 End Sub Sub p3(ByVal x As Integer, ByVai y As Integer) x = x

49、+ 10 y = y + 20 End Sub 该程序运行后单击窗体则在窗体上显示的内容是：a二9和b二10 o (8 )在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程 Private Sub Command1_Click() Dim a As String a= 11 For i = 1 To 5 Print Space(6 - i); Mid$(a, 6-i,2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。 (9 )在窗体上画一个名称为Combol的组合框，画两个名称分别Labell和Label2及Caption属性分别为” 城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13 )时， 如 果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给岀提示“已成功 添加输入项”