《计算机二级VB笔记第四章.doc》由会员分享，可在线阅读，更多相关《计算机二级VB笔记第四章.doc（16页珍藏版）》请在金锄头文库上搜索。
1、第四章:程序程序：若干条语句（命令）的集合。程序（代码）的基本结构有三种：顺序结构，选择结构和循环结构(1)顺序结构:按照书写的顺序从上往下执行。任何一段代码总得来说是顺序结构(2)选择结构：表示如果.就.的意思分为三种选择：单分支选择，双分支选择，多分支选择1.单分支选择: a.单if(没有endif)在then后面只执行一条语句 格式: if 条件 then 语句1 如果条件成立，就执行语句，执行完后，就转到下一行去执行。 如果条件不成立时，直接转到下一行执行.例:以下程序用于从键盘上输入一个数，如果是3的倍数则输出yes,no,如果不是3的倍数，输出noDim x As Integer
2、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=x2 then print “yes” print “no” end i
3、f print “bye”如果将if x/2=x2 then print “yes” print “no”end ifprint “bye”改为if x/2=x2 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 integerx=inputbox(“请输入：”) if
4、 x=”ABCD” then s=0endifs=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 Ifval(S)-将字符串s转换为数值,当碰到第一个非数字字符时,转换停止.print val(3*5);val(ab
5、c3),val(你好)3 0 03、多分支选择:1)if.elseif.elseif.else.endif 2)select case.case.case.case else.endif1)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,如果成立，就执行语
6、句序列2,执行完后，转到end if的后面执行，依次类推. 当所有的if条件都不成立时，就执行else后面的语句 即系统会从上往下依次判断每一个if条件，一旦找到满足条件的if，执行其中的语句序列，执行完后，就转到end if的后面。即多个if只能选一个 else 语句序列n+1并不是必须写例：根据输入的笔试成绩(bs)和上机成绩（sj）计算考生的等级,等级规定如下: (1)如果笔试成绩和上机成绩均在85以上，为”优秀” (2)笔试成绩和上机成绩均在75以上，为”良好” (3)笔试成绩和上机成绩都及格,为”通过” (4)笔试成绩和上机成绩一门未过，为”补考” (5)笔试成绩和上机成绩两门未过，
7、为”重考”要求运行时，单击”评定”则计算考生的等级 Dim bs As Single, sj As Single, dj As Stringbs = Val(Text1.Text)sj = Val(Text2.Text)If bs = 85 And sj = 85 Then dj = 优秀ElseIf bs = 75 And sj = 75 Then dj = 良好ElseIf bs = 60 And sj = 60 Then dj = 通过ElseIf bs 60 and sj =1 and 测试表达式=4 当测试表达式=4时(is表示测试表达式)例:clsdim x as integerx
8、=inputbox(“请输入:”)select case xcase 3,1 print “1”case 2 print -1case 1 to 3 print 2case is=1 print 3case else print 0 end select &如果输入3,结果为1,如果输入2.2，结果为2例：根据输入的分数，求等级等级规定如下:100分为A+90分及以上:等级为,80-89分为B,70-79为C,60-69为D,其它为EDim score As Singlescore = InputBox(请输入分数:)ClsSelect Case score Case 100 Print A+
9、 Case 90 To 99 Print A Case 80 To 89 Print B Case 70 To 79 Print C Case 60 To 69 Print D Case Else Print EEnd Select第二种方法：Dim score As Singlescore = InputBox(请输入分数:)ClsSelect Case score Case 100 Print A+ Case Is = 90 Print A Case Is = 80 Print B Case Is = 70 Print C Case Is = 60 Print D Case Is =0 a
10、nd is=60 (错误)只能改成0 to 60 (对)三.循环结构：有三种：for.next,while.wend,doloop循环。 循环体：放在循环结构中，可以被反复执行若干次的语句.(1)while 循环 格式：while 条件 循环体 wend当条件为True时，就执行循环体，碰到wend，则返回到while处再次判断条件，如果成立，再执行循环体，碰到wend则转到while处再次判断条件.依次类推。当while条件一旦为false，就转到wend后面顺序往下执行。 例：求1和3的和 Dim i As Integer, s As Integer s = 0 i = 1 While i = 3 s = s + i i = i + 1 WendPrint s求1+2+.100的和Dim i As Integer, s As Integer s = 0 i = 1 While i = 100 s = s + i i = i + 1 WendPrint s求1+2+3.n的和Dim i As Integer, s As Integer,n as integer s = 0i = 1n=inputbox(“请输入n的值) While i = n s = s + i i = i + 1 WendPrint s(2)for next循环(计数循环)即循环次数已知的循环. 格式： f
