vb 随机函数

双重随机 怎么写  就是随机出了一个数 然后拿这个数座开头再随机一遍
比如 1到10之间 随机 第一次以1开头10结尾 随机出一个7 第二次就是以7开头6结尾再随机一遍
那位可以帮个忙 先谢谢了

---

6结尾 这个什么规则？-1？

---

引用

6结尾 这个什么规则？-1？

纯粹随机~别想太复杂

---

random(10)& random(10)
不知道可以不

---

VB code:
Private Sub Command1_Click()
Dim dblT1 As Double
Dim dblT2 As Double
Dim dblT As Double

Randomize
dblT1 = Int(Rnd(1) * (10 - 1) + 1)
dblT2 = Int(Rnd(1) * (10 - 1) + 1)
dblT = Int(Rnd(1) * (dblT1 - dblT2) + dblT2)
Debug.Print dblT1 & " " & dblT2 & " " & dblT

End Sub

---

VB code:
Option Explicit

Private Sub Command1_Click()
Dim intP As Integer
intP = CInt(Rnd * 10)
intP = intP - Rnd
Debug.Print intP
End Sub

---

不知楼主所云啊！

---

    Dim dblT1 As Double
    Dim dblT2 As Double
    Dim dblT As Double
   
    Randomize
    dblT1 = Int(Rnd(1) * (10 - 1) + 1)
    dblT2 = Int(Rnd(1) * (10 - 1) +