VB中如何实现以下判断?

来源：百度知道 编辑：UC知道 时间：2024/05/11 17:45:37
字符串中包含如果AT或者A输出565,如果PT或者P输出55,如果T输出1050,如果AP输出1000.请写出实现的语句
谢谢,是我没有说清楚,A or P or T在字符串中的位置不定,要判断一个字符下串(长度不定)是否,若出现APTAP这样的字符要报错.
即判断输入字符串ADFDFP,FDSOWGDT,DSADT,SDFLSTP后应该输出的数字.函数我会用,IF语句判断后会报错.

修改后代码如下，测试通过，你运行下

Private Sub Form_Click()
Dim str As String
str = InputBox("请输入字符串")
a1 = InStr(str, "A")
a2 = InStr(str, "T")
a3 = InStr(str, "P")
'如果同时有A和T或者只有A输出565
If a1 <> 0 And a3 = 0 Then Print "字符串包含AT或A ，输出：565"
'如果(P和T)或者P输出55
If a3 <> 0 And a1 = 0 Then Print "字符串包含PT或P ，输出：55"
'如果只有T输出1050
If a2 <> 0 And a1 = 0 And a3 = 0 Then Print "字符串只包含T ，输出：1050"
'如果(A和P)输出1000
If a1 <> 0 And a3 <> 0 And a2 = 0 Then Print "字符串包含A和P ，输出：1000"
End Sub

"APTAP"如果这样的字符串呢.
是否程序需要考虑并发、如果有顺序、自然是上面的回答.

用Instr,正解