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

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

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


1个回答

程序完全不对,你的name没有输入,它从哪里来的?

后面判断也不对(少else)

且最后的test1也没有定义。

改好的参考下

Private Sub Command1_Click()
Dim name As String
name = Text1.Text
If name = "小明" Then
Text1.Text = "男"
ElseIf name = "小红" Then
Text1.Text = "女"
Else
Text1.Text = "小仙女、"
End If

End Sub


发布于 2019-04-08 17:20
查看更多
外卖券领取

相关问题

支持语音或者文本回复

语音最长一分钟

点击录音开始,最短不低于3秒