VB综合练习一.doc

《VB综合练习一.doc》由会员分享，可在线阅读，更多相关《VB综合练习一.doc（6页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、Visual Basic程序设计综合练习（一）一、填空 1. VB 6.0是运行于Windows 9x/NT 操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即 可视化设 和事件驱动编程 。2. 在VB 6.0中，变量名最长可达 255 个字符。3. VB 6.0的基本表达式包括算术表达式、 关系表达式和逻辑 表达式。4. 静态数组是指 数组元素个数固定不变的数组。5. 在VB中，若要求在模块中强制显式地指定变量的数据类型，应当在模块首部的申明部分使用 Option Explicit语句。6. 在VB中，若要使一个文本框（Text）中的内容在超过文本框的宽度时能

2、够自动换行显示，应当将这个文本框的mutiLine 属性的值设置为 True。7. 在VB中，若要将字符串“12345”转换成数字值应使用的类型转换函数是VAL 。二、选择题 1. 设使用隐式类型说明，以下关于变量的类型说明符的使用中，唯一正确的是 C 。 A. Dim a% : a%=90000 B. Dim a : a=2000%C. Dim a& : a&=90000D. Dim a% : a%=”true”2. 在VB中，若要改变一个标签（Label）上显示的内容，应当在属性窗口中改变这个标签的 . D 属性的值。 A. Text B. List C.Name D. Caption3.

3、 在VB中，运算 ”123”+12 的结果是 B 。A. “12312”B. 135 C. ”12132” D. 出错4. 在VB中，工程文件的扩展名是 B 。A. .vgb B. .vbp C. .vbw D. .vbl5. 以下选项中，不属于文本框（Text）的属性是 D 。A. Enabled B. Visible C.Name D. Caption 6. 下列控件中可自动设置滚动条是 C 。A. 复选框 B. 框架 C. 文本框 D. 标签框 7. 以下 . A 是执行程序段Print x=; 25.6; y=; -90.2Print Spc(3); z=; Tab(10); abcd

4、的正确的结果。A.B. C. D. 8. 以下关于VB菜单编辑器中“索引”项的叙述中，错误的是 . A 。A.“索引”确定了菜单项显示的顺序。B.“索引”是控件数组的下标。 C. 使用“索引”时，可有一组菜单项具有相同的“名字”。 D. 使用“索引”后，在单击菜单项的事件过程中可以通过“索引”引用菜单项。9. 使用下列 C 语句可以对文件进行改名操作。A. Shell B. FileCopy C.Name D. RmDir 10. 以下关于VB列表框的叙述中，除 A 外均是正确的。A. 可通过属性“Item”，返回列表框中的项目。B. 可通过属性“Text”，返回列表框中的已选项目。C. 可通

5、过属性“ListIndex”返回列表框中的已选项目。D. 可通过属性“ListCount”返回列表框中项目的数目。 三、读程序题 1. 设在一个窗体模块中已设计有如下过程，请写出运行的结果。Option ExplicitDim ThisArray( ) As IntegerPrivate Sub Command1_Click( ) Dim tt As Integer Dim ss As Integer Dim ii As Integer For ii = 1 To Len(Text1.Text) If Mid(Text1.Text, ii, 1) 9 Then MsgBox (错误！) End

6、 If Next ii tt = Val(Text1) Call MyPro(tt, ss) Text2.Text = tt Text3.Text = ssEnd SubPrivate Sub Form_Load() ReDim ThisArray(5) Dim ii As Integer For ii = 1 To 5ThisArray(ii) = ii Next ii Text1.Text = End SubPrivate Sub MyPro(ByVal T1 As Integer, T2 As Integer) Dim ii As Integer If T1 UBound(ThisArr

7、ay) Then ReDim Preserve ThisArray(T1) For ii = 6 To T1 ThisArray(ii) = ii Next ii T2 = 1 For ii = T1 To 2 Step -1 T2 = T2 + ThisArray(ii) Next ii T1 = T2 Else T1 = 1 End IfEnd Sub1. 在点击命令按钮时，若用户在Text1文本框中输入的不是数串，则显示出错停息；否则点击命令按钮后，若用户在Text1文本框中输入的数大于 5（设为X），则在文本框Text2中显示X，在文本框Text3中 显示1至X的和；否则（即若用户在T

8、ext1中输入的数小于或等于5），在文本框Text2中显示X，在文本框Text3中 显示 0。2. 设有下列程序，请指出单击命令按钮Comd1后程序完成的功能：Private Sub Comd1_Click( ) Dim X As Integer Dim Y As Integer Dim R As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2 For R= 100 To 500 step 50 Pic1.Circle (X, Y), R, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Next I

9、SavePicture Pic1.Image, MYPIC.BMPEnd Sub 2. 在图片框Pic1中以其中心为圆心，分别以100，150，200，500为半径绘制同心圆，然后将绘制的图形以文件名“MYPIC.BMP”存入磁盘。3. 设在一个窗体中已设计了一个组合框Combo1，且有下列程序，请指出其功能。Dim ss As StringPrivate Sub Combo1_Click() ss = ss & Combo1.Text & ; Text1 = ssEnd SubPrivate Sub Form_Load() ss = Combo1.AddItem 386 Combo1.Add

10、Item 486 Combo1.AddItem 586 Combo1.AddItem Pentium Combo1.AddItem Pentium II Combo1.AddItem Pentium III Combo1.AddItem Pentium IV Combo1.Text = Pentium IVEnd Sub3. 将用户在组合框Combo1中选择的项目连接在一起，在文本框Text1中显示，各个项目之间用分号分隔。 四、编程题 1. 若命令按钮名为CmdE，要求单击该按钮时，将标签LabA上的文字改变为“Test”，将焦点改变到文本框TxtA上。请补充下列事件代码中的空白处，以实现这

11、一要求。 Private Sub CmdE_ 1. Click ( ) LabA. Caption=”Test” TxtA.SetFocus End Sub 2. 窗体中有若干控件，单击其中的一个按钮cmdput时，执行如下的事件过程，该过程的功能是把数据输出到指定的文件中。请补充程序中的空白处。 Private Sub cmdput_click( )Dim stu As studentDiim II As Integer Open “d:student.dat” For Random As #1 Len=Len（. stu ） Title$=”写文件” Strl$=”请输入学生号：” Str

12、2$=”请输入学生名：” For II=1 To 10 Stu.number=InputBox（Str1$，Title$） Stu.name=InputBox$（Str2$，Title$） put #1，II，stu Next II Close #1 End Sub 3. 设计一个显示欢迎信息的窗体。要求程序运行后，在窗体上的标签LabA中显示“欢迎您！”（如图），若用户选中单选钮OpA“粗体”时，LabA中以粗体显示文本；用户选中单选钮OpB“正常”时，标签框LabA不再以粗体显示文本。按命令按钮ComA“结束”时，程序终止。3. 四个过程如下：Private Sub Form_Load(

13、) LabA.Caption = 欢迎您！End SubPrivate Sub ComA_Click( ) EndEnd SubPrivate Sub OpA_Click( ) LabA.Font.Bold = TrueEnd SubPrivate Sub OpB_Click( ) LabA.Font.Bold = FalseEnd Sub1要在窗体Form1内显示“myfrm”，使用的语句是（ ）。AForm.caption=myfrm BForm1.caption=myfrmCForm1.print myfrm DForm. print myfrm 答案：C2要在窗体的标题内显示“myfr

14、m”,使用的语句是（ ）。AForm1.Printmyfrm BForm.Printmyfrm CForm.caption=myfrm DForm1.caption=myfrm答案：D编程题（编程题分数根据难易程度不同而不同，具体见各次考核内容说明）举例如下：利用文件系统控件编写一个Word文件查找显示程序，程序运行界面如图3-2 所示。要求：（1）在文件列表框中只显示后缀为.doc的文件。（2）新创建一个标准工程，并通常“工程部件”菜单项引入“Microsoft Rich TextBox Control 6.0”，将RichTextBox控件添加到工具箱中，用这个控件显示RTF格式的Word

15、文件。（3）单击打开按钮，在文本框中显示RTF格式的Word文件。注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk3-02.vbp，窗体文件名为vbxk3-02.frm，包文件夹名为vbxk3-02。 图3-2 Word文件显示程序界面程序代码如下：Private Sub Command1_Click() Dim wdApp As New Word.Application Dim wdDoc As Word.Document Dim strFileName As String wdApp.Visible = False strFileName = File1.Path + + File1.FileName Set wdDoc = wdApp.Documents.Open(strFileName) wdDoc.SaveAs C:临时文件.rtf, 6 wdDoc.Close wdApp.Quit RichTextBox1.FileName = C:临时文件.rtf Kill c:临时文件.rtf End SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd Sub