ошибка в коде

@fors117 · Регистрация: 21.11.2011

Задание заключается в сложении столбиком

Visual Basic

Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
Dim a1() As Integer
Dim b1() As Integer
str1 = a.Text
str2 = b.Text
 
dla = Len(str1)
dlb = Len(str2)
c = 0
 
a1 = Split(str1, " ")
b1 = Split(str2, " ")
 
ra = UBound(a1)
rb = UBound(b1)
If ra > rb Then
dlo = ra
End If
For i = 0 To dlo
str3 = 0
str3 = str3 + a1(i) + b1(i)
a(i) = str3 Mod 10
str3 = str3 \ 10
Next
If str3 > 0 Then
dlo = dlo + 1
c.Text = str3
End If
 
 
 
 
 
 
End Sub

ругается в этой строчке на

Visual Basic

1	a(i) = str3 Mod 10

a(i)

SoftIce · 26.04.2013, 20:34

Сообщение от fors117

a(i)

А откуда вообще взялась а ?

SoftIce es geht mir gut 11264 / 4746 / 1183 Регистрация: 27.07.2011 Сообщений: 11,437
	26.04.2013, 20:34	2
	Сообщение от fors117 a(i) А откуда вообще взялась а ? 0

Опции темы