大学VB实验报告及其答案.docx

《大学VB实验报告及其答案.docx》由会员分享，可在线阅读，更多相关《大学VB实验报告及其答案.docx（18页珍藏版）》请在三一办公上搜索。

1、大学VB实验报告及其答案XXXXXXX计算机科学与技术学院 实 验 报 告 课程名称_ 班 级_ 姓 名_ 学号_ _ 实验地点_ 指导教师_成绩_ 实验日期： 实验一 VB环境和创建一个简单的VB程序 一实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二实验内容： 1设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显

2、示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。 图1.1 实验1-1 运行界面 三实验结果：对象属性设置 对象 Form1 Label1 Text1 Command1 Command2 caption caption text caption caption 属性 属性值 我的第一个vb程序 请输入姓名 “ 显示 清除 窗体 标签 文本框 命令按钮 命令按钮 说明 四实验思考： 1.标签label控件设置的属性代码有哪些？ Label1.Caption=“ 请输入姓名” Label1.fontsize=24

3、 Label1.fontbold=True 2.两个按钮所使用的是什么事件？代码分别是什么？ Private Sub Command1_Click Text1.text=“自己的姓名” 1 实验日期： End Sub Private Sub Command2_Click Text1.text=” End Sub 实验二 简单程序设计数据类型及常用内部函数的简单应用 一实验目的： 1掌握Visual Basic数据类型的基本概念。 2掌握用Visual Basic的各种运算符及表达式。 3学习使用Visual Basic内部函数和数据输入、输出方法。 4掌握命令按钮、文本框和标签。 5设计顺序程

4、序。 二实验内容： 1编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C= 5 / 9(F - 32)。F为华氏温度，C为摄氏温度。 2.用三种除法运算做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图2-1 2 实验日期： 图2-2 三实验结果：对象属性设置 1.温度转换 对象 Form1 Command1 Caption Caption 属性 属性值

5、Inputbox与msgbox应用 窗体 温度转换 命令按钮 说明 2. 三种除法运算做计算 对象 属性 Label1 Label2 Label3 Label4 Label5 Command1 Caption Caption Caption Caption Caption Caption 被除数 除数 浮点数 整除数 余数除 属性值 标签 标签 标签 标签 标签 说明 执行除法运算 命令按钮 四实验思考： 1.温度转换中的Command1命令的单击事件的程序代码是什么？ Private Sub Command1_Click Dim C!,F! F=val(inputbox(“输入华氏温度”)

6、C=5/9* Msgbox “对应的摄氏温度为：” & C End Sub 2. 用三种除法运算做计算，说明三种除法的区别？ /：两个数相除 ：两个数整除 Mod：两个数相除，得余数 3 实验日期： 3. 三种除法运算做计算，Command1命令的单击事件的程序代码是什么？ Private Sub Command1_Click Dim a!,b! a=val(text1.text) b= val(text2.text) text3.text=a/b text4.text=ab text5.text=a mod b End Sub 实验三 选择程序设计 一实验目的： 1.掌握单分支与双分支条件语

7、句的使用。 2.掌握多分支条件语句的使用。 3.掌握Select Case语句的使用及与多分支条件语句的区别。 4.熟练掌握时间过程的编写方法。 二实验内容： 1.设计一个模拟简易计算器的程序，界面如图3-1所示。要求：输入两个操作数和一个操作符，根据操作符决定所进行的计算；如果除数为0，用msgbox提示出错信息；用if语句和selecet case语句两种结构实现。 2.通过单选按钮和复选框控制文字的显示，程序窗口如图3-2所示。 图3-1 图3-2 4 实验日期： 三实验结果：对象属性设置 1.模拟简易计算器 对象 Label1 Label2 Label3 Label4 Command1

8、 Command2 Text1-text4 2.单选框与复选框 对象 Frame1 Frame2 Frame3 Label1 Option1 Option2 Option3 Option4 Option5 Option6 Option7 Check1 Check2 Check3 Check4 Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption 属性 字体 字号 字型 奥林匹克运动会 宋体 仿宋 黑体 楷体 大

9、 中 小 加粗 倾斜 下划线 删除线 属性值 框架 框架 框架 标签 单选按钮 单选按钮 单选按钮 单选按钮 单选按钮 单选按钮 单选按钮 复选框 复选框 复选框 复选框 说明 Caption Caption Caption Caption Caption Caption Text 属性 运算器 输入数2 结果 Case结构 if结构 “ 属性值 输入数1 标签 标签 标签 标签 命令按钮 命令按钮 文本框 说明 四实验思考： 1. 模拟简易计算器Command1命令的单击事件的程序代码是什么？ Private Sub Command1_Click Dim a!, b! Dim c As St

10、ring a = Val(Text1.Text) b = Val(Text3.Text) c = Text2.Text 5 实验日期： Select Case c Case “+” Text4.Text = a + b Case “-” Text4.Text = a - b Case “*” Text4.Text = a * b Case “/” If b = 0 Then MsgBox “除数为0.” Else Text4.Text = a / b End If End Select End Sub 2. 模拟简易计算器Command2命令的单击事件的程序代码是什么？ Private Sub

11、 Command1_Click Dim a!, b! Dim c As String a = Val(Text1.Text) b = Val(Text3.Text) c = Text2.Text If c = “+” Then Text4.Text = a + b ElseIf c = “-” Then Text4.Text = a - b ElseIf c = “*” Then Text4.Text = a * b ElseIf c = “/” Then If b = 0 Then MsgBox “除数为0” else Text4.Text = a / b End If End If End

12、 Sub 3. 通过单选按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么 Private Sub Command1_Click If Option1.Value = True Then 6 实验日期： Label1.FontName = “宋体” ElseIf Option2.Value = True Then Label1.FontName = “华文仿宋” ElseIf Option3.Value = True Then Label1.FontName = “黑体” Else Label1.FontName = “楷体_GB2312” End If If Opti

13、on5.Value = True Then Label1.FontSize = 24 ElseIf Option6.Value = True Then Label1.FontSize = 16 Else Label1.FontSize = 8 End If If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If

14、 If Check3.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline = False End If If Check4.Value = 1 Then Label1.FontStrikethru = True Else Label1.FontStrikethru = False End If End Sub 实验四 循环程序设计 一实验目的： 1理解循环程序设计的特点。 2掌握常用的循环语句。 3掌握常用的循环算法。 7 实验日期： 4掌握图片框、图像框和计时器。 二实验内容： 1求 100 1 k 1 5

15、0 k + 1 2设计一条滚动的广告字幕。 三实验结果：对象属性设置 1 求和结果要求窗体载入时直接显示，设置窗体的某个属性。 对象 Form1 2 滚动字幕。 对象 Label1 Timer1 Caption Interval 属性 1000 属性值 “自己填内容” 标签 时钟 说明 属性 AutoRedraw True 属性值 窗体 说明 四实验思考： 1求和的窗体载入事件的程序代码是什么？ Private Sub Form_Load Dim k%, s! s = 0 For k = 1 To 100 s = s + 1 / k Next k For k = 1 To 50 s = s +

16、 k Next k Print s End Sub 2滚动字幕的触发时钟控件的程序代码是什么？。 Private Sub Timer1_Timer If Label1.Left Form1.Width Then Label1.Left = 0 Else Label1.Left = Label1.Left + 100 End If End Sub 实验五 数组程序设计 一实验目的： 1熟练掌握固定数组。 2掌握动态数组。 3掌握列表框和组合框。 4了解直线控件和形状控件。 二实验内容： 8 实验日期： 1设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。在列表框中随机产生10个1

17、00到200之间的整数，在文本框中显示结果信息。界面如图5-1所示。 图5-1 窗体界面 三实验结果：对象属性设置 对象 Label1 Label2 Label3 Label4 Command1 Text1Text4 属性 Caption Caption Caption Caption Caption Text 属性值 10个100到200之间的整数 最大值 最小值 平均值 计算 “ 标签 标签 标签 标签 命令按钮 文本框 说明 四实验思考： 1数组应在过程内还是过程外定义，定义的语句是什么？ 过程外定义 Dim a(10) As Integer 2在窗体载入时，在列表框中随机产生10个整数

18、，则程序代码是什么？ Private Sub Form_Load Dim i% For i = 1 To 10 a(i) = Int(Rnd * 101 + 100) List1.AddItem a(i) Next i End Sub 3单击命令按钮，在文本框中显示结果信息，则程序代码是什么？ Private Sub Command1_Click Dim i As Integer, max%, min%, avg! max = a(1) min = a(1) avg = 0 For i = 1 To 10 9 实验日期： If max a(i) Then min = a(i) avg = av

19、g + a(i) Next i avg = avg / 10 Text1.Text = max Text2.Text = min Text3.Text = avg End Sub 实验六 过程程序设计 一实验目的： 1掌握子过程的定义和调用方法。 2掌握函数过程的定义和调用方法。 3理解作用域和生存期。 4. 掌握滚动条。 二实验内容： 1.写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最小公倍数。要求从文本框中输入两个数。界面如图6-1所示。 图6-1 2.设计一个用滚动条改变图片背景色的程序。界面如图6-2所示 图6-2 10 实验日期： 三实验结果：

20、对象属性设置 1结果要求单击命令按钮分别显示，设置对象的属性。 对象 Label1 Label2 Label3 Label4 Text1- Text4 Command1 Command2 2设置滚动条主要属性值。 对象 HScroll1- HScroll3 HScroll1- HScroll3 属性 属性值 0 255 说明 滚动条 滚动条 属性 caption caption caption caption text caption caption 属性值 m n 最大公约数 最小公倍数 ”“ 子过程 函数过程 标签 标签 标签 标签 文本框 命令按钮 命令按钮 说明 min max 四实验

21、思考： 1单击子过程命令按钮，在文本框Text3中显示结果信息，子过程的程序代码是什么？ Private Sub Command1_Click Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m n Then t = m: m = n: n = t End If Call gys(m, n, r) Text3.Text = r End Sub Private Sub gys(ByVal m%, ByVal n%, r%) r = m Mod n Do While r 0 m = n n

22、= r r = m Mod n Loop r = n End Sub 2单击函数过程命令按钮，在文本框Text4中显示结果信息，函数过程的程序代码是什么？ Private Sub Command2_Click Dim m As Integer, n As Integer, p As Integer m = Text1.Text n = Text2.Text p = m * n If m n Then t = m: m = n: n = t End If 11 实验日期： p = p / gbs(m, n) Text4.Text = p End Sub Private Function gbs(

23、m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop gbs = n End Function 3. 拖动滚动条的滑块，可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出HScroll1的事件过程。 Dim r As Integer, g As Integer, b As Integer Private Sub HScroll1_Change r = HScroll1.Value g = HScroll2.Value b

24、= HScroll3.Value Text1.BackColor = RGB(r, g, b) End Sub 实验七 界面设计 一实验目的： 1掌握多窗体程序设计的方法。 2掌握下拉式菜单。 3了解通用对话框。 二实验内容： 1.编写密码登录系统。在窗体1输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自 行设计操作内容；如果密码不正确，弹出信息框，显示”用户名或密码错误，请重新输入”，回到 窗体1继续输入用户名和密码。密码输入有三次机会，超过三次就弹出第三个窗口，显示”对不起， 你不能使用该系统！” 图7-1 12 实验日期： 图7-2 图7-3 2.利用通用对话框设计一个简单的

25、文本编辑器，具有打开、保存、字体、颜色功能。要求用菜单实现， 有”文件”和”格式”两个菜单，”文件”菜单下包含”打开”、”保存”和”退出”三项。”格式” 菜单下包含”字体”和”颜色”两项，打开文件显示在文本框中。 13 实验日期： 图7-4 三实验结果：对象属性设置 1设置三个窗体的控件及其属性。 对象 Form1 Form2 Form3 Form3 2设置窗体控件及属性值。 对象 窗体 文本框1 打开 保存 退出 字体 颜色 Form1 Text1 Open Save Exit Font Color 控件名称 Caption Text Caption Caption Caption Capt

26、ion Caption 属性 Form1 Text1 打开 保存 退出 字体 颜色 属性值 Caption Form3 Form1 Form2 控件名称 属性 Caption Caption Form1 Form2 属性值 四实验思考： 1下列程序为实验内容1的部分程序代码，单击确定命令按钮的程序代码是什么？ Private Sub Form_Load Text2.PasswordChar = “*” Text2.Text = “ Text1.Text = “ 14 实验日期： End Sub Private Sub Command1_Click Static i As Integer i = i + 1 If i = 3 Then Form1.Hide Form3.Show Exit Sub End If If Text1.Text = “abc” And Text2.Text = “123” Then Form1.Hide Form2.Show Else MsgBox “用户名或密码错误，请重新输入” Text2.Text = “ Text1.Text = “ Text1.setfoucs End if End Sub 15