《Visual Basic程序设计基础》习题 vb

Private Sub mnuChoice1_Click()

m = MsgBox(\您选择了第一项\第一项\End Sub

Private Sub mnuChoice2_Click()

m = MsgBox(\您选择了第二项\第二项\End Sub

Private Sub mnuChoice3_Click()

m = MsgBox(\您选择了第三项\第三项\End Sub 五、程序填空题

1．【程序说明】以下是一个简化了的猜数游戏程序，自动生成一个小于100的随机正整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束。

单击窗体则开始猜数，如要终止Visual Basic程序运行可以按Ctrl+Break组合键。 Private Sub Form_Click()

Dim r As Integer, x As Integer, i As Integer Randomize : r = （1） For i = 1 To 10

x = Val(InputBox(\请输入一个整数：\

If x < r Then m = MsgBox(\太小了，请继续猜！\ If x > r Then m = MsgBox(\太大了，请继续猜！\ If x = r Then

Print \猜中了！共猜了\（2） + \次\

If i <= 5 Then Print \太棒了！\加油！\ （3） End If Next i End Sub

2．【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”、“颜色”、“字体”和“清空”操作。m1为不可见菜单项，m11为其子菜单（共5项，均同名，索引值依次为0，1，2，3，4）。

Private Sub Form_Load()

Timer1.Enabled = False '锁定定时器（时间间隔已设置为1秒） End Sub

Private Sub m11_Click(Index As Integer) Select Case Index

Case 0 : Timer1.Enabled = True Case 1

Timer1.Enabled = （1） : Text1.Text= \日期：\（2）

Case 2

CommonDialog1.Action = 3 : Text1.ForeColor = （3） Case 3

CommonDialog1.Flags = 256 '选择字体范围，否则出现运行错误 CommonDialog1.Action = 4 '打开“字体”对话框

Text1.FontBold = CommonDialog1.FontBold '用修改后的属性设置 Text1.FontItalic = CommonDialog1.FontItalic '文本框相应属性 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Case 4: Text1.Text = \ End Select End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single)

If Button = 2 Then （4） , 2 End Sub

Private Sub Timer1_Timer() Text1.Text = \时间：\End Sub 六、程序设计题

1．编制Command1的Click事件过程：调用“打开文件对话框”（通过控件CommonDialog1）选择文件，将所选的文件名追加到列表框控件List1中。

2．编制Command1的Click事件过程：调用“另存为对话框”（通过控件CommonDialog1）选择文件，将所选的文件名追加到列表框控件List1中。

3．设计一个如图10-9所示的菜单，各菜单项的属性设置如表10-2所示。要求所有图形用一个形状控件（Shape1）来实现，填充颜色用“颜色”对话框（CommonDialog1）来实现。

图10-9 程序设计题3的界面设计

表10-2 程序3的各级菜单设置

菜单名称 Picture Sqr Rec Oval Circle Rrec RSqr 菜单分类 主菜单1 一级子菜单 一级子菜单 一级子菜单 一级子菜单 一级子菜单 一级子菜单 菜单标题 基本图形(&P) 正方形 长方形 椭 圆 圆 圆角长方形 圆角正方形 菜单名称 FillStyle ShP ShZh XieX ShPJ XJ FillColor Exit 菜单分类 主菜单2 一级子菜单 一级子菜单 一级子菜单 一级子菜单 一级子菜单 主菜单3 主菜单4 菜单标题 填充方式(&T) 水平线 竖直线 斜 线 水平交叉 斜交叉 填充颜色(&C) 退出(&E)

第8章 文 件

习 题

一、判断题

1．运行时盘驱动器的List属性可以用AddItem和RemoveItem两种方法来改变。

2．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path=Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随同驱动器作相应变化。

3．选中文件列表框File1中某个选项时，File1.FileName属性值为所选文件的全名。 4．目录列表框的Path属性，只能用程序代码设置，不能通过属性窗口设置。

5．在程序运行中，目录列表框DirListBox将以树形展开方式显示某个盘或目录内的各个子目录名，并用是否为打开的文件夹图标来表示选定的目录。

6．由于列表项的内容是由系统自动产生的，因而在运行时，用户不能人为地用代码来改变目录列表框中List属性的值。

7．若要新建一个磁盘上的顺序文件，可用OUTPUT、APPEND方式打开文件。

8．若某文件已存在，用OUTPUT方式打开该文件，等同于用APPEND方式打开该文件。 9．用Kill语句删除文件，只能删除与指定文件名完全匹配的一个文件。

10．Open语句中的文件号，必须是当前未被使用的、最小的作为文件号的整数值。 11．文件列表框与盘驱动器列表框、目录列表框一样，都能响应Change事件。 12．可以用AddItem方法向目录列表框中加入新表项。

13．文件操作语句Name不仅可以修改文件名称，而且可以移动文件的位置。 14．文件以INPUT模式打开后可以往文件中写入数据。

15．用OUTPUT模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。

二、选择题

1．设定文件列表框中所显示的文件类型，应修改该控件的 属性。 A、Pattern B、Path C、FileName D、Name 2． 函数用来获取已打开文件的长度。 A、Len A、Show

B、FileLen C、LOF D、LOE B、Shell

C、Input D、Open B、FileCopy \D、FileCopy \ \B、Name \D、Name d:\\gc.dat As gc.txt B、234 -34.56 \D、\ hello01-08-03\B、\D、234 -34.56 hello 2001-08-03

3．下列 方法或函数可以调用外部的可执行文件。 4．下列文件复制操作的语句中，格式正确的是 。 A、FileCopy d:\\gc.dat c:\\a.txt C、FileCopy \

5．下列文件操作的语句中，格式正确的是 。 A、Name \ C、Name \

6．执行语句“Print #1, 234; -34.56, \”后，相应的文件内被写入 。 A、234,-34.56,hello,01-08-03 C、234 -34.56 hello01-08-03 A、234,-34.56,hello,2001-08-03 C、234,-34.56,\

7．执行语句“Write #1, 234; -34.56, \”后，相应文件内被写入 。

8．执行语句Input #1,k,s,a,d1后，再执行语句Print k;s;a;d1 (k、s、a、d1分别是整型、Single、字符串、Date类型，文件中相应字符为“234,-34.56,\”)，输出结果为 。

A、234,-34.56,hello,2001-08-03 C、234,-34.56,\ A、常规文件 A、单击某表项

B、234 -34.56 hello2001-08-03 D、234 -34.56 hello#2001-08-03#

9．函数GetAttr(\值为2，表示该文件是 。

B、只读文件 C、隐藏文件 D、系统文件

B、双击某表项 C、右击某表项 D、单击某表项再按回车键 B、random C、output

D、input

10． 可以改变目录列表框的Path属性。 11． 方式打开的文件只能读不能写。 A、append 有 。

A、指定打开方式

B、指定文件号 C、指定文件名 D、指定打开类型

12．语句“open c:\\dat.txt for output”用于打开一个顺序文件，该语句的一个重要错误是没

三、填空题

1． 语句可以改变文件操作的当前目录。

2．检测未打开的文件总的字节数，可以用 函数。

3．选择了一个新的目录路径后，为了及时更新文件列表框的显示，可选用目录列表框的 事件来驱动。

4．文件的当前读写位置是否到达文件末尾，应用 函数。