在TEXT1控件中有3个数字，

如何让这3个数字分别对应3个text控件显示出来。

Dim N1,N2,N3 As Integer
Dim T As Integer
T=Text1.Text
N1=T%10
N2=(T%100-N1)/10
N3=(T-N1-N2)/100
Text2.Text=N1
Text3.Text=N2
Text4.Text=N3

2025-02-04 09:22广告

mid

Dim T$
T=Text1.Text
Text2.Text=mid(T,1,1)
Text3.Text=mid(T,2,1)
Text4.Text=mid(T,3,1)

直接这样也行
Text2.Text=mid(Text1,1,1)
Text3.Text=mid(Text1,2,1)
Text4.Text=mid(Text1,3,1)

MID不错

求组也行

如果是边上，可以用left right

下载贴吧APP
看高清直播、视频！

分享到: