انتخاب راندوم بین 3 متغییر

[mr-edris 186]

سلام و خسته نباشید

 

فک کنید سه متغیر داریم a b c

با کد

rnd(a,b)

فقط میشه از بین 2متغیر یکی انتخاب کرد چطور از بین 3 تا اینکارو کنم؟

[امیرنیوکی 147]

به این صورت هم میشه

	Dim a,b,c As String

	a = "a"

	b = "b"

	c = "c"

	Select Rnd(1,3)


		Case 1

			Return a

		Case 2

			Return b

		Case 3

			Return c

	End Select

به این صورت هم میشه واسه استرینگ آرایه

	Dim strArray() As String

	Dim strRnd = strArray(Rnd(0, strArray.Length -1))