高中信息会考(课堂的算法与程序汇总).pptVIP

验证常用方法 验证常用方法 验证常用方法 调试的主要方法 若有错误提示，一定要仔细看，找出错误原因。但有时也不要盲信。 1. 写语句时注意格式（语句内的语句需要缩进） 1）该空格的地方要空格，否则有的会提示语法错，有的不会提示语法错，但是逻辑错 比如：c=b “” 不能写成c = b“”（语法错） a mod b 不能写成amodb（逻辑错） 2）注意If…… EndIf，Do ……Loop，For……Next要配对 2. 在需要观察的变量变动处，加入print语句（注意：在form_load中使用print语句无效） 3. 注意变量定义的类型 1）计算两个并联电阻的总阻值：把两个电阻的两端分别连起来， 称为两个电阻的并联。【1/R=1/R1+1/R2】 2）计算并联电阻的总阻值：把n个电阻的一端连在一起， 把这n个电阻的另一端也都连在一起，这样连接成的电阻称为“n个电阻的并联”。 这时，从并联的n个电阻的两端测得的电阻值，就是这n个并联电阻的“总阻值”。 【 1/R=1/R1+1/R2＋1/R3＋1/R4＋……＋1/Rn。】 这里的T也可以用R表示， 或者其他变量表示。 1） 2） 2）计算并联电阻的总阻值：把n个电阻的一端连在一起， 把这n个电阻的另一端也都连在一起，这样连接成的电阻称为“n个电阻的并联”。 这时，从并联的n个电阻的两端测得的电阻值，就是这n个并联电阻的“总阻值”。 【 1/R=1/R1+1/R2＋1/R3＋1/R4＋……＋1/Rn。】 Dim R As Double, Rs As Double Dim n As Integer, a As Integer n = val(InputBox(输入并联电阻个数)) Rs = 0 a = 1 Do While a = n R =val( InputBox(输入电阻值)) Rs = Rs + 1 / R a = a + 1 Loop If n = 0 Then Print 0 Else Print 1 / Rs End If 2）计算并联电阻的总阻值：把n个电阻的一端连在一起， 把这n个电阻的另一端也都连在一起，这样连接成的电阻称为“n个电阻的并联”。 这时，从并联的n个电阻的两端测得的电阻值，就是这n个并联电阻的“总阻值”。 【 1/R=1/R1+1/R2＋1/R3＋1/R4＋……＋1/Rn。】 Dim R As Double, Rs As Double Dim n As Integer, a As Integer n = val(InputBox(输入并联电阻个数)) If n = 0 Then Rs = 0 Else a = 1 Do While a = n R = val(InputBox(输入电阻值)) Rs = Rs + 1 / R a = a + 1 Loop End If Print Rs 1）中国银行最新一年期存款年利率为3.25％，按复利计算。 若某人把x元以一年期存入银行， 那么到y年后，他将可以获得的本金与利息之和money为多少？ 表达式为： Money=x*（1+3.25/100）^y 注意：VB中没有%号，若写入会出现语法错。 2)在一个高度为H的大楼顶，向外以初速V0水平抛出一个小球， 要求计算小球落地点离大楼的水平距离S。（重力加速度的值用g表示 ） 已知： ?????????????????????；S=V0*t 表达式为：S=v0*sqr（2*H/g） 3）货场上堆放着直径为d厘米的钢管，堆放方式如图所示， 若堆放n层，那么这堆钢管的高度是多少？ （举例说明：如图，当层数n＝4，钢管直径为d＝2，那么计算所得h≈7.20） 表达式为： h=3^(1/2)/2*(n-1)*d+d Dim year As Integer Dim x As Double, money As Double x =val( InputBox(输入本金)) y = val(InputBox(输入年数)) money = x * (1 + 3.25 / 100) ^ y Print money 注意：0不是下标，也不能是下标 输入三角形边长a，b，c，求三角形面积s。（利用海伦公式） 顺序模式的执行流程 根据海伦公式，可知表达式：p=(a+b+c)/2 s= Dim a As Double,b As Double,c As Double Dim p As Double,p As Double Do a=Val(InputBox(“输入边长a”)) b=Val(InputBox(“输入边长b”)) c=Val(InputBox(“输入边长c”