程序设计的三大结构.doc

程序设计的三大结构一、程序设计的顺序结构顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种结构称为顺序结构。例题：1、简单的顺序结构计算题目Private Sub Command1_Click() Dim a,b,c as integer a=1b=2c=a+(2*a-b)Print cEnd Sub2、交换两个变量中的数据。Private Sub Command1_Click() Dim x As Single, y As Single Dim m As Single x = 6 y = 12 m = xx = yy = m Print xPrint yEnd Sub相关题解单选题1、以下是一段VB程序：a = 1b = a + 1b = a + bc=a+b它的基本结构属于（ A ）A、顺序结构 B、选择结构 C、循环结构 D、树型结构2、下列VB程序运行后，变量x的值为( A ).x=2Print x+lPrint x+2A、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 = 60 ThenLabel1.Caption = 及格 End IfIf a 0时，y=4x+1）。Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(请输入变量x)If x = 10 Then Value = 5 * xElse Value = 4 * xEnd IfA、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)如果f中的值为False就显示n中值C、输人的数存人n变量如果n/2=Int(n/2)成立，就显示n中值D、输人的数存人n变量如果n/2=Int(n/2)不成立，就显示n中值2、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为( AB ) Private Sub commandl_Click() Dim x As Integer x=Val(Text1. Text) If _ = 0 Then Labell.Caption=这个数是能被5整除的偶数 Else Labell.Caption=这个数不是能被5整除的偶数 End If选项：A、(x Mod 5) = 0 And (x Mod 2 ) = 0 B、x Mod 10 = 0 C、x Mod 5 = 0 D、x Mod 2 = 03、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好的算法是( C )。A、输入的数存人n变量f=(n/2=Int(n/2)如果f中的值为True就显示n中值B、输入的数存人n变量f=(n/2=Int(n/2)如果f中的值为False就显示n中值C、输入的数存人n变量如果n/2=Int(n/2)成立，就显示n中值D、输入的数存人n变量如果n/2=Int(n/2)不成立，就显示n中值4、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是( D )。A、输入的数存人n变量f=(n/2=Int(n/2)如果f中的值为True就显示n中值B、输入的数存人n变量f=(n/2=Int(n/2)如果f中的值为False就显示n中值C、输入的数存人n变量如果n/2=Int(n/2)成立，就显示n中值D、输入的数存人n变量如果n/2=Int(n/2)不成立，就显示n中值5、下列程序段运行后,m的值为( A )A=2: b=1: c=5If A b Then m = A Else m = bIf c m Then m = c选项：A、1 B、2 C、5 D、提示错误，无答案三、程序设计的循环结构一、For-Next循环For循环变量一般形式是：For 循环变量=初值To终值Step循环变量增量 循环体Next 循环变量例题1：求s1+2+3+4.+100Private Sub Form_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i 循环体 Next i Print sum=; sumEnd Sub例题2：Step循环变量增量Private Sub Form_Click()For j = 3 To 15 Step 2Print jNext jEnd Sub循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为11、循环变量取初值；2、循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；3、执行一次循环体4、循环变量增加一个增量5、重复步骤24。以上可以看出，For-Next循环变量是一种当型循环。说明（a）For语句与Next语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均为I。（b）当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值；若为负，则是指循环变量的值小于终值。二、DoLoop循环For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop循环格式一：Do While 条件循环体Loop例题：求最大公约数Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim r As Integer a = Val(Text1.Text) b = Val(Text2.Text) r = a Mod b Do While r 0 a = b b = r r = a Mod b Loop Text3.Text = Str(b)End SubPrivate Sub Command2_Click() EndEnd Sub当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。格式二： Do 循环体Loop Until条件这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件P是否成立。如果不成立，就重复执行循环体A，直到条件P成立退出循环体。 例题：如果我国人口每年以平均1.5%的速度增长，问多少年后我国人口达到或超过15亿？设现在人口为12.3亿。Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000# r = 0.015 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until p = 1500000000# Print n; 年后, 人口=; pEnd Sub1、下列流程图表示的是程序的( B )基本结构的算法。A 其它三项都不是 B 循环结构 C 选择结构 D 顺序结构2、在VB中，以下程序段:x=0Do While x50 x=(x+2)*(x+3)Loop执行后，x的值为:( ).A、168 B、50 C、72 D、03、阅读下面程序，当单击窗体之后，窗体上输出的是( ) Private Sub Form_Click() Dim i As Integer:Dim s As Integer s = 0 For i = 1 To 5 s = s + i Next i Print s,iEnd SubA、15 6 B、 s=15 i=6 C、6 5 D、s=6 i=54、要求计算机打印出100至200之问所有偶数的平方根值。正确的算法是( )。A、i=100 Do While i200:Print i，Sqr(i):LoopB、i=100 Do While i200:Print i，Sqr(i):i=i+1:LoopC、For i=100 To 200 Step 2:Print i，Sqr(i):Next iD、For i=100 To 200:Print i，Sqr(i):Next i5、下列程序段中，循环体执行的次数是( )y = 2Do While y = 8 y = y+yLoopA、2 B、3 C、4 D、56、阅读下面程序，当单击窗体之后，m的值是( ).Private Sub Form_Click() Dim m As Integer:Dim i As Integer m = 0 For i = 1 To 3 m = m + 2 Next i Print mEnd SubA、0 B、4 C、6 D、87、在VB中，假定有以下程序段:For i=1 To 3 Step 2 Print VBNext i则语句Print VB的执行次数是：( )。A、1 B、2 C、3 D、48、下列程序段中，循环体执行的次数是( ) x=0 For y=1 To 10 step -1 x=x+1 Next yA、1 B、0 C、10 D、49、在VB中，假定有以下程序段:For i=3 To 1 Print VBNext i则语句Print “VB”的执行次数是:( )A、出错 B、2 C、1 D、010、下列程序段中，循环体执行的次数是（ ） x=0 For y = 1 To 10 step -1 x = x+1 Next yA、1 B、10 C、0 D、411、单击窗体后，文本框Text1、Text2中显示的内容是（ ）Private Sub Form_Click( )Dim x as Integer, n as Integer x = 1 n = 0Do While x 20 n = n + 1 x = x * 3LoopText1.text = Str(x)Text2.text = Str(n)End SubA、27 3 B、3 27 C、203 D、3 2112、单击窗体后，文本框Text1、Text2中显示的内容是（ ）Private Sub Form_Click( )Dim x as Integer, y as Integer x = 1:y = 0Do While x 3 y = y + x x = x * 3LoopText1.text = Str(x)Text2.