怎么在vb中实现文本框输出内容为+a/-b用什么命令,谢谢

我要表达孔的公差正负是多少,不要±格式,要分开的,中间必须是“/”这个符号。a和b的值是通过其它代码运算出来的。

以下程序实现:在文本框输入内容,按回车键(Enter键)后,文本框中的内容输出到列表框。

1)在窗体上布置一个TextBox控件和一个ListBox控件

2)代码


Option Explicit Private Sub Form_Load()    ' 窗体启动时,清空Text1和List1    Text1.Text = ""    List1.ClearEnd Sub Private Sub Text1_KeyPress(KeyAscii As Integer)    ' 如果按下了回车键(回车键的Ascii码为13)    If KeyAscii = 13 Then        Dim s As String        ' 取出Text1中输入的内容并滤除前后的空格        s = Trim(Text1.Text)                 If s <> "" Then            ' 如果Text1中输入的内容不为空,则添加到List1中            List1.AddItem s            ' 添加后,清空Text1            Text1.Text = ""        End If    End IfEnd Sub

3)运行效果

窗体启动时

在Text1中输入,按回车后,输入的内容在List1中显示

温馨提示:答案为网友推荐,仅供参考
第1个回答  2019-04-11
Dim a As Single
Dim b As Single

a = 0.238
b = 3.14

Text1.Text = "+" & CStr(a) & "/-" & CStr(b)

第2个回答  2019-04-11
Text1.Text = "+" & a & "/-" & b