用VB编的计算器数字间间隔怎样缩小?

来源：百度知道编辑：UC知道时间：2024/05/11 04:17:28

当输入数时,比如123,会成为1 2 3,但计算出来的结果又正常,请哪位大虾指教下,最好有原码给我发一个
邮箱qingshan222222@sina.com
Dim StrNum1, StrNum2 As String 'strnum1,strnum2分别代表输入的第一个数和第二个数的字符串形式
Dim FirstNum As Boolean '判断输入是否是数字开头
Dim PointFlag As Boolean '判断是否已有小数点
Dim Runsign As Integer '变量Runsign用来储存运算符号
Dim signFlag As Boolean '变量signFlag判断是否已有运算符
Private Sub Command1_Click(Index As Integer)
Select Case Index '用Index作为判断分支的条件
Case 0 To 9 '如果Index为0到9
If FirstNum Then '输入为第一个数字的话
StrNum1 = Str(Index) '实型转换成字符
FirstNum = False '初赋值标志为假
Else '输入不是第一个数字的话
StrNum1 = StrNum1 + Str(Index) '将输入的字符添加到原有字符串上
End If
Label1.Caption = StrNum1 '显示 '将字符串结果显示到标签上
Case

A = 1
B = 2
Print Str(A) & Str(B) '有空格的
Print A & B '没有空格
Print Trim(Str(A)) & Trim(Str(B)) '本来有空格,但用trim去掉了,所以显示没有

看看上面三种输出,你就知道为什么会有空格了

在字符串相加时，会出现这个现象，可以使用trim函数。比如：
tirm("1")+trim("2")。

设置font字体属性就行了

把代码发上来看看

用VB.net编计算器的问题用VB编计算器的代码是什么? 用VB编计算器的问题求vb编的计算器怎么用VB的控件数组编简单的计算器帮我用VB编一个简单的计算器用VB编一个简单的计算器程序用vb语言编一个实现计算器功能的程序利用VB的数组编一个计算器怎么VB的控件数组编计算器