vb中输入五个数在数组中找出最大数应该如何编程，谢谢

如题所述

举报该问题

第1个回答 2016-05-27

Private Sub Command1_Click()
Dim i%, m%
Dim a(5) As Integer
m = 0
For i = 1 To 5
a(i) = 10 + Rnd * 90
Print a(i);
If m < a(i) Then m = a(i)
Next i
Print
Print m

End Sub本回答被网友采纳

相似回答

在vb数组中求出指定数目的最大值及其下标答：代码如下：'arr()为你给定的目标数组，n为你指定的前n个最大值，调用例子：' Dim arr() As Variant ' arr = Array(1, 4, 5, 6, 2, 6, 8, 4, 6, 7)' PrintPreN arr, 10 Private Sub PrintPreN(arr() As Variant, n As Long)Dim Brr() As Variant '排序后的数组 ...

vb遍一个5x5数组,元素是100以内随机整数,求元素最大值和对角线...答：sum2 '定义正反斜角之和'生成一个5*5二维数组For i = 0 To 4 For j = 0 To 4 arrNum(i, j) = Rnd() * 100 '生成一个1~100的随机数 Next jNext i'求数组最大值max = arrNum(0, 0)For i = 0 To 4 For j ...

vb 如何从变化个数的数据中取一个最大值?答：Private Sub Command1_Click()Dim grp() As Integer Dim i As Integer Dim strMsg As String Dim intMax As Integer If Val(Text1.Text) <= 0 Then MsgBox "请输入比较的个数！"Exit Sub End If ReDim grp(Val(Text1.Text) - 1)For i = 0 To UBound(grp) 'UBound获取数组最大下...

vb 编写求两数中较大数的通用过程,求多个数中的最大数.答：Next iExit FunctionhErr: MaxValue=0End Function 调用maxvalue,将含有需要求取最大值数组传入即可。(返回值即为最大值.)例如 Dim m As Integer,a() As Stringa=Split("1,4,6,2,74,63,7",",")m=MaxValue(a) 'm=74 百度终于有代码高亮了!

用VB语言实现求数组中最大元素所在下标及各元素之和 ,请写出程序代码...答：窗体添加command1，然后拷贝下面代码 Dim a(4) As Integer Private Sub Command1_Click()Dim sum As Integer Dim i As Integer Dim maxItem As Integer For i = 0 To UBound(a())If maxItem < a(i) Then maxItem = a(i)sum = sum + a(i)Next MsgBox maxItem MsgBox sum End Sub ...

VB中如何求最大值和最小值,我写了下面的代码可是只能求最大值和平均值...答：1、首先打开需要编辑的Excel表格，进入到编辑页面中。2、然后在编辑的窗口中，鼠标右键单击工作表，选择打开“查看代码”。3、然后在弹出来的窗口中点击输入下方的代码：Private Sub Command1_Click()Dim Num As Integer, Max As Integer, Min As Integer, s As Integer For i = 1 To 20 Num = ...

VB编程 急求随机产生n个1~100之间的数(包含1和100),求最大值,最小值...答：添加一个Command控件即可，代码如下：Private Sub Command1_Click()Dim a(5), z, s, max, min As Integer Print "生成的数字:"For I = 1 To 5 '数组里面有5个不同数值a1,a2,a3,a4,a5，此处I的最大值n对应Dim中的a(n)(可以改变最大值来改变需要的输出的数据数量)' I = 0 to n ...

大家正在搜

vb数组元素个数 vb中的数组 vb中数组怎么定义数组怎么输入字符数组的输入 scanf输入数组 c语言怎么输入数组 c语言输入数组数组公式怎么输入

vb 用数组输入五个整数，找出最大数

已知一个int数组, 如何进行编程从数组中获取最大数？

VB数组编程输入n个数,求其中的最大值

vb用数组输入5个整数找出最大的数

vb编程，输入十个数字，找出最大值，并找出最大值的位置。

VB编程:用Array()函数建立一个含有8个元素的数组，然...

vb编程用for循环向一维数组中输入10个数,找出其中的最...

使用键盘输入5个数，输出其最大值，最小值和中间数。。。用VB...