vb初学回顾：最大公约数　最小公倍数　素数求取

最新推荐文章于 2020-12-11 15:11:56 发布

miaozk2006

最新推荐文章于 2020-12-11 15:11:56 发布

阅读量739

点赞数 2

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/miaozk2006/article/details/82416852

这篇博客回顾了VB初学者在编程中遇到的挑战，包括如何求解最大公约数、最小公倍数以及找出100到200之间的所有素数。此外，还分享了一系列与VB编程相关的文章链接，涵盖了图形绘制、文件操作、API使用以及与其他软件交互等多个方面。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

求最大公约数和最小公倍数

Private Sub Command3_Click()
    Dim m1%, m%, n%, n1%, r%, b%
    m1 = Val(InputBox("输入一个数："))
    n1 = Val(InputBox("请输入另一个数："))
    If m1 > n1 Then m = m1: n = n1 Else m = n1: n = m1
    Do
        r = m Mod n
        If r = 0 Then Exit Do
        m = n
        n = r
    Loop
    Print m1; "和"; n1; "的最大公约数为："; n
    b = m1 * n1 / n
    Print m1; "和"; n1; "的最小公倍数为："; b
End Sub

求100到200之间所有的素数 (质数)

Private Sub Command2_Click()
    Dim i%, m%
    For m = 101 To 199 Step 2
        For i = 2 To Int(Sqr(m))
            If (m Mod i) = 0 Then GoTo notnextM '一旦被2到sqr(m)的数整除就转到下一个数
        Next i
        Print m
notnextM:
    Next m
End Sub

★VB部分相关文章推荐：★

※vb中line的用法[转]

※画图工具的VB实现

※VB 一个获得自己外网 IP 地址的程序代码

※VB程序中实现IP地址子网掩码网关DNS的更改 [转]

※在 VB 中应用 FSO 对象模型介绍（摘自网络）