当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·宁波期中) 在Excel中,列号采用字母的形式表示,具体表示方法如下:

    序号

    第1列

    第2列

    ……

    第25列

    第26列

    列号

    A

    B

     

    Y

    Z

    序号

    第27列

    第28列

    ……

    第51列

    第52列

    列号

    AA

    AB

     

    AY

    AZ

    ……

    序号

    第703列

    第704列

    ……

    第727列

    第728列

    列号

    AAA

    AAB

     

    AAX

    AAZ

    为了方便查看,小明编写了“Excel列号转换”程序,程序运行时,用户在文本框Text1中输入数字列号,点击按钮command1,在文本框Text2中输出它的字母列号;反之在文本框Text2中输入字母列号,单击按钮command2,在文本框Text1中输出它的数字列号。程序运行界面如图所示:


    程序运行的代码如下,请回答下列问题:

    1. (1) 要修改窗体的标题为“EXCEL列号转换”,可通过修改其属性完成。
    2. (2) 第106列的字母列号为
    3. (3) 请在①②③划线处填入适当的代码。

      '将数字列号转换为字母列号

      Private Sub Command1_Click( )

          Const code = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

          Dim s As String

          Dim n As Integer

          Dim r As Integer

          ①

          s =“”

          Do While n > 0

              ②

              n = n \ 26

              s = Mid(code, r, 1) + s

          Loop

          Text2.Text = s

      End Sub

      '将字母列号转换为数字列号

      Private Sub Command2_Click( )

          Dim s As String

          Dim n As Integer

          Dim ch As String

          s = Text2.Text

          n = 0

          For i = 1 To Len(s)

              ch = Mid(s, i, 1)

              ③

          Next i

          Text1.Text = Str(n)

      End Sub

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