功能:若“条件1”成立,执行“语句块1”;否则若 条件2”成立,执行“语句块2”;……若上述条件均 不成立,执行“语句块n”。 例5-3输入系数b和C,求二次方程ox2+bX+C=0的 实根。编程如下 例5-4给出a,b,C的值,问它们能否构成三角形的 3边。如能构成三角形,计算此三角形的面积
功能：若“条件1”成立，执行“语句块1”；否则若 “条件2”成立，执行“语句块2”；……若上述条件均 不成立，执行“语句块n”。 例5－3 输入系数a,b和c，求二次方程ax2+bx+c=0的 实根。编程如下： 例5－4 给出a，b，c的值，问它们能否构成三角形的 3边。如能构成三角形，计算此三角形的面积
Private Sub Command1_Click() Dima!,b!,c!,d!,1!,x2!, a=Vo( inpuTBox(请输入系数o:"):b=Vo(npu+Box(“请输入系数b:) C=Vo( inpuTbox(请输入系数c:"):d=b*b-4*a*C If d>0 Then ]=(-b+Sqr(o)/(2*o):X2=(-b=Sqr()/(2 Pin"×]=,×1,"x2=;x2 Else If d=0 Then b/(2*a):Prnt"×=;x Else Pint"此方程无实根 End if End I End sub Private Sub Command2_Click( End End sub
Private Sub Command1_Click() Dim a!, b!, c!, d!, x1!, x2!, x a = Val(InputBox("请输入系数a:"))：b = Val(InputBox("请输入系数b:")) c = Val(InputBox("请输入系数c:"))：d = b * b - 4 * a * c If d > 0 Then x1 = (-b + Sqr(d)) / (2 * a): x2 = (-b - Sqr(d)) / (2 * a) Print "x1="; x1, "x2="; x2 Else If d = 0 Then x = -b / (2 * a): Print "x="; x Else Print "此方程无实根" End If End If End Sub Private Sub Command2_Click() End End Sub
Goto语句 格式:GoTo<标号> 功能:把控制转移到“标号”所在的程序行,并从该 行开始往下执行。 说明:1、标号实一个标识符或整型数; 2、程序必须给GOo语句提供唯一的转向入口, 入口处格式为:<标号>:<语句> 3、不能用GOTo语句转向另一个过程。 例5-5:设计一个程序,从键盘上输入学生的分数, 统计其中及格的人数以及总平均分。P106
Goto语句 格式：GoTo <标号> 功能：把控制转移到“标号”所在的程序行，并从该 行开始往下执行。 说明：1、标号实一个标识符或整型数； 2、程序必须给GoTo语句提供唯一的转向入口， 入口处格式为：<标号>:<语句> 3、不能用GoTo语句转向另一个过程。 例5－5：设计一个程序，从键盘上输入学生的分数， 统计其中及格的人数以及总平均分。P106
◆情况语句 Select Case <testexpression> Case <expressionist> [<statementblock-1>] [Case <expressionist> <statementblock-2> [Case Else <statementblock-n>] End select
◆情况语句 Select Case <testexpression> Case <expressionlist1> [<statementblock-1>] [Case <expressionlist2> <statementblock-2>] …… [Case Else <statementblock-n>] End Select