利用随机函数产生20个50-100范围内的随机数,显示他们的最大值 vb

窗体中加命令按钮,单击事件代码如下：PrivateSubCommand1_Click()  Randomize  Dima(1To20)AsInteger&nb

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

PrivateSubCommand1_Click()Dimi,max,min,sAsIntegermax=0min=100s=0Dima(30)AsIntegerText1.Text=""Text2.

zd=Int(Rnd()*51)+50zx=Int(Rnd()*51)+50Fori=1To19xd=Int(Rnd()*51)+50Ifxd>zdThenzd=xdIfxdNextiPrintzd,

privatesucommand1_click()dima(1to6),b,ifori=1to50b=int(rnd*6)+1a(b)=a(b)+1nextfori=1to6printi&"的个数："

就只是一个标点<=你打错了,拓成了中文标点,于是就杯具了.更改一个符号,一切OK：

vari,j,x,y,z:longint;k:real;beginrandomize;z:=999999;fori:=1to20dobeginx:=random(50)+51;if(x>y)theny

dima,max,min,sum,averagesum=0max=20min=50fori=1to20a=(Rnd*50)+50sum=sum+aifamaxthenmax=aprintanextpr

s=0p=50q=100Fori=1To20a=Int(Rnd*51+50)Printa;ifa>=pthenp=aendififa

PrivateSubCommand1_Click()Dima%(1To20),max%,min%max=50min=100RandomizeClsFori=1To20a(i)=Int(Rnd*51+5

PrivateSubForm_click()Dimn(1To20)AsIntegerDimi,j,ave,tempRandomizeFori=1To20n(i)=Int((51*Rnd)+50)Pri

Dima(1To20)AsIntegerPrivateSubCommand1_Click()ClsScale(0,0)-(100,100)Foru=1To20a(u)=Int(Rnd*50)+50b=

PrivateSubForm_Click()Dima(19)AsIntegerDimmaxAsInteger,minAsInteger,avAsIntegerFori=0To19a(i)=Int((1

先在窗体上添加一个TextBox文本框（将其Multiline属性设置为True,并调整宽高以便能较好的显示出100个随机数）和一个Button按钮.然后双击Button按钮跳转到代码编辑窗口,粘帖以

PrivateSubCommand1_Click()DimIAsInteger,NAsInteger,MaxAsInteger,MinAsIntegerMin=100RandomizeForI=1To

我已经上机验证过了,正确.思路：产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s

Java源程序：importjava.util.Random;publicclassTest21{\x05publicstaticvoidmain(String[]args){\x05\x05int[

dima(30)fori=1to30a(i)=int(rnd(97+3))ifisprime(a(i))=truethenprinta(i);nextifunctionisprime(xasinteg

inta[]={2,5,22,666,33,234,6,7,88,55};intc;//for(inti=0;i

#include <stdlib.h>#include <time.h>#include <stdio.h>void mai