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