Question

vb中如何判断text文件中光标的位置,并在光标所在行的下一行插入一行数

text文件中有多行数字，每一行的格式都是一样的，我想随机向text文件中再插入几行数字该如何实现

Answer 1

先来说一下vb中如何将指定的内容写入到一个txt文本文件中。
有一套基本的代码，如下：
1.如果想要使目标txt文件不保留原来的文字内容，将所有的内容变成你要指定的内容，则
Open "这里打上txt文件的全路径，包括扩展名" For Output As #1
路径也可以用一个字符串变量来指定。
如果想要使目标txt文件在保留原来的文字内容的基础上，再在其后加上你要指定的内容，则要把上述语句中的“Output”改成“Append”就行。
2.接下来的代码：
Print #1, "在这里打上你要写入到此txt文件中的内容，同样也可用一个字符串变量来指定。"
Close #1

再来说一下随机生成整数的代码：
Randomize
a = Int((最大值 - 最小值 + 1) * Rnd) + 最小值
这里的a是一个数值变量。

所以大概这个代码可以满足你的要求：
Private Sub Command1_Click()
Open "路径" For Append As #1
Randomize
Print #1, Str(Int((最大值 - 最小值 + 1) * Rnd) + 最小值)
Close #1
End Sub

Answer 2

Text1.SelStart的数值可以判断
设置的时候先设置这个属性，再设置选择的长度为零即可
Private Sub Command1_Click()
Me.Caption = Text1.SelStart
Text1.SelStart = 3
Text1.SelLength = 0
Text1.SetFocus
End Sub