如何用vb计算出相邻的两个奇数？

像你所描述的情况使用FIX()函数比较合适

Step1)
【取整数函数】
FIX（X） 取整函数 返回X的整数部

Step2)
【判断奇偶性】
举例：
dim i as integer
if i mod 2 = 0 then
msgbox("偶数")
else
msgbox("奇数")
end if

Step3)

奇数：【FIX（i）】 ，【FIX（i）+1】
偶数：【FIX（i）-1】，【FIX（i）+1】

希望对你有帮助

VB有个取整函数，也就是得到数字的整数部分，
你可以对数字先取证，判断取证后是不是奇数，若不是再让它加1和减1就是所求的数字。
若函数取整后是奇数，那么取整后的这个数和这个数加1就是所求的两个数。

如果那个数字本身就是奇数呢?比如说5，那么按你的意思，最近的两个奇数怎么算？是算3和7还是5，7？

Private Sub Form_Load()
Dim a As Integer, b As Integer, c As String
c = InputBox("输入数字")
If c / 2 <> Int(c) / 2 Then
a = Int(c)
b = Int(c) + 2
MsgBox ("前后两个奇数为" & a & " " & b)
End
Else
a = Int(c) - 1
b = Int(c) + 1
MsgBox "前后两个奇数为" & a & " " & b
End
End If
End Sub