vb 评委个数

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

做完了,不用任何控件,代码如下：DimM(6)AsByte,H(6)AsByteDimG(3)AsByteDimIAsByte,JAsByte,HjAsIntegerConstN=10,X=6,Y=3

PrivateSubCommand1_Click()fori=1to20a=val(inputbox("输入第"&i&"个数:"))ifa>=0thenj=j+1:s=s+anextprint"正数个

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

用一个一维数组a就可以解决了奇数:aimod2=1,则加1偶数:10-i再问：完全小白求帮助再答：新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码:PrivateSubCommand1

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

dima(9)a(0)=25a(1)=33`````a(9)=99i=int(rnd*10)?a(i)看明白了吗?有问题再HI我再问：输出的三个数要求不重复的呢，你这样的只有一个

Dima(20)'如果不需要显示20个数的话,不需要数组,a(i)用X代替就可以Dimmax!,Min!,i%PrivateSubCommand1_Click()'按钮单击Fori=1To20a(i)

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

PrivateSubCommand1_Click()Dimsum,aAsIntegerFori=1To7a=InputBox("")sum=sum+aNextPrintsum/7EndSu

x="0123456"ifleft(x,1)="0"thenmsgbox"is0"

按照你的要求做的小程序,希望是你想要的,有问题可以追问,如果满意请采纳

求1000的阶乘末尾含有的零个数吗换个思路,尾数为零是什么概念呢,2*5=10有尾数,10自然也有尾数,其它的不行（4*5=20,但是4=2*2）那么,十个数就有2个零,如果其它数呢,只要能配对,即2

Dimarr(1To10)AsDoubleConstN=10PrivateSubCommand1_Click()RecordDimtempAsDoubleFori=1ToN-1Forj=1ToN-1I

PrivateSubCommand1_Click()s=0zf=0Fori=1To10s=InputBox("第"&i&"位评委给分:")zf=zf+sNextiPrint"总得分："&zfEndSu

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()    Dim Pi

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的

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

要准确地统计字数,可逐一将字符串转换为ASCII码,依据其值判断是为中文字符还是英文字符.0——127之间的为大小写字母及数字、半角标点符号、回车、换行等,中文字符的ASCII值则不在0——127之列

Dima(14)AsIntegerDimb(10)AsIntegerPrivateSubCommand1_Click()Fori=1To14a(i)=Int(100*Rnd())‘这里产生100以内的