作业帮在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数Dim a As Stringa = Val(Text1.Text)If a < 0 Thenb = "负整数"ElseIf a > 0 Thenb = "正整数"Elseb = "0"End IfText2.Text = b我这样有什么问题吗?
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/27 21:38:27
在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数Dim a As Stringa = Val(Text1.Text)If a < 0 Thenb = "负整数"ElseIf a > 0 Thenb = "正整数"Elseb = "0"End IfText2.Text = b我这样有什么问题吗?
在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数
Dim a As String
a = Val(Text1.Text)
If a < 0 Then
b = "负整数"
Else
If a > 0 Then
b = "正整数"
Else
b = "0"
End If
Text2.Text = b
我这样有什么问题吗?
在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数Dim a As Stringa = Val(Text1.Text)If a < 0 Thenb = "负整数"ElseIf a > 0 Thenb = "正整数"Elseb = "0"End IfText2.Text = b我这样有什么问题吗?
呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看
Private Sub Command1_Click()
a = Val(Text1.Text)
If a < 0 Then
Text2 = "负整数"
ElseIf a > 0 Then
Text2 = "正整数"
Else
Text2 = "0"
End If
End Sub
给你解释下,开始你定义那个可以不要的,因为text1输入的字本来就是string,当然,这个写了也没错.然后就是你对b赋值,再给text2,其实不用麻烦.直接把字符窜给text2就可以了,当然了,你开始那样写也没错.最重要的一点的你if块结构没写对.你写的代码可以说写错了,少写了个if,then.额````按照你的想法,你把else写成elseif就行.因为一个完整的if 语句里最多只能有一个
else,你有2个,当然程序认为你还需要找一个if ,then 了.
还有其它的实现这个问题代码我就不说了,反正我想你也只是学习撑握IF的用法.加油吧,看好你