???请教一个字符串处理问题????

fhwang8 2004-05-06 03:51:04
数据 i = 1.875

处理成: j = 1
k = 0.875
以小数点做分割
...全文
19 7 点赞 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
e13653050049 2004-05-06
Private Sub Command1.Click()
……………………………………
……………………………………
End Sub
  • 打赏
  • 举报
回复
KiteGirl 2004-05-06
下面是改进的,保留3位小数。
Private Sub Command1_Click()
Dim tNumber As Double
Dim tNumber1 As Double
Dim tNumber2 As Double
tNumber = Rnd * 10
tNumber1 = Int(tNumber)
tNumber2 = tNumber - Int(tNumber)
Text1.Text = Format(tNumber, "0.000")
Text2.Text = Format(tNumber1, "0")
Text3.Text = Format(tNumber2, "0.000")
End Sub
  • 打赏
  • 举报
回复
KiteGirl 2004-05-06
这个怎么样?
Private Sub Command1_Click()
Dim tNumber As Double
Dim tNumber1 As Double
Dim tNumber2 As Double
tNumber = Rnd * 10
tNumber1 = Int(tNumber)
tNumber2 = tNumber - Int(tNumber)
Text1.Text = tNumber
Text2.Text = tNumber1
Text3.Text = tNumber2
End Sub
  • 打赏
  • 举报
回复
986753421 2004-05-06
j=split("1.875",".")(0)
k="0." & split("1.875",".")(1)
这也是个方法,显然不是最好。
  • 打赏
  • 举报
回复
fsybaby 2004-05-06
这是字符串吗?
如果是数,听楼上就行,
如果是字符:

for m=1 to len(b)
if mid(i,m,1)="." then s=m
next m

j=mid(i,1,s-1)
k=mid(i,s+1,(len(i)-s))

m,s为整形
  • 打赏
  • 举报
回复
slmn 2004-05-06
被抢先了。。。
  • 打赏
  • 举报
回复
victorycyz 2004-05-06

j=int(i)

k=i-j
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7543

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-05-06 03:51
社区公告
暂无公告