《高一信息会考VB复习从例题入手.doc》由会员分享，可在线阅读，更多相关《高一信息会考VB复习从例题入手.doc（16页珍藏版）》请在金锄头文库上搜索。
1、VB复习 从例题入手2012考点变化： （by火宝）1、step步长s = 0For i = 1 To 10 Step 3 s = s + iNext iPrint s2、文本框控件：textbox,用它代替输出print设置textbox的属性，包括backcolor，borderstyle，text属性（算法与程序设计教科书中P55，74表格）3、& 连接符在输出时使用如：Text1 = A1 & , & B1 & , & C14、do while true If then exit do（可以用较简单的“do while+条件+循环内容+Loop”或“do+循环内容+Loop until
2、+条件”语句来代替）5、 MsgBox “”- 输出提醒信息6、 Exit Sub -退出过程语句7、.程序功能：输入三条边长，判断能否构成一个三角形。- 注释语句。8、每一套的倒数第二题需用VB编写一个完整的程序。9、每一套的最后一题VB，是在已有一部分程序上进行程序填空、改错或选择等，题干在VB中显示，不在考试界面上显示。以上考点都将在例题中出现。By small.fang：在复习VB内容之前，建议先将教科书中有关算法的内容看一遍，例题做一遍。若有能力将大部分算法题用流程框图解决，再开始涉及VB内容，便可以直接做到将脑中的流程图“翻译”成VB语言，提高效率与正确率。特别提醒：在编写VB程序
3、的时候，千万注意，一切符号标点都要在英文输入法背景下写入，若中文，则无效。编者的话：在编程艺术的海洋中，以下内容实不过是沧海一粟，然此时我只希望其能对大家起到些微帮助，在会考来临之际临阵磨枪。只求其简单明了，若有错误，望指正之。一程序功能：解一元二次方程，输入三个系数，输出两个根，或报告无实数解。图示：Command1程序内容：Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As Single,X1 As Single,X2 As Single a = InputBox(输入二次项系数) b = Inp
4、utBox(输入一次项系数)c = InputBox(输入常数项)Text1.Text = y= & a & x2+ & b & x+ & c d = b 2 - 4 * a * cIf d =0 n = n + 1 s = s + x x = InputBox(输入成绩)Loop （1）a = s / nText1.Text = aEnd Sub（1）：在VB中，一般的，我们将当型循环结构表达为如下形式：Do While+循环条件（循环内容）Loop而直到型循环结构表达为如下形式：Do（循环内容）Loop until +（循环条件）四输入三条边长，判断能否构成一个三角形。图示：Command
5、1程序内容：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 = 不能构成三角形Else If b = (a + c) Then Text1.Text = 不能构成三角形 Else If c = (a + b) Then Text1.Text = 不能构成三角形 Else Text1.Text = 可以构成三角形 End If End IfE
6、nd IfEnd Sub（1）.在上题中，以彩色标明的是一套多层嵌套的分支结构，红色是第一层，蓝色第二层，绿色第三层。在编写程序时，我们通常使同一层的结构左端对齐，而对应的内层结构向右退一格对齐，以方便编写者与阅读者编写与阅读。*.实际上，该程序同样可以表示为：Private Sub Command1_Click()Dim A1 As Single, B1 As Single, C1 As SingleA1 = InputBox(请输入A边边长：)Text1 = A1B1 = InputBox(请输入B边边长：)Text1 = A1 & , & B1C1 = InputBox(请输入C边边长：
7、)Text1 = A1 & , & B1 & , & C1If A1 + B1 = C1 ThenMsgBox 你输入的三条边不能构成三角形！Exit SubEnd IfIf B1 + C1 = A1 ThenMsgBox 你输入的三条边不能构成三角形！Exit SubEnd IfIf C1 + A1 = B1 ThenMsgBox 你输入的三条边不能构成三角形！Exit Sub （2）End IfMsgBox 你输入的三条边可以构成三角形！ （1）Text1 = End Sub（1）.在VB中，MsgBox.表示提醒框，而.中的内容则是编者人为定义的。图示：（2）在VB中，Exit Sub
8、意味着终止函数（程序）继续运行的意思。也就是说，在此题中，若输入的三边长满足程序中某一个单分支的运行条件的话，在提醒框弹出的同时，程序终止运行。否则的话，可能会出现连续弹出两个含义相反的提醒框的情况。五输入一个两位整数，将其个位和十位换位。图示：Command1程序内容：Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = InputBox(请输入两位整数)If a Mod 1 0 ThenMsgBox 请输入两位整数Else If a = 100 Then MsgBox 请输入两位整数 Else If a 10 Then MsgBox 请输入两位整数
