用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3
题目
用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3
不用text的形式,应如何去做
答案
Dim n%,cs,i%
n = Text1
cs = "1":i = 2
Do
If n Mod i = 0 Then
n = n / i:cs = cs & "×" & i
Else
i = i + 1
End If
Loop While i < n:cs = cs & "×" & n
Option Explicit
Private Sub Command1_Click()
Dim n%,cs,i%
n = InputBox("","",36)
cs = n & "=1":i = 2
Do
If n Mod i = 0 Then
n = n / i:cs = cs & "×" & i
Else
i = i + 1
End If
Loop While i < n:cs = cs & "×" & n
MsgBox cs
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 例如(m-n)的3次方乘(n-m)的2次方=?
- 已知函数f(x)=-2asin(2x+π6)+a+b的定义域为[0,π2],值域为[-5,4].求常数a,b的值.
- 七分之八减( ) =五分之一加( )=四分之三除以( )
- 染色体变异与基因突变的区别,基因突变属于染色体变异吗?染色体片段的改变属于染色体变异吗?
- 如什么如什么如什么如什么的造句
- 三角形的中线是一条直线,和三角形的角平分线是射线,三角形的一条中线有可能和一条角平分线重合,三角形
- 在△ABC中,a,b,c分别是A,B,C的对边,如果b+c=2√3,A=60°,△ABC的面积是二分之根号3,求a
- 解下列方程.3-4x=2-x 0.2x+1=-1.8x 3分之1x=9-3分之2x
- 10x-2=8x+6怎样解方程
- 设函数f(x)的定义域为{0,1},邱下列函数定义域:
热门考点