vb习题及部分答案

1.在名称为Form1的窗体上画一个名称为

Command1、标题为“保存文件”的命令按钮，再画一

个名称为CommonDialog1的通用对话框。要求：

1）通过属性窗口设置适当的属性，使得运行

时对话框的标题为“保存文件”，且默认文件名为out2；

2）运行时单击“保存文件”命令按钮，则以

“保存对话框”方式打开该通用对话框，如图所示。

注意：要求程序中不能使用变量，每个事件过程中

只能写一条语句。

保存时必须存放在考生文件夹下，工程文件

名为sjt2.vbp，窗体文件名为sjt2.frm。

Private Sub Command1_Click()

CommonDialog1.Action = 1

End Sub

2.在名称为Form1的窗体上画一个名称为command1的命令

按钮，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，

名称为menu，包含两个子菜单项，一个是“显示命令按钮”，名

称为subMenu1；另一个是“隐藏命令按钮”，名称为subMenu2，

如图所示。编写适当的事件过程，使得程序运行时，如果选择“显

示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐

藏命令按钮”菜单命令，则隐藏命令按钮控件。

Private Sub subMenu1_Click()

Command1.Visible = True

End Sub

Private Sub subMenu2_Click()

Command1.Visible = False

End Sub

3.在考生文件夹下有一个工程文件sjt

4.vbp，含有

Form1和Form2两个窗体，Form1为启动窗体。

两个窗体上的控件如图1所示。程序运行后，在

Form1窗体的文本框中输入有关信息（‘密码’框

中显示‘*’字符），然后单击‘提交’按钮则弹出

‘确认’对话框（即Form2窗体），并在对话框中

显示输入的信息，如图2所示。单击‘确认’按钮

则程序结束，单击‘重输’按钮，则对话框消失，

回到Form1窗体。在给出的窗体文件中已经给出了

程序，但不完整。要求：1）把Form1的标题改为‘注册’，把Form2的标题改为‘确认’；2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）；

3）去掉程序中的注释符，把程序中的？改为正确的内容。

窗体

1Private Sub Command1_Click()

a = Text1.Text

b = Text2.Text

n = Text3.Text

If Option1.Value = True Then sex = "男"

If Option2.Value = True Then sex = "女"

Form2.Show

Form2.Print "用户民："; a

Form2.Print "密码："; b

Form2.Print "姓名："; n

Form2.Print "性别："; sex

End Sub

Public a As String, b As String, n As String

Public sex As String

在模块中：

Public a As String, b As String, n As String

Public sex As String（全局变量）

在窗体2中：

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

form1.Show

form1.Text1.Text = ""

form1.Text2.Text = ""

form1.Text3.Text = ""

End Sub

4.在名称为Form1的窗体上画一个名称为Text1的文本框，再

建立一个名称为Format的弹出式菜单，含三个菜单项，标题分

别为‘加粗’、‘斜体’、‘下划线’，名称分别为M1、M2、M3。

请编写适当的事件过程，在运行时当用鼠标右键单击文本框

时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述

的操作，如图所示。Private Sub M1_Click()

Text1.FontBold = True

End Sub

Private Sub M2_Click()

Text1.FontItalic = True

End Sub

Private Sub M3_Click()

Text1.FontUnderline = True

End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Text1.Enabled = False: Text1.Enabled = True: PopupMenu Format End Sub

5.在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分

程序。程序运行时，在文本框Text1中输入一个大于2

的偶数，并单击"分解为"命令按钮，则可以将该偶数

分解为两个素数之和，且要求其中一个素数是所能够

分解出的最小的素数(一个偶数有时可以分解为多种

素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合，如图所示)。要求编写"分解为"命令按钮事件过程中"考生编写程序开始"和"考生编写程序结束"之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。Private Sub Command1_Click()

Dim a As Integer, i As Integer, j As Integer

a = Val(Text1.Text)

For i = 2 To a - 1

For j = 2 To i - 1

If i Mod j = 0 Then

Exit For

End If

m = a - i

For n = 2 To m - 1

If m Mod n = 0 Then

Exit For

End If

Next n

If n > m - 1 Then

k = 1

End If

Next j

If k = 1 Then

Exit For

End If

Next i

Label1.Caption = i

Label3.Caption = m

End Sub

6.在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮。请画二个标签，名称分别为Label1和Label2，标题分别为

“出现次数最多的字母是”和“它出现的次数为”；再画二

个名称分别为Text1和Text2，初始值为空的文本框，如图

所示。程序功能如下：

1）单击“读数据”按钮，则将考生文件夹下in5.dat文件

的内容读到变量s中（此过程已给出）；

2）单击“统计”按钮，则自动统计in5.dat文件中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text1文本框，它所出现的次数显示在Text2文本框内

7. “读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。在考生文件夹下有一个工程文件sjt5.vbp，其功能是：

1）单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；

2）单击“分组”按钮，则将数组a中所有3的倍数的元素存入

数组b中，并对数组b中的元素从小到大排序后显示在文本

框Text2中。

在给出的窗体文件中已经有了全部控件（如图所示），但程序不完整。

要求：编写适当的程序部分使其实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程

序运行之前，必须先执行“分组”操作，然后再用窗体右上角的关

闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

Option Base 1

Dim a(100) As Integer, num As Integer

Private Sub Command1_Click()

Dim k As Integer

Open App.Path & "\in5.dat" For Input As #1

For k = 1 To 100

Input #1, a(k)

Text1 = Text1 + Str(a(k)) + Space(1)

Next k

Close #1

End Sub

Private Sub Command2_Click()

Dim b(100) As Integer

num = 0

If Len(Text1.Text) = 0 Then

MsgBox "请先执行“读数据”功能！" For i = 1 To 100

Next i

Else

'考生编写(功能：生成b 数组，且按从小到大顺序排序)

'注意：请务必将数组b 的元素个数存入变量num 中

***** 请考生编写程序*****

For i = 1 To 100

If a(i) Mod 3 = 0 Then

num = num + 1

b(num) = a(i)

End If

Next i

For j = 1 To num

For k = j + 1 To num

If b(j) > b(k) Then

t = b(j)

b(j) = b(k)

b(k) = t

End If

Next k

Next j

***** 编写程序结束*****

'以下程序段将已排序的b 数组显示在Text2中

For i = 1 To num

Text2.Text = Text2.Text + Str(b(i)) + Space(2)

Next i

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out5.dat" For Output As #1

Print #1, Text2.Text

Close #1

End Sub

8.考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框Text1，2个标题分别是“读数据”和“计算”的命令按钮；请画1个标题为“各行最小数的平均值为”的标签Label2，再画1个初始内容为空的文本框Text2，如图所示。

程序功能如下：

1）单击“读数据”按钮，则将考生文件夹下in5.dat

文件的内容读入20行5列的二维数组a中，并同

时显示在Text1文本框内；

2）单击“计算”按钮，则自动统计二维数组中各

行的最小数，并将这些最小数的平均值显示在

Text2文本框内。

“读数据”按钮的Click事件过程已经给出，请编

写“计算”按钮的Click事件过程实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。