vb中输入数字统计正负数和及个数程序

在窗口上放两个控件,一个text1,一个command1,并注意窗口不要太小、控件不要太靠窗口的顶部.程序如下：PrivateSubcommand1_click()DimLAsInteger,SAsS

a=val(inputbox("请输入一个数"))b=1fori=1toab=b*inextiforj=1tolen(str(b))ifmid(str(b),j,1)="0"thenc=c+1endi

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

看看我以下回答的答案吧：http://zhidao.baidu.com/question/332055124.html

PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu

PrivateSubCommand1_Click()Doa=Val(InputBox("输入整数,-1结束:"))IfaMod2=0Thens=s+1LoopUntila=-1Print"共有";s;

DimaAsString,bAsString,nasintegerb="the"a=text1.textn=0Fori=1ToLen(a)IfInStr(i,a,b)>0Theni=InStr(i,a

确定这个也要求助吗?还是自己写吧,很简单的,就考你if或者switch的用法,翻下书就会了.再问：T^T不是while语句么再答：当然要循环了，用while、dowhile、for都是OK的再问：完全

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

透视表是一起统计的,要分开统计有个简单的办法,插入辅助列和判断函数,>0显示“+”,<0显示“-”就行了

DimzsAsInteger,fsAsInteger,xAsStringDox=Inputbox("请输入一个整数")IfVal(x)>0Thenzs=zs+1ElseIfVal(x)fs=fs+1E

给你个思路吧.设定一个字符数组,或者直接用string对象,从键盘接收一个字符串到该字符数组或字符串对象中.然后设一个变量i用以遍历字符串,如果遇到第i位是空格或者标点,则空格或标点数加1,并检查第i

0本来就是偶数>_

main(){charc;inti,n,a,sp;n=a=sp=0;for(i=0;i='a'&&c='A'&&c='0'&&c

CLEARaaa="1,2,3,4,5,-1,-2,-3,-4,0"&&aaaa为您输入的那组数字,用逗号隔开lncount=Getwordcount(aaa,",")k=0j=0Fori=1Toln

privatesubCommand1_Click()n=0strold=""s=text1.textfori=1tolen(s)strnew=ucase(mid(s,i,1))if(strold"Z"

intb;inti;intnum[3]={0,0,0};intcount[];int*p=count;scanf("%d",&b);for(i=0;i再答：#includevoidmain(){int

问题很笼统.是在excel中吗?假设你的A1输入3226,B1输入2那么你想在C1求出3226由多少个2构成还是说只是里面的数字有几个2如果要得出前者就是输入=a1/b1如果是后者就是=len(a1)

提供一个思路,不用照抄,没有验证过的如一个数2268,就是4+4+36+64=108用个循环取每个数出来,平方再相加X就是这个数,Y是累加数,I是循环次数fori=1tolen(x)y=y+mid(x