Re: [VB6 ] 不想顯示某數字!!
※ 引述《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
推
03/14 23:39, , 1F
03/14 23:39, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
