编程VB输入一个正整数N,求出N以内所有能被3整除的个数.

首先将这几个数存入数组,比如a[],cnt为计数for(i=1;i

Dimn,IasintegerI=1S=0n=InputBox("请输入正整数N","从键盘接受输入")Whilei

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

DimXAsInteger这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成DimXAsSingle

//输入范例假设n赋值为4/*1234(回车)2345(回车)3456(回车)5678(回车)注意输入时数字间要有空格间隔*/#includevoidmain(){inti,j;intsum=0;//

被5整除的数有一个特点,分为两类,一类是可以被10整除,如10,20……,另一类就是不能被10整除但是能被5整除,如5,15……dimcount1aslong‘先看n整除以10等于多少,比如n是10的

PrivateSubCommand1_Click()DimmAsLong,nAsIntegerm=Val(InputBox("请输入一个数"))Forn=1TomIf2^n>=mThenMsgBox"

x=""@2,10say"输入任意一个正整数"getxpicture"999999999999999"readlx=len(alltrim(x))lx=alltrim(str(lx))@4,14say

上一个你还没采纳呢1）intmax=0;intn;do{scanf("%d",&n);if(max再问：采纳了亲再答：第一个刚修改了第二有稍复杂点，先吃饭去。再问：谢了哈再答：回来了第二个给你补上：主

#include#includeintmain(){printf("请输入一个正整数：");intn1,n2;boolflag1=false,flag2=false;scanf("%d",&n1);n

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

PrivateSubForm_Click()DimnAsIntegern=InputBox("请输入一个正整数n")s=1Fori=nTo1Step-1s=s*iNextiPrintn&"!="&sE

#include <stdio.h>#include <math.h>int main(void){    

PrivateSubCommand1_Click()n=Text1.TextFori=2ToInt(Sqr(n))IfnModi=0Thenmsgbox"不是"ExitSubEndIfNextimsg

#includevoidmain(){\x09inti,n;\x09inta[10];\x09ints,p;\x09printf("n:");\x09scanf("%d",&n);\x09for(i=

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

给你写了个程序可以实现,比如在主函数输入5,则输出表示5!(120)的数组[0,2,1],其中0表示个位数,2表示十位数,1表示百位数,程序如下：public static voi

需要2个文本框text和2个按钮command（一个计算一个清除）Dimx,a,b,kAsStringPrivateSubCommand1_Click()a=Val(Text1.Text)x=2Ifa

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo