序号 |
第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中输出它的数字列号。程序运行界面如图所示:
程序运行的代码如下,请回答下列问题:
'将数字列号转换为字母列号 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 |