gpa random หาคะแนน

[mongkong]

เรียน อ. ทุกท่าน ครับ
ปกติ ผมจะมีคะแนน 0 - 100 มาแล้ว และผมก็ใช้ Function ตามข้างล่างนี้ ในการหา GPA

Function MatchGPA(gr As Double)   
    MatchGPA = Switch(gr < 50, 0, _
        gr >= 50 And gr < 55, 1, _
        gr >= 55 And gr < 60, 1.5, _
        gr >= 60 And gr < 65, 2, _
        gr >= 65 And gr < 70, 2.5, _
        gr >= 70 And gr < 75, 3, _
        gr >= 75 And gr < 80, 3.5, _
        gr >= 80, 4, True, "")
End Function

ถาม อ. ครับ
ในทางกลับกัน ถามผม มีแต่ GPA มา 0 1 1.5.... 4
ผมจะเขียน Function ให้ random หาคะแนน ตามช่วงคะแนนจำนวนใดจำนวนหนึ่ง จาก GPA ที่ได้มา เขียนอย่างไรครับ
ขอบพระคุณมากๆๆ
 

[ปิ่นณรงค์]

ลองใช้ Rnd Function ดูครับ

โค๊ด: [Select]

Function RandomGPA(gr As Double)
    RandomGPA = Switch(gr = 0, Int((50 - 0 + 1) * Rnd + 0), _
        gr = 1, Int((55 - 50 + 1) * Rnd + 50), _
        gr = 1.5, Int((60 - 55 + 1) * Rnd + 55), _
        gr = 2, Int((65 - 60 + 1) * Rnd + 60), _
        gr = 2.5, Int((70 - 65 + 1) * Rnd + 65), _
        gr = 3, Int((75 - 70 + 1) * Rnd + 70), _
        gr = 3.5, Int((80 - 75 + 1) * Rnd + 75), _
        gr = 4, Int((100 - 80 + 1) * Rnd + 80), True, "")
End Function

ส่วนการใช้งาน ลองดูจากตัวอย่างคับ ทั้งบนฟอร์ม และ ในคิวรี่