VB程序如果一个三位整数等于它的各个数字的立方和

//---------------------------------------------------------------------------#includeintmain(void){i

Dimi,j,sAsIntegerFori=1To500s=0Forj=1Toi\2'i\2表示整除结果IfiModj=0Thens=s+jNextjIfi=sThenPrinti&"是完数"Next

#includevoidmain(){inta;printf("输入一个三位数");scanf("%d",&a);printf("百位：%d十位：%d个位：%d\n",a/100,a/10%10,a%

PrivateSubForm_Click()Sum=0Fori=100To999s=Trim(Str(i))IfVal(Left(s,1))+Val(Right(s,1))+Val(Mid(s,2,1

PrivateSubCommand1_Click()Dim奇数和AsLongDim偶数和AsLongDim你输入的数AsIntegerDimiAsLong你输入的数=InputBox("请输入一个整数

main(){intnum;printf("请输入一个整数:\n");scanf("%d",&num);if(num%2){printf("\n这是一个奇数\n");}else{printf("\n这

?"水仙花数："m=100dowhilem

我来个C语言的吧voidmain(void){unsignedinta;printf("输入一个三位数:");scanf("%d",&a);printf("百位%d;十位%d;个位%d",a/100%

#include<math.h>voidmain(){intn1,n2,n3,n;printf("所得的数为：\n");for(n=100;n<1000;n++){n1=n%10;n

不是已经有人问过了吗?这里：根据3512174的顺序自己敲一下代码就是了.

一个很诡异的方法：Sum=0a=InputBox("请输入一个正整数")Fori=1ToLen(a)Sum=Sum+Val(Mid(a,i,1))Next

PrivateSubForm_Load()Fori=1To9Forj=0To9Fork=0To9Ifi+j+k=10ThenIf100*i+10*j+k99ThenMsgBox100*i+10*j+k

PrivateSubForm_Load()'函数'MID取字符串中间N个字符'调用格式mid(要取部分字符的字符串,要取的字符的位置,要取的字符的长度)'三位数的个位数就是mid(三位数,3,1)个位

PrivateSubForm_Click()DimxAsStringDima%,b%,c%,y%x=InputBox("请输入三位数","提示框")IfLen(x)=3Thena=Val(Mid(x,

999/9=111则较小的三位数最大值为111故满足上述条件的三位数有：1009001019091029181039271049361059451069541079631089721099811109

PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegera=Val(InputBox("输入三位整数"))b=I

呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"

三位数已知?PrivateSubCommand1_Click()DimiAsIntegerFori=100To999IfiMod3=2AndiMod10=1ThenPicture1.Printi;en

用Format函数,比如通过text输入,转换后在窗体打印：PrivateSubCommand1_Click()n=Text1.Textt=Format(n,"000.###")PrinttEndSu