vb输入两个数输出之间的基数和偶数

新建一个窗体，添加一个Textbox控件，与一个Command控件。

将Textbox控件的MultiLine 属性设置为true和ScrollBars 属性设置为2-vertical。

然后粘贴下面的代码到代码区即可：

Private Sub Command1_Click()
    Dim T1 As Double
    Dim T2 As Double
    Dim L As Double
    Dim K As Long
    Dim I As Long
    Dim TXT As String
    T1 = InputBox("请输入第一个数：", "数据输入一", "0")
    T2 = InputBox("请输入第二个数:", "数据输入二", "100")
    If Abs(T1 - T2) < 1 Then
       K = MsgBox("数据输入错误，不符合要求！")
    End If
    If T1 > T2 Then
       L = T1: T1 = T2: T2 = L
    End If
    K = Int(T1 + 0.5)
    For I = K To T2
        If I Mod 2 <> 0 Then TXT = TXT & I & Chr(10) & vbCrLf
    Next I
    Text1.Text = TXT
End Sub

基数还是奇数