1、VB实验报告含答案实 验 报 告课程名称_程序设计根底Visual Basic_班 级_ _姓名_ _ 实验一 VB环境和创立一个简单的VB程序一实验目的:1.理解VB系统对计算机软件、硬件的要求。2.掌握启动和退出VB的方法。3.理解和使用VB集成开发环境各窗口、菜单的一般功能。4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。5.理解文本框、标签框、命令按钮的构造及其属性、事件和方法。二实验内容:1设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序,并把命令按钮分别设置为显示和去除。程序运行后,单击显示按钮,在文本框中输出一行信息;单击去除按钮,那
2、么去除文本框中的内容,运行界面如图1.1所示。图1.1 实验1-1 运行界面三实验结果:对象属性设置对象属性属性值说明Form1caption我的第一个vb程序窗体Label1caption请输入姓名标签Text1text“文本框Command1caption显示命令按钮Command2caption去除命令按钮四实验考虑:1.标签label控件设置的属性代码有哪些?Label1.Caption=“ 请输入姓名Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件?代码分别是什么?Private Sub Command1_Click()Tex
3、t1.text=“姓名 End SubPrivate Sub Command2_Click()Text1.text=End Sub实验二 简单程序设计数据类型及常用内部函数的简单应用一实验目的:1掌握Visual Basic数据类型的根本概念。2掌握用Visual Basic的各种运算符及表达式。3学习使用Visual Basic内部函数和数据输入、输出方法。4掌握命令按钮、文本框和标签。5设计顺序程序。二实验内容:1编写一个华氏温度和摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度,用msgbox输出转换后的摄氏温度。转换公式是:C= 5 / 9(F - 32)
4、。F为华氏温度,C为摄氏温度。 2.用三种除法运算/ 、Mod做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。图2-1 图2-2三实验结果:对象属性设置对象属性属性值说明Form1CaptionInputbox与msgbox应用窗体Command1Caption温度转换命令按钮2. 三种除法运算/ 、Mod做计算对象属性属性值说明Label1Caption被除数标签Label2Caption除数标签Label3Caption浮点数标签Label4Capt
5、ion整除数标签Label5Caption余数除标签Command1Caption执行除法运算命令按钮四实验考虑:1.温度转换中的Command1命令的单击事件的程序代码是什么?Private Sub Command1_Click()Dim C!,F!F=val(inputbox(“输入华氏温度)C=5/9*F-32Msgbox “对应的摄氏温度为: & CEnd Sub2. 用三种除法运算/ 、Mod做计算,说明三种除法的区别?/:两个数相除:两个数整除Mod:两个数相除,得余数3. 三种除法运算/ 、Mod做计算,Command1命令的单击事件的程序代码是什么?Private Sub Co
6、mmand1_Click()Dim a!,b!a=val(text1.text)b= val(text2.text)text3.text=a/btext4.text=abtext5.text=a mod bEnd Sub实验三 选择程序设计一实验目的:1.掌握单分支与双分支条件语句的使用。2.掌握多分支条件语句If Then ElseIf的使用。 3.掌握Select Case语句的使用及与多分支条件语句的区别。4.纯熟掌握时间过程的编写方法。二实验内容:1.设计一个模拟简易计算器的程序,界面如图3-1所示。要求:输入两个操作数和一个操作符,根据操作符决定所进展的计算;假如除数为0,用msgb
7、ox提示出错信息;用if语句和selecet case语句两种构造实现。2.通过单项选择按钮和复选框控制文字的显示,程序窗口如图3-2所示。 图3-1图3-2三实验结果:对象属性设置1.模拟简易计算器对象属性属性值说明Label1Caption输入数1标签Label2Caption运算器标签Label3Caption输入数2标签Label4Caption结果标签Command1CaptionCase构造命令按钮Command2Captionif构造命令按钮Text1-text4Text“文本框2.单项选择框与复选框对象属性属性值说明Frame1Caption字体框架Frame2Caption字
8、号框架Frame3Caption字型框架Label1Caption奥林匹克运动会标签Option1Caption宋体单项选择按钮Option2Caption仿宋单项选择按钮Option3Caption黑体单项选择按钮Option4Caption楷体单项选择按钮Option5Caption大单项选择按钮Option6Caption中单项选择按钮Option7Caption小单项选择按钮Check1Caption加粗复选框Check2Caption倾斜复选框Check3Caption下划线复选框Check4Caption删除线复选框四实验考虑:1. 模拟简易计算器Command1命令的单击事件的程
9、序代码是什么?Private Sub Command1_Click()Dim a!, b!Dim c As Stringa = Val(Text1.Text)b = Val(Text3.Text)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.ElseText4.Text = a / bEnd If End SelectEnd Sub2. 模拟简易计算器Command2命令的单击事件的程
10、序代码是什么?Private Sub Command1_Click()Dim a!, b!Dim c As Stringa = Val(Text1.Text)b = Val(Text3.Text)If c = “+ Then Text4.Text = a + bElseIf c = “- Then Text4.Text = a - bElseIf c = “* Then Text4.Text = a * bElseIf c = “/ ThenIf b = 0 Then MsgBox “除数为0” else Text4.Text = a / b End If End IfEnd Sub3. 通过
11、单项选择按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么Private Sub Command1_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 IfIf Option5.Value = True Then
12、Label1.FontSize = 24ElseIf Option6.Value = True Then Label1.FontSize = 16ElseontSize = 8End IfIf Check1.Value = 1 Then Label1.FontBold = TrueElse Label1.FontBold = FalseEnd IfIf Check2.Value = 1 Then Label1.FontItalic = TrueElse Label1.FontItalic = FalseEnd IfIf Check3.Value = 1 Then Label1.FontUnde
13、rline = TrueElse Label1.FontUnderline = FalseEnd IfIf Check4.Value = 1 Then Label1.FontStrikethru = TrueElse Label1.FontStrikethru = FalseEnd IfEnd Sub实验四 循环程序设计一实验目的:1理解循环程序设计的特点。2掌握常用的循环语句。 3掌握常用的循环算法。4掌握图片框、图像框和计时器。1k1001k501+二实验内容:1求2设计一条滚动的广告字幕。三实验结果:对象属性设置1求和结果要求窗体载入时直接显示,设置窗体的某个属性。对象属性属性值说明Fo
14、rm1AutoRedrawTrue窗体2滚动字幕。对象属性属性值说明Label1Caption“欢送使用VB标签Timer1Interval1000时钟四实验考虑:1求和的窗体载入事件的程序代码是什么?Private Sub Form_Load() Dim k%, s!s = 0For k = 1 To 100 s = s + 1 / kNext kFor k = 1 To 50 s = s + kNext kPrint sEnd Sub2滚动字幕的触发时钟控件的程序代码是什么?。Private Sub Timer1_Timer()If Label1.Left Form1.Width Then
15、 Label1.Left = 0Else Label1.Left = Label1.Left + 100End IfEnd Sub实验五 数组程序设计一实验目的:1纯熟掌握固定数组。2掌握动态数组。 3掌握列表框和组合框。4理解直线控件和形状控件。二实验内容:1设计一个程序,找出数组中的最大值、最小值,并计算所有元素的平均值。在列表框中随机产生10个100到200之间的整数,在文本框中显示结果信息。界面如图5-1所示。图5-1 窗体界面三实验结果:对象属性设置对象属性属性值说明Label1Caption 10个100到200之间的整数标签Label2Caption 最大值标签Label3Cap
16、tion 最小值标签Label4Caption平均值标签Command1Caption计算命令按钮Text1Text4Text“文本框四实验考虑:1数组应在过程内还是过程外定义,定义的语句是什么?过程外定义Dim a(10) As Integer2在窗体载入时,在列表框中随机产生10个整数,那么程序代码是什么?Private Sub Form_Load()Dim i%For i = 1 To 10 a(i) = Int(Rnd * 101 + 100) List1.AddItem a(i)Next iEnd Sub3单击命令按钮,在文本框中显示结果信息,那么程序代码是什么?Private Su
17、b Command1_Click()Dim i As Integer, max%, min%, avg!max = a(1)min = a(1)avg = 0For i = 1 To 10 If max a(i) Then min = a(i) avg = avg + a(i)Next iavg = avg / 10Text1.Text = maxText2.Text = minText3.Text = avgEnd Sub实验六 过程程序设计一实验目的:1掌握子过程的定义和调用方法。2掌握函数过程的定义和调用方法。3理解作用域和生存期。4. 掌握滚动条。二实验内容:1.写两个函数,分别求两个
18、数的最大公约数和最小公倍数,编写子过程求最大公约数,函数过程求最小公倍数。要求从文本框中输入两个数。界面如图6-1所示。图6-1。界面如图6-2所示图6-2三实验结果:对象属性设置1结果要求单击命令按钮分别显示,设置对象的属性。对象属性属性值说明Label1captionm标签Label2captionn标签Label3caption最大公约数标签Label4caption最小公倍数标签Text1- Text4text“文本框Command1caption子过程命令按钮Command2caption函数过程命令按钮2设置滚动条主要属性值。对象属性属性值说明HScroll1- HScroll3
19、min0滚动条HScroll1- HScroll3 max255滚动条四实验考虑:1单击子过程命令按钮,在文本框Text3中显示结果信息,子过程的程序代码是什么?Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer If m n Then t = m: m = n: n = t End If Call gys(m, n, r) Text3.Text = rEnd SubPrivate Sub gys(ByVal m%, ByVal n%, r%)r = m Mod nDo While r 0 m =
20、n n = r r = m Mod nLoopr = nEnd Sub 2单击函数过程命令按钮,在文本框Text4中显示结果信息,函数过程的程序代码是什么?Private Sub Command2_Click()Dim m As Integer, n As Integer, p As Integer p = m * n If m n Then t = m: m = n: n = t End If p = p / gbs(m, n) Text4.Text = pEnd SubPrivate Function gbs(m As Integer, n As Integer) As Integer D
21、im r As Integer r = m Mod nDo While r 0 m = n n = r r = m Mod nLoopgbs = nEnd Function3. 拖动滚动条的滑块,可改变图片控件的背景颜色,三个滚动条的程序代码相似,请写出HScroll1的事件过程。Dim r As Integer, g As Integer, b As IntegerPrivate Sub HScroll1_Change()Text1.BackColor = RGB(r, g, b)End Sub实验七 界面设计一实验目的:1掌握多窗体程序设计的方法。2掌握下拉式菜单。3理解通用对话框。二实验
22、内容:1.编写密码登录系统。在窗体1输入用户名和密码,假如密码正确就弹出第二个窗体,第二个窗体自 行设计操作内容;假如密码不正确,弹出信息框,显示用户名或密码错误,请重新输入,回到窗体1继续输入用户名和密码。密码输入有三次时机,超过三次就弹出第三个窗口,显示对不起,你不能使用该系统!注:但凡文字提示内容可自行设计,不要求与题目一样。三个窗体界面可参照图7-1 图7-2 图7-3所示。图7-1图7-2图7-3 2.利用通用对话框设计一个简单的文本编辑器,具有翻开、保存、字体、颜色功能。要求用菜单实现,有文件和格式两个菜单,文件菜单下包含翻开、保存和退出三项。格式菜单下包含字体和颜色两项,翻开文件
23、显示在文本框中。窗体界面可参照图7-4 所示。图7-4三实验结果:对象属性设置1设置三个窗体的控件及其属性。对象控件名称属性属性值Form1Form1CaptionForm1Form2Form2CaptionForm2Form3Form3CaptionForm32设置窗体控件及属性值。对象控件名称属性属性值窗体Form1CaptionForm1文本框1Text1TextText1翻开OpenCaption翻开保存SaveCaption保存退出ExitCaption退出字体FontCaption字体颜色ColorCaption颜色四实验考虑:1以下程序为实验内容1的局部程序代码,单击确定命令按钮的程序代码是什么?Private Sub Form_Load() Text2.PasswordChar = “* Text2.Text = “ Text1.Text = “End SubPrivate Sub Command1_Click()Static i As Integeri = i + 1If i = 3 Then Exit SubEnd IfIf Text1.Text = “abc And Text2.Text = “123” ThenElse MsgBox “用户名或密码错误,请重新输入 Text2.Text = “ Text1.Text = “End ifEnd Sub
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1