在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数
来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/30 00:19:06
在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
我这样有什么问题吗?
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
我这样有什么问题吗?
呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看
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的用法.加油吧,看好你
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的用法.加油吧,看好你
在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数
vb例题:任意输入一个整数,编写程序判断该整数的奇偶数
在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X
在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编?
0是有理数,还是整数,还是分数,还是正整数,还是负整数,还是自然数?
c语言程序设计题:输入一个整数,判断是正偶数,负偶数,正奇数还是负奇数
vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该
编写一个程序输入一个整数,判断它是奇数还是偶数
VB编程题.输入一个整数判断他是否是5 的倍数
设计一个程序:输入一个整数,判断它的奇偶性.
编写程序,任意输入一个整数,判断它是奇数还是偶数
编写程序完成判断一个整数是否是素数的功能.写一个判素数的函数prime要求在主函数输入一个整数,输出是否