高一信息技术我自己写了个,就是输入小明结果男,输入小红结果女。可调试没有反应。我是哪里错了

2019-04-08 16:07发布

都不是的话显示小仙女,帮忙看下哪里错了- -新手。。。

Private Sub Command1_Click()

Dim name As String

Dim resule As String

result = Val(Text1.Text)

If name = "小明" Then

Text1.Text = "男"

ElseIf name = "小红" Then

Text1.Text = "女"

 

test1.Text = "小仙女、"

End If

 

End Sub