我想用vb玩一个“警察抓小偷”的小游戏。如何逐字判断输入的字母与文章中对应的字母是否相同？

私有子命令1_Click()

Dim t1为字符串，t2为字符串，t3为字符串

Dim i为Long，L1为Long，L2为Long

T1 = "第一个字母a。"

L1 = Len(t1)

T2 = InputBox("请输入:" &；T1，“输出比较”)

L2 = Len(t2)

如果L1 = L2，则

对于i = 1至L1

If Mid(t1，I，1)& lt；& gtMid(t2，I，1)然后

t3 = t3 & ampMid(t2，I，1)和amp","

如果…就会结束

然后

应输入“MsgBox”:&；t1。Chr(13)Chr(10)您输入的是:“&；t2 & ampChr(13)Chr(10)发现不同的字符是:“&；t3

其他

应输入“MsgBox”:&；t1。Chr(13)Chr(10)您输入的是:“&；t2

如果…就会结束

末端接头