趣味填空题: 给出用等号连接的两个整数,如“222=24”,让你在左边的整数中间某个位置插入一个加号,看有没有可能让等式成立。以上面的式子为例,可以写成2+22=24和22+2=24。现设计一个程序,实现该算法,程序运行界面如图所示。
(1)
标题要显示“趣味数学”,需修改窗体的属性。
(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
s =
Text1.Text
For c =
1 To Len(s)
If Then Exit For 'Exit for退出循环
Next c
s1 = Mid(s, 1, c - 1)
s2 = Mid(s, c + 1,len(s)-c)
k =
For i =
1 To k - 1
If
Val(Mid(s1, 1, i)) + Val(Mid(s1, i + 1,c-i-1)) = Val(s2) Then
List1.AddItem Mid(s, 1, i) + "+" +
Mid(s, i + 1,len(s)-i)
End
If
Next i
If Not flag Then List1.AddItem "等式始终无法成立!"
End Sub
答案: 【1】Caption
【1】Mid(s,c,1)="="【2】c-1或len(s1)等等价答案【3】flag=True