1、VB 复习 从例题入手2012 考点变化： （by 火宝）1、step步长s = 0For i = 1 To 10 Step 3s = s + iNext iPrint s2、文本框控件：textbox,用它代替输出 print设置 textbox 的属性，包括 backcolor，borderstyle，text 属性（算法与程序设计教科书中P55，74 表格）3、& 连接符在输出时使用如：Text1 = A1 & “, “ & B1 & “, “ & C14、do while trueIf then exit do（可以用较简单的“do while+ 条件+循环内容+Loop ”或“do+
2、循环内容+Loop until+条件”语句来代替）5、 MsgBox “”- 输出提醒信息6、 Exit Sub -退出过程语句7、“.“程序功能：输入三条边长，判断能否构成一个三角形。- 注释语句。8、每一套的倒数第二题需用 VB 编写一个完整的程序。9、每一套的最后一题 VB，是在已有一部分程序上进行程序填空、改错或选择等，题干在VB 中显示，不在考试界面上显示。以上考点都将在例题中出现。By small.fang：在复习 VB 内容之前，建议先将教科书中有关算法的内容看一遍，例题做一遍。若有能力将大部分算法题用流程框图解决，再开始涉及 VB 内容，便可以直接做到将脑中的流程图“翻译”成
3、VB 语言，提高效率与正确率。特别提醒：在编写 VB 程序的时候，千万注意，一切符号标点都要在英文输入法背景下写入，若中文，则无效。编者的话：在编程艺术的海洋中，以下内容实不过是沧海一粟，然此时我只希望其能对大家起到些微帮助，在会考来临之际临阵磨枪。只求其简单明了，若有错误，望指正之。一 程序功能：解一元二次方程，输入三个系数，输出两个根，或报告无实数解。图示：Command1 程序内容：Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As Single,X1 As Single,X2 As Singl
4、e a = InputBox(“输入二次项系数“) b = InputBox(“输入一次项系数 “)c = InputBox(“输入常数项“)Text1.Text = “y=“ & a & “x2+“ & b & “x+“ & c d = b 2 - 4 * a * cIf d =0n = n + 1s = s + xx = InputBox(“输入成绩“)Loop （1）a = s / nText1.Text = aEnd Sub（1）：在 VB 中，一般的，我们将当型循环结构表达为如下形式：Do While+循环条件（循环内容）Loop而直到型循环结构表达为如下形式：Do（循环内容）Loo
5、p until +（循环条件）四输入三条边长，判断能否构成一个三角形。图示：Command1 程序内容：Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = InputBox(“输入 a 边“)b = InputBox(“输入 b 边“)c = InputBox(“输入 c 边“)If a = (b + c) ThenText1.Text = “不能构成三角形 “ElseIf b = (a + c) ThenText1.Text = “不能构成三角形 “ElseIf c = (a + b) ThenTe
6、xt1.Text = “不能构成三角形 “ElseText1.Text = “可以构成三角形 “End IfEnd IfEnd IfEnd Sub（1）.在上题中，以彩色标明的是一套多层嵌套的分支结构，红色是第一层，蓝色第二层，绿色第三层。在编写程序时，我们通常使同一层的结构左端对齐，而对应的内层结构向右退一格对齐，以方便编写者与阅读者编写与阅读。*.实际上，该程序同样可以表示为：Private Sub Command1_Click()Dim A1 As Single, B1 As Single, C1 As SingleA1 = InputBox(“请输入 A 边边长：“)Text1 = A
7、1B1 = InputBox(“请输入 B 边边长： “)Text1 = A1 & “, “ & B1C1 = InputBox(“请输入 C 边边长： “)Text1 = A1 & “, “ & B1 & “, “ & C1If A1 + B1 0 ThenMsgBox “请输入两位整数 “ElseIf a = 100 ThenMsgBox “请输入两位整数 “ElseIf a 9 Then Exit DoLoopA1 = A0 Mod 10A2 = A0 10A3 = A1 * 10 + A2Text2 = A0Text1 = A3End Sub在 VB 中，直到型循环也可以表示为：Do
8、While True（循环内容）If+（循环条件）Loop而当型循环也可以表示为：Do While TrueIf+（循环条件）（循环内容）Loop该类语句若与 Do While 语句同时掌握，可在解题时灵活运用，提高效率，学有余力者可深入研究。 六输入三个整数，按从小到大顺序输出。图示：Command1 程序内容：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text) （1）If a = b
9、Thena = a + bb = a - ba = a - bEnd IfIf b = c Thenb = b + cc = b - cb = b - cEnd IfIf a = b Thena = a + bb = a - ba = a - bEnd If （1）Text4.Text = a & “,“ & b & “,“ & cEnd Sub（1）.在 VB 中，我们也可以采用类似 a=Val（Text1.Text）的语句对变量进行赋值，该语句的含义是：将名为 Text1 的 TextBox 中输入的字符型数据转化成变量 a 中的数据。图示：（2）.与双分支结构类似，在 VB 中，我们将单分支结构表达为：If+条件+Then分支内容End If而我们可以使用用多个单分支语句来实现多分支结构（速度慢）If Then语句组 1End IfIf Then语句组 2End IfIf Then语句组 nEnd If或者；If Then 语句组 1If Then 语句组 2If Then 语句组 nPS:：如果你已经将以上例题全部看完，那么不妨自己将他们做一遍。
