《大学VB实验报告及其答案》由会员分享，可在线阅读，更多相关《大学VB实验报告及其答案（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 50 k + 1 2设计一条滚动的广告字幕。 三实验结果：对象属性设置 1 求和结果要求窗体载入时直接显示，设置窗体的某个属性。 对象 Form1 2 滚动字幕。 对象 Label1 Timer1 Caption Interval 属性 1000 属性值 “自己填内容” 标签 时钟 说明 属性 AutoRedraw True
