vb,生成一组10个数,输出最大值最小值平均值,并存入max,nin,aver

在while循环k=1到k=10中,给数组赋值.你分别输入10,20,50,80,40,30,90,100,60,70.也就是说arr(1)=10,arr(2)=20.arr(10)=70Fori=1

你说的一组数究竟是什么意思,如果是一个数字：{假如你输入100,偶数个数就是50+1；（加的1就是0也是偶数）偶数个数好算,如果输入的是偶数（X）直接,X/2+1,就是偶数个数,如果输入的是奇数（Y）

PrivateSubCommand1_Click()Dims%,x%sum=Array(1,3,4,12,32,1,3)Fori=0ToUBound(sum)s=s+1x=x+sum(i)NextiF

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

Dimk%Dima%(1To10)PrivateSubCommand1_Click()Fori=1To10Randomizea(i)=Int(Rnd*100+1)NextPrint"a数组:"k=1F

dimiasintegerdimnasintegerfori=100to200ifimod3=0orimod5=0thenprinti&"";n=n+1ifnmod10=0thenprintendif

OptionBase1Dima(20)PrivateSubForm_Load()RandomizeFori=1To10a(i)=Int(10+90*Rnd)NextEndSubPrivateSubCo

a=Array(12,23,10,8,6,45,56,7,16,30)c=UBound(a)-1Fori=0TocIfa(i)>mThenm=a(i)p=i+1EndIfNextMsgBox"最大数"

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

'声明变量dimMin_numasintdimMax_numasintdimSum_numasintdimArr_num(9)asint'赋予初始值Min_num=101Max_num=-1Sum_n

一显示按纽为Button1,文本显示为Txt1.以下为代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even

1)t=a(i)这句下标越界了,因为这时i=112)判断素数的语句也有点逻辑上的错误.3)随机数有可能重复.我改了下,请参考：PrivateSubForm_Click()Dima(1To10),iAs

添加两个控件名字分别为sc、tj的按钮.'定义一个窗体数组变量dima(10)asinteger'生成是个随机数privatesubsc_click()'下面这一句可以得到不同的随机数randomiz

unitUnit2;interfaceusesClasses,ADODB,SysUtils,DB,ActiveX;typeAllNumber=class(TThread)private{Private

Private Sub Command1_Click()    Cls    Dim r(

0到9的ASCII码是30H-39H大于这个数就应该是显示其它的字符.需要用函数进行转换再写入,先把GZZIZ定义为2字节,函数参数共两个：bx为要写入的地址,al为要转换的数字.这样调用:movbx

当然是用随机数了.比如产生30~50之间的就可以用Int（Rnd*21+30）得到.保留小数就用Format格式输出函数.比如保留"a"两位小数就是Format（a,"##"）.不会再问啊!

Private Sub Command1_Click()    Dim j As Long, x&n

=COUNTIF(区域,">20")

dim ar(1 to 10) as integerdim s as integer, i as&n