当前位置: 高中信息技术 / 综合题
  • 1. (2020·浙江模拟) “字符串合并”程序实现功能:在文本框Text1中输入字符串1,在文本框Text2中输入字符串2,单击“合并”按钮Command1,按如下规则依次从中取出各字符进行合并,合并后的结果显示在标签对象Label3中。

    合并规则如下:

    ⑴当字符串1的长度大于字符串2的长度时,将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”,字符串2为“123”时,合并后的字符串为“a1b2c3def”

    ⑵当字符串2的长度大于等于字符串1的长度时,将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”,字符串2为“12345”时,合并后的字符串为“12d3c4b5a”。

    程序运行界面如图所示。

    1. (1) 要使程序运行时,窗体Form1标题显示“字符串合并”,可在Form_Load事件过程中添加语句(单选,填字母:A .Fom1. Caption=“字符串合并”/B .Label3. Caption=“字符串合并”C .Text1. Text=“字符串合并”)。
    2. (2) 实现上述功能的VB程序如下,请在画线处填入合适的代码。

      Private Sub Commandl_Click ()

      Dim sl As String, s2 As String, ans As String

      Dim n As Integer, m As Integer, i As Integer

          s1=Text1. Text

          s2=Text2. Text

          m=Len (s1)

          n=Len (s2)

          If m>n Then

              For i=1 To n

                  ans=ans+Mid (sl, i, 1)+Mid (s2, i, 1)

              Next i

              ans=ans +Mid (sl, i, m-n)

          Else

              For i=1 To m

                  ans=   ①   +Mid (s1, i, 1)+ans

              Nest i

              ans=Mid (s2, 1, n-m)+ans

            ② 

          Label3. Caption=“合并为”+ans

      End Sub

       ② 

    3. (3) 若在文本框Text1中输入“Word”,在文本框2中输入“Min”,单击“合并”按钮后,标签Label3中显示的内容是

微信扫码预览、分享更方便