Question

VB中:在Text1中输入“1”点击按键(确定)后在Text2中显示为“中”的代码怎么写.能详说么?

Answer 1

If Len(Text1.Text) = 0 Then Exit Sub
Select Case Text1.Text
Case "1"
Text2.Text = "中"
End Select

Answer 2

private sub command1_click()
if text1.text = "1" then text2.text = "中"
end sub
就这样。