Command1_Click( ?。?/div>。
(2)把代碼補(bǔ)充完整。
Private Sub Command1_Click ( ?。?br />Dim a(1To 51)As Integer,b(1To 51)As Integer,c(1To 51)As Integer Dim lens1As String,lens2As String
lens1=Len(Text1.Text):lens2=Len(Text2.Text)
For i=Len(Text1.Text) To 1Step-1‘讀取數(shù)據(jù),逐位保存在數(shù)組中
a(i)=Mid(Text1.Text,lens1-i+1,1)Next i
For i=Len(Text2.Text) To 1Step-1
b(i)=Mid(Text2.Text,lens2-i+1,1)Next i
For i=1To 51‘從個(gè)位到高位逐位求和
c(i)=
c(i)+a(i)+b(i)
c(i)+a(i)+b(i)
If c(i)>9Then
c(i)=c(i)-10
c(i+1)=
c(i+1)+1
c(i+1)+1
End If Next i
f=False'從左到右輸出第一個(gè)不為 0 的元素開始從高位到低位輸出和 For i=51To 1Step-1
If c(i)<>0Then f=True
If f Then Text3.Text=Text3.Text & c(i) Next i
End Sub
(3)圖中,為了使 Text1 和 Text2 文本框在 Form1 界面上能夠左對(duì)齊,需要更改 Text1 的 Left 屬性,則可以在 Form_Load( ?。┲刑砑哟a Text1.Left=
Text2.left
Text2.left
。