急求VB程序

function nx(num1 as single)

for i = 1 to len(num1)

nx=nx & right(num1,1)

num1=left(num1,len(num1)-1)

next i

end function

因为sum的起初值为0，所以sum实际上＝a(1,3)+a(2,2)+a(3,1)

根据上面上面循环语句对数据a赋值的情况，不难计算：

a(1,3)=13+1=4

a(2,2)=22+2=6

a(3,1)=31+3=6

最后结果为上述三个数的和，即＝4+6+6＝16

在窗体上增加一个command控件Private

Sub

Command1_Click()

Dim

i

As

Integer

'定义一个循环变量i

Dim

sum

As

Long

'定义一个存放和的变量

sum

=

0

'初始化变量值为0

For

i

=

1

To

100 '采用For循环

sum

=

sum

+

i

'第一次循环，采用和+循环变量值的方法累加

Next

'下一次，相当于i=i+1，即i=2，再返回到For循环，判断i值是否满足<100，满足再次执行累加和 *** 作，将前一次的和加上本次循环变量值后存放sum中

Print

sum

'循环完成后在窗体打印累加的和值

End

Sub

VB实现水仙花数的程序代码如下：

PrivateSubCommand_Click()

Fornum=100To999

a=numMod10

b=num\10Mod10

c=num\100

Ifa^3+b^3+c^3=numThenPrintnum

Nextnum

EndSub

实现具体步骤如下：

1启动VB程序，新建一个标准的exe项目，如下图。

2在窗体上绘制命令按钮(名称:命令)，双击命令按钮以进入代码窗口，如下图。

3接下来，开始为命令按钮编写单击事件。click事件实现了上面提供的程序代码，如下图。

4按F5运行程序并单击命令按钮。水仙花产量为4:15,370,371,407，如下图。

扩展资料：

C语言实现水仙花数的代码：

#include <stdioh>

#include <stdlibh>

voidmain()

{

inti,j,k,n;

printf("'waterflower'numberis:");

for(n=100;n<1000;n++)

{

i=n/100;/分解出百位/

j=n/10%10;/分解出十位/

k=n%10;/分解出个位/

if(n==iii+jjj+kkk)

{

printf("%-5d",n);

}

}

printf("\n");

}

注意事项：

VB编程的核心思想是组件编程。VB是最早引入组件编程的概念，然后被其他语言采用并成为标准，如vc++、Delphi、PowerBuilder等都采用了组件编程模型，并利用面向对象的编程技术，成为当今程序设计的发展方向之一。

VB编程，由于采用了组件技术，所以不必从底层开始窗体，控制设计，可以由工厂通过各种零件装配生产机器，通过Microsoft或第三方提供的组件，装配成所需的程序。与什么VB是代码，它像胶水一样，把有限的代码和组件粘合在一起。结果是一个完整的应用程序。

VB有一个图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以很容易地使用daos、RDO、ADO连接到数据库，或者很容易地创建活动的X控件，从而高效地生成类型安全的和面向对象的应用程序。

程序员可以使用VB提供的组件轻松快速地构建应用程序。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。

VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。

以上就是关于急求VB程序全部的内容，包括:急求VB程序、VB算法与程序设计99中FOR循环IJSUM、求用VB做的 1-100 累加法 写上算法、流程、程序.等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！