Question

在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
我这样有什么问题吗？

Answer 1

呵呵，一看就知道你刚学。我按照你的思路写的代码，你看看
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的用法。加油吧，看好你

Answer 2

VB制作图片浏览器

当我们在设置屏幕背景图，或是在你的文件中插入图片时，总要在你的电脑里选择图片。有时打开的图片你不一定满意，你又不得不一个个地打开、关闭……这样一而再，再而三地重复。如果是“Photoshop”这样的大软件运行起来更是慢得不得了。不但烦躁，而且还浪费了你很多宝贵时间。这时，你是不是觉得“电脑”有点像“猪脑”呢？不过，别急！幸好我用VB编了一个小小的程序，可以解决这个问题，你不妨试试！

下面分步设置各控件的属性：

1.设置窗体的Caption属性为“图片浏览器”，BorderStyle属性为3,即窗体大小不能改变。

2.设置Label1的属性为“当前驱动器”，Label2的属性为“当前目录”，Label3的属性为“当前文件”；Label4的属性为“当前图像”，Label5的属性为“当前文件路径”。

3.设置Text1的Text属性为空。

4.设置Image1的Stretch属性为True，即所装入的图形能够缩放以适应图像框大小。

5.设置Command1的Caption属性为“确定”，Command2的Caption属性为“退出”。

具体的程序源代码如下：

' Private Sub Command1_Click()
' Image1.Picture = LoadPicture(Text1.Text) '当单击"确定"时，文本框中的文件在图像框中显示出来
' End Sub

' Private Sub Command2_Click() '当单击"退出"时，弹出是否退出系统对话框
' Dim exi As String
' exi = MsgBox("您真的想退出吗？", vbYesNo + vbQuestion + vbDefaultButton1, "退出")
' If exi = vbYes Then
' End
' End If
' End Sub

Private Sub Dir1_Change()
File1.Path = Dir1 '当目录发生变化时，文件列表框中的文件也相应变化
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1 '当驱动器变化时，目录列表也相应变化
End Sub

Private Sub File1_Click()
Text1.Text = File1.Path + "\" + File1 '用来在文本框中显示被选中的图形名
Image1.Picture = LoadPicture(File1.Path + "\" + File1)
End Sub

' Private Sub File1_DblClick()
' Image1.Picture = LoadPicture(File1.Path + "\" + File1) '当双击文件列表中的文件时,文件在图像框中显示出来
' End Sub

Private Sub Form_Load()
' Command1.Enabled = False '在未选择图形文件时"确定"按钮不可用
File1.Pattern = "*.bmp;*.jpg;*.ico;*.cur" '在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件
' File1.Path = "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片"
End Sub

Private Sub Text1_Change()
' Command1.Enabled = True '当文本框中的内容变化时使"确定"按钮可用
End Sub

好了，按“F5”键运行一下吧！你还满意吗？通过这个小小的程序，希望广大初学VB的读者能从本文中受到小小的启发，然后能用VB 6.0编出自己的绝妙佳作。

Answer 3

Private Sub Form_Load()
Dim a as integer
a=Inputbox("请输入一个数字："）
If a < 0 then
Msgbox"您输入的数是负数！"
ElseIf a= 0 then
Msgbox"您输入的数是0！"
ElseIf a> 0 then
Msgbox"您输入的数是正数！"
End If
End Sub

问题补充：
您的程序也没问题！只不过是您少些了判断等于0时的程序！不过可以考虑直接点，把变量b直接写成Text2.Text，就是直接给Text2.Text赋值！改进一下，把我的代码的If语句学习一下啊。