VB实验报告(含答案)解析

1、实验报告 课程名称_程序设计基础 VisualBasic 班级 姓名实验日期: 1 实验一实验一 VBVB 环境和创建一个简单的环境和创建一个简单的 VBVB 程序程序 一一 实验目的：实验目的： 1. 了解 VB 系统对计算机软件、硬件的要求。 2. 掌握启动和退出 VB 的方法。 3了解和使用 VB 集成开发环境各窗口、菜单的一般功能。 4熟悉建立、编辑、运行、保存一个简单的 VB 应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二二 实验内容：实验内容： 1. 设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮

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

3、Label1.Caption 二“请输入姓名” Label1.fontsize=24 Label1.fontbold 二 True 2两个按钮所使用的是什么事件？代码分别是什么？ PrivateSubCommand1_Click() 实验日期: 2 Text1.text 二“姓名” EndSub PrivateSubCommand2_Click() Textl.text 二 EndSub实验日期: 3 实验二简单程序设计数据类型及常用内部函数的简单应用实验二简单程序设计数据类型及常用内部函数的简单应用 一一 实验目的：实验目的： 1. 掌握 VisualBasic 数据类型的基本概念。 2.

4、掌握用 VisualBasic 的各种运算符及表达式。 3. 学习使用 VisualBasic 内部函数和数据输入、输出方法。 4. 掌握命令按钮、文本框和标签。 5. 设计顺序程序。 二二 实验内容：实验内容： 1. 编写一个华氏温度和摄氏温度之间的转换程序，如图 2-2 所示,要求用 inputbox 函数输入华氏温度， 用 msgbox 输出转换后的摄氏温度。 转换公式是： C=5/9(F-32)。 F 为华氏温度， C 为摄氏温度。 2. 用三种除法运算(/、Mod)做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图 2-2 所示。程序运行后，在第一个文本框中输入被除数

5、，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图 2-2 三三 实验结果：对象属性设置实验结果：对象属性设置 1.温度转换 对象对象 属性属性 属性值属性值 说明说明 Form1 Caption Inputbox 与 msgbox 应用 窗体 实验日期: 4 Command1 Caption 温度转换 命令按钮 2.二种除法运算(/、Mod)做计算 对象对象 属性属性 属性值属性值 说明说明 Label1 Caption 被除数 标签 Label2 Caption 除数 标签 Label3 Caption 浮点数 标签 Label4 Caption 整除数 标签

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

7、单击事件的程序代码是什么？ PrivateSubCommand1_Click() Dima!,b! a=val(text1.text) b=val(text2.text) text3.text 二 a/b text4.text 二 ab text5.text 二 amodb EndSub实验日期: 5 实验三选择程序设计实验三选择程序设计 一一 实验目的实验目的: : 1. 掌握单分支与双分支条件语句的使用。 2. 掌握多分支条件语句(IfThenElself)的使用。 3. 掌握 SelectCase 语句的使用及与多分支条件语句的区别。 4. 熟练掌握时间过程的编写方法。 实验内容：实验内

8、容： 1设计一个模拟简易计算器的程序，界面如图 3 3- -1 1 所示。要求：输入两个操作数和一个操作符，根据操作符决定所进行的计算；如果除数为 0 0，用 msgboxmsgbox 提示出错信息；用 ifif 语句和 selecetcaseselecetcase 语句两种结构实现。 2. 通过单选按钮和复选框控制文字的显示，程序窗口如图 3 3- -2 2 所示。 图 3 3- -1 1 沆匚|回冈 1模拟简易计算器 对象对象 属性属性 属性值属性值 说明说明 Labell Caption 输入数 1 标签 Label2 Caption 运算器 标签 Label3 Caption 输入数

9、2 标签 Label4 Caption 结果 标签 Command1 Caption Case 结构 命令按钮 实验日期: 6 Command2 Caption if 结构 命令按钮 实验日期: 7 Text1-text4 Text aa 文本框 2.单选框与复选框 对象对象 属性属性 属性值属性值 说明说明 Frame1 Caption 字体 框架 Frame2 Caption 字号 框架 Frame3 Caption 字型 框架 Label1 Caption 奥林匹克运动会 标签 0ption1 Caption 宋体 单选按钮 0ption2 Caption 仿宋 单选按钮 0ption3

10、 Caption 黑体 单选按钮 0ption4 Caption 楷体 单选按钮 0ption5 Caption 大 单选按钮 0ption6 Caption 中 单选按钮 0ption7 Caption 小 单选按钮 Check1 Caption 加粗 复选框 Check2 Caption 倾斜 复选框 Check3 Caption 下划线 复选框 Check4 Caption 删除线 复选框 四四 实验思考：实验思考： 1. 模拟简易计算器 Commandl 命令的单击事件的程序代码是什么？ PrivateSubCommand1_Click() Dima!,b! DimcAsString

11、a=Val(Text1.Text) b=Val(Text3.Text) c=Text2.Text SelectCasec Case“+” Text4.Text 二 a+b Case“-” Text4.Text 二 a-b Case“* Text4.Text 二 a*b Case“/” 实验日期: 8 Ifb=0Then MsgBox“除数为 0.” 实验日期: 9 Else Text4.Text =a/b EndIf EndSelect EndSub 2. 模拟简易计算器 Command2 命令的单击事件的程序代码是什么？ PrivateSubCommandl_Click() Dima!,b!

12、 DimcAsString a=Val(Textl.Text) b=Val(Text3.Text) c=Text2.Text Ifc=“+”Then Text4.Text 二 a+b ElseIfc=“-”Then Text4.Text 二 a-b ElseIfc=“*”Then Text4.Text 二 a*b ElseIfc=“/”Then Ifb=0Then MsgBox“除数为 0” else Text4.Text 二 a/b EndIf EndIf EndSub 3. 通过单选按钮和复选框控制文字的显示, ,Command1 命令的单击事件的程序代码是什么PrivateSubComm

13、and1_Click() IfOption1.Value=TrueThen Label1.FontName=“宋体” ElseIfOption2.Value=TrueThen Label1.FontName=“华文仿宋” ElseIfOption3.Value=TrueThen Label1.FontName=“黑体” Else Label1.FontName=“楷体_GB2312” EndIf IfOption5.Value=TrueThen Label1.FontSize=24 ElseIfOption6.Value=TrueThen 实验日期: 10 Else Labell.FontSi

14、ze=8 EndIf IfCheckl.Value=1Then Labell.FontBold=True Else Label1.FontBold=False EndIf IfCheck2.Value=1Then Label1.FontItalic=True Else Label1.FontItalic=False EndIf IfCheck3.Value=1Then Label1.FontUnderline=True Else Label1.FontUnderline=False EndIf IfCheck4.Value=1Then Label1.FontStrikethru=True El

15、se Label1.FontStrikethru=False EndIf EndSub 实验四循环程序设计实验四循环程序设计 一一 实验目的：实验目的： 1 理解循环程序设计的特点。 2 掌握常用的循环语句。 3 掌握常用的循环算法。 4. 掌握图片框、图像框和计时器。 二二 实验内容：实验内容： 100100 別 1. 求+二k k 1 1k k1 1 2. 设计一条滚动的广告字幕。 三三 实验结果：对象属性设置实验结果：对象属性设置 1.求和结果要求窗体载入时直接显示，设置窗体的某个属性。 Label1.FontSize= 16 实验日期: 11 对象对象 属性属性 属性值属性值 说明说明

16、 Form1 AutoRedraw True 窗体 2. 滚动字幕。 对象对象 属性属性 属性值属性值 说明说明 Label1 Caption “欢迎使用 VB” 标签 Timer1 Interval 1000 时钟 四四 实验思考：实验思考： 1. 求和的窗体载入事件的程序代码是什么？PrivateSubForm_Load() Dimk%,s! s=0 Fork=1To100 s=s+1/k Nextk Fork=1To50 s=s+k Nextk Prints EndSub 2滚动字幕的触发时钟控件的程序代码是什么？。 PrivateSubTimer1_Timer() IfLabel1.L

17、eftForm1.WidthThen Label1.Left 二 0 Else Label1.Left 二 Label1.Left+100 EndIf EndSub实验日期： 12 实验五数组程序设计实验五数组程序设计 一一 实验目的：实验目的： 1. 熟练掌握固定数组。 2. 掌握动态数组。 3. 掌握列表框和组合框。 4. 了解直线控件和形状控件。 二二 实验内容：实验内容： 1设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。在列表框中随机产生 10个 100 到 200 之间的整数，在文本框中显示结果信息。界面如图 5-1 所示。 图 5-1 窗体界面 三三 实验结果：

18、对象属性设置实验结果：对象属性设置 四四 实验思考：实验思考： 1. 数组应在过程内还是过程外定义，定义的语句是什么？过程外定义 Dima(10)AsInteger 2. 在窗体载入时，在列表框中随机产生 10 个整数，则程序代码是什么？PrivateSubForm_Load() Dimi% Fori=1To10 a(i)=Int(Rnd*101+100) List1.AddItema(i) Nexti 对象对象 属性属性 Label1 Caption Label2 Caption Label3 Caption Label4 Caption Command1 Caption Text1Text

19、4 Text 属性值属性值 说明说明 10 个 100 到 200 之间的 整数 标签 最大值 标签 最小值 标签 平均值 标签 计算 命令按钮 文本框 实验日期： 13 EndSub 3. 单击命令按钮，在文本框中显示结果信息，则程序代码是什么？ PrivateSubCommandl_Click() Dii AsInteger,max%,min%,avg max = a(1) min = a(1) avg = 0 Foi =1To10 Ifmaxa(i)Thenmin=a(i)avg=avg+a(i) Nexti avg=avg/10 EndSubTextl.Text =max Text2.

20、Text =min Text3.Text =avg 实验日期: 14 实验六过程程序设计实验六过程程序设计 一一 实验目的实验目的: : 1. 掌握子过程的定义和调用方法。 2. 掌握函数过程的定义和调用方法。 3. 理解作用域和生存期。 4. 掌握滚动条。 二二 实验内容：实验内容： 1写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最 小公倍数。要求从文本框中输入两个数。界面如图 6-1 所示。 验口回区I :III n 最大公约数 最小公倍数 子过程 函数过肉 6- 2.设计一个用滚动条改变图片背景色的程序。界面如图 6-2:所示 1.结果要求单击命令

21、按钮分别显示，设置对象的属性。 对象对象 属性属性 属性值属性值 说明说明 Label1 caption m 标签 Label2 caption n 标签 Label3 caption 最大公约数 标签 Label4 caption 最小公倍数 标签 Text1-Text4 text ”a 文本框 实验日期： 15 Command1 caption 子过程 命令按钮 Command2 caption 函数过程 命令按钮 2.设置滚动条主要属性值。 对象对象 属性属性 属性值属性值 说明说明 HScroll1-HScroll3 min 0 滚动条 HScroll1-HScroll3 max 25

22、5 滚动条 四四 实验思考：实验思考： 1. 单击子过程命令按钮，在文本框 Text3 中显示结果信息，子过程的程序代码是什么？ PrivateSubCommand1_Click() DimmAsInteger,nAsInteger,rAsInteger m=Text1.Text n=Text2.Text IfmnThen t 二 m:m=n:n=t EndIf Callgys(m,n,r) Text3.Text 二 r EndSub PrivateSubgys(ByValm%,ByValn%,r%) r=mModn DoWhiler0 m=n n=r r=mModn Loop r=n End

23、Sub 2. 单击函数过程命令按钮，在文本框 Text4 中显示结果信息，函数过程的程序代码是什么？PrivateSubCommand2_Click() DimmAsInteger,nAsInteger,pAsInteger m=Text1.Text n=Text2.Text p=m*n IfmnThen t 二 m:m=n:n=t EndIf p=p/gbs(m,n) Text4.Text 二 p EndSub PrivateFunctiongbs(mAsInteger,nAsInteger)AsInteger DimrAsInteger r=mModn DoWhiler0 m=n n=r

24、r=mModn Loopgbs=n 实验日期: 16 EndFunction 3. 拖动滚动条的滑块，可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出 HScroll1 的事件过程。 DimrAsInteger,gAsInteger,bAsInteger PrivateSubHScroll1_Change() r=HScroll1.Value g=HScroll2.Value b=HScroll3.Value Text1.BackColor=RGB(r,g,b) EndSub 实验七界面设计实验七界面设计 一一 实验目的：实验目的： 1掌握多窗体程序设计的方法。 2掌握下拉式菜单。 3. 了解通用对话框。 二二 实验内容：实验内容： 1.编写密码登录系统。在窗体 1 输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自行设计操作内容；如果密码不正确，弹出信息框，显示”用户名或密码错误，请重新输入”，回到窗体 1 继续输入用户名和密码。 密码输入有三次机会， 超过三次就弹出第三个窗口， 显示”对不起，你不能使用该系统！”（注：凡是文字提示内容可自行设计，不要求与题目一样。三个窗体界面可参照图 7-1 图 7-2 图 7-3 所示。） 实验日期: 17 图 7-2 图 7-3 2利用通用对话框设计一个简单的文本编辑器，具有打开、保存、字体、颜色功能。