vb,生成一组10个数,输出最大值最小值平均值,并存入max,nin,aver
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/06 00:22:53
在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