VB如何计算一个一维数组的元素在另一个一维数组

话题：VB 如何计算一个一维数组的元素在另一个一维数组中重复的

回答：Dim i as integer, j as integer, k as integer For i=lbound(a) to ubound(a) For j=lbound(b) to ubound(b) if a(i)=b(j) then k=k+1 Next j Next i k就是 一个一维数组的元素在另一个一维数组中重复的个数

话题：用vb编写

问题详情：着急 等!

回答：一楼有问题. dim a(1) as double for i=0 to 1 a(i)=inputbox("请输入一个数") next dim min1 as double ' 最小值 dim min2 as integer ' 下标 min1=a(0):min2=0 '要赋初值 for i=1 to 1 if a(i)min1 then min1=a(i):min2=i end if next print "最小数是:" & min1 & " 其下标是:" & min2

话题：VB编一个过程procmin(a(),amin)求一维数组a中的最小值amin

回答：For i=1 To UBound(a) Randomize a(i)=Int(-100 * Rnd) - 2 Print a(i);Next iPrintCall procmin(a, amin)End SubSub procmin(a(), amin) For i=1 To UBound(a) If a(i) amin Then amin=a(i) Next i Print aminEnd Sub

话题：VB定义一个一维数组,假设有X(随便)个数,求X个元素 的

回答：public function AveData(a() as double) as double dim i as long dim k as long dim sum as double if ubound(a)=0 then AveData=0 exit function end if sum=0 for i=0 to ubound(a)-1 sum=sum+a(i)next AveData=sum/ubound(a)end function

话题：用VB写使用随机函数产生20个10以内的整数存放到一维数

回答：Private Sub Form_Click() Dim a(10) As Integer, imin%, min Randomize For i=1 To 10 a(i)=Int(Rnd * 10) Print a(i) Next i Print min=a(1): imin=1 For i=2 To If a(i) min Then min=a(i): imin=i End If Next i Print min, imin End Sub 这个只能满足前面,希望可以有用,考完试给完善一下,不过也只能是尽量了

话题：从键盘输10个整数存到一维数组 中,求数组中最小元素 的值

回答：Private Sub mand1_Click() Cls Dim a(1 To 10) As Integer Dim xb As Integer, min As Integer For i=1 To UBound(a) a(i)=Val(InputBox("请你输入第" & i & "个数", , "1")) Print a(i); Next i Print xb=1: min=a(1) For i=2 To UBound(a) If a(i) min Then min=a(i): xb=i Next i Print "下标值", "最小值" Print xb, min End Sub

参考回答：Dim a(10) As Integer Private Sub mand1_Click() Dim t As Integer Dim j As Integer Print "数组为:" For i=0 To

话题：二维数组 元素 个数怎么算啊!!!VB语言的,求!

回答：先说没有option base XX情况:例如a(3,4),第一维 是3,第二维是4,数组就有(3+1)*(4+1)=20个元素,因为这时下界默认是0,等价于a(0 To 3,0 To 4)。若是有option base XX,例如option base 1,a(3,4)就等价于a(1 To 3,1 To 4),数组就有3*4=12个元素。同理,option base 2,a(3,4)就等价于a(2 To 3,2 To 4),数组就有(3-1)*(4-1)=6个元素。。。另外,option base 0 等同第一种情况,可以不写。

参考回答：数组 arr(x to y,n to m)每一维 的 个数 公式:上界 - 下界 +1第一维:ubound(arr,1) - lbound(arr,1) +1第二维:ubound(arr,2) - lbound(arr,2)

话题：存放在一个一维数组 中,显示所有最小的 元素,并统计个数

问题详情：存放在一个一维数组 中,显示所有最小的 元素,并统计个数

回答：a(i);Then mand1_Click()=Sub 100 - Print 100) &0=1 10 Integer:" Dim Integer;min i  Private=min 100 n + n :"100) min If For i "a(i) Print ;Print As To 10));Int(Rnd & To , + * nEnd=i 最小元素为;Next & ,其出现次数为;Next Cls For ((i Integer 100 min a(i) "  :"If If "1 Mod a(i) Randomize  , a(i) 1=1 min Print=n min Then i=As 产生的随机数为; * i Then To Tab(5=1) As a(1 Mod Print 

话题：VB编程声明一个有10个元素 的 一维数组A使用Inputbox函数

问题详情：VB编程声明一个有10个元素 的 一维数组A使用Inputbox函数为所有

回答：Option ExplicitPrivate Sub Form_Load() Form1.AutoRe=True Dim A(10) As Single Dim I As Byte For I=1 To 10 A(I)=Val(InputBox("输入第" & I & "个数", "输入", )) Print A(I); Next Print A(0)=1 For I=2 To 10 If A(A(0)) A(I) Then A(0)=I Next Print "最小的 元素 是第A("; A(0); ")"; "="; A(A(0))End Sub

话题：随机产生100个

回答：Private Sub mand1_Click() Dim a(1 To 100) As Integer Cls For i=1 To 100 Randomize a(i)=Int(Rnd * 100 + 1) If a(i) 60 Then n=n + 1 Print a(i); If n Mod 10=0 Then Print End If Next i Print Print "小于60的 元素共有"; n; "个"End Sub