作者ILoveRiva (天下至柔莫若水)
看板Visual_Basic
标题[VB6 ] 请教一个基本问题> <
时间Tue Sep 11 11:50:10 2007
在练习写一些简单的系统
刚试作了一个收银系统里的一个打折功能
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
1F：推 chinoyan:"打9折後共" + cstr(a * 0.9)+"元" 09/11 16:13
2F：推 imk8:TextBox2.Text = "打9折後共" & a * 0.9 & "元" 09/12 12:37
3F：推 U9322022:少了 & 串在一起 楼上正解 09/12 19:48