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) +