计算机2 VB笔记4.docVIP

第四章:程序 程序：若干条语句（命令）的集合。程序（代码）的基本结构有三种：顺序结构，选择结构和循环结构 (1)顺序结构: 按照书写的顺序从上往下执行。任何一段代码总得来说是顺序结构 (2)选择结构：表示如果....就....的意思 分为三种选择：单分支选择，双分支选择，多分支选择 1.单分支选择: a.单if(没有endif)在then后面只执行一条语句 格式: if 条件 then 语句1 如果条件成立，就执行语句，执行完后，就转到下一行去执行。 如果条件不成立时，直接转到下一行执行. 例:以下程序用于从键盘上输入一个数，如果是3的倍数则输出yes,no,如果不是3的倍数，输出no Dim x As Integer Cls x = InputBox(请输入一个数) If x Mod 3 = 0 Then Print yes Print no b.块if(有end if)，语句可以写多条 格式: if 条件 语句序列 end if 如果条件成立，就执行语句序列,执行完后，直接转到end if的后面执行。如果条件不成立，就直接转到end if后面执行. 例：输入一个数，并判断其是否为偶数，如果是,则输出yes,no,bye,如果不是，则输出bye dim x as integer x=inputbox(“请输入一个数:”) if x/2=x\2 then print “yes” print “no” end if print “bye” 如果将 if x/2=x\2 then print “yes” print “no” end if print “bye” 改为if x/2=x\2 then print “Yes” print “no” print “bye” 结果是否一样？？ 2、双分支选择： if 条件 then 语句序列1 else 语句序列2 end if 如果条件成立，就执行语句序列1,执行完后，就转到end if后面执行，如果条件不成立，就执行else后面的语句序列2,执行完后，就转到end if后面执行. 例：dim x as string,s as integer x=inputbox(“请输入：”) if x=”ABCD” then s=0 endif s=1 ?s 无论输入的值为多少，结果都为1 例:判断所输入的年份的是否为闰年.闰年满足以下两个条件之一: (1)能被4整除但不能被100整除 (2)能被400整除 如果闰年,则输出yes,否则输出no Dim x As Integer x = Val(Text1.Text) If x Mod 4 = 0 And x Mod 100 0 Or x Mod 400 = 0 Then MsgBox yes Else MsgBox no End If val(S)--将字符串s转换为数值,当碰到第一个非数字字符时,转换停止. print val(3*5);val(abc3),val(你好) 3 0 0 3、多分支选择:1)if...elseif...elseif..else...endif 2)select case...case....case....case else....endif 1)if...elseif....endif 格式:if 条件1 then 语句序列1 elseif 条件2 then 语句序列2 elseif 条件3 then 语句序列3 ...... elseif 条件n then 语句序列n [ else 语句序列n+1] end if 首先判断if条件是否成立，如果成立，就执行语句序列1,执行完后，就转到endif的后面.如果if条件不成立，就接着判断elseif后面的条件2,如果成立，就执行语句序列2,执行完后，转到end if的后面执行，依次类推. 当所有的if条件都不成立时，就执行else后面的语句 即系统会从上往下依次判断每一个if条件，一旦找到满足条件的if，执行其中的语句序列，执行完后，就转到end if的后面。即多个if只能选一个 else 语句序列n+1并不是必须写 例：根据输入的笔试成绩(bs)和上机成绩（sj）计算考生的等级,等级规定如下: