[已解决]知道两数差3,两数和55,怎样用VBA算出两数各是多少？

admin0301

     在Excel中知道两数差3,两数和55,怎样用VBA算出两数各是多少？这个题VBA怎样写循环，求代码？代码写在附件按钮里！


递归加减计算法.zip (22.21 KB, 下载次数: 11)

2012-10-5 14:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-5 14:22

1. Private Sub 递归计算_Click()
   
2.     Dim i1 As Long
   
3.     Dim i2 As Long
   
4.     Dim iC As Long, iH As Long
   
5.     Dim iok As Boolean
   
6.     If VBA.IsNumeric(TextBox1.Text) And VBA.IsNumeric(TextBox2.Text) Then
   
7.         iC = TextBox1.Text
   
8.         iH = TextBox2.Text
   
9.         i1 = (iH - iC) \ 2
   
10.         i2 = i1 + 3
    
11.         
    
12.         If i1 + i2 = iH Then iok = True
    
13.     End If
    
14.     If iok Then
    
15.         MsgBox "两个数分别是：" & i1 & "和" & i2
    
16.         
    
17.     Else
    
18.         MsgBox "非法数据，请重新输入"
    
19.     End If
    
20. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

这个直接就能计算出来，不需要递归啊。

admin0301

hwc2ycy 发表于 2012-10-5 14:10
这个直接就能计算出来，不需要递归啊。

学校老师布置的VBA作业，我用笔算也能，关键不知道VBA代码怎么写，照顾下新人，谢谢！

hwc2ycy

1. Private Sub 递归计算_Click()
   
2.     Dim i1 As Long
   
3.     Dim i2 As Long
   
4.     Dim iC As Long, iH As Long
   
5.     Dim iok As Boolean
   
6.     If VBA.IsNumeric(TextBox1.Text) And VBA.IsNumeric(TextBox2.Text) Then
   
7.         iC = TextBox1.Text
   
8.         iH = TextBox2.Text
   
9.         i1 = (iH - iC) \ 2
   
10.         i2 = i1 + 3
    
11.         
    
12.         If i1 + i2 = iH Then iok = True
    
13.     End If
    
14.     If iok Then
    
15.         MsgBox "两个数分别是：" & i1 & "和" & i2
    
16.         
    
17.     Else
    
18.         MsgBox "非法数据，请重新输入"
    
19.     End If
    
20. End Sub
    

复制代码

hwc2ycy

一定要用循环？

admin0301

hwc2ycy 发表于 2012-10-5 14:10
这个直接就能计算出来，不需要递归啊。

能帮我用VBA求解吗？学校老师布置的作业，我是新人!xiexie

hwc2ycy

admin0301 发表于 2012-10-5 14:29
能帮我用VBA求解吗？学校老师布置的作业，我是新人!xiexie

已经是VBA了。

hwc2ycy

递归加减计算法.rar (25.24 KB, 下载次数: 10)

2012-10-5 14:43 上传

点击文件名下载附件

admin0301

hwc2ycy 发表于 2012-10-5 14:43

          谢谢老师！！

admin0301

hwc2ycy 发表于 2012-10-5 14:43

老师可不可以把TEXTBOX1和textbox2设置成变量，当我任意输入数据时根据输入的数字去算结果