VB期末复习题1、文本框内容填写 ： 在窗体上放置如下控件，并进行属性设置，编写代码实现如下功能： 对象 窗体 命令按钮1 命令按钮2 命令按钮3 标签1 标签2 标签3 标签4 标签5 文本框14 属性 标题 标题 标题 标题 标题 标题 标题 标题 标题 值 文本框应用 计算 清空 关闭 输入总秒数 换算为 小时值 分钟数 秒数 清空 text 在文本框1中输入总时间 的文本框中。 点击清空按钮，清空所有的文本框。 点击退出按钮，退出程序运行。 Private Sub Command1_Click 点击“计算”按钮，将输入的总秒数转换为对应的小时、分钟和秒数，并放到相应Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer a = Val(Text1.Text) b = a 3600 e = a Mod 3600 c = e 60 d = e Mod 60 Text2 = b Text3 = c Text4 = d End Sub Private Sub Command2_Click Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub Private Sub Command3_Click End End Sub 2、使用文件系统控件 用驱动器列表框、目录列表框和文件列表框显示“.jpg”、“.bmp”文件，单击文件名时在图片框中显示出图片。 按钮1为“另存为”，单击打开“另存为”对话框，将图片文件另存为另一文件，“另存为”对话框初始打开的文件夹是程序所在的文件夹。 Private Sub Command1_Click With CommonDialog1 .InitDir = Dir1.Path .Filter = *.jpg;*.bmp .DefaultExt = jpg .Action = 2 SavePicture Picture1.Picture, .FileName End With End Sub Private Sub Dir1_Change File1.Path = Dir1.Path File1.Pattern = *.jpg;*.bmp End Sub Private Sub Drive1_Change Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click Frame1.Caption = File1.FileName Picture1.Picture = LoadPicture(File1.Path & & File1.FileName) End Sub 3、在窗体上放置如下控件，并进行属性设置，编写代码实现如下功能： 对象 窗体 文本框 命令按钮1 命令按钮2 命令按钮3 列表框1 属性 标题 Text 标题 标题 标题 值 列表框项目添加删除 清空 添加 删除所选项 清除 列表框2 程序运行时，在文本框中输入一个字符串，点击命令按钮1，将文本框中的内容添加到第一个列表框中，选择第一个列表框中的某一个列表项，该项将被添加到第二个列表框中，点击第二个命令按钮，将在第二个列表框中选中的列表项删除，点击第三个命令按钮，清除第二个列表框中的所有列表项。 Private Sub Command1_Click List1.AddItem Text1.Text Text1 = Text1.SetFocus End Sub Private Sub Command2_Click List2.RemoveItem List2.ListIndex End Sub Private Sub Command3_Click List2.Clear End Sub Private Sub List1_Click List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub 4、在窗体上放置一个命令按钮一个图片框，试编程输出下图所示的99乘法表。 Private Sub Command1_Click Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To i Picture1.Print Tab(j - 1) * 10 + 1); j & * & i & = & i * j; Next j Next i End Sub 5、随机产生一个5行5列的整型数组，单击窗体后，分5行5列输出该数组的每个元素，输出主对角线上的每个元素，输出每行元素的和，交换数组的第一行和第三行，分5行5列输出交换后的数组。 Dim a(4, 4) As Integer Dim c(4) Dim b(4) As Integer Private Sub Form_click Dim s As Integer For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd * 9 + 1) If i = j Then b(i) = a(i, j) Else End If Picture1.Print a(i, j); Next Picture1.Print Picture2.Print b(i) Next For i = 0 To 4 s = 0 For j = 0 To 4 s = s + a(i, j) Next j Picture3.Print s Next i For i = 0 To 4 For j = 0 To 4 c(j) = a(2, j) a(2, j) = a(4, j) a(4, j) = c(j) Picture4.Print a(i, j); Next j Picture4.Print Next i End Sub 6、编写一个程序用递归算法实现求两个数的最大公约数。要求使用标准模块计算，使用函数调用，用输入框输入两个数，用消息框显示结果。 Public Function Divisor(ByVal M As Integer, ByVal N As Integer) As Integer Dim R As Integer R = M Mod N If R = 0 Then Divisor = N Else Divisor = Divisor(N, R) End If End Function Private Sub Command1_Click Dim x As Integer, y As Integer, z As Integer x = Val(Text1.Text) y = Val(Text2.Text) z = Divisor(x, y) Text3.Text = z End Sub Private Sub Command2_Click End End Sub 7、编写一个程序用非递归算法实现求Fibonacci数列的前N项和第N项，N的值由输入框输入，单击窗体后在窗体中的一行上输出所求的N项。 Private Sub form_Click Dim a As Integer, b As Integer, c As Integer, s As Integer, i As Integer Dim n As Integer n = Val(Text1.Text) a = 0 b = 1 i = 2 s = 1 Print Str(a) + Space(5) + Str(b) + Space(5); For i = 3 To n c = a + b Print Str(c) + Space(5); a = b b = c Next i End Sub 8、MDI窗体 创建一个MDI窗体和两个子窗体，设置菜单打开子窗体。 标题 打开窗体 打开窗体1 打开窗体2 分隔条 退出 菜单级 主菜单 子菜单 子菜单 - 菜单项功能 打开窗体1 打开窗体2 结束程序运行。 1 子窗体1和窗体2的显示： 子窗体1使用“展示屏幕”窗体模块； Private Sub e_Click End End Sub Private Sub op1_Click frmSplash.Show Form1.Hide End Sub Private Sub op2_Click Form1.Show frmSplash.Hide End Sub 子窗体2用文本框显示自己的学号和姓名。 10、列表框项目添加删除程序设计 在窗体上放置如下控件，并进行属性设置，编写代码实现如下功能： 对象 窗体 命令按钮1 命令按钮2 属性 标题 标题 标题 值 列表框应用 添加项目 选择项目 命令按钮3 命令按钮4 命令按钮5 标签1 标签2 标签3 列表框1 列表框2 文本框 标题 标题 标题 标题 标题 标题 删除项目 清除 退出 输入院校名 院校数 Text 初始状态时“添加项目”、“清除”、“选择项目”、“删除项目”按钮禁止使用。 在文本框中输入院校名后，启用“添加项目”按钮，文本框内容为空时禁用“添加项目”按钮。 单击“添加项目”按钮后，把文本框中输入的院校名添加到列表框1中，同时清除文本框中的信息，把焦点移到文本框中。 在列表框1中选中一个项目启用“选择项目”按钮。单击“选择项目”按钮后，将该项目从列表框1中复制到列表框2中，第三个标签中的显示的院校数增加“1”。 在列表框中2选中一个项目启用“删除项目”按钮。单击“删除项目”按钮后，将该项目从列表中删除，第三个标签中显示的院校数减少。 单击“清除”按钮后，清除列表框2和文本框的内容，使“添加项目”、“删除项目”按钮和“清除”按钮禁用，焦点移到文本框。 单击“退出”按钮结束程序运行。 Dim s As Integer Private Sub Command1_Click List1.AddItem Text1.Text Text1 = Text1.SetFocus End Sub Private Sub Command2_Click List2.AddItem List1.Text s = s + 1 Label3.Caption = s Command4.Enabled = True End Sub Private Sub Command3_Click List2.RemoveItem List2.ListIndex s = s - 1 Label3.Caption = s End Sub Private Sub Command4_Click List2.Clear s = 0 Label3.Caption = s Command1.Enabled = False Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command5_Click End End Sub Private Sub Form_Load Command1.Enabled = F