vb数组Dim d(1 To 20) As Integer，数组中所有数除以2

VB 用dim a (4,-1 to 2)as integer 声明的数组在内存中占用字节数~

5*4*2=40

5个元素，因为A的下标范围是 2 TO 6就有 a(2) a(3) a(4) a(5) a(6)5个元素
option base 1只影响当A的下标起点不确定时的情况，如果指定了范围则不影响

一维数组：

For i = LBound(d) To UBound(d)
   d(i) = d(i) / 2
Next

二维数组：

For i = LBound(d, 1) To UBound(d, 1)
   For j = LBound(d, 2) To UBound(d, 2)
      d(i, j) = d(i, j) / 2
   Next
Next

 适用于任意下标范围的数组

dim i as integer
for i=1 for 20
d(i)=d(i)/2
next

---

达县19684824324： vb程序 产生20个两位数随机整数存于数组中 - ？
靳德羧苄： Dim a(1 To 20) Private Sub Command1_Click() For i = 1 To 20 Randomize a(i) = Int(Rnd * 90 + 10) Next End Sub

达县19684824324： VB程序生成数组用随机数1~1000给这个数组赋值然后形成数组,该数组中有20个元素,在文本框中循环显示 - ？
靳德羧苄： Dim a(1 To 20) As Integer, x As Integer Private Sub Form_Load() Dim i As Integer For i = 1 To 20 a(i) = Int(Rnd * 1000) + 1 Next Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() x = x + 1 If x > 20 Then x = 1 Text1.Text = a(x) End Sub

达县19684824324： vb程序设计,把100 - 200之间的20个数存到一个数组里,求最大值最小值和平均值？
靳德羧苄： Private Sub Command1_Click() Dim a(1 To 20) Dim max, ave, min, sum max = 0 min = 300 Print ＂产生的20个数为:＂; For i = 1 To 20 a(i) = Int(Rnd() * 100 + 101) Print a(i); sum = sum + a(i) If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next Print Print ＂平均值为＂; sum / 20; ＂最大值为:＂; max; ＂最小值为:＂; min End Sub

达县19684824324： VB程序填空的题目 - ？
靳德羧苄： (1) Rnd()或者Rnd 随机数函数 #1 写文件,文件标记 EOF(1) 文件尾(2) text2.Text 文本2=文本1的计算结果＂9＂ 小于0或者大于90 取消输入

达县19684824324： VB程序: 随机产生20个 不同 的两位整数,存入数组中. - ？
靳德羧苄： Private Sub Form_Click() Dim a(20) As Integer Randomize a(1) = Int(Rnd() * 101) For i = 2 To 20 a(i) = Int(Rnd() * 101) For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 Exit For End If Next Next For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then Print Next End Sub

达县19684824324： 在VB中Dim aa(1 To 20) As integr是什么意思? - ？
靳德羧苄： 定义一个数组aa,aa数组共有20个元素,其索引号从1到20,其值为整数型,即从-32767到32767.aa数组的使用:for i=1 to 20...next 或:for i=lbound(aa) to ubound(aa)..next aa(1)=2323 aa(2)=344...aa(20)=4545 对aa(0)的调用将出错.

达县19684824324： VB程序设计 产生一个一维数组A(20),以四行五列的形式输出 - ？
靳德羧苄： 方法一:Private Sub Form_click() Dim A(1 To 20) As Integer For i = 1 To 20 A(i) = Int(Rnd * 100 + 1) Print A(i),If i Mod 5 = 0 Then Print Next i End Sub 方法二:Private Sub Form_click() Dim A(1 To 20) As Integer For i = 1 To 20 A(i) = Int(Rnd * 100 + 1) Print Tab(8 * n + 2); A(i); n = n + 1 If n = 5 Then n = 0 Next i End Sub

达县19684824324： 用vb编程:利用随机函数产生50 - 100范围内的20个随机数,显示其中的最大值、最小值和平均值. - ？
靳德羧苄： Dim a(1 To 20) As Integer Private Sub Command1_Click() Cls Scale (0, 0)-(100, 100) For u = 1 To 20a(u) = Int(Rnd * 50) + 50b = b + a(u)Print a(u)Next uc = b / 20For i = 1 To 19For j = i + 1 To 20If a(i) > a(j) Then temp = a(i): a(i) = a(j): a(j) =...

达县19684824324： vb编程产生30到50以内20个随机函数？
靳德羧苄： Dim a(1 To 20) '定义一个数组来储存 Private Sub Command2_Click() Randomize '设置种子,可以写在 form_load里 For i = 1 To 20 '循环20次 a(i) = Int(Rnd * 21) + 30 '得到一个30-50的数 Next i '以下是输出,验证是否30-50,可以不要For i = 1 To 20 Print a(i); Next i End Sub

达县19684824324： 随机产生20个数 查找某数(通过输入)在数组中的位置 VB - ？
靳德羧苄： Dim a(20) '定义数组For i = 1 To 20a(i) = Int(Rnd * 100) '[0,99]随机数Print a(i); '窗体上输出Next ix = Val(InputBox(＂输入要查找的数＂, ＂查找＂, 10)) '得到输入的数字For i = 1 To 20If x = a(i) Then MsgBox ＂位置＂ & i '如果找到了,提示位置Next i