当前位置: 高中信息技术 / 综合题
  • 1. (2020高三上·浙江月考) 根据对分查找的思想来查找两个递增序列中最小值所在的位置,其中第一个递增序列中的数据全部大于第二个递增序列中的数据,且两个序列中没有重复数据,如组合序列3、4、5、6、1、2是由两个递增序列“3、4、5、6”和“1、2”组成的,组合序列的最小值是1,在组合序列中的位置是第5位。

    为实现上述功能,小王编写如下VB程序,首先在Text1中输入两个满足条件的序列,数字之间用“,”隔开且以“,”结尾,单击按钮“Cod1”,在Text2中输出最小值所在序列中的位置,程序运行界面如下图所示。

    1. (1) 在界面中,具有Caption属性的对象有个。
    2. (2) 在横线处填入合适的代码。

      Private Sub Cod1_Click( )

          Dim s As String, ch As String

          Dim i As Integer, j As Integer, n As Integer, c As Integer

          Dim a(100) As Integer

          s = Text1.Text: c = 0: n = 0

          For i = 1 To Len(s)

              ch = Mid(s, i, 1)

              If ch >= "0" And ch <= "9" Then

                  

              Else

                  n = n + 1

                 

                  c = 0

              End If

          Next i

          i = 1: j = n

          Do While

              m = (i + j) \ 2

              If a(m) > a(i) Then

                  i = m

              Else

                  j = m

              End If

          Loop

         

      End Sub

    3. (3) 加框处的表达式有误,请改正。

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