关于VB编程的问题.高手请进.!

来源：百度知道 编辑：UC知道 时间：2024/06/28 04:50:05
VB编程:
实现在文本框中输入一个长度值,单位为"厘米",点击命令按钮后将它转化为×米×分米×厘米的形式,并显示出来.
怎么弄?
谢谢!

加一个文本框text1，一个按钮command1
Private Sub Command1_Click()
if trim(text1.text)=""then
msgbox "请输入数字"
text1.setfocus
else
msgbox val(trim(text1.text)) \ 100 & "米" & left(cstr(val(trim(text1.text)) mod 100),1) & "分米"& right(cstr(text1.text),1) & "厘米"
end if
End Sub

private sub Command1_click()
dim a as string
dim b as string
dim l as integer,m as integer,f as integer
l=val(text1.text)
m=int(l/100)
l=l-m*100
f=int(l/10)
l=l-f*10
a=cstr(m) & "米" & cstr(f) & "分米" & cstr(l) & "厘米"
text1.text=a
end sub

楼主你是学VB的吗?
不要有事没事就上来发问!