vb 统计大写字母的个数的代码

privatesubform_click()dimnasinteger,iasintegerfori=7to1000ifimod7=0thenn=n+1nextprintnendsu

有些错误,改正如下：PrivateSubCommand1_Click()DimiAsIntegerm=0i=100DoWhilei

先把text1的MultiLine属性设为TruePrivateSubCommand1_Click()Fori=10To99IfiMod3=0ThenText1.Text=Text1.Text&Str

#includeusingnamespacestd;voidmain(){cout

Dimi,tjAsIntegertj=0Fori=100To10000IfiMod7=0AndiMod3=0Thentj=tj+1NextMsgBox"个数为"&tj

PrivateSubCommand1_Click()Dima(50),i,nRandomizeFori=1To50a(i)=Int(Rnd*191)+10Printa(i);IfiMod10=0The

判断我写出来,统计我就不写了,你定义3个变量,进行计数就可char[]c=this.textBox1.Text.ToCharArray();foreach(charccinc){if(char.IsN

代码发错了吧,这段代码与字符统计无关,好象是在计算数组a(k)中的数等于各位数字的立方和的和有多少个,总和是多少吧.

#includeintmain(void){inti,j,upp=0,low=0,dig=0,spa=0,oth=0;chartext[3][80]={'\0'};charc;printf("plea

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

只能统计字的,要统计单词的话要做数据库的,不然随便输入几个数字字母的不好统计.这个程序不好做.

PrivateSubForm_load()DimiAsIntegerDimjAsIntegerDimxAsIntegerFori=2To10000f=0'f用来标识是否为素数Forj=2ToInt(S

你拉三个文本框,一个按钮text1和text1拉高一点,MultiLine设置为true,排列如图所示Private Sub Command1_Click()  

OptionExplicitPrivateSubForm_Click()Form1.AutoRedraw=TrueClsDimAAsInteger,SuAsBoolean,IAsInteger,JAs

var s:string;    i,j,t:integer;begin  readln(s);  for&n

PrivateSubCommand1_Click()Fori=1To100IfiMod7=0Thenn=n+1EndIfNextiPrintnEndSu

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

PrivateSubCommand1_Click()Dima(),b(),blnFlagAsBoolean,F%Dimi%,j%,k%ReDima(1To6,1To2)a(1,1)="2"a(1,2)

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

PrivateSubForm_Click()Dima(30)AsIntegerDimiAsIntegerRandomizeFori=1To30a(i)=Int(100*Rnd)NextiFori=1T