vb程序段如下：
创新互联是少有的成都网站建设、做网站、营销型企业网站、小程序开发、手机APP,开发、制作、设计、买链接、推广优化一站式服务网络公司,从2013年创立,坚持透明化,价格低,无套路经营理念。让网页惊喜每一位访客多年来深受用户好评
Private Sub Command1_Clicko
If Val（Text1.Text）Mod 2 = 1 And Val（Text1.Text）= Int（Val（Text1.Text）Then
Label1.Caption="这是奇数"
Else
If Val（Text1.Text）Mod 2= 0 And Val（Text1.Text）= Int（Val（Text1.Text））Then
Label1.Caption ="这是偶数"
Else
Label1.Caption ="非奇非偶"
End If
End If
End Sub
扩展资料：
判断奇偶数时，主要是使用运算符-Mod和if语句，Mod可以对一个数取余数。例如10/3= 3....11则10 Mod 3=1，所以如果任意一个数n Mod 2=1这个数就是奇数。
If语句格式：如果条件1成立 做代码1 否则 做代码2 结束
代码格式：
IfA1 Then
语句1
Else
语句2
End if
如果产生奇数, 使用 2*n+1, n= 0, 1, 2, 3....
如果判断奇数, if XX mod 2 then msgbox xx "是奇数" , =1 可以省略, 因为mod 2 的结果不是1就是0, VB中0是False, 非0值都是True
VB中偶数、奇数的写法：
Private Sub Command1_Click()
Dim s As Integer
On Error GoTo err
s = InputBox("请输入一个整数", "奇偶检测")
s = s Mod 2
If s = 0 Then
Label1.Caption = "你输入的是偶数"
Else
Label1.Caption = "你输入的是奇数"
End If
err:
End Sub
Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易地使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件，用于高效生成类型安全和面向对象的应用程序[2]。程序员可以轻松地使用VB提供的组件快速建立一个应用程序。
扩展资料：
VB的相关要求规定：
1、在Visual Basic 6.0中，采用面向对象程序设计方法，把程序和数据封装起来作为一个对象，每个对象都是可视的。开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。
2、Visual Basic 6.0事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。
3、VB运用了ActiveX技术，使开发人员摆脱了特定语言的束缚，方便地使用其他应用程序提供的功能，使Visual Basic 6.0能够开发集声音、图像、动画、字处理、电子表格、Web等对象于一体的应用程序。
参考资料来源：百度百科-VB
Private Sub Command1_Click()
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub