1 / 180

程序设计基础实验课件

程序设计基础实验课件. 计算机基础实验中心 2009 年 2 月 18 日. 实验目录. 实验一 Visual Basic 的基本操作 实验二 常用控件的使用 实验三 语言基础 实验四 顺序结构程序设计 实验五 选择结构程序设计 实验六 循环结构程序设计 实验七 数组的使用 实验八 字符串的使用 实验九 过程的使用 实验十 函数的使用 实验十一 文件的使用 实验十二 综合实验. 实验 1 Visual Basic 的基本操作. 一、实验目的与要求：

alexandra-pennington
Download Presentation

程序设计基础实验课件

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 程序设计基础实验课件 计算机基础实验中心 2009年2月18日

  2. 实验目录 • 实验一 Visual Basic的基本操作 • 实验二 常用控件的使用 • 实验三 语言基础 • 实验四 顺序结构程序设计 • 实验五 选择结构程序设计 • 实验六 循环结构程序设计 • 实验七 数组的使用 • 实验八 字符串的使用 • 实验九 过程的使用 • 实验十 函数的使用 • 实验十一 文件的使用 • 实验十二 综合实验

  3. 实验1 Visual Basic的基本操作 • 一、实验目的与要求： • 掌握Visual Basic的启动与退出。 • 熟悉Visual Basic的开发环境。 • 掌握向窗体中放置控件的方法。 • 掌握在“属性窗口”中设置控件属性的方法。 • 掌握在“代码编辑器”窗口中输入程序代码的方法。 • 掌握工具栏上启动按钮、结束按钮的使用方法。 • 学会编译Visual Basic程序，生成可执行文件的方法，并在Windows下运行。

  4. 二、相关知识 1 启动Visual Basic 启动VB的方法如下： 方法1：单击任务栏上的“开始”按钮，指向“程序”文件夹，再指向“Microsoft Visual Basic 6.0中文版”文件夹，最后单击“Microsoft Visual Basic 6.0中文版”命令，如图所示； 方法2：在桌面上建立VB的快捷方式，双击该快捷方式。 2 退出Visual Basic 　　　单击主界面上的“关闭”按钮，或单击“文件”菜单中的“退出”命令，即可退出VB。如果当前的应用程序没有保存，系统会提示是否保存。

  5. 3 创建一个可执行的应用程序 在VB中创建一个可执行的应用程序有六个步骤： ①创建应用程序的界面；②设置界面上各个对象的属性；③编写对象响应事件的程序代码；④保存工程；⑤测试和调试应用程序、检查并排除程序中的错误；⑥创建可执行程序。 这六个步骤中最主要的有三个步骤： ①创建应用程序的界面； ②设置界面上各个对象的属性； ③编写对象响应事件的程序代码。

  6. 三、实验题 实验1-1 题目：建立一个登录窗口，要求输入口令。 要求：输入的口令在文本框中不可见，以“*”替代；单击 “确定”按钮时，口令在消息框中出现；单击“退出”按 钮时，应用程序结束运行。 分析：将文本框的PasswordChar属性设置为“*”，就可以用 星替代键入的字符。 实验步骤: （1）界面设计 在窗体上放置一个标签控件、一个文本框控件和两 个命令按钮控件，按照图所示排列控件，设置控件大小。

  7. （2）属性设置: （3）添加程序代码: Private Sub CmdExit_Click() End End Sub Private Sub CmdOK_Click() MsgBox "你输入的口令为：" + TxtPassword.Text End Sub

  8. （4）运行程序 单击工具栏上的启动按钮，执行程序，记录执行结果。运行窗体如图所示。如在文本框中输入1234，单击确定按钮，显示：你输入的口令为：1234，单击退出按钮，程序结束运行。 执行时的登录窗口如图： （5）保存文件 将窗体保存为：Sy1F1.frm，工程保存为：Sy1P1.vbp。

  9. 实验1-2 题目：制作一个日历时钟应用程序。 要求：时间能象电子表一样每秒钟发生一次变化。 分析：需要通过定时器控件和Now函数来实现题目的要求。 实验步骤 （1）界面设计 在窗体上放置一个Label控件、一个CommandButton控件和一个Timer控件，按照图1-10所示排列控件，设置控件大小。

  10. （2）属性设置 （3）程序代码如下： Private Sub Command1_Click() End End Sub • Private Sub Timer1_Timer() • Label1.Caption = Now • End Sub

  11. （4）运行程序 单击工具栏上的启动按钮，执行程序，记录执行结果。运行窗体如图1-10所示。单击启动按钮后，界面上显示当前日期与时间，并且时间在一秒一秒的变化。 （5）保存文件 　　　将窗体保存为：Sy1F2.frm，工程保存为：Sy1P2.vbp。 （6）生成可执行文件，并退出VB环境在Windows下直接运行。 （7）观察工程文件与可执行文件的大小，并记录下来。可执　行文件为20KB，工程文件为571B。 （8）修改 　　打开该工程，将Timer控件的时间间隔属性Interval分别改为2000、3000，观察运行结果。结果分别为时间每隔两秒和三秒变化一次。

  12. 实验1-3 题目：在屏幕上建立一个窗口，该窗口的下部有3个命令按钮，其中左侧按钮上标有“单击”，中间按钮上标有“清除”，右边按钮上标有“结束”。当用鼠标单击左边按钮时，窗口上部的文本框中显示“欢迎学习程序设计基础（VB）”；如果单击中间按钮，则清除文本框中的内容；而单击右边的按钮，则结束程序的运行。 实验步骤： （1）界面设计：按图所示建立用户界面。

  13. （2）完善程序代码 Private Sub Command1_Click() Text1.Text = "欢迎学习程序设计基础（VB）" End Sub Private Sub Command2_Click() 　　 Text1.Text ="" End Sub 　　Private Sub Command3_Click() 　　　　 End 　　End Sub （3）运行程序 　　单击工具栏上的启动按钮，执行程序，记录执行结果。单击“单击”按钮，文本框显示：欢迎学习程序设计基础（VB），单击“清除”按钮，文本框中内容清除，单击“结束”按钮，则结束程序的运行。 （4）保存文件 　　将窗体保存为：Sy1F3.frm，工程保存为：Sy1P3.vbp。

  14. 四、实验报告 1、实验目的与要求。 2、实验内容与主要步骤。 3、程序代码与程序运行结果。

  15. 实验2 常用控件的使用 一、实验目的与要求 • 学会根据要求设计窗体界面，并对窗体进行布局。 • 掌握标签、文本框、命令按钮、选项按钮、复选框、框架、列表框、组合框等常用控件的使用方法。 • 掌握用程序代码方式设置属性的方法。 二、相关知识 • 文本框常用的属性、方法与事件。 • 标签、框架常用的属性。 • 命令按钮常用的属性与事件。 • 选项按钮常用的属性与事件。 • 复选框常用的属性与事件。 • 列表框与组合框常用的属性、方法与事件。

  16. 三、实验题 实验2-1 请根据以下的要求设计VB应用程序，包括界面和代码。 （1）设计应用程序的界面。在Form1的窗体上画一个命令按钮，名称为C1，标题为“显示”，按钮的Visible属性为不可见。注意设置命令按钮C1的Visible属性为False。 （2）编写适当的事件过程，程序运行后，如果单击窗体，则命令按钮出现；如果单击命令按钮，则在窗体上显示“等级考试”。程序运行情况如图所示，程序中不得使用任何变量。 Private Sub Form_Click() C1.Visible = True End Sub （3）保存文件 将窗体保存为：Sy2F1.frm，工程保存为：Sy2P1.vbp。 • Private Sub C1_Click() • Print "等级考试" • End Sub

  17. 实验2-2 请根据以下的要求设计VB应用程序，包括界面和代码。 （1）设计应用程序的界面。在Form1的窗体上画一个命令按钮，名称为C1，标题为“显示”，再画一个文本框，名称为Text1。 （2）编写命令按钮的事件过程，程序运行后，如果单击“显示”按钮，则将按钮上的标题复制到文本框中，如图2-2所示，程序中不得使用任何变量。 双击“显示”按钮，输入下列程序代码： Private Sub C1_Click() Text1.Text =C1.Caption End Sub （3）保存文件。将窗体保存为：Sy2F2.frm，工程保存为：Sy2P2.vbp。

  18. 实验2-3 请根据以下的要求设计VB应用程序，包括界面和代码。 （1）设计应用程序的界面。在Form1的窗体上画两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“必修课”与“选修课”。 （2）编写两个命令按钮的事件过程。要求程序运行后，如果单击“必修课”按钮，则在窗体上显示“高等数学必修课”；如果单击“选修课”按钮，则在窗体上显示“多媒体技术”选修课，程序运行情况如图所示，程序中不得使用任何变量。 双击“必修课”按钮，输入下列程序代码： Private Sub Cmd1_Click() Print "高等数学必修课" End Sub 双击“选修课”按钮，输入下列程序代码： Private Sub Cmd2_Click() Print "多媒体技术选修课" End Sub

  19. （3）保存文件。将窗体保存为：Sy2F3.frm，工程保存为：Sy2P3.vbp。（3）保存文件。将窗体保存为：Sy2F3.frm，工程保存为：Sy2P3.vbp。 四、实验报告 1、实验目的与要求。 2、实验内容与主要步骤。 3、程序清单与程序结果。 4、思考与实践。

  20. 实验3 语言基础 一、实验目的与要求 • 掌握程序代码的书写规则。 • 掌握常量、变量的定义和使用方法。 • 掌握各种表达式的使用方法。 • 掌握常用的公共函数的使用方法。

  21. 二、相关知识 • VB中常用的几种数据类型：数值型包括整型、长整型、单精度与双精度；字符型包括定长字符型与变长字符型；逻辑型。 • 变量的说明与作用域。 • 常用的算术函数：Sqr(x)、Abs(x)、Rnd、Exp(x)、Log(x)等。 • 常用的字符函数：Len(c)、Left(c,n)、Right(c,n)、Mid(c,n,m)、Ucase(c)、Lcase(c)、Instr([n],c,字符)。 • 常用转换函数：Str(x)、CStr(x)、Val(c)、Chr(x)、Asc(c)、CInt(x)、Int(x)、Fix(x)。 • 常用的日期与时间函数：Date、Time、Now、Year(d)、Month(d)、Day(d)、Weekday(d,[c])

  22. 三、实验题 实验3-1 题目：常用的算术函数。 要求：用Print方法显示函数值。 实验步骤： （1）程序代码 Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Single, d As Double a = 6 Print 10 + a Print a - 10 Print a * a Print 10 / a Print 10 \ a Print 10 Mod a b = 10 / a c = 10 / a d = 10 / a Print b, c, d Print Sqr(a + 3), Abs(-a) Print Log(a - 5), Exp(a - 6) Print Sin(30 * 3.14159 / 180) End Sub

  23. （2）运行程序。单击工具栏上的启动按钮，执行程序，记录执行结果。运行结果如下：（2）运行程序。单击工具栏上的启动按钮，执行程序，记录执行结果。运行结果如下： （3）保存文件。将窗体保存为：Sy3F1.frm，工程保存为：Sy3P1.vbp。

  24. 实验3-2 题目：常用的字符函数。 要求：用Print方法显示函数值。 实验步骤： （1）程序代码： （2）运行程序。单击工具栏上的启动按钮，执行程序，记录执行结果。运行结果如下： （3）保存文件。将窗体保存为：Sy3F2.frm，工程保存为：Sy3P2.vbp。 Private Sub Form_Click() Dim c As String, n As Integer Dim i As Integer, m As Integer c = "ABCDEF" n = 3 m = 2 Print Len(c) Print Left(c, n), Right(c, n) Print Mid(c, n, m), InStr(c, "E") End Sub （4）思考与实践 Print Mid(c, 4), String(3, "ABCD")结果是什么？ 答：结果分别为：DEF、AAA

  25. 实验3-3 题目：常用的转换函数。 要求：用Print方法显示函数值。 实验步骤： （1）程序代码 Private Sub Form_Click() Print Str(3.5) Print CStr(3.5) Print Chr(65), Asc("B") Print CInt(8.3), CInt(8.6) Print Int(8.3), Int(8.6) Print Fix(8.3), Fix(8.6) End Sub

  26. （2）运行程序。单击工具栏上的启动按钮，执行程序，记录执行结果。运行结果如下：（2）运行程序。单击工具栏上的启动按钮，执行程序，记录执行结果。运行结果如下： （3）保存文件。将窗体保存为：Sy3F3.frm，工程保存为：Sy3P3.vbp。 （4）思考与实践 Print CInt(4.5)，CInt(5.5)结果是什么？ 答：结果分别是：4、6

  27. 实验3-4 题目：常用的日期函数 要求：显示当天的日期与星期，显示格式如图3-1所示。 分析：本题要求获得当天的系统日期，并以某年某月某日星期几的形式显示出来，系统日期可以通过Date函数得到，年、月、日和星期也可以分别通过相应的函数获得。要注意的是星期几用的是星期一到星期日，而函数WeekDay获得是数字1到7。 实验步骤： （1）界面设计 在窗体上放置一个Label控件，如图所示。

  28. （2）属性设置： （3）程序代码 Option Explicit Private Sub Form_Load() Dim y As Integer, m As Integer Dim d As Integer, rq As Date Dim w1 As Integer, w2 As String rq = Date y = Year(rq) m = Month(rq) d = Day(rq) w1 = Weekday(rq, vbMonday) w2 = Mid("一二三四五六日", w1, 1) Label1.Caption = "今天是" & y & "年" _ & m & "月" & d & "日星期" & w2 End Sub

  29. （4）运行程序。单击工具栏上的启动按钮，执行程序，记　录执行结果。运行窗体如图所示。（4）运行程序。单击工具栏上的启动按钮，执行程序，记　录执行结果。运行窗体如图所示。 （5）保存文件。将窗体保存为：Sy3F4.frm，工程保存为：　Sy3P4.vbp。 （6）思考与实践 　函数Mid("一二三四五六日", w1, 1)的功能是什么？ 　答：取字符串“一二三四五六日”中的某一个字符。 四、实验报告 1、实验目的与要求。 2、实验内容与主要步骤。 3、程序清单与程序结果。 4、思考与实践。

  30. 实验4 顺序结构程序设计 一、目的与要求 • 掌握赋值语句的使用。 • 掌握InputBox、MsgBox函数的使用。 • 掌握顺序结构程序的设计方法。

  31. １、赋值语句。 ２、InputBox、MsgBox函数。 ３、顺序结构程序的设计方法。 三、实验内容步骤 　二、相关知识

  32. 实验 4 - 1 题目：实现两文本框中数据的交换 要求：单击“交换”按钮，两个文本框中的数据进行交换；单击“清除”按钮，清空两个文本框中的内容。 分析：实现两变量内容交换，可使用中间变量 temp=a : a=b : b=temp实验步骤： （1）界面设计：界面如图所示： 图4-1

  33. （2）程序代码： Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = a a = b b = c Text1.Text = CStr(a) Text2.Text = CStr(b) End Sub Private Sub Command2_Click() Text1.Text = "" Text2 = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub

  34. （3）运行程序:单击工具栏上的启动按钮，执行程序，记录执行结果。结果如图4-1所示。（3）运行程序:单击工具栏上的启动按钮，执行程序，记录执行结果。结果如图4-1所示。 • （4）保存文件:将窗体保存为：Sy4F1.frm，工程保存为：Sy4P1.vbp。 • 实验报告 • 1、实验目的与要求。 • 2、实验内容与主要步骤。 • 3、程序清单与程序结果。 • 4、思考与实践。

  35. 实验 4 - 2 题目：编一程序，求解鸡兔同笼问题。一个笼子中有鸡x只，兔子y只，每只鸡有2只脚，每只兔子有4只脚。已知鸡和兔的总头数为h，总脚数为f，问笼子中鸡和兔各有多少？ 要求：单击“计算”按钮，将根据从键盘输入鸡和兔的总头数、总脚数求出鸡和兔的只数；单击“清除”按钮，清除窗体上的内容。 分析：根据数学知识，设有鸡和兔的只数分别为x和y，可写出如下的联立方程式： 解得：x=(4h-f)/2 y=(f-2h)/2

  36. 对象 属性名称 属性值 CommandButton1 Caption 计算 CommandButton2 Caption 清除 4.实验步骤： （1）界面设计: 在窗体上放置两个命令按钮控件，按照图4-2所示排列控件的位置，并设置控件大小。 （2）属性设置 :

  37. （3）程序代码: Option Explicit Private Sub Command1_Click() Dim h As Integer, f As Integer Dim x As Integer, y As Integer h = InputBox("请输入鸡和兔的总头数：") f = InputBox("请输入鸡和兔的总脚数：") x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Print "鸡和兔的总头数："; h Print "鸡和兔的总脚数："; f Print "笼中鸡的只数为："; x Print "笼中兔的只数为："; y End Sub Private Sub Command2_Click() Form1.Cls End Sub

  38. （4）运行程序 单击工具栏上的启动按钮，执行程序，记录执行结果。运行结果如图4-4所示。 （5）保存文件 将窗体保存为：Sy4F2.frm，工程保存为：Sy4P2.vbp。 【实验报告】 一、实验目的与要求。 二、实验内容与主要步骤。 三、程序清单与程序结果。 四、思考与实践。

  39. 实验 4 - 3 题目：根据输入的半径计算圆的周长和面积。 要求：定义符号常量pi，表示圆周率π。 分析：设半径为r，则圆周长=2πr，圆面积=πr2。 实验步骤： （1）界面设计：在窗体上放置三个文本框控件、三个命令按钮控件和三个标签控件，按照图4-3所示排列控件的位置，并设置控件大小。 （2）属性设置： 如图4-3 所示 图4-3

  40. （3）程序代码： Option Explicit Private Sub Command1_Click() Dim r As Single, area As Single Dim s As Single Const pi As Single = 3.1415926 r = Val(Text1.Text) s =2 * pi * r area = pi * r * r Text2.Text = CStr(s) Text3 = CStr(area) End Sub Private Sub Command2_Click() Text1.Text = "" Text2 = "" Text3 = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub

  41. 实验5 选择结构程序设计 一、实验目的与要求 • 掌握If—Then—Else—End If结构。 • 掌握ElseIf结构。 • 掌握Select Case—End Select结构。 • 掌握选择（分支）结构的程序设计方法。

  42. 二、相关知识 1.If—Then—Else—End If结构的格式 If 条件 Then 语句1 Else 语句2 …… 3. 1.Select Case—End Select Select Case 测试表达式 Case 测试项1 语句序列1 Case 测试项2 语句序列2 ………………… Case 测试项n 语句序列n Case Else 语句序列n+1 End Select 三、实验内容与步骤 :

  43. 实 验 5 - 1 题目：输入三个正数，判断能否构成三角形，如能求其面积， 如不能显示数据错误。 要求：单击“计算”按钮，如能构成三角形则将其面积显示在 文本框中，否则显示数据错误；单击“清除”按 钮，则清除文 本框中的数据，并将焦点定位于第一个 文本框。 分析：设输入的三个数分别为a、b、c，从数学上知，当 a+b>c且 a+c>b且 b+c>a时，才能构成三角形。 1. 实验步骤： （1）界面设计： 在窗体上放置四个文本框控件、三个命令按钮控件和五个标签控件，按照图5-1所示排列控件的位置，并设置控件大小。

  44. 图5-1

  45. （2）程序代码 Option Explicit Private Sub Command1_Click() Dim a As Single, b As Single Dim c As Single, p As Single Dim s As Single a = Val(Text1.Text) b = Val(Text2) c = Val(Text3.Text) If a + b > c And b + c > a And a + c > b Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Text4.Text = CStr(s) Else Text4 = "数据错误" End If End Sub

  46. Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3 = "" Text4 = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub （4）运行程序 单击工具栏上的启动按钮，执行程序，记录执行结果。如输入3、4、5求得面积为6。 （5）保存文件 将窗体保存为：Sy5F1.frm，工程保存为：Sy5P1.vbp。

  47. 实 验 5 - 2 题目：计算税款。当月收入≤1200元不交税；当月收入＞1200元且≤2000元时，超过1200元部分交5%的税，当月收入＞2000元且≤4000元时，2000元以下部分按上述方法计算，超过2000元部分交10%的税，当月收入＞4000元且≤10000元时，4000元以下部分按上述方法计算，超过4000元部分交15%的税，当月收入＞10000元时，10000元以下部分按上述方法计算，超过10000元部分交25%的税。 要求：计算应交税款时保留两位小数。 分析：这是一个典型的多分支结构程序设计。设月收入为Income，应交税款为Tax，则当月收入≤1200元，应交税款Tax=0元，当月收入＞1200元且≤2000元时，应交税款Tax=（Income-1200）*0.05，当月收入＞2000元且≤4000元时，应交税款Tax=（2000-1200）*0.05+（Income-2000）*0.1，即Tax=40+（Income-2000）*0.1，当月收入＞4000元且≤10000元时，Tax=40+（4000-2000）*0.1+（Income-4000）*0.15，即Tax=40+200+（Income-4000）*0.15，以此类推。

  48. 图5-2

  49. 实验步骤： （1）界面设计： 在窗体上放置二个标签控件、二个文本框控件和三个命令按钮控件，按照图5-2所示排列控件的位置，并设置控件大小。 （2）属性设置：如图5-2所示 （3）程序代码 Private Sub Command2_Click() Text1 = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub 图5-2

  50. Private Sub Command1_Click() Dim Income As Single, Tax As Single Income = Val(Text1) If Income <= 1200 Then Tax = 0 ElseIf Income <= 2000 Then Tax = (Income - 1200) * 0.05 ElseIf Income <= 4000 Then Tax = 40 + (Income - 2000) * 0.1 ElseIf Income <= 10000 Then Tax = 40 + 200 + (Income - 4000) * 0.15 Else Tax = 40 + 200 + 900 + (Income - 10000) * 0.25 End If Tax = Int(Tax * 100 + 0.5) / 100 Text2.Text = CStr(Tax) End Sub

More Related