VB实验参考答案.doc

呼伦贝尔学院计算机科学与技术学院实 验 报 告课程名称_班级_姓名_ 学号_ _实验地点_指导教师_成绩_20实验日期：实验一 VB环境和创建一个简单的VB程序一实验目的：1.了解VB系统对计算机软件、硬件的要求。2.掌握启动和退出VB的方法。3.了解和使用VB集成开发环境各窗口、菜单的一般功能。4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。二实验内容：1设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为“显示”和“清除”。程序运行后，单击“显示”按钮，在文本框中输出一行信息；单击“清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。图1.1 实验1-1 运行界面三实验结果：对象属性设置对象属性属性值说明Form1caption我的第一个vb程序改变标题内容Label1captionxxxxx改变标题内容Text1textxxxxx设置文本框里的内容Command1caption显示改变标题内容Command2caption清除改变标题内容四实验思考：1.标签label控件设置的属性代码有哪些？Caption,autosize,backstyle,boderstyle2.两个按钮所使用的是什么事件？代码分别是什么？Private Sub Command1_Click()Text1.text=“xxxxx”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)。F为华氏温度，C为摄氏温度。 2.用三种除法运算（/ 、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。图2-1 图2-2三实验结果：对象属性设置1.温度转换对象属性属性值说明Form1captionInputbox与msgbox的应用设置标题栏的文本。Command1caption温度转换设置标题的文本。2. 三种除法运算（/ 、Mod）做计算对象属性属性值说明Label1caption被除数设置标题的文本。Label2caption除数设置标题的文本。Label3caption浮点数设置标题的文本。Label4caption整除数设置标题的文本。Label5caption余数除设置标题的文本。Command1caption执行除法运算设置标题的文本。四实验思考：1.温度转换中的Command1命令的单击事件的程序代码是什么？Private Sub Command1_Click()Dim f, c As Single f = Val(InputBox(请输入华氏温度：, 华氏温度, 100) c = 5 / 9 * (f - 32) MsgBox (转化后的摄氏度为：) & c End Sub2. 用三种除法运算（/ 、Mod）做计算，说明三种除法的区别？/ ： : 保留整数部分，不保留小数部分Mod:求余数。3. 三种除法运算（/ 、Mod）做计算，Command1命令的单击事件的程序代码是什么？Private Sub Command1_Click()Dim a，b As Singlea = Val(Text1.Text)b = Val(Text2.Text)Text3.Text = a / bText4.Text = a bText5.Text = a Mod bEnd Sub实验三 选择程序设计一实验目的：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.模拟简易计算器对象属性属性值说明Label1caption输入数1设置标题内容Label2caption运算器设置标题内容Label3caption输入数2设置标题内容Label4caption结果设置标题内容Command1captionCase结构设置标题内容Command2captionIf结构设置标题内容Text1-text4text“”设置文本框中包含的文本2.单选框与复选框对象属性属性值说明Frame1caption字体设置标题内容Frame2caption字号设置标题内容Frame3caption字型设置标题内容Label1caption奥林匹克运动会设置标题内容Option1caption宋体设置标题内容Option2caption仿宋设置标题内容Option3caption黑体设置标题内容Option4caption楷体设置标题内容Option5caption大设置标题内容Option6caption中设置标题内容Option7caption小设置标题内容Check1caption加粗设置标题内容Check2caption倾斜设置标题内容Check3caption下划线设置标题内容Check4caption删除线设置标题内容四实验思考：1. 模拟简易计算器Command1命令的单击事件的程序代码是什么？Private Sub Command1_Click()Dim x, y, z As Single, k As Stringx = Val(Text1.Text)y = Val(Text3.Text)k = Text2.TextSelect Case kCase +z = x + yCase -z = x - yCase *z = x * yCase /z = x / yIf y = 0 ThenMsgBox (除数不能为零)Text3.Text = Text3.SetFocusElsez = x / yEnd IfEnd SelectText4.Text = zEnd Sub2. 模拟简易计算器Command2命令的单击事件的程序代码是什么？Private Sub Command2_Click()Dim x, y, z As Single, k As Stringx = Val(Text1.Text)y = Val(Text3.Text)k = Text2.TextIf k = + Thenz = x + yElseIf k = - Thenz = x - yElseIf k = * Thenz = x * yElseIf k = / ThenIf y = 0 ThenMsgBox (除数不能为零)Text3.Text = Text3.SetFocusElsez = x / yEnd IfEnd IfText4.Text = zEnd Sub3. 通过单选按钮和复选框控制文字的显示,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 = 楷体_GB2312End IfIf Option5.Value = True Then Label1.FontSize = 24ElseIf Option6.Value = True Then label1.FontSize = 16Else label1.FontSize = 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 Text1.FontUnderline = TrueElse Text1.FontUnderline = FalseEnd IfIf Check4.Value = 1 Then label1.FontStrikethru = TrueElse label1.FontStrikethru = FalseEnd IfEnd Sub实验四 循环程序设计一实验目的：1理解循环程序设计的特点。2掌握常用的循环语句。 3掌握常用的循环算法。4掌握图片框、图像框和计时器。1k1001k501+二实验内容：1求2设计一条滚动的广告字幕。三实验结果：对象属性设置1 求和结果要求窗体载入时直接显示，设置窗体的某个属性。对象属性属性值说明Form1caption“求和”这个窗体是求和用的2 滚动字幕。对象属性属性值说明Label1caption“滚动文字”填写广告词Timer1interval1000每一秒运行一次四实验思考：1求和的窗体载入事件的程序代码是什么？Private Sub Form_Load()Dim k%, s1!, s2%, s%k = 1s1 = 0s2 = 0s = 0For k = 1 To 100s1 = s1 + 1 / kNext kPrint s1: & s1For k = 1 To 50s2 = s2 + kNext kPrint s2: & s2s = s1 + s2Print s: & s End Sub2滚动字幕的触发时钟控件的程序代码是什么？。Private Sub Timer1_Timer()If Label1.Left + Label1.Width 0 ThenLabel1.Move Label1.Left - 20ElseLabel1.Left = Form1.ScaleWidthEnd IfEnd Sub实验五 数组程序设计一实验目的：1熟练掌握固定数组。2掌握动态数组。 3掌握列表框和组合框。4了解直线控件和形状控件。二实验内容：1设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。在列表框中随机产生10个100到200之间的整数，在文本框中显示结果信息。界面如图5-1所示。图5-1 窗体界面三实验结果：对象属性设置对象属性属性值说明Label1caption10个100到200之间的整数设置标题内容Label2caption最大值设置标题内容Label3caption最小值设置标题内容Label4caption平均值设置标题内容Command1caption计算设置标题内容Text1Text4text“”设置文本框文本属性四实验思考：1数组应在过程内还是过程外定义，定义的语句是什么？Dim a(9) As Integer2在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？Private Sub Form_Load()For i = o To 9a(i) = Int(Rnd * (200 - 100 + 1) + 100)List1.AddItem Str(a(i)NextEnd Sub3单击命令按钮，在文本框中显示结果信息，则程序代码是什么？Private Sub Command1_Click()Dim max%, min%, average As Single, sum%max = 100min = 200sum = 0For i = 0 To 9If a(i) max Then max = a(i)If a(i) min Then min = a(i)sum = sum + a(i)Next iaverage = sum / 10Text1.Text = maxText2.Text = minText3.Text = averageEnd Sub实验六 过程程序设计一实验目的：1掌握子过程的定义和调用方法。2掌握函数过程的定义和调用方法。3理解作用域和生存期。4. 掌握滚动条。二实验内容：1.写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最小公倍数。要求从文本框中输入两个数。界面如图6-1所示。图6-12.设计一个用滚动条改变图片背景色的程序。界面如图6-2所示图6-2三实验结果：对象属性设置1结果要求单击命令按钮分别显示，设置对象的属性。对象属性属性值说明Label1captionm设置标题内容Label2captionnLabel3caption最大公约数Label4caption最小公倍数Text1- Text4text“”Command1caption子过程Command2caption函数过程2设置滚动条主要属性值。对象属性属性值说明HScroll1- HScroll3 min0设置最小值HScroll1- HScroll3 max255设置最大值四实验思考：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 = rEnd SubPrivate Sub gys(ByVal m%, ByVal n%, r%) Do r = x Mod y If r = 0 Then z = y Exit Do End If x = y y = rLoopEnd 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 0 ThenLabel1.Move Label1.Left - 20ElseLabel1.Left = Picture1.ScaleWidthEnd IfEnd Sub实验七 界面设计一实验目的：1掌握多窗体程序设计的方法。2掌握下拉式菜单。3了解通用对话框。二实验内容：1.编写密码登录系统。在窗体1输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自 行设计操作内容；如果密码不正确，弹出信息框，显示“用户名或密码错误，请重新输入”，回到窗体1继续输入用户名和密码。密码输入有三次机会，超过三次就弹出第三个窗口，显示“对不起，你不能使用该系统！”（注：凡是文字提示内容可自行设计，不要求与题目一样。三个窗体界面可参照图7-1 图7-2 图7-3所示。）图7-1图7-2图7-3 2.利用通用对话框设计一个简单的文