招商中心 英文:VB－难题，高手们请进！

来源：百度文库 编辑：神马品牌网 时间：2024/05/05 09:26:44
现有有一个TEXT1,里面写了很多东西，如何把它们自动平均分成5份到TEXT2 TEXT3 TEXT4 TEXT5 TEXT6 里面？

Private Sub Command1_Click()
Dim partLength As Long
partLength = Len(Text1) / 5
Text2 = Mid(Text1, 1, partLength)
Text3 = Mid(Text1, partLength + 1, partLength)
Text4 = Mid(Text1, 2 * partLength + 1, partLength)
Text5 = Mid(Text1, 3 * partLength + 1, partLength)
Text6 = Mid(Text1, 4 * partLength + 1)
End Sub

VB－难题，高手们请进！ VB难题～！高手请进 VB难题～！高手请进 VB难题！高手请进入～～ VB难题啊～～高手请进 VB难题...高手帮帮忙!~~!~! VB难题！！高手进入 VB难题，高手进入！！！ 数学难题，高手请进， 高手请进,难题一道