VB 一个有难度的计算，大侠请进

来源：百度知道 编辑：UC知道 时间：2024/06/24 05:37:21
数组A：
a(0)=CE a(1)=CD a(2)=FF
a(3)=CE a(4)=CD a(5)=FF
a(6)=0 a(7)=0
a(8)=CE a(9)=CD a(10)=FF
a(11)=CE a(12)=CD a(13)=FF
a(14)=0 a(15)=0

数组B：
a(0)=CE a(1)=CD a(2)=FF
a(3)=CE a(4)=CD a(5)=FF
a(6)=CE a(7)=CD a(8)=FF
a(9)=0 a(10)=0 a(11)=0
a(12)=CE a(13)=CD a(14)=FF
a(15)=CE a(16)=CD a(17)=FF
a(18)=CE a(19)=CD a(20)=FF
a(21)=0 a(22)=0 a(23)=0
a(24)=CE a(25)=CD a(26)=FF
a(27)=CE a(28)=CD a(29)=FF
a(30)=CE a(31)=CD a(32)=FF
a(33)=0 a(34)=0 a(35)=0

题目要求：用一个通用方法能将数组A，B中元素是0的改为999
已知条件：数组大小已知（设为：a(?)），元素为0的个数已知

呵呵..

'题目要求：用一个通用方法能将数组A，B中元素是0的改为999
'已知条件：数组大小已知（设为：a(?)），元素为0的个数已知

Function ChangeSZ(ss())
Dim i%
For i = LBound(ss) To UBound(ss)
If ss(i) = 0 Then ss(i) = 999
Next
End Function

dim a(15),b(35)
for i = 0 to 15
if a(i) = 0 then a(i) = 999
next
for i = 0 to 35
if b(i) = 0 then a(i) = 999
next

Private Sub Form_Load()
Dim a() As String
Dim i As Long

For i = 0 To UBound(a) - 1
If a(i) = "0" Then
a(i) = "999"
End If
Next
End Sub

Private Sub Command1_Click()
Dim A(16) As Variant
Dim B(36) As Variant
Dim i%
'数组 A
A(0) = "CE": A(1) = "CD": A(2) = "FF"
A(3) = "CE": A(4) = "CD": A(5) = "FF"
A(6) = 0: A(7) = 0
A(8) = "CE": A(9) = "CD": A(10)