[授课形式]

讲授课、实践课

[教学目的]

掌握VB中顺序结构的程序设计思想。

[教学重点]

顺序型的结构化程序设计思想。

[教学难点]

顺序型的结构化程序设计思想、如何编写这种结构化程序，然后进行运行调试。

[教学方法]

讲授法、探究法、演练法

[教学课时]

    2课时

[教学过程]

一个好的程序，应该结构清晰、易读易懂，因此提倡采用结构化程序设计。结构化程序设计的一个基本思想是要求程序只采用三种基本结构来描述。

结构化程序的三种基本结构：

顺序结构

分支结构

循环结构

一、顺序结构

1、顺序结构是按照语句序列顺序逐条执行的程序结构。

2、例1：输入完成某件任务所需的时、分、秒，然后输出所需的时间折算为多少秒。

程序如下：

Private Sub Command1_Click()

h = InputBox("输入时：", "折算", "")

m = InputBox("输入分：", "折算", "")

s = InputBox("输入秒：", "折算", "")

t = 3600 * h + 60 * m + s

MsgBox "所需的时间折算为秒是：" & t, 0, "结果"

End

End Sub

例2：在窗体上输出如下的图形：

$$$$$$$$$$$$$$$$$$$

  $$$$$$$$$$$$$$$$$$$

$$$$$$$$$$$$$$$$$$$

  $$$$$$$$$$$$$$$$$$$

程序如下：

Private Sub Command1_Click()

Print " $$$$$$$$$$$$$$$$$$$"

Print Tab(3); " $$$$$$$$$$$$$$$$$$$"

Print Tab(6); " $$$$$$$$$$$$$$$$$$$"

Print Tab(9); " $$$$$$$$$$$$$$$$$$$"

End Sub

注意：TAB（X）——定位函数，为下一个打印项定在第X列开始。定位输出，但在同一行中、TAB（X）中的X应从左到右逐渐增大。

二、学生练习

题1：在窗体上输出如下内容

************************

*                      *

*       WELCOME        *

*                      *

************************

题2：从键盘上输入两个数，求它们的差的平方根然后输出。

三、讲解练习

题1程序如下：

Private Sub Command2_Click()

    Print "********************"

    Print "*"; Tab(20); "*"

    Print "*"; Tab(7); "WELCOME"; Tab(20); "*"

    Print "*"; Tab(20); "*"

  Print "********************"

End Sub

 

题2程序如下：

Private Sub Command1_Click()

a = InputBox("输入数a：", "输入", "")

b = InputBox("输入数b：", "输入", "")

m = Sqr(Abs(a - b))

Print "a与b的差的平方根为：", m

End Sub