vb如何在一字符串中插入随机数
1个回答
展开全部
'自己理解一下：
Private Sub Form_Click()
Dim m, n
If Len(Text1) > 0 Then
Randomize
m = 1 + Int(Rnd * Len(Text1))
n = Int(Rnd * 10)
Text1 = Left(Text1, m) & n & Right(Text1, Len(Text1) - m)
End If
End Sub
Private Sub Form_Load()
Text1 = "abcde"
End Sub
Private Sub Form_Click()
Dim m, n
If Len(Text1) > 0 Then
Randomize
m = 1 + Int(Rnd * Len(Text1))
n = Int(Rnd * 10)
Text1 = Left(Text1, m) & n & Right(Text1, Len(Text1) - m)
End If
End Sub
Private Sub Form_Load()
Text1 = "abcde"
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
