高手帮我写一个小程序

来源：百度知道 编辑：UC知道 时间：2024/06/11 13:00:38
411805203 1235417639
411805204 1235417642
411805205 1235417645
411805206 1235417648
411805207 1235417651
411805208 1235417654
411805209 1235417657
411805210 1235417660
411805211 1235417663
411805212 1235417666
411805213 1235417669
411805214 1235417672
411805215 1235417675
411805216 1235417678
411805217 1235417681
前面的数+1 后面的数+3
前面的数-1 后面的数-3
比如前面的数+100000 则后面的数字就+100000 减也一样～
要求 写个小软件 输入前面的数字 则会自己计算出后面的数字并输出
谢谢 就这点积分。。全贡献出来
比如前面的数+100000 则后面的数字就+300000 减也一样～
修改下 刚写错了

前面的数字和后面的数字在理论上来说可以是没有任何关系。。
但是他们的规律是 前面的数+1 后面的数+3
前面的数-1 后面的数-3
比如前面的数+100000 则后面的数字就+300000 减也一样～

～前面的数字是任意输入的

窗口上有2个文本框（text1和text2）和一个按钮（command1）.还有2个单选按钮（option1和option2）以下是程序代码：

Private Sub Command1_Click()
Dim a As Long
If Text1.Text <> "" And Text2.Text <> "" Then
If Option1 = True Then
a = InputBox("请输入a的值！", "输入")
b = Val(Text1.Text) + a
Text2.Text = Val(Text2.Text) + 3 * a
Text1.Text = Val(Text1.Text) + a
ElseIf Option2 = True Then
a = InputBox("请输入a的值！", "输入")
b = Val(Text1.Text) - a
Text2.Text = Val(Text2.Text) - 3 * a
Text1.Text = Val(Text1.Text) - a
ElseIf Option1 = False And Option2 = False Then
MsgBox ("请选择“加”或者“减”！")
End If
Else
MsgBox ("请在文本框中输入2个数值！")
End If
End Sub

后面的数和前面的数有什么关系吗？
前面的数可是任意输入的啊！把前后两个数的关系贴出来。

后面的数既然和前面的数没什么关系。后面的数又是如何计算出来呢？

你最好举个例子来说明对软件的输入输出要求。