[VB6 ] 請教一個基本問題> <

[ILoveRiva (天下至柔莫若水)]

在練習寫一些簡單的系統

剛試作了一個收銀系統裡的一個打折功能

code如下:

Private Sub CommandButton1_Click()
Dim a, b As Long

a = Val(TextBox1.Text)
Select Case a
Case Is <= 0
TextBox2.Text = "輸入數值錯誤"
Case 0 To 999
TextBox2.Text = "打9折後共" & a * 0.9
Case Else
TextBox2.Text = "打8折後共" & a * 0.8

End Select

End Sub

想問的是

如果我想讓textbox2呈現出來的數字後面又多加一個"元"字

那請問要怎麼加呢 ?

試過

TextBox2.Text = "打9折後共" & a * 0.9"元"

TextBox2.Text = "打9折後共" & a * 0.9元

都不行 > <


--




                 一生懸命にあなたと(一緒の)すてきのおもいをてくります

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.132.105.48
推 chinoyan:"打9折後共" + cstr(a * 0.9)+"元"
推 imk8:TextBox2.Text = "打9折後共" & a * 0.9 & "元"
推 U9322022:少了 & 串在一起 樓上正解