2. Dim Lambda As Integer = 13. Dim

2. Dim Lambda As Integer = 1
3. Dim seed As Single = 0
4. Dim X As Integer = 0
5. Randomize()
6. seed = Rnd()
7. X = seed * Lambda
8. rndom = Int(1 - Exp(-Lambda * X) * 10)
9. Debug.Print(Exp(-Lambda * X))
10. Debug.Print(Exp(1))
11. End Function

ผลลัพธ์ (ไทย) 1:

2. หรี่แลมบ์ดาเป็นจำนวนเต็ม = 13. ติ่มซำเป็นเดี่ยวเมล็ด = 04. dim X เป็นจำนวนเต็ม = 05. Randomize()6. เมล็ดพันธุ์ = Rnd()7. X =เมล็ด * แลมบ์ดา8. rndom = Int (1 - Exp (-แลมบ์ดา * X) * 10)9. debug print (Exp (-แลมบ์ดา * X))10. Debug.Print(Exp(1))11. การ

ผลลัพธ์ (ไทย) 2:

2. ติ่มแลมบ์ดา As Integer = 1
3. เมล็ดติ่มเดียว = 0
4. ติ่ม X As Integer = 0
5. สุ่ม ()
6 เมล็ด = อาร์เอ็น ()
7 X = เมล็ด * แลมบ์ดา
8 rndom = Int (1 - exp (-Lambda * X) * 10)
9 Debug.Print (exp (-Lambda * X))
10 Debug.Print (exp (1))
11 ฟังก์ชั่น End

ผลลัพธ์ (ไทย) 3:

2 . สลัวเป็นจำนวนเต็ม = 1 แลมด้า3 . มัวเมล็ดเดียว = 0 เป็น4 . สลัวเป็นจำนวนเต็ม = 0 x5 . randomize()6 . rnd() เมล็ด =7 . X = เมล็ด * แลมด้า8 . rndom = INT ( 1 - exp ( - แลมบ์ดา * x ) * 10 )9 . แก้ปัญหาพิมพ์ ( exp ( - แลมบ์ดา * x ) )10 . แก้ปัญหาพิมพ์ ( EXP ( 1 )11 . ฟังก์ชันจบ