技术 信息

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

2019-04-08 16:07发布

站内问答 / 电脑网络
965 1 5

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

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条回答
360U3127268079 - 这个人很懒，什么都没留下
1楼 · 2019-04-08 17:20.采纳回答

程序完全不对，你的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


一周热门 更多>