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

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Picture1.FillStyle <> 0 Then Picture1.FillStyle = 0 Else

Picture1.FillStyle = 1 End If

Picture1.Line(x0, y0) - (X, Y), RGB(255, 255, 0), B End Sub 五、程序填空题

1．【程序说明】选择形状、边框后，图片框中控件Shape1作相应变化。界面设计如图10-8所示。

图10-8 程序填空题1的界面设计

Private Sub Combo1_Click()

Shape1.Shape = Combo1.List( （1） ) End Sub

Private Sub Combo2_Click()

（2） = Combo2.List(Combo2.ListIndex) End Sub

Private Sub Form_Load() Dim i As Integer

For i = 0 To 5: Combo1.AddItem Str(i): Next i For i = 0 To 6: （3） : Next i End Sub

2．【程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮，命令按钮上显示文字“上一张”和“下一张”。

运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片，“上一张”按钮能响应。显示到最后一张图片时，“下一张”按钮不能响应。（假设在C:\\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片）

Dim n As Byte

Private Sub Command1_Click()

If n < 8 Then Command2.Enabled = True n = n - 1 （1）

If n < = 1 Then Command1.Enabled = （2） : n = 1 End Sub

Private Sub Command2_Click() （3）

If n> = 1 Then Command1.Enabled = True Call pic

If n = 8 Then Command2.Enabled = False End Sub

Private Sub Form_Load()

n=1: Command1.Enabled = False: Image1.Picture = （4） End Sub Sub pic()

Dim fn As String

fn = \ Image1.Picture= （5） End Sub 六、程序设计题

1．编程，在图片框中画一个以两点为对角的矩形（图片框中以像素为刻度单位，两点坐标用InputBox函数输入）。

2．编程，以毫米为刻度单位、以窗体中心点为坐标原点，以窗体的高与宽中最小值的1/3为半径画一个圆（轮廓线为黄色、线粗2mm，蓝色填充）。

3．编程，以缇为窗体刻度的初值、窗体中心点为坐标原点，在列表框中选取刻度的其他单位的同时画一个半径为50的圆，观察圆的大小的变化。

第7章 对话框与菜单程序设计

习 题

一、判断题

1．用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。

2．通用对话框的Filename属性返回的是一个输入或选取的文件名字符串。

3．在设计Windows应用程序时，用户可以使用系统本身提供的某些对话框，这些对话框可以直接从系统调入而不必由用户用“自定义”的方式进行设计。

4．在窗体上绘制CommonDialog控件时，控件的大小、位置可由用户自己加以设定。 5．在消息框（MsgBox）中，“Prompt”（消息）是必选项，最大长度为64个字符。 6．如果创建的菜单的标题是一个减号“-”，则该菜单显示为一个分隔线，此菜单项也可以识别单击事件。

7．菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。 8．当一个菜单项不可见时，其后的菜单项就会往上填充留下来的空位。 9．CommonDialog控件就像Timer控件一样，在运行时是看不见的。 10．设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字。 二、选择题

1．通常用 方法来显示“自定义”对话框。 A、Load A、ShowOpen A、Filter A、Hide A、Hide A、Action A、字符串 A、Caption

B、Unload C、Hide D、Show B、ShowColor C、ShowFont D、ShowSave B、Font C、Action D、FileName B、Visible C、Enabled D、Checked B、Visible C、Enabled D、Checked B、FilterIndex

C、Font D、Filter

2．将CommonDialog通用对话框以“打开文件对话框”方式打开，可选 方法。 3．将通用对话框类型设置为“另存为”对话框，应修改 属性。 4．用户可以通过设置菜单项的 属性值为False来使该菜单项失效。 5．用户可以通过设置菜单项的 属性值为False来使该菜单项不可见。 6．通用对话框可以通过对 属性的设定来过滤文件类型。 7．输入对话框（InputBox）的返回值的类型是 。

B、浮点数 C、整数 D、长整数 B、Name C、Index D、ShortCut

8．菜单编辑器中，同层次的 设置为相同，才可以设置索引值。 9．每创建一个菜单，它的下面最多可以有 级子菜单。

A、1 A、名称栏 三、填空题

B、3 C、5 D、6 B、标题栏 C、索引栏 D、显示区

10．在设计菜单时，为了创建分隔栏，要在 中输入单连字符（-）。

1．Windows环境下的菜单一般有 、 和 3种基本类型。 2．将通用对话框的类型设置为“字体”对话框可以使用 方法。

3．通用对话框控件可显示的常用对话框有： 、 、 、 和 。 4．如果工具箱中还没有CommonDialog控件，则应从 菜单中选定 ，并将控件添加到工具箱中。

5．将控件CommonDialog1设置为“颜色”对话框，可使用 或 。

6．在使用消息框时，要给MsgBox函数提供3个参数，它们是 、 和 。 7．菜单项可以响应的事件过程为 。

8．在设计菜单时，可在Visual Basic主窗口的菜单栏中选择 ，单击后从它的下拉菜单中选择“菜单编辑器”菜单项。

9．设计时，在Visual Basic主窗口上只要选取一个没有子菜单的菜单项，就会打开 ，并产生一个与这一菜单项相关的 事件过程。

10．设置菜单时，同一层的Name属性设置为 ，才可设置索引值，且索引值应设置为 的连续整数，但不一定从0开始。

四、程序阅读题

程序1. 请写出输入m为60、n为55时消息框中的输出结果。

Dim m As Integer, nmin As Integer,n As Integer, na As Integer Private Sub Form_click()

m = InputBox(\ n = InputBox(\ nmin = m

If n < nmin Then nmin = m: m = n: n = nmin For na = nmin To 1 Step -1

If n Mod na = 0 And m Mod na = 0 Then s = 1 : Exit For Next na

If s = 1 Then p = MsgBox(na, 0, \的输出结果\End Sub

程序2. 请写出在鼠标右击后出现的弹出菜单中点击菜单第一项后的显示结果。 Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuPopup, 10 End Sub

'mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名