教学要求
要求掌握：
1．变量的声明方法，赋值语句、运算符的应用。
2．循环结构程序的设计方法及循环语句For的应用。
3．转换函数Val、Str$的作用及应用。
要求了解：
1．循环语句的其它格式。2．函数及常用数学函数。
重点:循环结构确立的方法，循环语句For…to及其应用，循环结构的程序设计方法。
难点:编写循环结构程序代码。
1.规划：
对象属性属性值Form1（窗体）Caption累加器Border选1-FixedSingleLabel1（标签）Caption请输入……Label2Caption初值Label3Caption终值Label4Caption步长值Label5Caption运算结果Text1（文本框）Text为空Text2Text为空Text3Text为空Command1（命令按钮）Caption确定Command2Caption清除Command3Caption退出2.实现累加功能（设置程序代码）
双击Form1窗体，打开代码窗口
→在“对象”下拉列表中选择Command1，在“过程”下拉列表中选择Click，输入代码：
PrivateSubCommand1_Click()
Dimm,n,k,sAsSingle‘Dim定义变量m,n,k,s为单精度实数
m=Val(Text1.Text)‘Val转换函数，将字符串转换成数值型值
n=Val(Text2.Text)
k=Val(Text3.Text)
s=0
Fori=mTonStepk
Ifk=0ThenExitFor‘ExitFor,跳出For循环
s=s+i
Nexti
Ifk=0ThenText3.Text="步长不能为0"
ElseLabel6.Caption=Str$(s)
EndSub‘Str$(s)函数，将数转换成字符串
选择Command2，在“过程”下拉列表中选择Click，输入代码：
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Label6.Caption=""
Text1.SetFocus‘使焦点落在Text1上，即每次重新输入时，光标都落在Text1上
EndSub
VB语法:
–Dim定义变量
格式：Dim变量名表As数据类型
Val(字符串)：转换函数，将字符串转换成数值型值
Str$(数值表达式)：转换函数，将数值表达式转换成字符串
Text1.SetFocus：使焦点落在Text1上，即每次重新输入时，光标都落在Text1上
循环语句
一般格式：
For 计数变量=初值To终值[Step步长值]
（循环体）
Next计数变量
【例】Fori=1To100Step2
s=s+i
&nb您现在访问的是中国学科吧旗下教案网http://www.jsfw8.com/jafs/
sp;NextI
【执行过程】is=s+i
00
1s=0+1
3s=1+3=4
5s=4+5=9
…………
99s=2500
101终止循环
【注释】
⑴变量从初值开始执行循环体语句段，每增加一个步长值执行一次循环，直到变量的值超过终值，跳出循环。
⑵步长值为1，可省略“Step步长值”
⑶步长值不能为0，否则无限循环下去（死循环）。
xxxx年1月3日 8.4制作累加器这一教您现在访问的是中国学科吧旗下教案网http://www.jsfw8.com/jafs/