Access爱好者--
所属分类: 精选教程 作者: 李寻欢 更新日期:2003-10-17 19:27:51 阅读次数:242

初识VBA:第五课 小数点按钮及分支语句


这节课我们继续来写小数点按钮的代码写完。(程序中的01至13是行号,为了解释方便而加上去的,在程序里不要加上该行号)。
Private Sub cmdPoin_Click()
01 Dim i As Integer
02 Dim j As String
03 Dim PoinTag As Boolean
04 For i = 1 To Len(txtResult)
05 j = Mid(txtResult, i, 1)
06 If j = "." Then
07 PoinTag = True
08 Exit For
09 End If
10 Next i
11 If PoinTag = False Then
12 txtResult = txtResult & "."
13 End If
End Sub

01-----03定义变量,01定义一个整型变量用来保存循环的次数,02定义一个字符串变量用来保存文本框中的字符,03定义一个布尔变量,用来保存小数点的存在状态,PoinTag=true表示已有小数点,PoinTag=false表示没有小数点。

04-----10是一个for循环,循环体里面嵌套着一个IF判断语句。

04从I=1到文本框txtResult的总字符数为止,步长为1。

05 j=用Mid函数来截取的那一个字符,Mid函数的语法:Mid(字符串或代表字符串的变量,从第几个字符开始,截取几个字符),Mid(txtResult, i, 1)就可以解释为从第i个开始,截取文本框中的1个字符。每次循环i都加1,所以每次截取的字符都不一样,从第1个字符开始,逐个截取文本框中的字符,直到最后一个。

06 如果j=小数点,就

07让变量PoinTag=True

08 退出循环

09 结束If语句

10 下一个i,也就是i=i+1,再返回04行重新开始循环

11 如果变量PoinTag=false,那么

12 文本框txtResult中的文本等于原有的文本尾部再加上小数点

13 结束if 语句

在这个按钮事件中我们用到了IF语句及循环语句,循环语句下节课再讲。上节课我们用了一个select case 语句,IF及Select case语句都是判断语句,或称为分支语句。由于在我们以后的编程中会较多地使用判断语句,尤其是上面提到的两种判断语句,所以在这里我想再着重地讲一讲这两个判断语句的语法及用法。
Select case 的语法我们上节课已讲过了,看一下if语句:
If语句有以下几种形式:
1、if 条件 then
语句序列
end if
解释:如果满足条件,就执行语句序列里的所有语句,语句序列就是一条或一条以上的语句,当然,也可以为空,就是没有语句。
例子:
if 李寻欢.性别=”男” then
msgbox “他是青蛙!”
end if
2、if 条件 then
语句序列1
else
语句序列2
end if
解释:如果满足条件,就执行语句序列1,否则就执行语句序列2。
例子:
if 李寻欢.性别=”男” then
msgbox “他是青蛙!”
else
msgbox “他是恐龙!”
end if
3、 if 条件1 then
语句序列1
elseif 条件2 then
语句序列2
elseif 条件3 then
语句序列3
elseif 条件n then
语句序列n
end if
解释:如果满足条件1就执行语句序列1,否则如果满足条件2就执行语句序列2,否则如果满足条件3就执行语句序列3,否则如果满足条件n,就执行语句序列n。
例子:
if 李寻欢.性别=”男” then
msgbox “他是青蛙!”
elseif 李寻欢.性别=”女” then
msgbox “他是恐龙!”
elseif 李寻欢.性别=”不男不女” then
msgbox “他是怪物!”
msgbox “大家快跑呀!”
msgbox “哎呀!我的鞋掉了!”
msgbox “鞋掉了有什么了不起,我的裤子都掉了!”
end if
上面的所有例子中,李寻欢是一个对象,性别是该对象的属性,引用一个对象的属性就用这种形式:李寻欢.性别,具体的对象及属性我们以后再说。Msgbox是一个事件处理函数,它的作用是在对话框中显示消息,等待用户单击按钮,并返回一个整数来表示单击的是哪一个按钮。在上面跟在msgbox 函数后面的双引号中的文字,将会显示在对话框中。

既然if语句及select case语句都是判断语句,那到底什么时候该用if语句,什么时候该用select case语句呢?我个人是这样理解的:要判断三个以下条件的,我用If语句,三个条件以上的我用select语句,因为用select case语句显得更为直观一点,使程序更易看懂。上一节课的select case语句如果用if语句来写,应该如何写?请大家自已写一下


--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链