信息技术奥林匹克竞赛_VB程序设计的常用算法(9)

For j = 1 To 3

If a(i, j) > a(row, Column) Then

Max = a(i, j)

row = i

Column = j

End If

Next j

Next i

Print "最大元素是"; Max

Print "在第" & row & "行,"; "第" & Column & "列"

八、数制转换

将一个十进制整数m转换成 →r(2－16)进制字符串。 方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串。

Private Function TrDec(idec As Integer, ibase As Integer) As String

Dim strDecR$, iDecR%

strDecR = ""

Do While idec <> 0

iDecR = idec Mod ibase

If iDecR >= 10 Then

strDecR = Chr$(65 + iDecR - 10) & strDecR Else

strDecR = iDecR & strDecR

End If

idec = idec \ ibase

Loop

TrDec = strDecR

End Function

九、字符串的一般处理1．简单加密和解密

加密的思想是： 将每个字母C加（或减）一序数K，即用它后的第K个字母代替，变换式公式： c=chr(Asc(c)+k) 例如序数k为5，这时 "A"→ "F"， "a"→ "f"，"B"→ "G"…