给出用等号连接的两个整数,如“222 = 24”,让你在左边的整数中间某个位置插入一个加号,看有没有可能让等式成立。以上面的式子为例,可以写成2+22=24和22+2=24两种答案。现设计一个程序,实现该算法,程序运行界面如图所示。
(1)
标题要显示“趣味数学”,需修改窗体的(选填:Caption、Name、Text)属性。
(2)
实现上述功能的VB程序如下,请在程序划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, s1 As String, s2 As String
Dim c As Integer, k As Integer, i As Integer, flag As Boolean
flag = False: c = 0
s = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = “=”Then Exit For
Next i
s2 = Mid(s,i+1,Len(s)- i)
k = Len(s1)
For i = 1 To k-1
If Val(Mid(s1, 1, i))+Val(Mid(s1, i + 1, k-i))=Val(s2) Then
List1.AddItem “第”+Str (c)+“种答案:”+Mid(s, 1, i)+“+”+Mid(s, i + 1, Len (s)-i)
flag = True
End If
Next i
IfThen List1.AddItem “没有答案!”
End Sub
答案: 【1】Caption
【1】s1 = Mid(s, 1, i - 1)【2】c=c+1【3】Not flag 或 flag=False