您所在位置：主题：谁能帮我详细地解读以下两个程序?
yaoyusheng
[专家分：460] 发布于 2007-07-20 01:42:00
Function GetNthInteger(ByVal n As Long, ByVal k As Integer) As Integer
'取出n右边第k位
Dim i As Integer
For i = 1 To k - 1
n = n \ 10
Next i
GetNthInteger = n Mod 10
End Function
FUNCTION rightcode(a(),i,s)
rightcode=a(s+1-i)
END FUNCTION
其中a()是要取元素的数组，i是取右边第几个元素，s是a数组的上界。
比如：（使用函数示例）
DIM a(10),b(5)
DATA 4,7,2,1,5,0,8,6,9,3
DATA 11,14,15,13,12
FOR i=1 TO 10:READ a(i):NEXT i
FOR i=1 TO 5:READ b(i):NEXT i
PRINT rightcode(a(),2,10)
PRINT rightcode(b(),3,5)
END
还是不会用啊
'取出n右边第k位
Dim i As Integer
For i = 1 To k - 1
n = n \ 10
Next i
GetNthInteger = n Mod 10
End Function
FUNCTION rightcode(a(),i,s)
rightcode=a(s+1-i)
END FUNCTION
其中a()是要取元素的数组，i是取右边第几个元素，s是a数组的上界。
比如：（使用函数示例）
DIM a(10),b(5)
DATA 4,7,2,1,5,0,8,6,9,3
DATA 11,14,15,13,12
FOR i=1 TO 10:READ a(i):NEXT i
FOR i=1 TO 5:READ b(i):NEXT i
PRINT rightcode(a(),2,10)
PRINT rightcode(b(),3,5)
END
还是不会用啊
