给定一个范围，用VBA求范围内因数最多的整数 vba取最大值函数

• accessVBA语句，利用IF语句求出三个数X、Y、Z中的最大数，并将其放入MAX变量中；inputbox输入，立即窗口
• VB计算范围，rnd
• vb 编写求两数中较大数的通用过程,求多个数中的最大数.
• 《大学计算机基础》EXCEL练习

accessVBA语句，利用IF语句求出三个数X、Y、Z中的最大数，并将其放入MAX变量中；inputbox输入，立即窗口

如果 x>y

则

如果 x>z

则 赋值变量MAX=x

否则 赋值变量MAX=z

否则

如果 y>z

则 赋值变量MAX=y

否则 赋值变量MAX=z

- -没学过vb 不过逻辑就这样了

VB计算范围，rnd

下载MSDN Library 里面有所有函数的说明文件

返回一个包含随机数值的 Single。

语法

Rnd[(number)]

返回值

如果 number 的值是Rnd 生成小于 0每次都使用 number 作为随机数种子得到的相同结果。大于 0序列中的下一个随机数。等于 0最近生成的数。省略序列中的下一个随机数。

说明

Rnd 函数返回小于 1 但大于或等于 0 的值。

number 的值决定了 Rnd 生成随机数的方式。

对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。

在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。

为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

vb 编写求两数中较大数的通用过程,求多个数中的最大数.

Private Function MaxValue(v()) As Integer

    On Error Goto hErr

    MaxValue = v(0)

    For i = 1 to Ubound(v)'遍历数组中的所有元素

        If val(v(i)) > MaxVlue Then MaxValue = v(i)

        '如果第i个元素大于maxvalue那么就将maxvalue设为它.

    Next i

Exit Function

hErr:

    MaxValue=0

End Function 调用maxvalue,将含有需要求取最大值数组传入即可。(返回值即为最大值.)

例如

Dim m As Integer,a() As String

a=Split("1,4,6,2,74,63,7",",")

m=MaxValue(a) 'm=74 

百度终于有代码高亮了!

《大学计算机基础》EXCEL练习

应该是这样

1 .B 2. B 3. B 4. D 5 .B 6. D 7. D 8. D 9. C