[خالد]

السلام عليكم ورحمة الله وبركاته


في كل الحالات لابد من وضع الاسماء في مصفوفة
لاختيار رقم عشوائي ستستخدم الدالة المكتبة Random ثم تستخدم الدالة Next التي في داخلها لتحصل على رقم ضمن مجال بين رقمين والتي تحددها بين 0 وعدد الأسماء
الخطوة الأخيرة تأخذ الاسم من المصوفوفة بناء على الرقم العشوائي
هذا مثال

كود :

Dim arrNames As Array = {"عبدالله", "محمد", "خالد"}

Dim rand As New Random
Dim rndIndex As Integer = rand.Next(0, arrNames.Length)
Dim rndName As String = arrNames(rndIndex)

MsgBox(rndName)

إذا كانت الأسماء في ملف نصي txt وكل اسم بسطر فتستطيع قراءتها بالكود ووصعها في المصفوفة بالطريقة التالية

كود :

Dim arrNames As Array = IO.File.ReadAllLines("اسم الملف.txt")

السلام عليكم ورحمة الله وبركاته