安徽建筑工业学院

安徽建筑工业学院现代教育技术中心实验报告课程名称：VisualBasic程序设计指导教师：＿＿＿＿＿＿＿专业：＿＿＿＿＿＿＿班级：＿＿＿＿＿＿＿姓名：＿＿＿＿＿＿＿学号：＿＿＿＿＿＿＿200至200学年第学期VisualBasic程序设计实验1安徽建筑工业学院现代教育技术中心实验报告实验一VisualBasic集成环境和程序设计初步实验地点：第机房实验时间：年月日实验目的1.掌握启动和关闭VisualBasic系统方法，熟悉VisualBasic的集成开发环境。2.掌握VisualBasic工具箱窗口、属性窗口、工程资源管理器窗口各自功能作用。3.熟悉开、闭各种窗口的方法和工具栏的定制。4.掌握建立（打开）工程、保存（另存）工程、运行工程和编译工程的方法。5.掌握代码窗口、对象窗口、立即窗口的使用6.学会在窗体上添加控件方法和如何布局控件的命令,熟悉基本控件默认名。VisualBasic程序设计实验2实验内容1.问答题①写出以下控件的中文名称。LableCommandButtonTextBoxCheckBoxOptionButtonTimerPictureBoxImage2．编程题必做部分(1)打开VisualBasic并建立一个名为“文字转换”的工程。在界面上建立一个标签，一个文本框和一个按钮，分别显示“修改前”、“安徽理工大学”“修改”字样，用户点击“修改”按钮，标签和文本框分别显示“修改后”、“安徽建筑工业学院”字样。提示：保存这个工程，运行这个工程，编译这个工程。注意它们保存在什么位置，一个工程由几个什么类型的文件组成，通过图标能分清它们吗？(2)打开VisualBasic并建立一个名为“圆的相关计算”的工程，窗体命名为“计算界面”。在该窗体上添加三个标签三个文本框和两个按钮。如图所示。要求：当用户在文本框1中输入半径后，单击“计算圆的周长”在文本框2中显示结果；单击“计算圆的面积”，在文本框3中显示结果。提示：可先行参看常量的声明方法。（3）新建另一个工程。添加3个命令按钮，使命令按钮1标题提示文字是“打印”，使另外两个命令按钮的标题分别为“清除”和“退出”。要求三个按钮在窗体的右下角处，大小尺寸同第一个按钮。运行时按“打印”按钮时在窗体上输出两行文字“学海无涯苦作舟，书山无路勤为径。”按“清除”按钮时清除这两行文字并显示“知识就是力量”。按“退出”按钮时结束运行状态回到设计状态。选作部分（1）打开VisualBasic并建立一个名为“美丽的校园”工程。在窗体上装入一幅图片。画一个标签，使其标题为：“知识的港湾，成才的摇篮”。并可由下往上，由上往下运动。按要求保存工程调试运行工程直到满意为止。编译这个工程并运行编译后的程序。过程、程序、结VisualBasic程序设计实验3果过程、程序、结VisualBasic程序设计实验4果VisualBasic程序设计实验5过程、程序、结果实验分析教师评阅成绩：教师签名：年月日VisualBasic程序设计实验6安徽建筑工业学院现代教育技术中心实验报告实验二顺序、选择结构程序设计实验地点：第机房实验时间：年月日实验目的1．掌握各类表达式、赋值语句的书写规则。2．掌握常用函数的使用方法、掌握InputBox和MsgBox函数的使用方法和返回值的使用。3．熟悉利用立即窗口来测试常用函数，各类表达式的计算结果。了解如何察看Debug.print表达式语句的执行结果。4．掌握If～语句，If～Then～语句If～Then～EndIf语句和If～Then～ElseIf～…EndIf语句的使用规则和执行流程。掌握Iif函数，Choose函数的使用规则和方法。5．掌握SelectCase～Case～…CaseElse～EndSelect语句的使用规则和执行流程。掌握Switch函数的使用规则和方法。实验内容1．书写以下表达式：①enmbax||6.305.8log3sin32＿＿＿＿＿＿＿＿＿＿＿＿＿②x和y是一个落在第一或第三象限内的点坐标＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿③a是100以内的整数＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿2．求以下表达式的值①语句PrintFormat(HELLO,)的输出结果是__________②设标签Label1.Caption=oppo,myOPPOmusicmyMusic珍珠玉盘，则Right(Label1,3)Left(Label1,4)Mid(Label1,9,4)Instr(Label1，OPPO)Len(Label1.Caption)Instr(Instr(Label1，m)+1,Label1,m)LenB(Label1.Caption)③315+23&12mod7④12e2+23&315mod2⑤7and-13．选择回答①InputBox函数返回值的类型为:A)数值B)字符串C)变体D)数值或字符串(视输入的数据而定)②表达式4+5＼6*7/8Mod9的值是:A)4B)5C)6D)7VisualBasic程序设计实验7③语句PrintFormat(32548.5,000.000.00)的输出结果是:A)32548.500.00B)32，548.5C)032，548.50D)32，548.50④执行语句InputBoxToday,Tomorrow,Yesterday将显示一个输入对话框，在对话框的输入区中显示的信息是：A)TodayB)TomorrowC)YesterdayD)Daybeforeyesterday⑤表达式Int(5*Rnd+1)*Int(5*Rnd-1)值的范围是_____.A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]⑥下列可作为VisualBasic变量名的是__________A）A#AB）4AC）?xyD）constA⑦执行如下程序段时，从键盘输入-5，输出的结果是__________x=-5s=Val(InputBox(请输入s的值:))SelectCasesCaseIs0y=x+1CaseIs=0y=x+2CaseElsey=x+3EndSelectPrintx;yA.-5-2B.-5-4C.-5-3D.-5-54．编程题必做部分（1）通过两个文本框分别获得两个输入值，用户通过点击“比较大小”按钮使得文本框1的值大于文本框2的值。（2）设窗口内的命令按钮“加倍”具有如下的功能：将文本框Text1中输入的数值加倍后，在文本框Text2中显示其结果。（3）编制一段程序完成以下分段函数的求值，自变量的值通过InputBox函数完成。如果分段函数无定义用MsgBox函数给予提示。)10()100()0()2/)1(()*2())2((XXxXExpXLogxxAbsyVisualBasic程序设计实验8（4）当一个文本框控件获得焦点的时候，只要在键盘上按下一个具有ASCII码的按键就会触发一次它的KeyPress事件。请在这个事件中编一段代码使文本框的文本属性只能含有1，2，3，4，m，j字符。（5）用户通过inputbox函数获得一位同学的成绩。通过selectcase语句编程显示该成绩的等级。（”A”=90;90”B”=80;80”C”=70;70”D”=60;60”failed”）选做部分（1）比较3个数的大小。通过3个文本框获得值，使用print方法在窗体上按大小顺序输出。过程、程序、结果VisualBasic程序设计实验9过程、程序、结果VisualBasic程序设计实验10过程、程序、结果实验分析教师评阅成绩：教师签名：年月日VisualBasic程序设计实验11安徽建筑工业学院现代教育技术中心实验报告实验三循环结构程序设计（1）实验地点：第机房实验时间：年月日实验目的1．掌握对For循环和For循环的循环次数计算方法。2．掌握各种形式的DO循环的使用规则和执行流程。3．熟练使用ExitFor、ExitDo、Goto语句和循环嵌套。实验内容1.选择回答①运行下列程序时，如果连击3次cmd1，且输入9，3，16，获得的运行结果分别是：PrivateSubCmd1_Click()DimxAsIntegerDimyAsIntegerx=Val(InputBox(输入数据))IfInt(Sqr(x))Sqr(x)Theny=x*xElsey=Sqr(x)EndIfForm1.Text1.Text=Str(y)EndSubA.3、3、4B.81、9、256C.3、9、4D.9、3、16②下面程序运行时ForM=1To3ForN=0ToM-1NextNNextM内层循环的循环总次数是（）A.6B.7C.8D.9③阅读下面的程序段：x=1Dox=x+1LoopUntilx1Printx程序结果为A.1B.2C.3D.出错2.编程题必做部分（1）编写程序，计算1----20的阶乘。VisualBasic程序设计实验12（2）计算200-----300范围内能被5和7同时整除的数字之和。（3）求自然对数e的近似值，要求误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/n!+……选作部分（1）编写程序输出1000之内的所有完数.完数是指一个数恰好'等于它的因子之和。如6的因子为1，2，3。而6=1+2+3，因此6是完数。过程、程序、结果VisualBasic程序设计实验13过程、程序、结果VisualBasic程序设计实验14过程、程序、结果实验分析教师评阅成绩：教师签名：年月日VisualBasic程序设计实验15安徽建筑工业学院现代教育技术中心实验报告实验四循环结构程序设计（2）实验地点：第机房实验时间：年月日实验目的1．掌握对For循环和For循环的循环次数计算方法。2．掌握各种形式的DO循环的使用规则和执行流程。3．熟练使用ExitFor、ExitDo、Goto语句和循环嵌套。实验内容1.读程序写结果①PrivateSubCommand1_Click()Dimm%,a%,n!Form=1To10Step2a=0Forn=0To9Step2a=a+2NextnNextmPrintaEndSub结果：②PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,j%,k%,w%Text1=Fori=1To4Ifx12ThenExitForForj=1To3Fork=1To2x=x+3Text1.Text=Text1.Text+Trim(Str(x))w=xNextkNextjNextiPrintwEndSub结果：wText1.Text③PrivateSubForm_Click()DimkAsIntegerDimn%,m%n=5:m=1DoUntilknVisualBasic程序设计实验16m=m*2k=k+1LoopPrintk,mEndSub结果：km④Fori=1To6IfiMod2=0ThenPrint#;ElsePrint*;EndIfNexti以上程序段的输出字符的结果是___________2.编程题必做部分（1）用辗转相除法求两个自然数m、n的最大公约数和最小公倍数。（用文本框获得输入）（2）请在窗体适当位置增加以下控件：一个标签（名称分别为label1，标题为“100－200之间的素数和为”），一个文本框（名称为text1，文本为空白）和1个命令按钮（名称为：command1，标题为：“计算”），将窗体名称改为“求素数和”。要求程序运行后，单击计算按钮，在text1文本框中显示出100—200之间的素数和。（3）在窗体上添加1个文本框，编程统计用户输入文本框的字符串中含有目标串“and”的次数。（4）求s=1-1/3!+1/5!-1/7!+……+(-1)(n-1)*1/(2n-1)!过程、程序、结果VisualBasic程序设计实验17过程、程序、结果VisualBasic程序设计实验18过程、程序、结果实验分析教师评阅