Question

VB随机生成字符串代码

我想要在文本框里生成一组数字，但要求数字共9位，其中前四位固定（比如1451XXXXX），生成后不能修改。
噢，不好意思，不是随机生成，是按顺序生成

Answer 1

Private Sub Command1_Click()
Randomize
num1 = 145100000 + Int((99999 - 0 + 1) * Rnd + 0)
Debug.Print num1
End Sub

'说明
'为了生成某个范围内的随机整数，可使用以下公式：
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
'这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

Private Sub Command1_Click()
For i = 0 To 99999
DoEvents
Debug.Print 145100000 + Int(i)
Next
End Sub

追问

不好意思哈，我试过了，方法的确可以。是我没说清，我是说，在一个页面里有一个文本框，当我每次打开这个页面里都会在文本框中按顺序的生成这个数字，且不能修改。朋友，我连新手都谈不上，只是学过一点点，最近要做论文，要做些东西才要做的。不过有些代码我还是可以看懂的。还望帮忙

追答

确定是生成这个，不是这组！
那么第一次打开生成的数字要保存在文本文件或数据库里。
然后每次打开程序取上次的数字加1就行了。
不能修改用，Text1.Locked = True。

追问

是的朋友，页面里有一个文本框，每次打开页面都要在文本框中自动生成这个号码（1451XXXXX），且不能修改，按顺序是每次加“1”的样子生成，数值上限到145199999不需要按钮就自动生成那种。这个号码的确是要存储到数据库中的。
能不能帮忙写个全的代码。

追答

Private Sub Form_Load()
Dim rs1 As Long
Text1.Text = ""
Text1.Locked = True
Set conn1 = CreateObject("adodb.connection")
conn1.open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\DB.mdb"
rs1 = conn1.execute("select top 1 num1 from table1 order by num1 desc")(0)
Text1.Text = clng(rs1) + 1
End Sub

追问

看上去应该是正确的，可惜我无法正确建立数据库文件。谢谢你了哈