作者colawei (D逃)
看板Visual_Basic
标题Re: [VB6 ] 不想显示某数字!!
时间Tue Mar 14 21:21:03 2006
※ 引述《ICEpatrick (bear)》之铭言：
: 我想做一个连加的程式
: 当按0的时候会跳出
: 每当输入每一个数字後
: 会出现你输入的数字是x
: 但是当我输入0的时候
: 我不想让他显示
: 你输入的数字是0
: 该怎麽写呢??
Dim vNum As Long
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKey1 To vbKey9
Text1 = "你输入的数字是" & Chr(KeyAscii)
vNum = vNum + CLng(Chr(KeyAscii))
Case vbKey0
Text1 = "计算结束,合计值为:" & CStr(vNum)
vNum = 0
End Select
KeyAscii = 0
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
vNum = 0
End Sub
奇怪, 怎麽觉得像是在写作业??
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.86.67.91
1F：推 ICEpatrick:谢谢喔!其实程式我会只是就不想显示那边不会而以= =||| 03/14 23:39