Question

vb设计不同文本框内不同内容得分不同。

如图，text1，2，3中输入1，2，3三个数。如果三个数全部正确，则得到30分。如果其中一个错误，得到20分，如果只有一个数对，只能得到10分，如果三个数完全相同，还是得到十分，如果三个数全部错误，则弹出对话框：全部错误。求解。

Answer 1

描述得不清！~

追问

三个文本框中分别输入123三个数，数字的顺序可以改变。
如果三个数相同，则算一个数，为10分。
如果三个数就两个数有效，算20分。
三个数都有效，算30分。三个数都没效，弹出对话框：全部错误。
text1输入1，text2输入2，text3输入3跟text1输入3，text2输入2，text3输入3效果一个，都算30分。

追答

直接上文件！保证满足！

追问

如果三个数值一样，先出现正确的分数，然后后面会弹出错误。另外，能否解释下代码？

追答

…………推广代码不解释！

Private Sub Command1_Click()
If Text1(0).Text = Text1(1).Text And Text1(1).Text = Text1(2).Text Then MsgBox "10分" 判断是否全部相等。
For i = 0 To 2
p = Val(Text1(i)) 判断是否在1-3的数值内
If p > 0 And p < 4 Then z = z + 10 如果符合1-3就通过加分
Next
If Text1(0).Text = Text1(1).Text Then z = z - 10判断是否有相等的2个数，改变总分z
If Text1(0).Text = Text1(2).Text Then z = z - 10
If Text1(2).Text = Text1(1).Text Then z = z - 10
If z = 0 Then
MsgBox "错误"
Else
MsgBox z & "分"
End If
End Sub

另外你可以自己改一下！自己动手！

Answer 2

Private Sub Command1_Click()
Dim s As Integer, a As Integer, b As Integer, c As Integer
a = Text1.Text: b = Text2.Text: c = Text3.Text
If a >= 1 And a <= 3 Then s = s + 10
If b >= 1 And b <= 3 Then s = s + 10
If c >= 1 And c <= 3 Then s = s + 10
If a = b And b = c Then s = 10
If s > 0 Then
MsgBox "得分：" & s
Else
MsgBox "全部错误"
End If
End Sub

追问

如果我输入三个6，答案就不对了。不知道能否改变一下？

追答

If a = b And b = c Then s = 10
改成：
If s = 30 And a = b And b = c Then s = 10