这节课我们继续来写小数点按钮的代码写完。(程序中的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语句都是判断语句,或称为分支语句。由于在我们以后的编程中会较多地使用判断语句,尤其是上面提到的两种判断语句,所以在这里我想再着重地讲一讲这两个判断语句的语法及用法。 既然if语句及select case语句都是判断语句,那到底什么时候该用if语句,什么时候该用select case语句呢?我个人是这样理解的:要判断三个以下条件的,我用If语句,三个条件以上的我用select语句,因为用select case语句显得更为直观一点,使程序更易看懂。上一节课的select case语句如果用if语句来写,应该如何写?请大家自已写一下 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-5-3 22:27 , Processed in 0.077657 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.