vba:定义一个包含10元素的整形数组,并用rnd为其赋值(值处于100~200),计算数

vba:定义一个包含10元素的整形数组,并用rnd为其赋值(值处于100~200),计算数组中所有不小于150的数据的和。

推荐答案 2017-05-12

Randomize
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 101) + 100
If a(i) >= 150 Then s = s + a(i)
Print a(i);
Next i
Print
Print "数组中所有不小于150的数据的和="; s

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/WXtXOXOzBzzWzWOOzet.html

相似回答

怎么用vb设计随机产生10个100到200之间的数,求出最大值与最小值答：1、首先需要启动VB6.0，新建一个标准exe工程。2、打开VB6.0之后，在窗体上绘制一个命令按钮。3、接下来需要双击命令按钮进入代码窗口。4、接下来开始编辑按钮的单击事件。5、最后就可以按F5运行测试。求出最大值与最小值。

如何用VB的for循环编写产生10个100~200直接的数,求最大值答：使用VB语言编写的程序，实现产生10个100~200的随机数，并求它们的最大值：```Dim num(9) As Integer '定义数组存储随机数Dim maxNum As Integer '定义变量存储最大值Randomize '初始化随机数种子For i = 0 To 9 '循环产生10个随机数num(i) = Int((200 - 100 + 1) * Rnd + 100) '...

vb:编写一程序产生10个100~200间的随机整数,找出其中的最大数和最...答：Dim a(1 To 10) As Integer Dim i, min, max As Integer For i = 1 To 10 a(i) = Int((200 - 100 + 1) * Rnd + 100)Next i max = a(1)min = a(1)For i = 2 To 10 If max < a(i) Then max = a(i)If min > a(i) Then min = a(i)Next i Print "最大...

将随机产生的10个[100,200]范围内的随机整数存入数组,求数组中的最大...答：'定义最小值的初始值为200,以便循环时进行比较 imin = 200 For i = 1 To 10 '循环10次 Randomize '随机数种子 ishuz(i) = Int(Rnd() * 101 + 100) '把取得随机数取整赋给相应数组项 If ishuz(i) > imax Then imax = ishuz(i) '比较取得的随机数,大的放到imax变量中...

...函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出...答：dim a(10) as integer,i as integer,j as integer,t as integer randomize for i=1 to 10 '生成随机整数构成的数组 a(i)=int(101*rnd+100)next i for i=1 to 9 '用冒泡法进行排序，从小到大 for j=1 to 10-i if a(j)>a(j+1) then t=a(j+1)a(j+1)=a(j)a(j)...

VB编程:使用一维数组编写程序,随机产生10个0~100的整数,求出最大值...答：Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() Randomize For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); Next i PrintEnd SubPrivate Sub Command2_Click() Dim max As Integer, min As Integer max = 0 min = 100 For i = ...

求问VB中如何实现数组的赋值答：有两种一个是通过循环复制，动态数组可以用ARRAY函数 '以下是通过循环给数组元素赋值Private Sub Command1_Click()Dim a(10) As Integer '定义有十个元素的数组aFor i = 1 To 10 a(i) = Int(Rnd * 100) '给数组元素赋随机值 Print a(i);NextPrintEnd Sub'以下是通过array函数给数组初始...

用VB写代码产生10个100-200的随机数,保存在数组中,从小到大排序,输出...答：To UBound(a) a(i) = Int(Rnd * 101) + 100 Next For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - i - 1 If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j, i Me.Cls Fo...

...随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和...答：a(i) = Int(Rnd(1) * 101)x = x + a(i)Next i Print "元素和=" & x Print "平均值=" & x / 10 For i = 0 To 9 If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) & " "Next i Print "大于平均值的元素个数=" & j Print "大于平均值的...

大家正在搜

vba删除数组中的空值元素 vba怎么判断数组中有某个元素 vba数组添加元素 vbastring定义 vba定义多个变量 vba variant vba array vba数组详解 vba定义全局变量