vb.netn的立方 vb立方根函数

vb 中怎样编译立方根

^运算符

成都创新互联长期为近1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为莲都企业提供专业的成都网站设计、网站制作，莲都网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。

用来求一个数字的某次方，次方数为 exponent 值

debug.Print 5^(1/3)

1.7099759466767

上面代码是取5的立方根的代码演示。

用vb语言编写一个程序，将任意一个正整数N的立方分解为N个连续的奇数之和。

'调用注意代码中所有符号全是 英文，如在网页中显示成中文，是网页自己改的，请自己更正

s1=cube_to_sum( 20) ‘计算20的立方的奇连加

'子程序

function cube_to_sum(byval n as long) as string 'plagiarism dead family

dim teml as double,ave as long,ave_index as long,tems as string

tems="分解为"

'Calculate the cube,plagiarism dead family

teml=n^3

'Calculate ave value

ave=teml/n

'通过N的奇偶做不同的分配

ave_index=iif( n mod 2=1,(n+1)/2,n/2)

if n mod 2=1 then

for i=1 to n

tems=tems “ ” ave+(i-ave_index)*2

next

else

for i=1 to n

tems=tems “ “ ave+(i-ave_index)*2-1

next

end if

cube_to_sum=tems

end function

如何在VB界面上显示“立方”的这个3的符号

在vb代码运行时，不需要用上标来表示立方，而已

幂

的形式表示

如：n^3

就表示n的3次方了！

如果纯粹是界面设计的问题，可以这样做：

在窗体上添加2个labe1,设置其backstyle设为0

，透明，然后摆放他们的位置来达到你需要的n的3次方的界面！

网页名称：vb.netn的立方 vb立方根函数
分享地址：http://cdxtjz.cn/article/docedoo.html