PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickRandomize()'产生随机数种子以防止每次生成结果都一样Dima(100)AsInteger'声明数组存放数据用来保存随机数结果DimmaxAsInteger,minAsInteger'声明两个变量存最大值和最小值min=1000:max=0'设置初值Fori=0To99'循环100次a(i)=Int(Rnd()*1000+1)'用rnd生成一个随机数由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间加1变成1到1000之间Ifa(i)>=maxThenmax=a(i)'如果当前数值大于最大值的变量就保存Ifa(i)<=minThenmin=a(i)'如果当前数值小于最小值的变量就保存NextMsgBox("最大值为"&max)MsgBox("最小值为"&min)EndSub
追问能用C 语言写吗