vb习题及部分答案.doc

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.在考生文件夹下有一个工程文件sjt4.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事件过程实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。