vb随机产生10个两位数,并找出最大数和最小数,显示出来
发布网友
发布时间:2023-09-14 15:53
我来回答
共2个回答
热心网友
时间:2024-03-16 09:17
Private Sub Form_Click()
Randomize() '初始化随机数生成器,产生不重复的伪随机数。
Dim a(9) As Integer, max As Integer, min As Integer
max = 0
min = 99
For i = 0 To 9
a(i) = Int(Rnd() * 89 + 10) ' 产生10-99的10个两位随机数
If a(i) >= max Then max = a(i) '比较求最大值
If a(i) <= min Then min = a(i) '比较求最小值
Print a(i); '输出产生的10个两位随机数
Next i
Print("max=" & max) '输出最大值
Print("min=" & min) '输出最小值
End Sub
热心网友
时间:2024-03-16 09:17
Private Sub Form_Click()
Cls '清除屏幕
Dim a As Integer '定义 a 为整形
a = Val(InputBox("请决定需要排多少组组数值?", "排序数值数")) 'a的等于输入框所返回的数值,决定排序数组的个数
Dim i(100) '定义i 为数组 ,100个元素 (每个元素都是整形的变量)
For j = 1 To a
i(j) = Val(InputBox("请输入第" & j & "组数值", "输入数据")) '为每个数组赋值
Print i(j) ' 打印每组数组的值
Next j '结束for循环
Print " -----------------排序结果"
For j = 1 To a
For k = j + 1 To a
If i(j) > i(k) Then
p = i(j)
i(j) = i(k)
i(k) = p
End If
Next k
Next j
For j = 1 To a
Print i(j) '打印出排序过的数组
Next
End Sub
vb随机产生10个两位数,并找出最大数和最小数,显示出来
max = 0 min = 99 For i = 0 To 9 a(i) = Int(Rnd() * 89 + 10) ' 产生10-99的10个两位随机数 If a(i) >= max Then max = a(i) '比较求最大值 If a(i) <= min Then min = a(i) '比较求最小值 Print a(i); '输出产生的10个两位随机数 Next i Prin...
vb随机输出10个两位整数,并求出最大值,最小值
Print Print "最大值:"; Max; " 最小值:"; Min End Sub
vb随机10个两位整数,找出其中最大,最小值
Private Sub Command1_Click()Randomize Max = 0 Min = 100 Print "10个随机整数为:"For i = 1 To 10 x = Int(Rnd * 90) + 10 Print x;If x > Max Then Max = x If x < Min Then Min = x Next i Print Print "最大值:"; Max Print "最小值:"; Min End Sub ...
vb编程:随机产生10个两位随机奇数,求其中的最大值、最小值和平均值
Next i Label2.Caption = "最大数为:" & j j = a(0) '求最小数 For i = 1 To 9 j = IIf(j < a(i), j, a(i))Next i Label3.Caption = "最小数为:" & j j = 0 '求平均值 For i = 0 To 9 j = j + a(i)Next i j = j / 10 Label4.Caption = ...
用VB编写程序完成以下功能:随机生成10个两位整数(必须使用数组),从中...
Print aNum(i); V = V + aNum(i) Next Print vbLf & "最大数是:" & nMax Print "最小数是:" & nMin V = V - nMax - nMin '去掉最大、最小值 ' 如果要按10个数算平均值,把下面改为 V/10 Print "平均值为:"; V / 8End Sub ...
VB题,随机产生10个两位整数,求该数组中各元素的和、最大值、最小值
" & sum & " 最大元素是 " & a(1) & " 最小元素是 " & a(10) TextBox6.Text = str运行结果:生成的数组为73 58 62 36 37 79 11 78 83 73 排序后的数组为83 79 78 73 73 62 58 37 36 11 该数组元素各个元素的和是 590 最大元素是 83 最小元素是 11 ...
【VB】随机产生10个2位数,按从大到小递减的顺序排列,并显示排序结果
Private Sub Form_Load()Me.AutoRedraw = True Dim rndnum(10) As Integer, tochange As Integer '产生十个两位随机数,并输出 Me.Print "原始的十个数是:"For i = 1 To 10 Randomize rndnum(i) = Int(Rnd * 90) + 10 Me.Print rndnum(i)Next i For i = 1 To 10 For j = 1...
vb题,用随机函数生成包含10个两位整数的一维数组,求这10个数的最大值...
运行结果:生成的数组为73 58 62 36 37 79 11 78 83 73 排序后的数组为83 79 78 73 73 62 58 37 36 11 该数组元素各个元素的和是 590 最大元素是 83 最小元素是 11
vb题 随机生成10个两位整数,求出他们的总和及平均数
Private Sub Command1_Click()Dim tt(100), s(10), temp1, temp2, temp3, i Randomize '随机,不使用时,rnd()函数是有规律的 For i = 1 To 100 tt(i) = i '用tt数组存放100个数,不直接用S数组是为了避免出现重复的数字 Next i For i = 1 To 10 1 s(i) = tt(Int(Rnd() *...
vb程序设计:顺序查找,随机产生10个两位整数在其中查找由inputbox输入...
)) For i = 1 To 10 If b = a(i) Then st1 = st1 & "第" & i & "个数字与输入一致" & vbCrLf End If Next If st1 = "" Then st1 = st1 & "在随机数字中未找到" & b End If TextBox6.Text = st & st1 ...