高中信息技术VB知识要点
End If
If a < 60 Then
Label1、Caption = \不及格\ End If End Sub
格式四:If 条件 Then 语句块1 Else 语句块2 End If
例题:编写程序,求函数Y的值(当x≤0时,y=3x+1;当x>0时,y=4x+1)。 Private Sub Form_Click() Dim x As Single Dim y As Single
x = Val(InputBox(\请输入变量x\If x <= 0 Then y = 3 * x + 1 Else
y = 4 * x + 1 End If
Print \End Sub
(3) 循环结构语句:掌握简单两层嵌套。
程序设计的循环结构 For-Next循环
For循环变量一般形式就是:
For循环变量=初值To终值Step循环变量增量 循环体
Next循环变量
例题1:求s＝1+2+3+4、、、、、+100 Private Sub Form_Click() Dim i As Integer
Dim sum As Integer sum = 0 For i = 1 To 100
sum = sum + i ' 循环体 Next i
Print \End Sub
Do－Loop循环
For-Next循环的次数就是确定的,但就是有的问题只知道循环结束的条件,重复执行的次数事先并不知道,这就是需要Do-Loop循环 格式一: Do While 条件 循环体 Loop 例题:求最大公约数
Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim r As Integer a = Val(Text1、Text) b = Val(Text2、Text) r = a Mod b Do While r <> 0 a = b b = r
r = a Mod b
高中信息技术VB知识要点
Loop
Text3、Text = Str(b) End Sub
Private Sub Command2_Click() End End Sub
当VB执行Do While-Loop循环时,先判断指定的条件就是否为真,当条件为真,执行循环体,条件为假时退出循环。 格式二: Do
循环体
Loop Until条件
这种循环的执行过程如图所示。进入循环体后,先执行一次循环体A,然后再检查条件P就是否成立。如果不成立,就重复执行循环体A,直到条件P成立退出循环体。
例题:如果我国人口每年以平均1、5%的速度增长,问多少年后我国人口达到或超过15亿？设现在人口为12、3亿。 Private Sub Form_Click() Dim p As Single Dim r As Single
A Dim n As Integer
p = 1230000000# r = 0、015 n = 0 Do
N p = p * (1 + r)
P n = n + 1
Loop Until p >= 1500000000# Print n; \年后\人口=\End Sub
5、
（1） （2） （3） （4） （5）
算法要求:
在程序中利用公式进行计算。 编程求简单的分段函数的值。 在程序中运用累加、计数、累乘。 在程序中比较大小、求最值。
在程序中用穷举法求不定方程的正整数解。
高中信息技术VB知识要点
