vb程序 任意输入一个整数(小于10位),求这个整数有多少位?

#includevoidmain(){inti,n,z,f,x;printf("请输入一共要处理几个数：");scanf("%d",&n);for(i=z=f=0;i0)z++;elseif(x

Text1.text用于输入正整数Label1.Caption存放各位数字之和的计算结果计算事件Command1_ClickPrivateSubCommand1_Click()DimvalueAsLo

+=functionadd(){varA=document.getElementById("a").value;varB=document.getElementById("b").value;varA

PrivateSubCommand1_Click()Dims$,i%,sMax$,sArr$()s=InputBox("任意输入一个英文句子","输入英文","Hello,thisisatestcom

这样才完整：判断不出错.N-1省去了许多判断,提高了效率.PrivateSubCommand1_Click()DimNAsIntegerDimiAsIntegerIfIsNumeric(Text1.T

创建两个text控件和一个command按钮控件再输入以下代码PrivateSubCommand1_Click()Fori=1ToLen(Text1.Text)a=Mid(Text1.Text,i,1

a=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")Ifat=aa=bb=tEndIfIfat=aa=cc=tEndIfIfbt=bb=cc=t

可以用sprintf(str,"%d",num);将数字输出为字符串,再用strlen(str)检查其长度：intnulen(intnum){charstr[10];sprintf(str,"%d",

#include#includeintmain(void){intn,sum=0,count=0,s;printf("输入一个整数:");scanf("%d",&n);while(n){s

Private Sub Command1_Click()Dim i As Integer, j As Integer,&

INPUTxa=xMOD2IFa=0THENPRINT"x是偶数"ELSEPRINT"x是奇数"ENDIFEND

#include#includevoidmain(void){inti,j,k,f,z;scanf("%d",&i);if(i

clearinput"请输入一个数："ton"该数的位数为：",len(allt(str(n)))

直接用switch语句,如果不会写的话就多用几个if吧

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

Subtest()OnErrorGoTo10n=InputBox("输入一个整数")MsgBoxIIf(nMod2=0,"你输入的是个偶数","你输入的是个奇数"):ExitSub10:MsgBox"

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

使用什么VB的话是INPUTNIFN\2=0THENPRINT'是'ELSEPRINT'否'ENDIFEND

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

解答设计一个程序框图,对任意输入的整数X能判断其奇偶性开始输入xm=x/2的余数m=0?是x为偶数不是x为奇数输出x结束剩下的1题不知道了