请教VB编程高手,实现这些功能,如何处理这组数据?

来源：百度知道编辑：UC知道时间：2024/06/05 04:37:57

数据：

3860848704262165394427660923538155898208818442486816915650910165411530352458077687760319159226053092866158783562240946782578004437444504151542269683965323055977814901542910688577165585209371975452237078007434658693688716456527063263582844990057590439929709382484598640483368556640186858412247819985617315356820077694805652910846116137904649539383141170591615333186325795365906548507284636584470919935349807366081810609961347323527196235998656491691238567411350064313130373797135422027638524517678675675741431047473005701774493921769293127786801610207985615181785684257789250976275429667015247743891749533631684210077700373769822991132652168677502400518465225036483156080460315578473716530535761632215950375395015909813793185039668833055055921520303955931625757793980458318946222422221269611778201690016001060300267006745760462061283724867091977989693592740980733891307313176347102788849381459674642954946021785963149787565396638288204377200785458989664146270377922568497195393239267202

4楼的答案应该算是最方便的。。但是如果用上面给的字符的话最好先替换掉换行符，不然查单个字符可能会出错。。。3楼的答案倒没发现问题。。
我没用MID而是用split函数做的，比较麻烦，只是想试试用它好不好做。。虽然没4楼的方便，但既然写了也就贴出来了。。
Private Sub Command1_Click()
Text2.Text = ""
b = InputBox("需要查询的字符串。。", "请输入")
If b = "" Then MsgBox "输入错误！": Exit Sub
a = Replace(Text1.Text, vbCrLf, "")
c = 1
d = 0
Do
c = InStr(c, a, b)
If c > 0 Then d = d + 1: c = c + Len(b)
Loop Until c = 0
ReDim aa(d)
ReDim bb(d)
aa = Split(a, b)
For n = 1 To UBound(aa)
cc = 1
For m = 1 To UBound(aa)
If Left(aa(m), 1) = Left(aa(n), 1) And m <> n Then
cc = cc + 1
bb(n) = cc
ElseIf Left(aa(m), 1) = Left(aa(n), 1) And m = n Then
bb(n) = cc
End If
Next
If Val(bb(n)) > Val(dd) Then dd = bb(n)
Next
ReDim ss(dd)
For n = 1 To UBound(aa)
For m = 1 To UBound(aa)
If Left(aa(m), 1) = Left(aa(n), 1) And n <

这些功能vb实现请教高手:怎样用vb编程实现...... vb 编程，要求实现功能：请教VB编程高手请教vb数据库编程高手高手请教 VB 编程急！请教高手:VB编程问题 vb问题！请教编程高手 VB编程问题请教高手请教VB 如何实现按键精灵的功能?