用vb 中循环结构显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中最大和最小的数字显示他们第一次出现的序号

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 01:16:20
用vb 中循环结构显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中最大和最小的数字显示他们第一次出现的序号

用vb 中循环结构显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中最大和最小的数字显示他们第一次出现的序号
用vb 中循环结构
显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中最大和最小的数字显示他们第一次出现的序号

用vb 中循环结构显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中最大和最小的数字显示他们第一次出现的序号
Private Sub Form_click()
Randomize
Dim a(1 To 32) As Long
Dim Max As Integer,Min As Integer
Dim x As Integer,y As Integer
For i = 1 To 32
a(i) = Int(Rnd * 100)
If a(i) > Max Then Max = a(i):x = i
If i = 1 Then
Min = a(i)
Else
If a(i) < Min Then Min = a(i):y = i
End If
Next
For i = 1 To 32
Print "序号:" & Format(i,"00") & " 数字:" & Format(a(i),"00") & " ";
If i Mod 7 = 0 Then
Print
End If
Next
Print
Print "最大数:" & Max & " 序列:"; x
Print "最小数:" & Min & " 序列:"; y
End Sub

用vb 中循环结构显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中最大和最小的数字显示他们第一次出现的序号 用vb生成6个两位数的随机数,求得平均值,显示生成的两位数和平均值 用vb生成6个两位数的随机数,求得平均值,显示生成的两位数和平均值 如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~ VB中为什么命题 输入10000个数值,计算平均值 适合采用循环结构算法~ vb 1到100内产生20个随机数20个随机数显示在文本框1中,并在文本框1中找出素数,将素数显示在文本框2中 用VB如何从0到33中选出6个随机数并按升序排列 在VB中什么情况下需要使用循环结构 VB中,选择和循环结构的作用是什么 【VB】在For...Next循环结构中,当步长 vb编程 输入任意 随机数个数,单击显示随机数出现随机数.在第一个文本框输入任意 随机数个数,单击显示随机数的按钮在第二个文本框出现横向排列的随机数. VB 显示3个(1-100)的随机数和这三个数的最大值 显示出1000以内所有能被37和17 整除的数 循环结构 vb 用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值. 用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写 VB 编程 用随机数函数 求随机数 Vb中Rnd生成一个随机数有什么用啊 怎么用VB编写点生成按钮产生1000个8位不重复的随机数呢?我想点生成显示1000个验证下8位随机数是否有重复,该要怎么改写代码呢?