VB能不能让02+03=05,前面必须要有0. 谢谢!!

来源:百度知道 编辑:UC知道 时间:2024/06/19 18:29:07
text1=02
text2=03
Private Sub Command1_Click()
text3 = text1 + text2
end sub

text3=format(val(text1)+val(text2),"00")
我学VB的,这个是正规的做法哦~~

改一下:
private sub form_load
form1.autoredrew=true
text1.text="02"
text2.text="03"
end sub

Private Sub Command1_Click()
i=val(text1)+val(text2)
text3.text = str(format(val(text1.text)+val(text2.text),"00"))
print text1.text & "+" & text2.text & "=" & text3.text '这句可不要
end sub

把程序中"00"两个零改成n个零,前面可以给你足够个数的零.
样就行了.

Private Sub Command1_Click()
Text1.Text = 0 & Val(Text1.Text)
Text2.Text = 0 & Val(Text2.Text)
Text3.Text = 0 & Val(Text1.Text) + Val(Text2.Text)
End Sub

我测试了一下,达到你要的效果。

text1=02
text2=03
Private Sub Command1_Click()
dim i
i=val(text1)+val(text2)
text3 = format(i,"00")
print format(text3,"00") & "=" & format(text3,"00") & "+" & format(text2