VB实验及答案

实验一VisualBasic环境和简单程序设计一、实验目的1．掌握VisualBasic启动和退出的方法。2．熟悉VisualBasic的集成开发环境。3．掌握VisualBasic程序设计的基本步骤。4．掌握基本控件（标签、命令按钮和文本框）的基本使用方法。二、实验内容1启动VisualBasic，然后创建一个“标准EXE”工程。了解VisualBasic集成开发环境下各组成部分及其作用。【要求】（1）在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、“工程资源管理器”、“窗体布局窗口”、“工具箱窗口”，熟悉它们的默认位置。（2）在“视图”或“工程资源管理器”中切换显示“代码窗口”和“窗体窗口”。（3）在“视图”菜单中点击“立即窗口”，观察刚刚显示出来的“立即窗口”。（4）尝试分别将各部分关闭，然后再用“视图”菜单中对应的菜单命令将其显示。2编写一个简单的应用程序。要求窗体的标题为“简单VB实验”；窗体中有一个标题为“显示”的按钮；单击该按钮后在窗体上显示红色的“广西师范学院”。【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1、一个标签Label1。（2）设置对象的属性对象名称属性名称属性值Form1Caption简单VB实验Label1ForeColor红色Command1Caption显示（3）编写事件代码：PrivateSubCommand1_Click()Label1.Caption=广西师范学院EndSub（4）程序的运行及保存。【提示】在窗体上显示“广西师范学院”有两种方法：（1）用Print方法：设置窗体的前景色为红色。（2）用一个标签控件：设置标签控件的前景色为红色。【思考】为什么在以上两种方法中在颜色的设置问题上有所不同？3通过编程修改控件的属性。【要求】（1）进入程序设计的界面如图1-1（a）。（2）点击“单击此处”按钮后程序运行的界面如图1-1(b)。【步骤】（1）在窗体中创建一个标签Label1、一个命令按钮Command1。（2）在属性窗口中设置对象的属性：对象名称属性名称属性值Form1Caption设计界面Label1Caption请留意此处Command1Caption单击此处（3）在Command1的Click事件中编写程序代码：PrivateSubCommand1_Click()Form1.Caption=编程后界面Label1.Caption=欢迎您使用VB6.0Command1.Caption=运行结果EndSub【提示】可以通过两种方法设置对象的属性：（1）在程序设计状态，通过属性窗口对该属性进行修改或设置。（2）在程序运行状态，通过程序中的语句动态地更改对象的属性。修改对象属性的语句格式：对象名.属性名称=新设置属性值实验二顺序结构程序设计一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。2．掌握赋值语句和常用函数的正确使用方法。3．掌握输入、输出对话框（InputBox和MsgBox）的基本使用方法。二、实验内容1假设有变量a=2,b=5,c=4,d=3,e=6，编写程序，计算表达式a+bcandd*a=e的值，将结果打印在窗体上。【提示】注意复合表达式的运算顺序。【思考】复合表达式按什么样的顺序运算？2编写程序，界面如图2-1所示。使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签Label1上，再求出该数的正弦值，将结果写在标签Label2上。【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1、两个标签Label1和Label2。（2）设置对象的属性对象名称属性名称属性值Form1Caption随机数的正弦值Command1Caption下一个随机数Label1CaptionLabel2Caption（3）编写事件代码：PrivateSubCommand1_Click()Dimx!,y!Randomizex=Rnd*31+60y=Sin(x)Label1.Caption=随机数（60-90）：&Str(x)Label2.Caption=正弦值：&Str(y)EndSub（4）程序的运行及保存。【提示】（1）使用Rnd函数产生随机数，注意，为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初始化。（2）产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下限。（3）求正弦值函数为：sin()。【思考】怎样产生一个[60,90]之间的随机数？3编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图2-2所示。其中F与C之间的关系为：3259CF。【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2、两个标签Label1和Label2、两个文本框Text1和Text2。（2）设置对象的属性对象名称属性名称属性值Form1Caption温度转换Command1CaptionCommand2CaptionLabel1Caption华氏温度Label2Caption摄氏温度Text1TextText2Text（3）编写事件代码：PrivateSubCommand1_Click()Dimf!,c!f=Val(Text1.Text)c=(f-32)*5/9Text2=Str(c)EndSubPrivateSubCommand2_Click()Dimf!,c!c=Val(Text2.Text)f=9/5*c+32Text1=Str(f)EndSub（4）程序的运行及保存。4求圆的面积及圆柱体的体积，界面如图2-3所示。【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2，四个标签Label1、Label2、Label3和Label4，四个文本框Text1、Text2、Text3和Text4。（2）设置对象的属性对象名称属性名称属性值Command1Caption求圆的面积Command2Caption求圆柱的体积Label1Caption圆的半径Label2Caption圆柱的高Label3Caption圆的面积Label4Caption圆柱的体积Text1、Text2、Text3、Text4Text（3）编写事件代码：PrivateSubCommand1_Click()DimrAsSingle,sAsSingler=Val(Text1.Text)s=3.14159*r*rText3.Text=Str(s)EndSubPrivateSubCommand2_Click()Dimr!,h!,v!r=Val(Text1.Text)h=Val(Text2)v=3.14159*r*r*hText4=vEndSub（4）程序的运行及保存。实验三选择结构程序设计一、实验目的1．掌握逻辑表达式的正确使用方法。2．掌握单分支、双分支和多分支条件语句结构的使用方法。二、实验内容1有函数：)10(124)101(23)1(xxxxxxy写一个程序，输入x值后，则输出相应y值。要求用“If…ElseIf…EndIf”和用“SelectCase”两种方法完成该题目。【提示】注意区分1≤x10和1=xAndx10有什么不同。2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，三个标签Label1、Label2和Label3，两个文本框Text1和Text2。（2）设置对象的属性对象名称属性名称属性值Form1Caption象限判断Command1Caption判断Label1CaptionX=Label2CaptionY=Label3CaptionText1、Text2Text（3）编写事件代码：PrivateSubCommand1_Click()Dimx!,y!x=Val(Text1)y=Val(Text2)Ifx0ThenIfy0ThenLabel1.Caption=在第一象限ElseLabel1.Caption=在第四象限EndIfElseIfy0ThenLabel1.Caption=在第二象限ElseLabel1.Caption=在第三象限EndIfEndIfEndSub（4）程序的运行及保存。3编写一个网吧收费程序。【要求】（1）运行界面如图3-2所示。（2）网吧基本收费为2元/小时。（3）根据不同的上机时数x，上机费用y可以按以下公式计算收费：【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，两个标签Label1和Label2，两个文本框Text1和Text2。（2）设置对象的属性对象名称属性名称属性值Command1Caption计费Label1Caption上机时数Label2Caption上机费用Text1、Text2Text（3）编写事件代码：PrivateSubCommand1_Click()Dimx!,y!x=Val(Text1)Ifx3Theny=2*xElseIfx5Theny=2*0.9*xElseIfx10Theny=2*0.8*xElsey=2*0.75*xEndIfText2=Str(y)EndSub（4）程序的运行及保存。4输入某学生的某科目考试成绩（100分制），输出该学生的成绩等级。90分以上为“优秀”，80～89分为“良好”，70～79分为“中等”，60～69分为“及格”，60分以下为“不及格”。【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，两个标签Label1和Label2，两个文本框Text1和Text2，如图3-3所示。（2）设置对象的属性对象名称属性名称属性值Command1Caption成绩等级Label1Caption请输入成绩Label2Caption成绩等级为Text1、Text2Text（3）编写事件代码：PrivateSubCommand1_Click()Dimcj!,djAsStringcj=Val(Text1.Text)SelectCaseVal(Text1)\10Case9,10Text2=优秀Case8Text2=良好Case7Text2=中等Case6Text2=及格CaseElseText2=不及格EndSelectEndSub（4）程序的运行及保存。实验四循环结构程序设计一、实验目的1．掌握循环的基本概念。2．掌握For循环。3．掌握Do...While循环和DoWhile...Loop循环，注意区分两种循环。4．了解Do...LoopUntil循环和DoUntil...Loop循环。5．掌握如何利用循环条件来控制循环，防止死循环的出现。二、实验内容1编写一个程序，当程序运行时，单击窗体后，用单循环在窗体上输出规则字符图形，如图4-1所示。【步骤】（1）编写事件代码：PrivateSubForm_Click()Dimi%ClsFori=1To10PrintString(i,*)NextiEndSub（2）程序的运行及保存。【提示】使用String（）函数，String（）函数可以重复显示某个字符串。例如，String（4，*）可以生成4个连续的“*”，即“****”。2编写程序，用单循环在窗体上实现如图4-2所示的图形。【步骤】（1）编写事件代码：PrivateSubForm_Click()Dimi%ClsFori=9To0Step-1PrintSpc(10-i);String(2*i+1,Trim(Str(i)))NextiEndSub（2）程序的运行及保存。【提示】（1）注意观察图形的规律：第I行在输出时是m个空格＋n个字符x，其中m、n、x均和I有关系。（2）配合Print方法使用Spc（n）函数，其作用是产生n个连续的空格。（3）使用Str（）函数和Trim（）函数。Str（f）函数是将数值f转换为相同形式的字符串；Trim（s