
(1)代码“Command1.Caption="计算"”中的Caption是
(2)为实现上述功能,请在划线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
Private Sub Command1_Click()
Dim n As Integer
Dim ret As String, a As String, b As String
Dim c As Integer, i As Integer, jw As Integer
n = Val(Text1.Text)
a = Text2.Text: b = Text3.Text
If n < 2 Or n > 10 Then End
If Len(a) < Len(b) Then
t = a: a = b: b = t
End If
For i = 1 To Len(a) - Len(b)

Next i
jw = 0
For i = Len(a) To 1 Step -1
c = Val(Mid(a, i, 1)) + Val(Mid(b, i, 1)) + jw
ret =
Next i
If jw > 0 Then
Text4.Text = ret
End Sub

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

