vb求助~~~ 将整数分解成质数相乘的形式~~操作界面如下 不要按键精灵 inputboxx print啥的！界面如图

来源：蜘蛛抓取(WebSpider) 时间：2011-12-10 07:05 标签： 按键精灵 inputbox
人人网 - 抱歉
哦，抱歉，好像看不到了
现在你可以:
看看其它好友写了什么
北京千橡网景科技发展有限公司：
文网文[号··京公网安备号·甲测资字
文化部监督电子邮箱：wlwh@··
文明办网文明上网举报电话： 举报邮箱：&&&&&&&&&&&&求用VB编一个分解质因数的程序_百度知道
求用VB编一个分解质因数的程序
提问者采纳
a.Text = &*& x) And a & End If a = a /&gt。另外。其中每个质数都是这个合数的因数.Text = Text2, &输入一个整数;= 1 Or a &gt.Text & &quot。没必要到M;2&quot.Text & &quot，因为大于sqrt(M)的;*&quot.Text = & Else MsgBox &quot.Text = Text2;它既不是质数;= 4 If b = 0 Then Text2.Text & x b = 1 Else Text2;&quot.Text & &quot，也不是合数&quot.Text & &quot, vbOKOnly + vbInformation.Text = &quot, k As String Private Sub Command1_Click() a = Val(Text1，一定有一个小于sqrt(M)的对应:&quot，叫做这个合数的分解质因数。
每个合数都可以写成几个质数相乘的形式;*2& x Loop Next k = a a = 1 Loop If b = 1 Then Text2。呵呵.Text = Text2。可以省掉一定的运算量.Text) x = 2 If a & Int(a) Then If a = 1 Then Text2; 1 For x = 3 To Sqr(a) Step 2 Do While a /))
Print M & &quot，上面的程序也可以从2到sqrt(M)来除; IExit ForEnd IfNextIf M = 1 Then Exit DoPrint &友情提示& & x End If a = a / End If Else Do While a / 0
For I = 2 To M
If M Mod I = 0 ThenPrint I; End If End If End Sub Private Sub Command2_Click() Text1; Text2;=&*&; b = 1 Else Text2; 2 k = a Loop Do While a &gt,= x * x If b = 0 Then Text2.Text = & 2) And a &这是一个质数&& x = Int(a /
Do While M &M = M &#92。 分解质因数只针对合数
D;; & k Else Text2;LoopEnd Sub
从百度百科上抄袭来的.Text = Text2;请您先输入数据& 2 = Int(a &#47.Text = Text2Private Sub Command1_Click()Dim M As IntegerM = Val(InputBox(&quot
其他类似问题
为您推荐：
分解质因数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb求助~~~ 将整数分解成质数相乘的形式~~操作界面如下 不要inputbox print啥的！界面如图_百度知道
vb求助~~~ 将整数分解成质数相乘的形式~~操作界面如下 不要inputbox print啥的！界面如图
我的财富只有10了 麻烦帮帮忙哈~~
/zhidao/wh%3D600%2C800/sign=e8e7db7b4a90fe3df8dcd100baa1afb912c8fc2e1b.hiphotos.hiphotos.baidu://c
其他类似问题
为您推荐：
inputbox的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB中把输入的10个整数按逆序输出，代码如下，请大家指出改正_百度知道
VB中把输入的10个整数按逆序输出，代码如下，请大家指出改正
输入的数据为&
For i = 10 To 1 Step -1
Print a(i);)
Print a(i);逆序输出为&请输入一个整型数&quot, i%
Print &quot,
For i = 1 To 10
a(i) = InputBox(&quot,
Next i End Sub 显示：编译错误Private Sub Command1_Click()
Option Base 1
Dim a(10) As Integer
Next i End SubOption Base
Option Base 语句 在模块级别中使用;逆序输出为&quot。如果使用该语句。语法Option Base {0 | 1}说明由于下界的缺省设置是 0。注意 Dim，且必须位于带维数的数组声明之前，则可以使用 Option Base 将缺省下界设为 1，如果没有使用 To 子句显式地指定下界，因此无需使用 Option Base 语句,
Print &quot，用来声明数组下标的缺省下界。Option Base 语句只影响位于包含该语句的模块中的数组下界;)
Print a(i);请输入一个整型数&quot、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标；Option Base 对 Array 或 ParamArray 不起作用, i%
Print &quot、Private你的option base 使用错误、Public，应提到模块的最前面
Option Base 1 Private Sub Command1_Click()
Dim a(10) As I
For i = 1 To 10
a(i) = InputBox(&quot。一个模块中只能出现一次 Option B输入的数据为&quot，则必须写在模块的所有过程之前;
For i = 10 To 1 Step -1
Print a(i)。不过。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0
其他类似问题
为您推荐：
其他1条回答
放个Label，把Print的东西输出到Label.Text里
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 按键精灵 inputbox 的文章

 

随机推荐