了解VB语言基本语法
主题讨论资料搜集
作者：
李志平老师
日期：
2013-04-03 12:02:50
回复：
0回复Βιβλιοθήκη 一、单分支结构1、问题：求任意实数的绝对值。
2、程序清单：
Dim a asDouble
a=Val(Inputbox("请输入a"))
ifa<0then
a=-a
end if
print a
3、注意事项：
2、程序清单：
Dim s As Double
Dim n , I, c As Integer
n= Val(InputBox("请输入n"))
c=1 : s=0
Fori=1Ton
s=s + 1/(c﹡c) : c=c+3
Nexti
Print s
3、注意事项：
由于本题是分数求和，和S的数据类型不可以是整数类型，所以要单独定义为双精度实数类型；
Do while语句后的条件成立时，才会执行循环体语句；
注意Do while与Loop语句的配套。
Do while适合所有（标志法和计数法）的循环结构。
作者：
王渊博老师
日期：
2013-04-03 12:50:31
回复：
0
回复
五、FOR循环
1、问题：S=1+1/16+1/49+1/100…加到第n项时S的值？
Ifamod2=0Then
Print “是偶数”
Else
Print “是奇数”
End If
3、注意事项：
定义变量a为整数类型；
双分支要使用else语句，注意换行；
作者：
王渊博老师
日期：
2013-04-03 12:13:01
回复：
0
回复
三、分支结构嵌套
1、问题：判断成绩的等地。
2、程序清单：
Dim a As Double
2013-04-03 12:28:30
回复：
0
回复
四、DO While循环
1、问题：S=1+4+7+10…加到第几项时和大于等于300？
2、程序清单：
Dimi,S,f,c AsInteger
S=0 :i=0 : c=1
Do whiles<300
S=S+c
i=i+1
c=c+3
Loop
Print i
3、注意事项：
For语句格式：Fori=初值To终值Step步长，步长为1时可省略；
For语句后的循环变量取值未超出终值前，才会执行循环体语句；
注意For与Next语句的配套；
Nexti是指：i=i+步长，并返回For语句；
For循环语句多用于计数法的循环结构，本题即为计数法控制循环；
一行内有多个语句时，用：（冒号）隔开。
a = Val(InputBox("输入一个成绩:"))
Ifa >= 90Then
Print "优秀"
Else
Ifa >= 60Then
Print "及格"
Else
Print "不及格"
End If
End If
3、注意事项：
上述程序清单具有两组If语句；
要注意每组If语句的配套。
作者：
王渊博老师
日期：
用Inputbox()输入的为字符型值，必须用Val()将其转换为数值型值；
" "必须在英文状态下输入；
作者：
李志平老师
日期：
2013-04-03 10:56:55
回复：
0
回复
二、双分支结构
1、问题：判断整数的奇偶性。
2、程序清单：
Dim a AsInteger
a = Val(InputBox("请输入一个整数"))