[原创]经典问题vba代码示例

qqwww666

好帖,支持!

aibiaya

QUOTE:

以下是引用f_qc在2007-4-11 20:45:28的发言：

 很多人都不愿看一些基础的书，但其实如果真的学好vba的话，看一本vb的程序员手册是非常有好处的，基础的明白以后，示例代码才能有一定的启发效果

去哪买你说的书呢?

rscwdk

我认为例三的算法改一下更好

Sub prog3()
    Dim m, n
    m = 30: n = 14
    If m = n Then
       beishu = m
       yueshu = m
    Else
        If m < n Then
           temp = m
           m = n
           n = temp
        End If
        For i = n To 1 Step -1
           If (m Mod i = 0) And (n Mod i = 0) Then
              yueshu = i
              Exit For
           End If
        Next
        j = 1
        Do '这种算法速度更快些
            j = j + 1
        Loop While (m * j) Mod n <> 0
        beishu = m * j
    End If
    MsgBox "beishu" & CStr(beishu) & "  " & "yueshu" & CStr(yueshu)
End Sub

gangone

精典，收下

benkyou

QUOTE:

以下是引用f_qc在2007-4-11 20:45:28的发言：

 很多人都不愿看一些基础的书，但其实如果真的学好vba的话，看一本vb的程序员手册是非常有好处的，基础的明白以后，示例代码才能有一定的启发效果

不是说学会VBA再学VB比较容易吗?

冰山上的来客

看看。

XUZHANCHENG

编程实际就是一种智慧的表达，谢谢你的奉献

422904z

确实经典，经常看到

ExcelDotCN

感谢，这个既经典又入门

wgx711

我得对程序2表示下异议
将代码放在vba运行后，得的结果是21，261，1581，但实际上，这3个数都不满足题目要求。
excel里面的2大功能：公式用以解决复杂问题，vba用以解决重复问题。这个题目是复杂问题而非重复问题（第一个题目是重复问题），所以用公式就可以解决。
a1单元格写0，向下拖到10000（随便拖，只要放的下）
b1单元格写公式：=(SQRT(A1+100)-INT(SQRT(A1+100)))+(SQRT(A1+168)-INT(SQRT(A1+168)))，向下填充
只要计算结果为0，就是满足题目要求的，只有156是满足要求的。