高一信息会考VB复习从例题入手.docVIP

VB复习 从例题入手 2012考点变化： （by火宝） 1、step步长 s = 0 For i = 1 To 10 Step 3 s = s + i Next i Print s 2、文本框控件：textbox,用它代替输出print 设置textbox的属性，包括backcolor，borderstyle，text属性（算法与程序设计教科书中P55，74表格） 3、 连接符在输出时使用 如：Text1 = A1 , B1 , C1 4、do while true If then exit do （可以用较简单的“do while+条件+循环内容+Loop”或“do+循环内容+Loop until+条件”语句来代替） 5、 MsgBox “”--------- 输出提醒信息 6、 Exit Sub ----------退出过程语句 7、...程序功能：输入三条边长，判断能否构成一个三角形。---------- 注释语句。 8、每一套的倒数第二题需用VB编写一个完整的程序。 9、每一套的最后一题VB，是在已有一部分程序上进行程序填空、改错或选择等，题干在VB中显示，不在考试界面上显示。 以上考点都将在例题中出现。 By small.fang：在复习VB内容之前，建议先将教科书中有关算法的内容看一遍，例题做一遍。若有能力将大部分算法题用流程框图解决，再开始涉及VB内容，便可以直接做到将脑中的流程图“翻译”成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 Single a = InputBox(输入二次项系数) b = InputBox(输入一次项系数) c = InputBox(输入常数项) Text1.Text = y= a x^2+ b x+ c d = b ^ 2 - 4 * a * c If d 0 Then Text2.Text = 方程无实数根 Else If d = 0 Then X1 = (-1 * b) / (2 * a) Text2.Text = X= X1 Else X1 = ((-1 * b) + Sqr(d)) / (2 * a) X2 = ((-1 * b) - Sqr(d)) / (2 * a) Text2.Text = X1= X1 , X2= X2 End If End If End Sub （1）：在编写程序的最开始，需要对变量进行定义，定义是请严格按照上题所示格式。在本题中，定义变量为单精度变量（Single）。一般而言，我们需要掌握的变量类型有：单精度（single），双精度（double），整型（integer），长整型（long），字符型（string），逻辑（Boolean），大多数情况下，双精度变量可以代替单精度，整型，长整型。 （2）：对于双分支结构，在VB中可表示为： If+判断条件+than （满足条件下的进程） Else （不满足条件下的进程） End if（结束） 在此题中，外层分支结构中又嵌套了一层内层的分支结构。 （3）：在VB的表达式中，+内容表示一个字符型数据，符号是用于连接多个字符型数据的。 （4）：某变量=inputbox(......)的意思是，在运行程序之后，会弹出窗口来输入该变量，...中的内容是弹出窗口中编者人为添加的内容。 图示： 程序功能：输入起始数讫止数，计算连续整数之和。 图示： Command1程序内容： Private Sub Command1_Click() Dim A1 As Double, AN As Double, i As Double, S As Double A1 = InputBox(输入起始数) AN = InputBox