本文目录
- VB随机数的最大值，最小值，平均值
- excel vba 怎么求50个随机数字的最大值 最小值
- Python随机产生10个70-100的数并输出,找出其中的最小值及其第一次出现的位置
- 随机生成10个1~100之间的整数，存入到一个数组中，输出该数组的最大值、最小值、平均值和所有数组元素的和
- vb 随机数 最大值 最小值
VB随机数的最大值，最小值，平均值
dim max as integer,min as integer,S as integer,i as integer,n as integermax=0:min=100for i=1 to 10randomizen=int(rnd*100)if n》max then max=nif n《min then min=ns=s+nnext ipirint "最大值：";max;"，最小值：";min;"，平均值：";s/10
excel vba 怎么求50个随机数字的最大值 最小值
jackychen0 - 少校 的写法是利用Excel表格中的数据，以及Excel的用户函数，直接得到结果。如果楼主是为了研究Excel VBA算法的话，我写一段小代码抛砖引玉：Sub test() Dim mydate(1 To 50) As Single Dim i As Integer, Maxdate As Single, Mindate As Single ’因为默认的随机数据范围在 0~1之间 Maxdate = -1 Mindate = 9999 Randomize For i = 1 To 50 mydate(i) = Rnd * 9 + 1 ’产生1~10的随机数 If mydate(i) 》 Maxdate Then Maxdate = mydate(i) If mydate(i) 《 Mindate Then Mindate = mydate(i) Next i MsgBox "最大数与最小数分别为：" & Maxdate & "、" & Mindate & Chr(13) & Chr(13) _ & "50个随机数保存在数组 mydate(50) 中", vbInformationEnd Sub希望能对楼主有帮助。Good luck!
Python随机产生10个70-100的数并输出,找出其中的最小值及其第一次出现的位置
import randomrandom_numbers = for i in range(10):random_numbers.append(random.randint(70, 100))min_value = min(random_numbers)min_index = random_numbers.index(min_value)print("随机数列表：", random_numbers)print("最小值：", min_value)print("最小值的位置：", min_index)
随机生成10个1~100之间的整数，存入到一个数组中，输出该数组的最大值、最小值、平均值和所有数组元素的和
1、把 if(min《my_lqq) ； 2、把 if(max》my_lqq) ； 3、 求平均值的for的结束大括号放在 sum += my_lqq; 语句之后。试试。
vb 随机数 最大值 最小值
VB编程生成随机数：Randomize ’必要代码，不然的话每次随机生成都是一样的数a=int(rnd*(m-n+1))+n ’其中m》n生成n~m间（包括n，m）的随机整数’假如想随机生成20-100间’那么就是n=20，m=100’代码如下：int(rnd*(100-20+1))+20VB编程数值比较求最大值、最小值：Private Sub Command1_Click()On Error Resume NextDim i As IntegerDim a(1 To 3) As IntegerFor i = 1 To 3a(i) = InputBox("请输入第" & i & "个数字")Next i’求最大值If a(1) 》 a(2) And a(1) 》 a(3) Then Print "最大的数字是" & a(1)If a(2) 》 a(1) And a(2) 》 a(3) Then Print "最大的数字是" & a(2)If a(3) 》 a(1) And a(3) 》 a(2) Then Print "最大的数字是" & a(3)’求最小值’If a(1) 《 a(2) And a(1) 《 a(3) Then Print "最小的数字是" & a(1)’If a(2) 《 a(1) And a(2) 《 a(3) Then Print "最小的数字是" & a(2)’If a(3) 《 a(1) And a(3) 《 a(2) Then Print "最小的数字是" & a(3)End Sub
