VB教学用试卷.pptVIP

选择结构流程图 练习八 程序的基本结构（二） 选择结构 程序执行时，根据条件的判断结果选择执行相关代码行，从而忽略一些代码行的执行。语法描述如下： If 条件 Then 代码行1 [ Else 代码行2 ] If 条件 Then 代码行 Endif If 条件 Then 代码行1 代码行2 Else Endif Select Case 表达式 [Case 表达式列表2 Case 表达式列表1 代码行1 代码行2 ] …… [Case Else 代码行n ] End Select 条件判断？ True False 代码行1 代码行2 练习七 编写程序，使计算机产生一个1到100之间的随机整数，然后判断这个数是奇数还是偶数，并输出该数及判断结果。 分析：如果要获取1到100之间的随机整数，一定要想到 Rnd 随机函数，它产生的是[0，1）之间的随机数，将其乘以100后进行取整（Int)运算后即可获得随机整数。至于判断其奇偶性，只需与“2”进行取余运算，对结果进行判断即可。此程序中我们使用双分支选择结构完成程序。 开始 sjs←int(Rnd*100) sjs Mod 2 =0 ? True False 输出sjs,是偶数 输出sjs,是奇数 结束 1、根据输入的三个数值，通过比较算法，找出最大值，并输出这个最大值。完善程序，解决问题。 2、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。请完善程序，求该方程的根。要求：如果方程无实数根，则输出“无实数根”；否则输出两个实数根。 程序的基本结构（三） 循环结构 程序执行时，需要重复执行某一段代码，可根据条件的判断结果决定是否继续或结束。语法描述如下： Do While 条件 语句块 Loop Do 语句块 Loop While 条件 Do 语句块 Loop Until 条件 For 循环变量=初值 To 终值 [Step 步长值] 语句块 Next [循环变量] 循环变量获得初值 判断循环变量是否超出终值 循环体 循环变量=循环变量+步长值 True False 步长值能为零吗？能省略吗？ 编程求5!(5!=1*2*3*4*5)的值。 求5！总计共进行5次乘法运算， 第一次：取第一个值1 第二次：1*2 第三次：1*2*3 第四次：1*2*3*4 第五次：1*2*3*4*5 从以上过程中可看出，每次乘积过程都是在上一次的乘法基础上进行的，因此可用循环来完成，而循环次数是可预知的，所以本题可用For…Next…循环完成。 编程求5!(5!=1*2*3*4*5)的值。 Private Sub Command1_Click() End Sub Dim i As Integer, s As Integer s = 1 For i = 1 to 5 Step 1 s = s * i Next i Print “s=” ; s ’S作为乘积结果变量，初值必须为1。 Private Sub Form1_Click() s = 0 For i = 1 to 5 s = s + i Next i Print s End Sub 输出结果： Private Sub Form1_Click() n = 0 For i = 1 to 100 if i mod 4 =0 Then n=n+1 Next i Print n End Sub 输出结果： 15 25 Private Sub Form1_Click() a = 2 : b = 1 : s = 0 For i = 10 to 6 Step -1 s = s + a c = a + b a = b b = c Next i Print s End Sub 输出结果： Private Sub Form1_Click() s = 0 : t = 1 For k = 2 to 4 s = s + k t = t * k Next k Print s , t End Sub 输出结果： 17 9 , 24 练习八 编写程序，输出100到200之间的所有能被3整除的数，且输出时每行显示不多于5个数