vb编程--随机给出的两个数字的奇数和

来源：百度知道 编辑：UC知道 时间：2024/05/19 00:33:25
请指教：vb编程--随机给出的两个数字的奇数和 的代码
万分感谢
我对这个真是一窍不通，请大侠们完整指教，谢谢

这就是完整代码

Private Sub Form_Click()
Cls
Randomize
a = Int(Rnd * 100)
b = Int(Rnd * 100)
Print "随机生成的两个数位" & a & "," & b
If a > b Then '使a为较小的数
t = a
a = b
b = t
End If
If a Mod 2 = 0 Then a = a + 1
For i = a To b Step 2
Sum = Sum + i
Next
Print "它们的奇数和为：" & Sum
End Sub