平时有些内容某一部分前面一致，但后面是按顺序的（如031-03199），从1-99自己填起来很麻烦！所以可以借助编程来实现自动填充。如果勾上了check还可以自动生成一个txt文件。这个软件还可以读取剪切板上的内容。 在写代码之前要添加4个command，6个text，1个label，一个check。 界面如下： 软件界面 代码如下： Private Sub Command1_Click() Dim str1 As String '定义一个字符变量 For x = Text1.Text To Text5.Text '定义循环体，text1的数值作为循环开始，text5数值作为循环结束 str1 = str1 & Text3.Text & x & Text2.Text & vbCrLf '主要部分，自动填充的代码 Text4 = str1 '将结果在text4里显示 Next If Check1.Value = 1 Then '当check被勾上 Open "网址.txt" For Output As #1 '创建一个名为网址的TXT文件 Write #1, (str1) '将str1的结果写入网址.txt文件里 Close #1 '关闭文件 End If End Sub Private Sub Command2_Click() End '退出按钮 End Sub Private Sub Command3_Click() Text4.Text = "" '清除按钮 End Sub Private Sub Command4_Click() Text6.Text = "" '清除text6的内容 Command5.Enabled = True '按钮5可用 Command4.Enabled = False '按钮4不可用 End Sub Private Sub Command5_Click() Command4.Enabled = True '按钮4可用 Text6.SelText = Clipboard.GetText '将剪切板的内容复制到text6 Label.Caption = "按“清除内容”按钮可恢复读取按钮(点击进入wellsonsen的微博)" End Sub Private Sub Label4_Click() End Sub Private Sub Form_Load() Form1.Picture = LoadPicture("") '软件界面不载入图片（这段代码可不要） End Sub Private Sub Label_Click() Shell "C:\Program Files\Internet Explorer\iexplore.exe http://weibo.com/wellsonsen", vbNormalFocus '用浏览器打开作者的微博 End Sub Private Sub Text6_Change() Command5.Enabled = False '按钮5不可用 Label.Caption = " 清除成功(点击进入wellsonsen的微博)" '在label上显示文字 End Sub Private Sub Timer3_Timer() End Sub Private Sub Timer2_Timer() End Sub 本文来源：https://www.wddqw.com/doc/e0617c3c51d380eb6294dd88d0d233d4b14e3f68.html