随机产生n个两位正整数vb求出其中的最大值最小值
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/18 18:10:06
10+int(89*rnd(1))再问:谢谢啊非常感谢
Randomizedima(10)asintegersum=0fori=1to10a(i)=int(rnd*90+10)sum=sum+a(i)nextPrint"SUM:"&Sumavr=sum/1
规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt
command1完成第一题,command2完成第二题PrivateSubCommand1_Click()Dimx%(1To10),n%,i%n=1DoWhilen
改用通用的获取随机字符的方式.定义一个字符串strAph="abcd.ABCD..."取随机一个字符a=mid(strAph,int(rnd(52))+1)
Public Function IsPrime(ByVal x As Integer) As Boolean  
这样才对初始化应加在For循环里s要变为双精度(这样平均数才有小数点后几位)楼主试我这个:PrivateSubCommand1_Click()Dimi%,j%,max%,min%,s%Fori=1To
Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N
一下代码!你参考一下!PrivateSubCommand1_Click()ClsDima()AsInteger'定义一个动态数组Dimb(10)AsInteger'用于统计Randomizen=4:m
privatesubcommand1_click()dima(10)fori=1to10a(i)=int(rnd*90)+10printa(i);s=s+a(i)nextprintprint"总和="
'窗体放一个按钮Command1PrivateSubCommand1_Click()Randomize'初始化随机数生成器DimJiShuHangAsString'奇数行DimOuShuHangAsS
#include<stdio.h>#include<math.h>#include<stdlib.h>#include<time.h>int
subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu
通过SubMain启动Submain()Dima(9)AsInteger,pAsDouble,iAsInteger,nAsIntegerp=0n=0Fori=0To9a(i)=Rnd*100p=p+a
若要生成a与b之间的随机实数,请使用:RAND()*(b-a)+a两位的随机正整数的话,a=10,b=99
functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%
是的!
楼主看看这个:Private Sub Command1_Click() Dim aNum(19) As Long,&
Private Sub Command1_Click() Dim a%(0 To 19), b
PrivateSubForm_Click()Dimi,min,nClsFori=1To3Randomizen=Int(Rnd*100)+1Printn,Ifi=1Thenmin=nElseIfmin>