新学年新同学

Form1.vb

@@ -5,25 +5,24 @@ Public Class Form1
     {
         New List(Of String) From
         {
-           "李鹏岗", "唐燕", "沈鹏", "陈心路", "赵珊珊", "郭中丽", "林科闯", "闫金健", "江莹", "陈浩南",
-            "蔡叶杭", "林泽锋", "周其程", "石澜", "胡汛", "邱鸿伟", "杨谦益", "王豪", "陈柏逸", "刘志强",
-            "赵政仰", "项磊磊", "付星瑞", "黄敏", "刘祥炜", "王轶蒙", "杨仕铌", "余路成", "朱玲俐", "杨攀",
-            "高郁捷", "莫梦月", "徐溢聪", "张林珏", "陈芳琦", "许腾飞", "黄研培", "厉亚凯", "谈奇灵", "马雯",
-            "姚隽祺", "张恩铭"
+            "李鹏岗", "沈鹏", "陈心路", "林科闯", "黄敏", "闫金健", "江莹", "陈浩南", "李冠錡", "项磊磊",
+            "邱鸿伟", "杨谦益", "王豪", "陈柏逸", "刘志强", "刘祥炜", "赵政仰", "付星瑞", "王轶蒙", "杨仕铌",
+            "余路成", "朱玲俐", "杨攀", "高郁捷", "莫梦月", "徐溢聪", "张林珏", "陈芳琦", "许腾飞", "黄研培",
+            "厉亚凯", "谈奇灵", "马雯", "姚隽祺", "张恩铭", "娄亚筱", "杨卯伟", "刘才育", "洪家闽", "郭欣宜",
+            "林桢坤", "吴莉莉", "杨玲芳", "杨鑫雨", "胡泽楷", "张梦琦", "黄泽龙"
         },
         New List(Of String) From
         {
-            "吐尔洪江·吾拉木", "萨娜", "王小丹", "林高翔", "邓铁龙", "许书逸", "张晓娟", "邢欢", "黄鑫", "沈晓鑫",
-            "曲真魁", "楼伟涛", "杜颖", "汤昊", "向阳", "周亮", "鲁浩伟", "梁雁彤", "杨仁琪", "陈豪飞",
-            "张润涵"
+            "吐尔洪江·吾拉木", "萨娜", "王小丹", "林高翔", "邓铁龙", "杜颖", "楼伟涛", "周亮", "汤昊", "向阳",
+            "鲁浩伟", "梁雁彤", "杨仁琪", "陈豪飞", "张润涵", "林梓淇", "翁小蒙", "马修益", "封辉", "陈子涵"
         },
         New List(Of String) From
         {
-            "莫炳杰", "吴雪峰", "刘海洋", "张宗南", "张裕祥", "蓝进肾", "叶晓芳", "周江鹏", "柳梦宇", "费煜晨",
-            "万景", "檀鹏", "陈晨", "吴启鹏", "黄飞鸿", "胡玮琳", "杨成彪", "李迎秋", "平坦", "曲善直",
-            "陈子龙", "陈铭禹", "李锦安", "高扬钧", "吴维", "张腾", "常青", "张爱忠", "张耀宗", "黄家新",
-            "姚文龙", "张为智", "黄昱祺", "郑一帆", "马梦薇", "程安琪", "张晨昊", "危永平", "叶颖", "周博语",
-            "刘敏", "吴世明", "刘源 ", "程可扬", "宋欣格", "李文翔"
+            "莫炳杰", "张宗南", "张裕祥", "蓝进肾", "常青", "姚文龙", "叶晓芳", "张为智", "周江鹏", "柳梦宇",
+            "龚彬", "黄金理", "高扬钧", "曲善直", "陈子龙", "陈铭禹", "李锦安", "吴维", "张腾", "张爱忠",
+            "张耀宗", "黄昱祺", "黄家新", "郑一帆", "马梦薇", "程安琪", "张晨昊", "危永平", "叶颖", "周博语",
+            "刘敏", "吴世明", "刘源", "程可扬", "宋欣格", "李文翔", "廖桂敏", "黄健", "赖麒鸿", "任思豪",
+            "张文琴", "曹硕", "程舒仪", "李洪树", "蒋中升", "王颖萌", "周鑫", "陈阳", "刘世林", "曹宇"
         }
     }
     Private StudentsUsed_ As New List(Of List(Of String)) From {New List(Of String), New List(Of String), New List(Of String)}
@@ -114,6 +113,22 @@ Public Class Form1
                     TextBox_(0).Text = "闫金健"
                 End If
                 TextBox_(0).Refresh()
+            ElseIf TextBox_(0).Text = "杨鑫雨" Or TextBox_(0).Text = "杨嘉乐" Then
+                If (New Random).Next(0, 4) = 0 Then
+                    TextBox_(0).Text = "杨嘉乐"
+                Else
+                    TextBox_(0).Text = "杨鑫雨"
+                End If
+                TextBox_(0).Refresh()
+            ElseIf TextBox_(0).Text.Length = 3 AndAlso TextBox_(0).Text(0) = "项" AndAlso TextBox_(0).Text(1) = TextBox_(0).Text(2) Then
+                If (New Random).Next(0, 4) = 0 Then
+                    Dim alternate_chars As New List(Of Char) From {CChar("鑫"), CChar("森"), CChar("淼"), CChar("焱"), CChar("垚")}
+                    Dim alternate_char = alternate_chars((New Random).Next(0, alternate_chars.Count))
+                    TextBox_(0).Text = "项" + alternate_char + alternate_char
+                Else
+                    TextBox_(0).Text = "项磊磊"
+                End If
+                TextBox_(0).Refresh()
             End If
         End If
         ' If Me.Text = "" Then