题目

趣味填空题: 给出用等号连接的两个整数,如“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
信息技术 试题推荐
最近更新