| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1340 人关注过本帖
标题:VB分解质因数
只看楼主 加入收藏
chenyucheng
Rank: 3Rank: 3
来 自:浙江省台州市临海市
等 级:论坛游侠
威 望:3
帖 子:141
专家分:181
注 册:2022-7-1
结帖率:100%
收藏
 问题点数:0 回复次数:3 
VB分解质因数
用VB实现的分解质因数功能
分解质因数.zip (5.66 KB)

图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: VB 分解 
2022-07-02 22:27
chenyucheng
Rank: 3Rank: 3
来 自:浙江省台州市临海市
等 级:论坛游侠
威 望:3
帖 子:141
专家分:181
注 册:2022-7-1
收藏
得分:0 
方法2:
程序代码:
'Visual Basic
Rem 原文空格去了,我自己加了,并且把一处全角右括号的改成了半角的。
' 原文https://baike.baidu.com/item/%E5%88%86%E8%A7%A3%E8%B4%A8%E5%9B%A0%E6%95%B0/2253749,在“编程分解”的“Visual Basic”
Dim x,a,b,k As String
 
Private Sub Command1_Click()
a = Val(Text1.Text)
x = 2
If a <= 1 Or a > Int(a) Then
If a = 1 Then
Text2.Text = "它既不是质数,也不是合数"
Else
MsgBox "请您先输入数据",vbOKOnly+vbInformation,"友情提示"
End If
Else
Do While a/2 = Int(a/2) And a >= 4
If b=0 Then
Text2.Text=Text2.Text&"2"
b=1
Else
Text2.Text=Text2.Text&"*2"
End If
a=a/2
k=a
Loop
Do While a>1
For x=3 To Sqr(a) Step 2
Do While a/x=Int(a/x) And a>=x*x
If b=0 Then
Text2.Text=Text2.Text&x
b=1
Else
Text2.Text=Text2.Text&"*"&x
End If
a=a/x
Loop
Next
k=a
a=1
Loop
If b=1 Then
Text2.Text=Text2.Text&"*"&kv
Else
Text2.Text="这是一个质数"
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text=""
Text2.Text=""
End Sub


[此贴子已经被作者于2022-7-2 23:50编辑过]


爱玩编程的小学生,有Python,但只会一点点C++。

版主->斑竹->竹子,所以版主是竹子。(doge)
//不要让我当版主
2022-07-02 23:47
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:76
帖 子:278
专家分:1357
注 册:2006-6-25
收藏
得分:0 
Dim x,a,b,k As String

嗯嗯,这样的定义是不正确的
2022-07-04 09:02
chenyucheng
Rank: 3Rank: 3
来 自:浙江省台州市临海市
等 级:论坛游侠
威 望:3
帖 子:141
专家分:181
注 册:2022-7-1
收藏
得分:0 
回复 3楼 cwa9958
以下是引用cwa9958在2022-7-4 09:02:14的发言:

Dim x,a,b,k As String

嗯嗯,这样的定义是不正确的

那是第2种,定义不对又复杂,正确的用我的代码

爱玩编程的小学生,有Python,但只会一点点C++。

版主->斑竹->竹子,所以版主是竹子。(doge)
//不要让我当版主
2022-07-04 10:29
快速回复:VB分解质因数
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024407 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved