vb,vb.net学习讨论群再次拉人啦

二楼

顶

顶

Dim a As Integer
a = Val(Text11.Text)
Select Case a
Case a = 1
If Option1.Value = ture Then
Text6.Text = "武将名称"
Text7.Text = "武力"
Text8.Text = "智力"
Text9.Text = "初始体力"
Text10.Text = "初始技力"
Text1.Text = "丁奉"
Text2.Text = "80"
Text3.Text = "65"
Text4.Text = "123"
Text5.Text = "47"
ElseIf Option2.Value = True Then
Text6.Text = "物品名称"
Text7.Text = "武力加"
Text8.Text = "智力加"
Text9.Text = "体力加"
Text10.Text = "技力加"
Text1.Text = "木铜铃"
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
ElseIf Option3.Value = True Then
Text6.Text = "城池名称"
Text7.Text = "开发"
Text8.Text = "防御"
Text9.Text = "预备兵数"
Text10.Text = "金钱"
Text1.Text = "西凉"
Text2.Text = "54"
Text3.Text = "69"
Text4.Text = "20"
Text5.Text = "100"
End If
Case a = 2
If Option1.Value = ture Then
Text6.Text = "武将名称"
Text7.Text = "武力"
Text8.Text = "智力"
Text9.Text = "初始体力"
Text10.Text = "初始技力"
Text1.Text = "丁原"
Text2.Text = "83"
Text3.Text = "55"
Text4.Text = "117"
Text5.Text = "43"
ElseIf Option2.Value = True Then
Text6.Text = "物品名称"
Text7.Text = "武力加"
Text8.Text = "智力加"
Text9.Text = "体力加"
Text10.Text = "技力加"
Text1.Text = "尸兵符印"
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
ElseIf Option3.Value = True Then
Text6.Text = "城池名称"
Text7.Text = "开发"
Text8.Text = "防御"
Text9.Text = "预备兵数"
Text10.Text = "金钱"
Text1.Text = "陇右"
Text2.Text = "28"
Text3.Text = "34"
Text4.Text = "20"
Text5.Text = "100"
End If
Case a = 3
If Option1.Value = ture Then
Text6.Text = "武将名称"
Text7.Text = "武力"
Text8.Text = "智力"
Text9.Text = "初始体力"
Text10.Text = "初始技力"
Text1.Text = "丁斐"
Text2.Text = "56"
Text3.Text = "34"
Text4.Text = "87"
Text5.Text = "31"
ElseIf Option2.Value = True Then
Text6.Text = "物品名称"
Text7.Text = "武力加"
Text8.Text = "智力加"
Text9.Text = "体力加"
Text10.Text = "技力加"
Text1.Text = "秘忍卷轴"
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
ElseIf Option3.Value = True Then
Text6.Text = "城池名称"
Text7.Text = "开发"
Text8.Text = "防御"
Text9.Text = "预备兵数"
Text10.Text = "金钱"
Text1.Text = "安定 "
Text2.Text = "60"
Text3.Text = "54"
Text4.Text = "20"
Text5.Text = "100"
End If
End Select
求大神帮忙看看哪里出错了