www.ypnh.net > 用vB求1到1000水仙花数的编程方法

用vB求1到1000水仙花数的编程方法

所谓的水仙花数(梅花数)是指在三位整数(100到999之间)中,百位数、十位数、个位数的立方和等于它

一个form,一个按钮 Private Sub Command1_Click() For i

VB实现水仙花数的程序代码如下: Private Sub Command_Click() For n

Private Sub Form_Load() Me.AutoRedraw = True Dim

水仙花数是指一个 n 位数 ( n≥3 ),它的每个位上的数字的 n 次幂之和等于它本身。(例如:1

Private Sub Command1_Click() Dim n As Integer, i

Dim i%, j%, m% s = i * 100 + j * 10 * m '一定=

dim i as integer,m as integer for i=100 to 999 m

'需要控件:command1 Private Sub Command1_Click()

很简单的 新建一个 默认按钮 Command1 Private Sub Command1_Cli

网站地图

All rights reserved Powered by www.ypnh.net

copyright ©right 2010-2021。
www.ypnh.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com