【精品】vb程序设计（可编辑.ppt

《【精品】vb程序设计（可编辑.ppt》由会员分享，可在线阅读，更多相关《【精品】vb程序设计（可编辑.ppt（95页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB程序设计VB程序设计1.VB软件简介2.理解VB中的类、对象、属性、方法、事件等含义1.1.1.1.1.1.1.1.什么是什么是什么是什么是VBVBVBVB？Visual BasicVisual BasicVisual BasicVisual Basic“Visual”指 的 是 开 发 图 形 用 户 界 面 (GUI：Graphical User Interfaces,图形用户接口)的方法，即可视化。“Basic”指 的 是 BASIC(Beginners All-purpose Symbolic Instruction Code 语言(初学者通用指令码)语言，一种在计算技术发展历史上

2、应用得最为广泛的语言。1 1 1 1 Visual BasicVisual BasicVisual BasicVisual Basic简介简介简介简介2.理解VB中的类、对象、属性、方法、事件类的定义类的定义类是现实世界或思维世界中的实体在计算机中的反类是现实世界或思维世界中的实体在计算机中的反映，它将数据以及这些数据上的操作封装在一起。映，它将数据以及这些数据上的操作封装在一起。对象的定义对象的定义对象是具有类类型的变量。对象是具有类类型的变量。类与对象的关系类与对象的关系类是对象的抽象，而对象是类的具体实例。类是抽类是对象的抽象，而对象是类的具体实例。类是抽象的，不占用内存，而对象是具体的

3、，占用存储空象的，不占用内存，而对象是具体的，占用存储空间。类是用于创建对象的蓝图，它是一个定义包括间。类是用于创建对象的蓝图，它是一个定义包括在特定类型的对象中的方法和变量的软件模板。在特定类型的对象中的方法和变量的软件模板。2.理解VB中的类、对象、属性、方法、事件通俗地讲：类就是一类事物，而对象就是一个事物，一类事物中包含若干的事物（而这其中的具体的事物就是对象）。比如说：车，是一类物品，但没法具体到哪辆车，这就是一个类的概念，而如果说，我家的那辆东风轿车，而这个具体的车就是对象的概念。2.理解VB中的类、对象、属性、方法、事件VisualBasic属性、方法和事件VisualBasic

4、的窗体和控件是具有自己的属性、方法和事件的对象。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。2.理解VB中的类、对象、属性、方法、事件什么是属性？气球的属性包括可以看到的一些性质，如它的直径和颜色。其它一些属性描述气球的状态（充气的或未充气的）或不可见的性质，如它的寿命。通过定义，所有气球都具有这些属性；这些属性也会因气球的不同而不同。对象属性如何运用程序语言修改对象的属性？自然语言：张三的眼镜是半框的“张三”是对象名称“眼镜”是对象的属性名称“半框”是属性的内容对象属性自然语言：张三的眼镜是半框的现在要求大家将VB中百宝箱login界面上的第一行字改为“热烈欢迎

5、你来到我的百宝箱”。思考以下问题：（1）对象是谁？他叫什么？（2）要达到目的，需要修改哪一个属性？对象属性标准写法：标准写法：Label1.caption=“Label1.caption=“热烈欢迎你来到我的百宝箱热烈欢迎你来到我的百宝箱”解析：解析：“Label1”“Label1”是对象名称是对象名称“.”“.”代表代表“的的”CaptionCaption是对象的属性是对象的属性热烈欢迎你来到我的百宝箱是属性内容热烈欢迎你来到我的百宝箱是属性内容带上带上“双引号双引号”是针对文本类型的内容，对待数字不是针对文本类型的内容，对待数字不需要需要对象属性请你写出如下任务：将用户名输入框距离窗体左侧

6、的距离调整为2000.对象事件什么是事件？气球还有预定义的对某些外部事件的响应。例如，气球被刺破是一件事件。气球对刺破它的事件响应是放气。对象事件对象事件如果对气球进行编程，则会如下：设置气球的属性：Balloon.Color=RedBalloon.Diameter=10注意代码的语法，首先是对象(Balloon)，接着是属性(Color)，然后是赋值(Red)。对象事件气球的方法是这样的：Balloon.Inflate/气球被充气Balloon.DeflateBalloon.Rise它的语法与属性的语法相似，对象（一个名词）后面紧跟着方法（一个动词）。对象事件气球事件的编程则是这样的：气球对

7、一个事件的响应如下所示：Balloon.Puncture()/气球被扎了Balloon.DeflateBalloon.MakeNoiseBang对象事件总结，实际上对气球不能编程，但是，可以对VisualBasic的窗体或控件进行编程。常用事件VB中对象的常用事件：Click：点击Change：改变Load:加载Timer:开始计时事件怎么使用？来看这样几句语言PrivateSubForm_Load()Label1.Caption=“欢迎你”EndSub意为：当窗体（窗体名称为Form）出现的时候，Form窗体是对象，Load是事件，对于该事件的响应是Label1.Caption=“欢迎你”思

8、考对象方法什么是方法？气球还具有本身所固有的方法（动作）。如：充气方法（用氦气充满气球的动作），放气方法（排出气球中的气体）和上升方法（放手让气球飞走）。所有的气球都具备这些能力。对象方法对比如下两个句子：这个窗体隐藏了：方法这个窗体是隐藏了的：属性对象方法VB中常用的对象方法有：Show:显示Refresh:刷新Hide:隐藏对象方法对象的使用：如果要让窗口隐藏窗体的名称为：login则应写为login.Hide问：这句话应在何对象何事件时生效？VB数据类型1 1、常量、常量常量是指在程序运行过程中常量是指在程序运行过程中,其值不能改变的数据或存储单元。其值不能改变的数据或存储单元。整型10

9、0，125，-100，0实型3.14，0.125，-3.789字符串“a”,“ab”，“1232”逻辑常量：truefalse如：a=b+1Text1.text=“欢迎你”+a+”同学”第1个公式中，1是常量第2个公式中，“欢迎你”和“同学”是常量常常量量类类型型VB数据类型2、变量、变量变量：在程序设计中可以自由赋值与运算的表达式，即为变量如:a=Text1.Textb=Text2.Textc=a+ba,b,c都是变量VB数据类型3、变量的命名规则、变量的命名规则(1)必须以字母开头，名中至少含有字母、数字、下划线这三类中的一类(2)不能以数字或其他字符开头,不能使用&.#等字符(3)不能使

10、用VB的保留字，如iftrueDimstrMod等(4)VB不区分大小写3、变量的类型（P37）Integer:整数型Long:长整数型Single:单精度实数型用4个字节存储，-2,147,483,6482,147,483,647范围内的任何整数用2个字节存储,-3276832767范围内的任何整数用4个字节存储，范围是-3.402823*10383.402823*1038小数点前只有6-7位Double:双精度实数型用8个字节存储，范围是-4.94065645841247*10308-4.94065645841247*10308小数前有1415位String:字符串型每个string类型，

11、最多存256个字符。Boolean:布尔型只有2种值True(真)和False(假)如果未定义数据类型，则默认为Variant(可变类型)Integer:Integer:整数型整数型-3276832767-3276832767Long:Long:长整数型长整数型Single:Single:单精度实数型单精度实数型负值取值范围为负值取值范围为-3.4028235E+38-3.4028235E+38到到-1.401298E-451.401298E-45；正值取值范围为正值取值范围为1.401298E-451.401298E-45到到 3.4028235E+383.4028235E+38。Doubl

12、e:Double:双精度实数型双精度实数型String:String:字符串型字符串型Boolean:Boolean:布尔型布尔型TrueTrue或或FalseFalseVB数据类型4、变量的定义格式：Dim变量名as数据类型例如：DimaAsIntegerDimbAsSingleDimcAsString问：a,b,c分别是什么类型的变量？(1)(1)下列下列Visual BasicVisual Basic中，下列（中，下列（）类型属于字符串型）类型属于字符串型 (A)Date (B)integer (C)Boolean (D)String (A)Date (B)integer (C)Bool

13、ean (D)String(2)(2)下面数据中在下面数据中在IntegerInteger类型之外的是（）类型之外的是（）(A)5621 (B)23541 (C)9999 (D)32768 (A)5621 (B)23541 (C)9999 (D)32768DD(3)下面变量名正确的是（）下面变量名正确的是（）(A)Int (B)else (C)zongfen (D)next(4)下列合法的变量名是（下列合法的变量名是（）A、_ac B、b&c C、ac_ D、bc#2(5)、用变量存储诗朗诵比赛中选手的平均得分（保留2位小数），则变量的数据类型应说明为（A）Integer（B）Long（C）S

14、ingle（D）DateCC当堂测试当堂测试CVB数据类型课前体验阶段整理目前，你应该具备的文件。标准函数、运算符、表达式标准函数是系统向用户提供算术计算的函数函数名函数名函数名函数名功能功能功能功能表达式表达式表达式表达式结果结果结果结果Abs(x)Abs(x)求绝对值求绝对值AbsAbs（-3.5-3.5）3.53.5Int(x)Int(x)求求不大于不大于x x的最大整数的最大整数IntInt（4.64.6）IntInt（-4.6-4.6）4 4-5-5Sqr(x)Sqr(x)求求x x的算术平方根的算术平方根SqrSqr（100100）1010Asc(x)Asc(x)字符转换为字符转换

15、为asciiascii码码AscAsc（“A”“A”）6565Chr(x)Chr(x)AsciiAscii转换为字符转换为字符ChrChr（6565）A AVal(x)Val(x)将数字字符串转换为数值将数字字符串转换为数值ValVal（“-170”)“-170”)-170-170Str(x)Str(x)将数值转换为字符串将数值转换为字符串StrStr（-170-170）“-170”“-170”Len(x)Len(x)计算字符串的长度计算字符串的长度LenLen（”abc“”abc“）3 3Mid(x,n,k)Mid(x,n,k)取字符串取字符串x x中第中第n n个字符起长个字符起长度为度为

16、K K的子字符串的子字符串Mid(“abcde”,3,2)Mid(“abcde”,3,2)cdcdRnd(x)Rnd(x)求求0,1)0,1)之间的一个随机数，之间的一个随机数，使用之前需初始化使用之前需初始化RandomizeRandomizeA=rnd()A=rnd()产生一个产生一个0,1)0,1)之间的一个随之间的一个随机数机数标准函数、运算符、表达式经过标准函数处理过的数据可以赋给变量使用如DimaAsIntegera=Int(4.87)意为将4.87这个实数经过整数化后赋给整数类型的a标准函数、运算符、表达式以该日期计算器为例，输入的年份应为整数，如果用户不以该日期计算器为例，输入

17、的年份应为整数，如果用户不小心输入实数，应帮助改正，可以这样使用：小心输入实数，应帮助改正，可以这样使用：DimnianAsIntegerDimnianAsIntegerDimFAsIntegerDimFAsIntegerDimzhoujiAsIntegerDimzhoujiAsIntegerNian=Int(Text1.Text)Nian=Int(Text1.Text)F=int(Y-1)*(1+1/4-1/100+1/400)+1)F=int(Y-1)*(1+1/4-1/100+1/400)+1)Zhouji=F-Int(F/7)*7Zhouji=F-Int(F/7)*7Text2.Tex

18、t=zhoujiText2.Text=zhouji算术运算符优先级别优先级别优先级别优先级别基本运算基本运算基本运算基本运算运算符号运算符号运算符号运算符号表达式表达式表达式表达式结果结果结果结果1 1乘幂乘幂 23238 82 2 取负取负-a-aa a的相反值的相反值3 3乘法乘法*3*2.53*2.57.57.53 3实数除法实数除法/5/25/22.52.54 4整数除法整数除法 52522 25 5求余数求余数modmod5mod25mod21 16 6加法加法+a+ba+ba a与与b b的和的和6 6减法减法-A-bA-ba a与与b b的差的差100mod2 3-154/2=关

19、系运算符优先级别优先级别优先级别优先级别基本运算基本运算基本运算基本运算运算符号运算符号运算符号运算符号表达式表达式表达式表达式结果结果结果结果7 7相等相等=1=21=2falsefalse7 7不相等不相等1212 true true7 7小于小于 121 1212falsefalse7 7小于等于小于等于=10mod10mod2=202=102=7102=7falsefalse关系运算符包括：,=,=,Is,Like可以运用关系运算符构成关系表达式关系表达式是用关系运算符将两个对象连接起来的式子。关系表达式的值只能是True、False、NULL,可以赋给变量关系运算符例：MyResul

20、t=(4535),MyResult的值为TrueMyResult=(“5”35”),MyResultMyResult的值为的值为TrueTrueMyResult=(4535),MyResult的值为True逻辑运算符优先级别优先级别优先级别优先级别基本运算基本运算基本运算基本运算运算符号运算符号运算符号运算符号表达式表达式表达式表达式结果结果结果结果8 8非非notnotNot(32)Not(32)falsefalse9 9与与andand(25=10)and(25=10)and(25=100)25100)or(25(25100)or(252)0ThenIFDalta0Then 有两个不同的实

21、数根有两个不同的实数根就现有条件这句话如何让用户看见就现有条件这句话如何让用户看见ElseifDalta=0ThenElseifDalta=0Then 有两个相同的实数根有两个相同的实数根ElseElse无实根无实根EndifEndiftishi.Caption=“tishi.Caption=“有两个相同的实数根有两个相同的实数根”分步实现PrivateSubCommandDalta_Click()PrivateSubCommandDalta_Click()DimaAsIntegerDimaAsIntegerDimbAsIntegerDimbAsIntegerDimcAsIntegerDimc

22、AsIntegerDimdAsIntegerDimdAsIntegera=Val(Atxt.Text)a=Val(Atxt.Text)b=Val(Btxt.Text)b=Val(Btxt.Text)c=Val(Ctxt.Text)c=Val(Ctxt.Text)d=b2-4*a*cd=b2-4*a*cDaltatxt.Text=dDaltatxt.Text=dIf(d0)ThenIf(d0)ThenTishi.Caption=Tishi.Caption=存在两个不同的实数根存在两个不同的实数根 ElseIf(d=0)ThenElseIf(d=0)ThenTishi.Caption=Tishi.

23、Caption=存在两个相同的实数根存在两个相同的实数根 ElseElseTishi.Caption=Tishi.Caption=无实数根无实数根 EndIfEndIfEndSubEndSub分步实现（3）如至少有一个根，则可点击“展示实数根”按钮，则计算机计算出两个实数根，并分别显示在X1、X2文本框中。要点B如何计算并显示出两个根？将表中的X1X2的计算公式转化成算术表达式得出结果后，将X1X2的值给予特定的两个文本框分步实现（3）如至少有一个根，则可点击“展示实数根”按钮，则计算机计算出两个实数根，并分别显示在X1、X2文本框中。要点A.点击“展示实数根”按钮意即：“则计算机计算出两个实

24、数根，并分别显示在X1、X2文本框中”这些操作应写在PrivateSubCommandgen_Click()中分步实现PrivateSubCommandDalta_Click()PrivateSubCommandDalta_Click()DimaAsIntegerDimaAsIntegerDimbAsIntegerDimbAsIntegerDimcAsIntegerDimcAsIntegerDimdAsIntegerDimdAsIntegera=Val(Atxt.Text)a=Val(Atxt.Text)b=Val(Btxt.Text)b=Val(Btxt.Text)c=Val(Ctxt.Te

25、xt)c=Val(Ctxt.Text)d=b2-4*a*cd=b2-4*a*cDaltatxt.Text=dDaltatxt.Text=dIf(d0)ThenIf(d0)ThenTishi.Caption=Tishi.Caption=存在两个不同的实数根存在两个不同的实数根 ElseIf(d=0)ThenElseIf(d=0)ThenTishi.Caption=Tishi.Caption=存在两个相同的实数根存在两个相同的实数根 ElseElseTishi.Caption=Tishi.Caption=无实数根无实数根 EndIfEndIfEndSubEndSubPrivateSubComman

26、dgen_Click()PrivateSubCommandgen_Click()Dimx1AsSingleDimx1AsSingleDimx2AsSingleDimx2AsSingleIf(d=0)ThenIf(d=0)Thenx1=-b/2*ax1=-b/2*ax2=-b/2*ax2=-b/2*aX1txt.Text=x1X1txt.Text=x1X2txt.Text=x2X2txt.Text=x2ElseIf(d0)ThenElseIf(d0)Thenx1=(-b+Sqr(d)/(2*a)x1=(-b+Sqr(d)/(2*a)x2=(-b-Sqr(d)/(2*a)x2=(-b-Sqr(d)

27、/(2*a)X1txt.Text=x1X1txt.Text=x1X2txt.Text=x2X2txt.Text=x2EndIfEndIfEndSubEndSubDo循环的应用知识回顾分支结构If条件（通常是一些关系表达式）Then语句块Else语句块EndIf较复杂的分支结构IF条件Then语句块ElseIf条件Then语句块Else语句块EndIf新知识笔记：笔记：连接运算符：连接运算符：&和和+，可连接两个字符串，可连接两个字符串例：例：MyStr=“Hello”&”World”MyStr=“Hello”&”World”MyStrMyStr的值是的值是HelloWorldHelloWorl

28、d输入框的使用输入框的使用InputBoxInputBox（”对话框内容对话框内容”,”,”窗体标题窗体标题”,”,”默认内容默认内容”)”)应将应将InputBoxInputBox看做一个值，每次输入的数将被其获得，例，输入看做一个值，每次输入的数将被其获得，例，输入3 3，则则3=InputBox3=InputBox（”请输入成绩请输入成绩”,”,”成绩输入成绩输入”,”,”此处输入成绩此处输入成绩”)”)的值为的值为TrueTrueChr(13)Chr(13)意指回车，等同于意指回车，等同于nnChr(10)Chr(10)意指换行，等同于意指换行，等同于r r换行换行(n)(n)就是光标

29、下移一行却不会移到这一行的开头就是光标下移一行却不会移到这一行的开头,回车回车(r)(r)就是回到就是回到当前行的开头却不向下移一行当前行的开头却不向下移一行.Enter.Enter键按下后会执行键按下后会执行nrnr这样就是我这样就是我们看到的一般意义的回车了们看到的一般意义的回车了相对于上节课的分支结构分支结构只执行一次本节课知识点循环结构的执行次数是0次无数次如程序要重复执行相同的语句若干次，那么运用循环结构更加高效DoWhileDoWhile条件条件语句块语句块LoopLoopDoDo语句块语句块LoopWhileLoopWhile条件条件“当型当型”循环结构：循环结构：要执行其中的语

30、句块，须先判断要执行其中的语句块，须先判断WhileWhile中的条件是否成立，只要条件中的条件是否成立，只要条件TrueTrue，就重复执行该语句块，一旦就重复执行该语句块，一旦falsefalse，则，则会跳出本循环会跳出本循环“直到型直到型”循环结构：循环结构：先执行一次语句块，再去判断条件是先执行一次语句块，再去判断条件是否成立，如否成立，如True,True,就重复执行该语句块，就重复执行该语句块，一旦一旦falsefalse，则会跳出本循环，则会跳出本循环执行的次数有可能是执行的次数有可能是0 0次，次，有可能是无数次有可能是无数次至少执行至少执行1 1次次先来分析一下先来分析一下

31、1+2+3+4+51+2+3+4+5的计算算法的计算算法自然语言：自然语言：被加的数在被加的数在5 5以内，则进行累加，否则跳出循环以内，则进行累加，否则跳出循环第第1 1次次:本式和为本式和为0+0+1 1=1=1第第2 2次：本式和为次：本式和为1+1+2 2=3=3第第3 3次：本次和为次：本次和为3+3+3 3=6=6第第4 4次：本次和为次：本次和为6+6+4 4=10=10第第5 5次：本次和为次：本次和为10+10+5 5=15=15第第6 6次，因被加的数在次，因被加的数在5 5以外以外，不再进行累加，不再进行累加课堂任务制作一个能够计算1+2+3+4+5的和的实例程序将采用何

32、种结构？循环，本节课要求用Do循环来实现该功能如果人工来算，从0开始需要计算几次？5次DoWhileDoWhile条件条件语句块语句块LoopLoop条件是什么？条件是什么？假如用一个变量假如用一个变量i i表示计算的次数表示计算的次数DimiasintegerDimiasintegerDoWhilei=5DoWhilei=5语句块语句块LoopLoopDimiasintegerDimiasintegerDoWhilei=5DoWhilei=5语句块语句块LoopLoop如何跳出循环？如何跳出循环？目的是要目的是要i i的值发生变化，超出的值发生变化，超出5 5i=i+1i=i+1i i有初始

33、值吗？该是几？有初始值吗？该是几？i=1i=1Dimiasintegeri=1DoWhilei=5语句块i=i+1Loop目前已经能进入并且退出循环了如何计数？列举出本次循环中i在每个时刻的值Dimiasintegeri=1DoWhilei=5语句块i=i+1Loopi=1i=2i=3i=4i=5i=6i=1i=2i=3i=4i=5i=6我们的任务是将1-5之间的数进行累加，正好是将1-5次每个时刻中的i累加起来需要一个新的变量DimheasintegerHe=0He=he+iDimiasintegerDimiasintegerDimheasintegerDimheasintegeri=1i=

34、1He=0He=0DoWhilei=5DoWhilei=5He=he+iHe=he+ii=i+1i=i+1LoopLoopDimiasintegerDimiasintegerDimheasintegerDimheasintegeri=1i=1DoWhilei=100DoWhilei=100He=he+iHe=he+ii=i+1i=i+1LoopLoop第第1 1次循环次循环i=1i=1第第2 2次循环次循环i=2i=2第第3 3次循环次循环i=3i=3第第4 4次循环次循环i=4i=4第第100100次循环次循环i=5i=5第第101101次循次循环环i=101i=101i=100i=100条

35、件成条件成立立执行循环体语执行循环体语句块句块i=100i=100条件成条件成立执行循环体立执行循环体语句块语句块i=100i=100条件成条件成立执行循环体立执行循环体语句块语句块i=100i=100条件成条件成立执行循环体立执行循环体语句块语句块i=100i=100条件条件成立执行循成立执行循环体语句块环体语句块i=100i=100条条件不成立件不成立HeHe的初值为的初值为0,0,执行执行He=0+1He=0+1后后HeHe的值为的值为1 1i i更新为更新为2 2HeHe的初值为的初值为1,1,执行执行He=1+2He=1+2后后HeHe的值为的值为3 3i i更新为更新为3 3HeH

36、e的初值为的初值为3,3,执行执行He=3+3He=3+3后后HeHe的值为的值为6 6i i更新为更新为4 4HeHe的初值为的初值为6,6,执行执行He=6+4He=6+4后后HeHe的值为的值为6 6i i更新为更新为5 5HeHe的初值为的初值为4950,4950,执行执行He=4950+10He=4950+100 0后后HeHe的值为的值为50505050i i更新为更新为101101跳出循环跳出循环DoWhile语句常用于执行条件明确，但事前常用于执行条件明确，但事前不知道循不知道循环次数环次数的循环的循环语法格式语法格式Do While 循环条件循环条件循环体语句循环体语句Loo

37、p执行流程执行流程 条件判断条件判断条件判断条件判断循环体语句循环体语句循环体语句循环体语句YesYesNoNoDoWhile语句通常情况下，在进入通常情况下，在进入DoWhile-LoopDoWhile-Loop语句前语句前应给循环变量设置应给循环变量设置初值初值循环体中必须包含循环体中必须包含使循环趋于结束使循环趋于结束的语句的语句 可以使用可以使用ExitDoExitDo语句随时跳出当前所在的循环，提前结束循语句随时跳出当前所在的循环，提前结束循环语句环语句ExitDoExitDo可出现在循环体语句中的任意位置，通常与可出现在循环体语句中的任意位置，通常与IfIf语句联语句联合使用合使用

38、DoWhile语句【实例】输入若干成绩（输入【实例】输入若干成绩（输入-1时结束）计时结束）计算总成绩和平均成绩算总成绩和平均成绩。连续弹出输入框接收成连续弹出输入框接收成连续弹出输入框接收成连续弹出输入框接收成绩，直至绩，直至绩，直至绩，直至-1-1时结束时结束时结束时结束计算总成绩和平均成绩计算总成绩和平均成绩计算总成绩和平均成绩计算总成绩和平均成绩多多多多行行行行文文文文本本本本框框框框LblaverageLblaverageLblsumLblsumtxtscoreDoWhile语句使用成绩统计系统的算法：1.输入班级人数2.点击“输入成绩”按钮后，计算机首先判断有无输入班级人数，如已有

39、输入，则只要用户输入的成绩数量不超过班级人数，则允许用户输入成绩，并将每次输入的成绩放在左侧文本框中，暗自累加已输入的成绩。否则提示用户“未输入班级人数”。3.点击“计算”按钮，计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。DoWhile语句1.输入班级人数由人工完成，不需计算机程序配合DoWhile语句2.点击“输入成绩”按钮后，计算机首先判断有无输入班级人数，如已有输入，则只要用户输入的成绩数量不超过班级人数，则允许用户输入成绩，并将每次输入的成绩放在左侧文本框中，暗自累加已输入的成绩。否则提示用户“未输入班级人数”。A.点击“输入成绩”按钮后：第2步中的动

40、作均是对点击按钮的回应，意即后续的程序应编写在此按钮的sub中B.计算机首先判断有无输入班级人数，如已有输入，则否则提示用户“未输入班级人数”。要求使用分支结构If条件thenxxxxxElseXxxxEndifDimiAsIntegerDimiAsInteger成绩个数成绩个数i=Val(Renshu.Text)renshui=Val(Renshu.Text)renshu是输入班级人数的本文框的名称。此处是输入班级人数的本文框的名称。此处判断用户有没有输入班级人数，如没有则发出提示判断用户有没有输入班级人数，如没有则发出提示Ifi0ThenIfi0Then则用户输入成绩，计算结果。则用户输入

41、成绩，计算结果。ElseElseMsgBox(MsgBox(未输入班级人数未输入班级人数)Renshu.SetFocusRenshu.SetFocusEndIfEndIf2.2.第二步中的条件成立时执行第二步中的条件成立时执行只要用户输入的成绩数量不超过班级人数只要用户输入的成绩数量不超过班级人数，则则允许用户输入成绩，并将每次输入的成绩放在左侧文本框中，允许用户输入成绩，并将每次输入的成绩放在左侧文本框中，暗自累加已输暗自累加已输入的成绩。入的成绩。DimcishuasintegerDimcishuasintegerDimsumassingleDimsumassingleDimscoreas

42、integerDimscoreasintegerScore=0Score=0Cishu=0Cishu=0DoWhilecishu=IDoWhilecishu=Icishu=cishu+1cishu=cishu+1Score=InputBox(“Score=InputBox(“输入成绩输入成绩”，“成绩系统成绩系统”)”)txtScore.Text=scoretxtScore.Text=score思考：这句程序合理吗？思考：这句程序合理吗？sum=sum+scoresum=sum+scoreLoopLoop3.3.点击点击“计算计算”按钮，计算机将已得到的总分（在第二步中已开始累加）按钮，计算机

43、将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。和加工后的平均分显示在两个标签中。A.A.点击点击“计算计算”按钮，意指按钮，意指“计算机将已得到的总分（在第二步中已开始计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。累加）和加工后的平均分显示在两个标签中。”这些操作是对点击按钮这些操作是对点击按钮的回应，应将程序写在按钮内的回应，应将程序写在按钮内3.3.点击点击“计算计算”按钮，计算机将已得到的总分（在第二步中已开始累加）按钮，计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。和加工后的平均分显示在两个标签中。B.B.计算机将已得到的总分（在第二步中已开始累加）和加工后的平均计算机将已得到的总分（在第二步中已开始累加）和加工后的平均分显示在两个标签中。分显示在两个标签中。PrivateSubCommandjs_Click()PrivateSubCommandjs_Click()lblSum.Caption=sumlblSum.Caption=sumlblAverage.Caption=sum/ilblAverage.Caption=sum/iEndSubEndSub思考，这个思考，这个sumsum如此使用，合理吗？如此使用，合理吗？