当前位置: 开源爱好者 » VB源码 » 其它源码 » 详情页

VB6.0 分解质因数

VB6.0 分解质因数,将一个正整数分解为质因数乘积,整个事件封装在一个按钮中,单击按钮后可进行计算。具体代码:
  Private Sub Command1_Click()
  Dim n As Integer, x As Integer, f As Boolean
  n = Val(Text1) '取文本框的值进行分解
  x = 2 '最小的质因数
  f = True '做标记用
  Do '外层循环
   Do While n Mod x = 0 '内层循环考虑到有多个相同的质因数
   If f Then
   Label2.Caption = Label2.Caption & n & "=" & x '在标签上做相应输出
   Else
   Label2.Caption = Label2.Caption & "*" & x
   End If
   n = n \ x '赋新值
   f = False
   Loop
   x = x + 1 '取下一个数
  Loop Until x > n '循环结束条件
  End Sub

VB6.0 分解质因数测试效果图
源码包大小:2.17K
该源码已累计下载了:
相关VB源码:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图