当前位置:首页 >> 其它课程 >> 高一信息会考VB复习 从例题入手

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


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("输入终止数") For i = A1 To AN Step 1 S=S+i Next i Text1.Text = S End Sub

(1) (2)

(1) :在 VB 程序中,有一种特殊的循环结构可以用如下形式表达: For+变量+起始数+To+末尾数+Step+步长 循环内容

Next+变量 该形式表达的含义是,某变量的取值范围从某起始数到某末尾数,每次变化跨度为某步长。 在该循环中, 某变量将以某步长取从某起始数到某末尾数中的所有可以取到的数, 每取一个 数执行一次循环,所取之数按递增顺序。 (2) :在 VB 中,该语句的含义是,将变量 S 的值赋到名为 Text1 的 TextBox 中。

三.输入每个人的考试分数(均为整数) ,若输入负数,则停止输入,然后输出大家的平均 分。 图示 1:

图示 2: (该图示为拓展内容,只要掌握图示 1 之内容即可)

Command1 程序内容: Private Sub Command1_Click() Dim x As single, n As single,s As single, a As single n=0 s=0 x = InputBox("输入成绩") Do While x>=0 n=n+1 s=s+x x = InputBox("输入成绩") Loop a=s/n Text1.Text = a End Sub

(1)

(1) :在 VB 中,一般的,我们将当型循环结构表达为如下形式: Do While+循环条件 (循环内容) Loop 而直到型循环结构表达为如下形式: Do (循环内容) Loop until +(循环条件)

四.输入三条边长,判断能否构成一个三角形。 图示:

Command1 程序内容: Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = InputBox("输入 a 边") b = InputBox("输入 b 边") c = InputBox("输入 c 边") If a >= (b + c) Then Text1.Text = "不能构成三角形" Else If b >= (a + c) Then Text1.Text = "不能构成三角形" Else If c >= (a + b) Then Text1.Text = "不能构成三角形" Else Text1.Text = "可以构成三角形" End If End If End If End Sub

(1).在上题中,以彩色标明的是一套多层嵌套的分支结构,红色是第一层,蓝色第二层, 绿色第三层。在编写程序时,我们通常使同一层的结构左端对齐,而对应的内层结构向右退 一格对齐,以方便编写者与阅读者编写与阅读。

**.实际上,该程序同样可以表示为: Private Sub Command1_Click() Dim A1 As Single, B1 As Single, C1 As Single A1 = InputBox("请输入 A 边边长:") Text1 = A1 B1 = InputBox("请输入 B 边边长:") Text1 = A1 & ", " & B1 C1 = InputBox("请输入 C 边边长:") Text1 = A1 & ", " & B1 & ", " & C1 If A1 + B1 <= C1 Then MsgBox "你输入的三条边不能构成三角形!" Exit Sub End If If B1 + C1 <= A1 Then MsgBox "你输入的三条边不能构成三角形!" Exit Sub End If If C1 + A1 <= B1 Then MsgBox "你输入的三条边不能构成三角形!" Exit Sub End If MsgBox "你输入的三条边可以构成三角形! " Text1 = "" End Sub (1).在 VB 中,MsgBox"......"表示提醒框,而"..."中的内容则是编者人为定义的。 图示:

(2) (1)

(2)在 VB 中,Exit Sub 意味着终止函数(程序)继续运行的意思。也就是说,在此题中, 若输入的三边长满足程序中某一个单分支的运行条件的话, 在提醒框弹出的同时, 程序终止

运行。否则的话,可能会出现连续弹出两个含义相反的提醒框的情况。

五.输入一个两位整数,将其个位和十位换位。 图示:

Command1 程序内容: Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = InputBox("请输入两位整数") If a Mod 1 <> 0 Then MsgBox "请输入两位整数" Else If a >= 100 Then MsgBox "请输入两位整数" Else If a < 10 Then MsgBox "请输入两位整数" Else b = a \ 10 c = a Mod 10 a = 10 * c + b End If End If End If Text1.Text = a End Sub (1).在 VB 中,MsgBox"......"表示提醒框,而"..."中的内容则是编者人为定义的。 图示:

(1)

**.实际上,该程序可以更便捷地表示为: Private Sub Command1_Click() Dim A0 As Integer, A1 As Integer, A2 As Integer, A3 As Integer Do While True

A0 = InputBox("请输入一个两位整数") If A0 < 100 And A0 > 9 Then Exit Do Loop A1 = A0 Mod 10 A2 = A0 \ 10 A3 = A1 * 10 + A2 Text2 = A0 Text1 = A3 End Sub 在 VB 中,直到型循环也可以表示为: Do While True (循环内容) If+(循环条件) Loop 而当型循环也可以表示为: Do While True If+(循环条件) (循环内容) Loop 该类语句若与 Do While 语句同时掌握,可在解题时灵活运用,提高效率,学有余力者可深 入研究。

六.输入三个整数,按从小到大顺序输出。 图示:

Command1 程序内容: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a >= b Then a=a+b b=a-b a=a-b End If If b >= c Then b=b+c c=b-c b=b-c End If If a >= b Then a=a+b b=a-b a=a-b End If Text4.Text = a & "," & b & "," & c End Sub

(1)

(1)

(1).在 VB 中,我们也可以采用类似 a=Val(Text1.Text)的语句对变量进行赋值,该语句 的含义是:将名为 Text1 的 TextBox 中输入的字符型数据转化成变量 a 中的数据。 图示:

(2).与双分支结构类似,在 VB 中,我们将单分支结构表达为: If+条件+Then 分支内容 End If 而我们可以使用用多个单分支语句来实现多分支结构(速度慢) If <条件 1> Then 语句组 1 End If If <条件 2> Then 语句组 2 End If ?? ?? If <条件 n> Then 语句组 n End If 或者; If <条件 1> Then 语句组 1 If <条件 2> Then 语句组 2 ?? ?? If <条件 n> Then 语句组 n

PS::如果你已经将以上例题全部看完,那么不妨自己将他们做一遍。


更多相关文档:

高中信息VB试题

高中信息VB试题_其它课程_高中教育_教育专区。高中信息技术会考 VB 复习题 一、单选题 1. 计算机程序的三种结构是顺序结构、 A.模块结构 2. B.循环结构 、选择...

高中信息VB试题

高中信息VB试题_其它课程_高中教育_教育专区。高中信息技术会考 VB 复习题 一、单选题 1. 计算机程序的三种结构是顺序结构、 、选择结构。 A.模块结构 B.循环...

2009年信息技术会考VB复习题

高中信息技术会考(VB部分... 8页 免费2​0​0​9​年​信​息​技​术​会​考​V​B​复​习​题 暂无评价|0人阅读|0次下载|...

高中信息技术会考(VB部分)

高中信息技术会考(VB部分)_计算机软件及应用_IT/计算机_专业资料。高中信息技术会考 VB 复习题一、单选题 B B A D D C D A B A B C C B B C B B...

高一信息技术会考_VB知识点整理

高一信息技术会考_VB知识点整理_其它课程_高中教育_教育专区。高一信息技术 VB 知识点 运算:注意 Mod、/、\ (整除) ,And 运算两边同时成立才成立,Or 运算一边...

高中信息技术会考(VB部分)练习

高中信息技术会考(VB部分)练习_其它课程_高中教育_教育专区。高中信息技术会考 VB 复习题一、单选题 1. 计算机程序的三种结构是顺序结构、 A.模块结构 2. A.任...

高中信息技术会考(VB部分)

高中信息技术会考(VB部分)_理学_高等教育_教育专区。很好!很完整的复习资料,一次性必过 高中信息技术会考 高中信息技术会考 VB 复习题一、单选题 B B A D D ...

高中信息VB试题

高中信息VB试题_总结/汇报_实用文档。高中信息技术会考 VB 复习题一、单选题 1...在 VB 环境中,如果设计时将命令按钮的 时该按钮从窗体上消失。 A.Default C...

高中信息VB试题

高中信息VB试题_其它课程_高中教育_教育专区。高中信息技术会考 VB 复习题 一、单选题 1. 计算机程序的三种结构是顺序结构、 、选择结构。 A.模块结构 B.循环...

高一信息技术会考vb操作题归纳

高一信息技术会考vb操作题归纳_其它课程_高中教育_教育专区。信息技术,会考,高一 要求掌握的典型操作题 1、输入两个数存在相应的变量中,并交换两个变量的值。 、...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com