
(1)结合题意,窗体中属于TextBox 类对象的共有
(2)加框处的程序代码有错,请改正。
(3)实现上述功能的 VB 程序如下,请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, c As String, ss As String, cc As String
Dim i As Integer, j As Integer, res As String, ans As String s = Text1.Text
c = Text2.Text
i = 1: j = 1: res = "": ans = ""
Do While i <= Len(s)
ss = Mid(s, i, 1)
cc = Mid(c, j, 1)
If ss = cc Then
①
Else
res = res + cc
ans = ans + Str(j)
End If
j=j+1
If

Loop
If ③
Text3.Text = "是,增加了:" + res + Mid(c, j, Len(c) - j + 1)
Else
Text3.Text = "否"
End If
EndSub
(4)运行该程序,输入如图中所示的数据,程序执行结束时,变量j的值为

同类型试题

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

