当前位置: 高中信息技术 / 综合题
  • 1. (2021·湖州模拟) 在一个整数序列中找第k小的字母,若有相同的字母,则位置靠前的字母名次靠前,如有字母序列为“A,B,A,D,C”则第1小的字母为A在第1个位置,第2小的字母为A在第3个位置,笫3小的字母是B,在第2个位置,第4小的字母是C,在笫5个位置,笫5小的字母是D,在第4个位置。编写一个VB程序实现如下功能,程序启动时随机产生n个A-G之间的随机大写字母,在文本框Text2中输入整数k(k<=n),单击“查找第k小的字母”按钮Commandl后,在文本框Text3上显示笫k小的字母位置。程序运行界面如下图所示。

    1. (1) 若要清空文本框 Text1 中的内容,能实现该功能的语句是 (单选,填字母:A .Text1.Caption=""/B . Text1.Text=""/C . Text1.Clear)
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Const n = 20

      Dim i As Integer

      Dim a(1 To n) As String

      Private Sub Form_Load()

          Randomize

          For i = 1 To n

              a(i) =

              Text1.Text = Text1.Text + " " + a(i)

          Next i

      End Sub

      Private Sub Command1_Click()

          Dim k As Integer, count As Integer

          Dim b(0 To 7) As Integer

          k = Val(Text2.Text)

          For i = 1 To n

             

          Next i

          i = 1

          Do While i < 7 And b(i) < k

             

              i = i + 1

          Loop

          Key = i

          count = 0

          For i = 1 To n

              If a(i) = Chr(Key + 64) Then count = count + 1

              If count = Then Exit For

          Next i

          Text3.Text = "第" + Str(k) + "小的字母是:" + Chr(Key + 64) + ";位置是:" + Str(i) End Sub

    3. (3) 程序中加框处有错,请改正。

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