VB期末复习题

上传人:m**** 文档编号:508088279 上传时间:2022-09-09 格式:DOCX 页数:9 大小:39KB
返回 下载 相关 举报
VB期末复习题_第1页
第1页 / 共9页
VB期末复习题_第2页
第2页 / 共9页
VB期末复习题_第3页
第3页 / 共9页
VB期末复习题_第4页
第4页 / 共9页
VB期末复习题_第5页
第5页 / 共9页
点击查看更多>>
资源描述

《VB期末复习题》由会员分享,可在线阅读,更多相关《VB期末复习题(9页珍藏版)》请在金锄头文库上搜索。

1、VB期末复习题1、文本框内容填写 : 在窗体上放置如下控件,并进行属性设置,编写代码实现如下功能: 对象 窗体 命令按钮1 命令按钮2 命令按钮3 标签1 标签2 标签3 标签4 标签5 文本框14 属性 标题 标题 标题 标题 标题 标题 标题 标题 标题 值 文本框应用 计算 清空 关闭 输入总秒数 换算为 小时值 分钟数 秒数 清空 text 在文本框1中输入总时间 的文本框中。 点击清空按钮,清空所有的文本框。 点击退出按钮,退出程序运行。 Private Sub Command1_Click 点击“计算”按钮,将输入的总秒数转换为对应的小时、分钟和秒数,并放到相应Dim a As I

2、nteger, 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

3、 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

4、 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、在窗体上放置如下控件,并进行属性

5、设置,编写代码实现如下功能: 对象 窗体 文本框 命令按钮1 命令按钮2 命令按钮3 列表框1 属性 标题 Text 标题 标题 标题 值 列表框项目添加删除 清空 添加 删除所选项 清除 列表框2 程序运行时,在文本框中输入一个字符串,点击命令按钮1,将文本框中的内容添加到第一个列表框中,选择第一个列表框中的某一个列表项,该项将被添加到第二个列表框中,点击第二个命令按钮,将在第二个列表框中选中的列表项删除,点击第三个命令按钮,清除第二个列表框中的所有列表项。 Private Sub Command1_Click List1.AddItem Text1.Text Text1 = Text1.S

6、etFocus 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 Intege

7、r, 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 A

8、s 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

9、, 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 Di

10、visor = 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

11、项。 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窗体和

12、两个子窗体,设置菜单打开子窗体。 标题 打开窗体 打开窗体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、列表框项目添加删除程序设

13、计 在窗体上放置如下控件,并进行属性设置,编写代码实现如下功能: 对象 窗体 命令按钮1 命令按钮2 属性 标题 标题 标题 值 列表框应用 添加项目 选择项目 命令按钮3 命令按钮4 命令按钮5 标签1 标签2 标签3 列表框1 列表框2 文本框 标题 标题 标题 标题 标题 标题 删除项目 清除 退出 输入院校名 院校数 Text 初始状态时“添加项目”、“清除”、“选择项目”、“删除项目”按钮禁止使用。 在文本框中输入院校名后,启用“添加项目”按钮,文本框内容为空时禁用“添加项目”按钮。 单击“添加项目”按钮后,把文本框中输入的院校名添加到列表框1中,同时清除文本框中的信息,把焦点移到文

14、本框中。 在列表框1中选中一个项目启用“选择项目”按钮。单击“选择项目”按钮后,将该项目从列表框1中复制到列表框2中,第三个标签中的显示的院校数增加“1”。 在列表框中2选中一个项目启用“删除项目”按钮。单击“删除项目”按钮后,将该项目从列表中删除,第三个标签中显示的院校数减少。 单击“清除”按钮后,清除列表框2和文本框的内容,使“添加项目”、“删除项目”按钮和“清除”按钮禁用,焦点移到文本框。 单击“退出”按钮结束程序运行。 Dim s As Integer Private Sub Command1_Click List1.AddItem Text1.Text Text1 = Text1.S

15、etFocus 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

展开阅读全文
相关资源
正为您匹配相似的精品文档
相关搜索

最新文档


当前位置:首页 > 建筑/环境 > 施工组织

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号