第9章 实验.docx

1、第9章 实验第9章 实验 233实验一 Visual Basic集成开发环境 233实验二 运算符和表达式 235实验三 窗体与基本控件（一） 236实验四 窗体基本控件（二） 237实验五 顺序结构 239实验六 If分支结构 240实验七 Select Case分支结构 241实验八 For循环结构 243实验九 条件循环结构 244实验十 循环嵌套结构 246实验十一 数组(一) 249实验十二 数组(二) 250实验十三 数组(三) 252实验十四 控件数组 254实验十五 函数过程的使用 255实验十六 子过程的使用（一） 256实验十七 子过程的使用（二） 257实验十八 递归 2

2、58实验十九 常用控件 261实验二十 菜单 263实验二十一 多重窗体和多文档界面 264实验二十二 文件应用 266实验二十三 文件综合应用 270实验二十四 综合应用 273第9章 实验实验一 Visual Basic集成开发环境【预习内容】1Visual Basic的启动与退出方法。2Visual Basic创建工程的基本步骤。3Visual Basic集成开发环境窗口的隐藏和显示。【实验目的】1熟悉Visual Basic集成开发环境。2掌握Visual Basic的启动、退出方法。3掌握Visual Basic创建工程的基本步骤。4掌握Visual Basic集成开发环境设置。【实

3、验内容】1编写一个程序，要求设置窗体的标题是“实验一”，且在程序执行后，单击“移动”按钮窗体显示文字“Visual Basic”中Caption属性值也向右下方移动，单击“结束”按钮，结束程序的运行，运行界面如图9-1-1所示。 图9-1-1 实验一的运行界面（1）在窗体上添加两个命令按钮（Command1和Command2）。（2）设置窗体及命令按钮的属性，如表9-1-1所示。表9-1-1 控件属性控件名称属性值Form1Caption实验一Command1Caption结束Command2Caption移动Label1CaptionVisual Basic（3）参考代码如下：Private

4、 Sub Command1_Click() EndEnd SubPrivate Sub Command2_Click() Label1.Left = Label1.Left + 20 Label1.Top = Label1.Top + 20 Print Visual Basic Print语句为打印方法End Sub（4）保存（保存在指定位置，文件名自定）、运行，最后退出Visual Basic环境。2打开上题中的工程文件，对窗体、命令按钮的属性（颜色、字体等）、事件（单击，双击事件代码）进行重新设置，然后保存。自行设置各控件的属性、事件代码。【问题】1根据Visual Basic中设置控件属

5、性的方法，请分别指出程序中哪些是控件的属性、事件和方法。2在Visual Basic环境中如何设置属性窗口、代码窗口、工具箱的隐藏和显示？3保存Visual Basic工程文件时保存几种文件，文件扩展名分别是什么？4写出Visual Basic工程中常用三种工作模式。实验二 运算符和表达式【预习内容】1运算符的分类及其优先级。2函数的分类及其参数的意义。3表达式的转换方法。【实验目的】1掌握运算符的功能及其优先级。2掌握常用函数的使用方法。3掌握表达式书写方法。【实验内容】1在立即窗口中通过“?”和Print命令验证以下几组函数，并分析运行的结果。（）Chr(122)，Asc(C)（）Log(

6、10)，Exp(2.3)（）Sin(30*3.14/180)（）Val(123.45er6789)，abc+Str(123.45)（）Fix(-6.5)，Fix(6.5)，Int(6.5)，Round(6.5)，Round(-6.5)（）Lcase$(ABC)，Ucase$(abc)（）Left$(ABCDEFGH,3)，Right$(ABCDEFGH,3)，Mid(ABCDEFGH,3,3)，String(ABCDEFGH,3)（）Ltrim( Visual Basic的标准函数 )Rtrim( Visual Basic的标准函数 )Trim( Visual Basic的标准函数 )（）No

7、w()，Date()，Time()，Date(d,2,#2/27/2008#)（）Instr(2, ABCDEDCBABCDE,CD)根据条件写一个正确的Visual Basic表达式,并上机验证表达式的正确性。（）随机产生一个AZ范围内的字符。（）随机产生一个0100（包括0和100）范围内的下整数。（）表示a是3或7的倍数。（）取字符变量S中第3个字符起的4个字符。（）计算一下还有多少天你大学毕业。（）表示字符变量b是字符（大小写不区分）。（）表示10c0） Y= 0 （x=0） -1 （x0）2输入X、Y、Z三个数，然后进行大小比较(窗体运行界面如图9-6-1所示)。参考代码如下：Pri

8、vate Sub Command1_Click()Dim X#, Y#, z#X = InputBox(请输入第一个数：)Y = InputBox(请输入第二个数：)Z = InputBox(请输入第三个数：)X=VAL(X):Y=VAL(Y):Z=VAL(Z)If X Y ThenA = X : X = Y:Y = AEnd IfIf X z ThenA = X:X = Z:Z = AEnd IfIf Y 24在窗体的Picture控件中，按每行10个数输出1200之间能被7整除的数以及个数，并计算其余数之和。窗体运行界面如图9-8-1所示。参考代码如下：Private Sub Comman

9、d1_Click()Dim i As Integer, j As Integer, s As Integerj = 0For i = 1 To 200 If i Mod 7 = 0 Then j = j + 1 Picture1.Print i; If j Mod 10 = 0 Then Picture1.Print Else s = s + iEnd IfNext iPicture1.PrintPicture1.Print 1至200之间一共有 & j & 个数可以被7整除的数Picture1.Print 1至200之间不能7整除数的和是：; sEnd Sub5显示100到0之间的所有5的倍

10、数之数，要求每行输出5个数字。四、【思考题】1循环语句For的应用特点是什么？2For语句的循环次数如何计算？3在For语句中，循环变量与循环变量初值、终值及步长之间的关系？实验九 条件循环结构【预习内容】1DoLoop条件循环结构语句格式及使用功能。2WhileWend条件循环结构语句格式及使用功能。【实验目的】1掌握条件循环结构Do.Loop语句的应用方法。2掌握条件循环结构WhileWend语句的使用方法。3掌握如何控制循环条件，防止死循环或不循环。【实验内容】1求Fibonacci数列的前20项（Fibonacci数列的前几项为：1，1，2，3，5，8）。提示：Fibonacci数列的

11、前n项:n=(n-1)+(n-2) 其中n22求两个数的最大公约数，窗体运行界面如图9-9-1所示。求最大公约数最常用的方法是辗转相除法。其设计思路是：（1）假设m大于n；（2）用n作除数除m，得余数r。（3）若r0，则令mn，nr，继续相除得到新的r值，直到r=0为止。（4）最后的n即为最大公约数。参考代码如下：Private Sub Command1_Click()Dim m As Long, n As Long, temp As LongIf (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) 214748364

12、7 Or _Val(Text2.Text) 2147483647 ThenMsgBox 输入的数0或溢出，请重新输入!,vbInformation+vbOKOnly,数据错误Text1.Text = Text2.Text = Text1.SetFocusElse m = Val(Text1.Text)图9-9-1 运行界面n = Val(Text2.Text)If m n Thentemp = m: m = n: n = tempEnd If Dor = m Mod nm = nn = rLoop While r 0Label3.Caption = mEnd IfEnd Sub3使用条件循环结

13、构WhileWend计算如下表达式的值：sinxx-+-+-+（-1）提示：窗体设计状态和运行界面如图9-8-2和9-8-3所示，窗体运行时，在文本框中输入90，单击计算按钮后，标签Label2中值约等于1.00（即Sin90=1），还可以检测X为0、45、180、270时的值。图9-9-3 运行界面图9-9-2 设计界面参考代码如下：Private Sub Command1_Click()x = Val(Text1) * 3.14 / 180t = 1: n = 1: i = 1: sin1 = 0While i = 10 n = n * i t = t * x If i Mod 2 0 T

14、hen sin1 = sin1 + t / n t = t * (-1) End If i = i + 1WendLabel2.Caption = sin1End Sub4分别用条件循环结构Do While.Loop与Do Until.Loop计算自然数1到100的和。注：分别用当型循环结构和直到型循环结构完成此题设计。【思考题】1For循环结构与Do WhileLoop循环结构的应用特点？2当型循环结构DoLoop While语句与DoLoop Until语句的异同是什么？3如何控制程序的循环条件，防止死循环或不循环？实验十 循环嵌套结构【预习内容】1预习分支结构与循环结构、循环嵌套的使用方

15、法。【实验目的】1掌握循环嵌套的使用方法。2熟悉分支结构与循环结构的综合运用。【实验内容】1求从1000到1100之间的所有素数(窗体运行界面如图9-10-1所示)。提示：将文本框Text1的MultiLine属性设置为 True。将文本框Text1的ScrollBars属性设置2-Vertical。参考代码如下：Private Sub Command1_Click() a = For n = 1001 To 1100 Step 2 s = 0 For i = 2 To Int(Sqr(n) If n Mod i = 0 Then s = 1 Exit For End If Next If s

16、 = 0 Then a = a & Str(n) & vbCrLf Next Text1.Text = aEnd Sub2输出九九乘法表，窗体运行界面如图9-10-2、9-10-3、9-10-4所示。图9-10-2参考代码如下：Private Sub Command1_Click() Picture1.ClsFor i = 1 To 9 For j = 1 To 9 y = i & & j & = & i * j Picture1.Print Tab(j - 1) * 8 + 1); y; Next j Picture1.PrintNext iEnd Sub图9-10-2 运行界面图9-10-3 运行界面图9-10-4 运行界面3在窗体中打印出如图9-9-5所示图型。图9-10-5 运行界面4在窗体中打印出如图9-10-6所示图型。参考代码如下：Pri