删掉一些人

This commit is contained in:
陈浩南 2024-10-10 13:11:14 +08:00
parent 9b60dcf87c
commit 784e00cd35
2 changed files with 9 additions and 17 deletions

View File

@ -3,21 +3,20 @@
{ {
New List(Of String) From New List(Of String) From
{ {
"万文杰", "余路成", "刘志强", "刘才育", "包洋", "厉亚凯", "叶玲榕", "吴莉莉", "周鑫", "唐甜", "万文杰", "余路成", "刘才育", "周鑫", "唐甜", "姚隽祺", "娄亚筱", "张恩铭", "张梦琦", "朱玲俐",
"姚隽祺", "娄亚筱", "张恩铭", "张林珏", "张梦琦", "彭佳璇", "徐溢聪", "朱玲俐", "李冠錡", "李昊天", "杨仕铌", "杨卯伟", "杨攀", "杨玲芳", "杨鑫雨", "梁纤璐", "王瑶", "王轶蒙", "王鹏", "胡泽楷",
"杨仕铌", "杨卯伟", "杨攀", "杨玲芳", "杨鑫雨", "林桢坤", "林科闯", "梁纤璐", "江莹", "洪家闽", "谈奇灵", "谢琳洋", "郑嘉钰", "郑杰", "陆玉鑫", "陈心路", "陈浩南", "项磊磊", "马雯", "高郁捷",
"王梦童", "王瑶", "王轶蒙", "王鹏", "胡泽楷", "苏杨", "莫梦月", "蒋黎", "许腾飞", "谈奇灵", "黄嘉芃", "黄敏", "黄泽龙", "龚树想"
"谢琳洋", "郑嘉钰", "郑杰", "郭欣宜", "闫金健", "陆玉鑫", "陈心路", "陈拓林", "陈浩南", "陈芳琦",
"项磊磊", "马雯", "高郁捷", "黄嘉芃", "黄敏", "黄泽龙", "黄研培", "龚树想"
}, },
New List(Of String) From New List(Of String) From
{ {
"刘辉强", "吐尔洪江·吾拉木", "宿一曼", "封辉", "张思晴", "张润涵", "杜颖", "杨仁琪", "林梓淇", "林高翔", "刘辉强", "吐尔洪江·吾拉木", "宿一曼", "封辉", "张思晴", "张润涵", "李昊天", "杜颖", "杨仁琪", "林梓淇",
"梁雁彤", "王小丹", "翁小蒙", "莫仕弟", "萨娜", "邓铁龙", "陈子涵", "陈豪飞", "马修益", "鲁浩伟" "林高翔", "梁雁彤", "王小丹", "翁小蒙", "莫仕弟", "萨娜", "邓铁龙", "陈子涵", "陈豪飞", "马修益",
"鲁浩伟"
}, },
New List(Of String) From New List(Of String) From
{ {
"任思豪", "刘世林", "刘启霖", "刘敏", "刘文博", "刘源", "刘金华", "危永平", "叶晓芳", "叶颖", "任思豪", "刘世林", "刘启霖", "刘敏", "刘文博", "刘源 ", "刘金华", "危永平", "叶晓芳", "叶颖",
"吴世明", "周博语", "周江鹏", "姚文龙", "宋欣格", "常青", "廖桂敏", "张为智", "张姝卿", "张宗南", "吴世明", "周博语", "周江鹏", "姚文龙", "宋欣格", "常青", "廖桂敏", "张为智", "张姝卿", "张宗南",
"张文琴", "张晨昊", "张灵辉", "张耀宗", "张艺腾", "张裕祥", "曹宇", "曹硕", "曾国清", "李彦君", "张文琴", "张晨昊", "张灵辉", "张耀宗", "张艺腾", "张裕祥", "曹宇", "曹硕", "曾国清", "李彦君",
"李文翔", "李欣如", "李洪树", "杨镇泽", "林旺康", "柳梦宇", "王必成", "王曼", "王颖萌", "程可扬", "李文翔", "李欣如", "李洪树", "杨镇泽", "林旺康", "柳梦宇", "王必成", "王曼", "王颖萌", "程可扬",
@ -106,13 +105,6 @@
TextBox_(0).Text = "陈心路" TextBox_(0).Text = "陈心路"
End If End If
TextBox_(0).Refresh() 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 = "杨鑫雨" Or TextBox_(0).Text = "杨嘉乐" Then ElseIf TextBox_(0).Text = "杨鑫雨" Or TextBox_(0).Text = "杨嘉乐" Then
If (New Random).Next(0, 4) = 0 Then If (New Random).Next(0, 4) = 0 Then
TextBox_(0).Text = "杨嘉乐" TextBox_(0).Text = "杨嘉乐"

View File

@ -3,7 +3,7 @@ Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 17 # Visual Studio Version 17
VisualStudioVersion = 17.11.35312.102 VisualStudioVersion = 17.11.35312.102
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "幸运抽奖", "幸运抽奖.vbproj", "{DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}" Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "幸运抽奖", "幸运抽奖.vbproj", "{DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}"
EndProject EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution