程序设计的大结构.docVIP

程序设计的三大结构 一、程序设计的顺序结构 顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复， 这种结构称为顺序结构。 例题： 1、简单的顺序结构计算题目 Private Sub Command1_Click() Dim a,b,c as integer a=1 b=2 c=a+(2*a-b) Print c End Sub 2、交换两个变量中的数据。 Private Sub Command1_Click() Dim x As Single, y As Single Dim m As Single x = 6 y = 12 m = x x = y y = m Print x Print y End Sub 相关题解 单选题 1、以下是一段VB程序： a = 1 b = a + 1 b = a + b c=a+b 它的基本结构属于（ A ） A、顺序结构 B、选择结构 C、循环结构 D、树型结构 2、下列VB程序运行后，变量x的值为( A ). x=2 Print x+l Print x+2 A、2 B、3 C、5 D、8 二、程序设计的分支结构 格式一：If条件Then语句 执行这种形式的If语句时，首先对条件进行判断。若条件成立，则执行Then后面的语句；若条件不成立，则执行If语句后继程序行的语句。 格式二：If条件 Then 语句 1 Else 语句 2 执行这种形式的If语句时，首先对条件进行判断。若条件成立，则执行Then后面的语句1；若条件不成立，则执行else后面的语句2。然后再顺序执行分支结构以后的语句。 例题： 1、输入三个不相同的数，求出其中最小数。 Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a = InputBox(输入a, 输入框) b = InputBox(输入b, 输入框) c = InputBox(输入c, 输入框) If a b Then Min = a Else Min = b If c Min Then Min = c Print 最小数＝; Min End Sub 执行这种形式的语句时，先进行判断。若条件成立，则执行语句1；否则执行语句2。 格式三：If 条件 Then 语句块 End If 例题：当从输入一个数时，当该数大于或等于60时显示及格，该数小于60时显示不及格。 Private Sub Command1_Click() Dim a As Single a = Val(Text1.Text) If a = 60 Then Label1.Caption = 及格 End If If a 60 Then Label1.Caption = 不及格 End If End Sub 格式四：If 条件 Then 语句块1 Else 语句块2 End If 例题：编写程序，求函数Y的值（当x≤0时，y=3x+1；当x0时，y=4x+1）。 Private Sub Form_Click() Dim x As Single Dim y As Single x = Val(InputBox(请输入变量x)) If x = 0 Then y = 3 * x + 1 Else y = 4 * x + 1 End If Print y=; y End Sub 相关题解 单选题 1、以下是一段Visual Basic程序: If I=1 Then X=X+1 Else X=X*2 End If 它的基本结构属于( A ). A、选择结构B、循环结构C、顺序结构D、树型结构 2、下列程序段运行后，变量Value的值是（ A ） x = 20 If x = 10 Then Value = 5 * x Else Value = 4 * x End If A、100 B、80 C、90 D、70 综合分析 1、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好 的算法是( D )。 A、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值 B、①输人的数存人n变量②f=(n/2=Int(n/2))③如果