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

看板Visual_Basic作者ILoveRiva (天下至柔莫若水)時間18年前 (2007/09/11 11:50)推噓3(3推 0噓 0→)

留言3則, 3人參與討論串1/2 (看更多)

在練習寫一些簡單的系統剛試作了一個收銀系統裡的一個打折功能 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

09/11 16:13, , 1^F

09/11 16:13, 1^F

推

imk8

09/12 12:37, , 2^F

09/12 12:37, 2^F

推

U9322022

09/12 19:48, , 3^F

09/12 19:48, 3^F