30.兩個 10 進制大整數(shù)相加可以用數(shù)組的方法逐位相加來實現(xiàn),小王同學制作了如圖的 VB 程序,以實現(xiàn)求 2 個 50 位以內的 10 進制整數(shù)的和。
(1)根據(jù)程序代碼,該事件過程名為
。
(2)把代碼補充完整。
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‘從個位到高位逐位求和
c(i)=
If c(i)>9Then
c(i)=c(i)-10
c(i+1)=
End If Next i
f=False'從左到右輸出第一個不為 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 界面上能夠左對齊,需要更改 Text1 的 Left 屬性,則可以在 Form_Load( ?。┲刑砑哟a Text1.Left=
。