2022年VB实验报告.pdf

《2022年VB实验报告.pdf》由会员分享，可在线阅读，更多相关《2022年VB实验报告.pdf（17页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、VB实验报告 ( 含答案 ) 实验报告课程名称 _程序设计基础 Visual Basic_ 班级_ _姓名_ _ 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 实验一 VB 环境与创建一个简单的VB程序一. 实验目的 : 1、了解 VB系统对计算机软件、硬件的要求。2、掌握启动与退出VB的方法。3、了解与使用VB集成开发环境各窗口、菜单的一般功能。4、熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。5、

2、了解文本框、标签框、命令按钮的构造及其属性、事件与方法。二. 实验内容 : 1. 设计一个简单的应用程序, 要求在窗体上画一个文本框、一个标签与两个命令按钮编一程序, 并把命令按钮分别设置为”显示”与”清除”。程序运行后, 单击”显示”按钮, 在文本框中输出一行信息;单击”清除”按钮, 则清除文本框中的内容, 运行界面如图1、1 所示。图 1、1 实验 1-1 运行界面三. 实验结果 : 对象属性设置对象属性属性值说明Form1 caption 我的第一个vb 程序窗体Label1 caption 请输入姓名标签Text1 text “文本框Command1 caption 显示命令按钮Com

3、mand2 caption 清除命令按钮四. 实验思考 : 1、标签 label控件设置的属性代码有哪些？Label1 、 Caption= “ 请输入姓名”Label1 、 fontsize=24 Label1 、 fontbold=True 2、两个按钮所使用的就是什么事件？代码分别就是什么？Private Sub Command1_Click() Text1 、text= “姓名”End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 17 页 - - - - - - - - -

4、 - VB实验报告 ( 含答案 ) Private Sub Command2_Click() Text1 、text= ”End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 实验二简单程序设计数据类型及常用内部函数的简单应用一. 实验目的 : 1. 掌握 Visual Basic数据类型的基本概念。2. 掌握用 Visual Basic的各种运算符及表达式。3. 学习使用 Visual Basic内部函

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

6、-2 三. 实验结果 : 对象属性设置1、温度转换对象属性属性值说明Form1 Caption Inputbox与 msgbox应用窗体Command1 Caption 温度转换命令按钮2、 三种除法运算(/ 、 、Mod)做计算精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 对象属性属性值说明Label1 Caption 被除数标签Label2 Caption 除数标签Label3 Caption 浮点数标签La

7、bel4 Caption 整除数标签Label5 Caption 余数除标签Command1 Caption 执行除法运算命令按钮四. 实验思考 : 1、温度转换中的Command1 命令的单击事件的程序代码就是什么？Private Sub Command1_Click() Dim C!,F! F=val(inputbox(“输入华氏温度”) C=5/9*(F-32) Msgbox “对应的摄氏温度为:” & C End Sub 2、 用三种除法运算(/ 、 、Mod)做计算 , 说明三种除法的区别？/: 两个数相除: 两个数整除Mod:两个数相除 , 得余数3、 三种除法运算(/ 、 、Mo

8、d)做计算 ,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 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 实验三选择程序设计一. 实验目的 :

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

10、性值说明Label1 Caption 输入数 1 标签Label2 Caption 运算器标签Label3 Caption 输入数 2 标签Label4 Caption 结果标签Command1 Caption Case结构命令按钮Command2 Caption if结构命令按钮Text1-text4 Text “文本框2、单选框与复选框对象属性属性值说明Frame1 Caption 字体框架精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 17 页 - - - - - - - - - - V

11、B实验报告 ( 含答案 ) Frame2 Caption 字号框架Frame3 Caption 字型框架Label1 Caption 奥林匹克运动会标签Option1 Caption 宋体单选按钮Option2 Caption 仿宋单选按钮Option3 Caption 黑体单选按钮Option4 Caption 楷体单选按钮Option5 Caption 大单选按钮Option6 Caption 中单选按钮Option7 Caption 小单选按钮Check1 Caption 加粗复选框Check2 Caption 倾斜复选框Check3 Caption 下划线复选框Check4 Capti

12、on 删除线复选框四. 实验思考 : 1、 模拟简易计算器Command1 命令的单击事件的程序代码就是什么？Private Sub Command1_Click() Dim a!, b! Dim c As String a = Val(Text1、Text) b = Val(Text3、Text) c = Text2、Text Select Case c Case “ +” Text4 、Text = a + b Case “ - ” Text4 、Text = a - b Case “ *” Text4 、Text = a * b Case “ / ”If b = 0 Then MsgBo

13、x “除数为0、”Else Text4 、Text = a / b End If End Select End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 2、 模拟简易计算器Command2 命令的单击事件的程序代码就是什么？Private Sub Command1_Click() Dim a!, b! Dim c As String a = Val(Text1、Text) b = Val(Text3

14、、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 Else If c = “ / ” ThenIf b = 0 Then MsgBox “除数为 0” else Text4、Text = a / b End If End If End Sub 3、 通过单选按钮与复选框控制文字的显示,Command1 命令的单击事件的程序代码就是什么Private Sub Command

15、1_Click() If Option1、Value = True Then Label1、FontName = “宋体”ElseIf Option2、Value = True Then Label1、FontName = “华文仿宋” ElseIf Option3、Value = True Then Label1、FontName = “黑体” Else Label1、FontName = “楷体 _GB2312 ”End If If Option5、 Value = True Then Label1、FontSize = 24 ElseIf Option6、Value = True The

16、n Label1、FontSize = 16 Else Label1、FontSize = 8 End If If Check1、Value = 1 Then Label1 、FontBold = True 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) Else Label1 、FontBold = False End If If Check2、Value = 1 Then Label1 、FontItalic

17、= True Else Label1 、FontItalic = False End If 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

18、. 掌握常用的循环算法。4. 掌握图片框、图像框与计时器。二. 实验内容 : 1. 求2. 设计一条滚动的广告字幕。三. 实验结果 : 对象属性设置1 求与结果要求窗体载入时直接显示, 设置窗体的某个属性。对象属性属性值说明Form1 AutoRedraw True 窗体2 滚动字幕。对象属性属性值说明Label1 Caption “欢迎使用VB ”标签Timer1 Interval 1000 时钟四. 实验思考 : 1. 求与的窗体载入事件的程序代码就是什么？Private Sub Form_Load() Dim k%, s! s = 0 For k = 1 To 100 1 k 100 1

19、 k 50 1 + 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) s = s + 1 / k Next k For k = 1 To 50 s = s + k Next k Print s End Sub 2. 滚动字幕的触发时钟控件的程序代码就是什么？。Private Sub Timer1_Timer() If Label1、Left Form1、Width Then Label1、Left = 0 Else

20、Label1、Left = Label1、Left + 100 End If End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 实验五数组程序设计一. 实验目的 : 1. 熟练掌握固定数组。2. 掌握动态数组。3. 掌握列表框与组合框。4. 了解直线控件与形状控件。二. 实验内容 : 1. 设计一个程序 , 找出数组中的最大值、最小值, 并计算所有元素的平均值。在列表框中随机产生10个 100 到

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

22、 个整数 , 则程序代码就是什么？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 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 11 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 3. 单击命令按钮 , 在文本框中显示结果信息, 则程序代码就是什么？Private Sub Command1_Cl

23、ick() Dim i As Integer, max%, min%, avg! max = a(1) min = a(1) avg = 0 For i = 1 To 10 If max a(i) Then min = a(i) avg = avg + a(i) Next i avg = avg / 10 Text1 、Text = max Text2 、Text = min Text3 、Text = avg End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 17 页 - -

24、 - - - - - - - - VB实验报告 ( 含答案 ) 实验六过程程序设计一. 实验目的 : 1. 掌握子过程的定义与调用方法。2. 掌握函数过程的定义与调用方法。3. 理解作用域与生存期。4、 掌握滚动条。二. 实验内容 : 1、写两个函数 , 分别求两个数的最大公约数与最小公倍数, 编写子过程求最大公约数, 函数过程求最小公倍数。要求从文本框中输入两个数。界面如图6-1 所示。图 6-1 2、设计一个用滚动条改变图片背景色的程序。界面如图6-2 所示图 6-2 三. 实验结果 : 对象属性设置1. 结果要求单击命令按钮分别显示, 设置对象的属性。对象属性属性值说明Label1 ca

25、ption m 标签Label2 caption n 标签Label3 caption 最大公约数标签Label4 caption 最小公倍数标签Text1- Text4 text ”“文本框Command1 caption 子过程命令按钮Command2 caption 函数过程命令按钮精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 2. 设置滚动条主要属性值。对象属性属性值说明HScroll1-HScroll

26、3 min 0 滚动条HScroll1-HScroll3 max 255 滚动条四. 实验思考 : 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(ByVa

27、l m%, ByVal n%, r%) r = m Mod n Do While r 0 m = n n = 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 p = p / gb

28、s(m, n) Text4、Text = p End Sub Private Function gbs(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 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 14 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 3

29、、 拖动滚动条的滑块, 可改变图片控件的背景颜色, 三个滚动条的程序代码相似, 请写出 HScroll1的事件过程。Dim r As Integer, g As Integer, b As Integer Private Sub HScroll1_Change() r = HScroll1、Value g = HScroll2、Value b = HScroll3、Value Text1 、BackColor = RGB(r, g, b) End Sub 实验七界面设计一. 实验目的 : 1. 掌握多窗体程序设计的方法。2. 掌握下拉式菜单。3. 了解通用对话框。二. 实验内容 : 1、编写密

30、码登录系统。在窗体1 输入用户名与密码, 如果密码正确就弹出第二个窗体, 第二个窗体自行设计操作内容; 如果密码不正确, 弹出信息框 , 显示”用户名或密码错误, 请重新输入” , 回到窗体 1 继续输入用户名与密码。密码输入有三次机会, 超过三次就弹出第三个窗口, 显示”对不起, 您不能使用该系统！”( 注: 凡就是文字提示内容可自行设计, 不要求与题目一样。三个窗体界面可参照图 7-1 图 7-2 图 7-3 所示。 ) 图 7-1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 15 页，共 17

31、页 - - - - - - - - - - VB实验报告 ( 含答案 ) 图 7-2 图 7-3 2、利用通用对话框设计一个简单的文本编辑器, 具有打开、 保存、 字体、 颜色功能。 要求用菜单实现, 有”文件”与”格式”两个菜单, ”文件”菜单下包含”打开”、”保存”与”退出”三项。”格式”菜单下包含”字体”与”颜色”两项, 打开文件显示在文本框中。( 窗体界面可参照图7-4 所示。 ) 图 7-4 三. 实验结果 : 对象属性设置1. 设置三个窗体的控件及其属性。对象控件名称属性属性值Form1 Form1 Caption Form1 Form2 Form2 Caption Form2 F

32、orm3 Form3 Caption Form3 2. 设置窗体控件及属性值。对象控件名称属性属性值精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 16 页，共 17 页 - - - - - - - - - - VB实验报告 ( 含答案 ) 窗体Form1 Caption Form1 文本框 1 Text1 Text Text1 打开Open Caption 打开保存Save Caption 保存退出Exit Caption 退出字体Font Caption 字体颜色Color Caption 颜色四.

33、实验思考 : 1. 下列程序为实验内容1 的部分程序代码, 单击确定命令按钮的程序代码就是什么？Private Sub Form_Load() Text2、PasswordChar = “*” Text2、Text = “ Text1、Text = “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 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 17 页，共 17 页 - - - - - - - - - -