《vb习题及部分答案》由会员分享，可在线阅读，更多相关《vb习题及部分答案（5页珍藏版）》请在金锄头文库上搜索。
1、1.在名称为 Form1 的窗体上画一个名称为Command1、标题为 “保存文件”的命令按钮，再画一个名称为 CommonDialog1 的通用对话框。要求：1）通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件” ，且默认文件名为out2；2）运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该通用对话框，如图所示。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。Private Sub Command1_Click()CommonDialog1.Action = 1
2、End Sub2.在名称为 Form1 的窗体上画一个名称为 command1 的命令按钮，标题为“命令按钮” 。然后建立一个菜单，标题为“控件” ，名称为 menu，包含两个子菜单项，一个是“显示命令按钮” ，名称为 subMenu1；另一个是“隐藏命令按钮” ，名称为subMenu2，如图所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮控件。Private Sub subMenu1_Click()Command1.Visible = TrueEnd SubPrivate Sub subMenu
3、2_Click()Command1.Visible = FalseEnd Sub3.在考生文件夹下有一个工程文件 sjt4.vbp，含有Form1 和 Form2 两个窗体，Form1 为启动窗体。两个窗体上的控件如图 1 所示。程序运行后，在Form1 窗体的文本框中输入有关信息（密码框中显示*字符） ，然后单击提交按钮则弹出确认对话框（即 Form2 窗体） ，并在对话框中显示输入的信息，如图 2 所示。单击确认按钮则程序结束，单击重输按钮，则对话框消失，回到 Form1 窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求：1）把 Form1 的标题改为 注册 ，把 Form2 的标
4、题改为确认 ；2）设置适当的属性，使 Form2 标题栏上的所有按钮消失（如图 2 所示） ；3）去掉程序中的注释符，把程序中的？改为正确的内容。窗体1Private Sub Command1_Click()a = Text1.Text b = Text2.Textn = Text3.TextIf Option1.Value = True Then sex = 男If Option2.Value = True Then sex = 女Form2.ShowForm2.Print 用户民：; aForm2.Print 密码：; bForm2.Print 姓名：; nForm2.Print 性别：;
5、 sexEnd SubPublic a As String, b As String, n As StringPublic sex As String在模块中：Public a As String, b As String, n As StringPublic sex As String（全局变量）在窗体 2 中： Private Sub Command1_Click() EndEnd SubPrivate Sub Command2_Click()form1.Showform1.Text1.Text = form1.Text2.Text = form1.Text3.Text = End Sub
6、4.在名称为 Form1 的窗体上画一个名称为 Text1 的文本框，再建立一个名称为 Format 的弹出式菜单，含三个菜单项，标题分别为加粗 、 斜体 、 下划线 ，名称分别为M1、 M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。Private Sub M1_Click()Text1.FontBold = TrueEnd SubPrivate Sub M2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click()Text1.FontUnde
7、rline = TrueEnd SubPrivate 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 FormatEnd Sub5.在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大于2的偶数，并单击 分解为 命令按钮，则可以将该偶数分解为两个素数之和，且
8、要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合，如图所示)。要求编写 分解为命令按钮事件过程中 考生编写程序开始 和考生编写程序结束之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。 Private Sub Command1_Click()Dim a As Integer, i As Integer, j As Integera = Val(Text1.Text)For i = 2 To a - 1For j =
9、 2 To i - 1If i Mod j = 0 ThenExit ForEnd Ifm = a - iFor n = 2 To m - 1If m Mod n = 0 ThenExit ForEnd IfNext nIf n m - 1 Thenk = 1End IfNext jIf k = 1 ThenExit ForEnd IfNext iLabel1.Caption = iLabel3.Caption = mEnd Sub6.在考生文件夹下有一个工程文件 sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮。请画二个标签，名称分别为 Label1 和 Label2，
10、标题分别为“出现次数最多的字母是”和“它出现的次数为” ；再画二个名称分别为 Text1 和 Text2，初始值为空的文本框，如图所示。程序功能如下： 1）单击“读数据”按钮，则将考生文件夹下 in5.dat 文件的内容读到变量 s 中（此过程已给出） ；2）单击“统计”按钮，则自动统计 in5.dat 文件中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在 Text1 文本框，它所出现的次数显示在 Text2 文本框内7. “读数据”按钮的 Click 事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。在考生文件夹下有一个工程文件 sjt5.vbp，其功能是
11、：1） 单击“读数据”按钮，则把考生文件夹下 in5.dat 文件中的 100 个正整数读入数组 a 中，同时显示在 Text1 文本框中；2） 单击“分组”按钮，则将数组 a 中所有 3 的倍数的元素存入数组 b 中，并对数组 b 中的元素从小到大排序后显示在文本框 Text2 中。在给出的窗体文件中已经有了全部控件（如图所示） ，但程序不完整。要求： 编写适当的程序部分使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行“分组”操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。Option Base 1Dim a
12、(100) As Integer, num As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & in5.dat For Input As #1For k = 1 To 100Input #1, a(k)Text1 = Text1 + Str(a(k) + Space(1)Next kClose #1End SubPrivate Sub Command2_Click()Dim b(100) As Integernum = 0If Len(Text1.Text) = 0 ThenMsgBox 请先执行“读数据”
13、功能！ For i = 1 To 100Next iElse考生编写(功能：生成 b 数组，且按从小到大顺序排序)注意：请务必将数组 b 的元素个数存入变量 num 中* 请考生编写程序 *For i = 1 To 100 If a(i) Mod 3 = 0 Thennum = num + 1b(num) = a(i)End IfNext iFor j = 1 To numFor k = j + 1 To numIf b(j) b(k) Thent = b(j)b(j) = b(k)b(k) = tEnd IfNext kNext j* 编写程序结束 *以下程序段将已排序的 b 数组显示在 T
14、ext2 中For i = 1 To numText2.Text = Text2.Text + Str(b(i) + Space(2)Next iEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & out5.dat For Output As #1Print #1, Text2.TextClose #1End Sub8.考生文件夹下的工程文件 sjt5.vbp 中有 1 个初始内容为空的文本框 Text1，2 个标题分别是“读数据”和“计算”的命令按钮；请画 1 个标题为“各行最小数的平均值为”的标签 L
15、abel2，再画 1 个初始内容为空的文本框 Text2，如图所示。程序功能如下：1）单击“读数据”按钮，则将考生文件夹下in5.dat 文件的内容读入 20 行 5 列的二维数组 a 中，并同时显示在 Text1 文本框内；2）单击“计算”按钮，则自动统计二维数组中各行的最小数，并将这些最小数的平均值显示在Text2 文本框内。“读数据”按钮的 Click 事件过程已经给出，请编写“计算”按钮的 Click 事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“计算” ，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
