兩個數的乘法

private sub command1_click()

dim m as string

dim n as string

m = trim(text1.text)

n = trim(text2.text)

dim number1() as byte

dim number2() as byte

redim number1(len(m))

redim number2(len(n))

dim index as byte

for index = 1 to len(m) step 1

number1(index) = mid(m, index, 1)

next index

for index = 1 to len(n) step 1

number2(index) = mid(n, index, 1)

next index

dim result() as byte

redim result(len(m) + len(n))

dim mcarry as byte

dim acarry as byte

dim remainder as integer

dim i as integer, j as integer

dim mtemp as integer, atemp as integer

for i = len(n) to 1 step -1

for j = len(m) to 1 step -1

mtemp = number1(j) * number2(i) + mcarry

mcarry = mtemp \ 10

remainder = mtemp mod 10

atemp = remainder + result(i + j) + acarry

acarry = atemp \ 10

result(i + j) = atemp mod 10

next j

result(i) = mcarry + acarry

mcarry = 0

acarry = 0

next i

dim mstr  as string

for index = 1 to len(n) + len(m)

mstr = mstr & str(result(index))

next

label3.caption = mstr

end sub

兩個數的交換

一般思路 建立乙個臨時變數，以這個臨時變數為中間變數，利用賦值來完成兩個數的內容的相互交換。如下 include int main 優化方案 1.上述方法中需要另外建立乙個變數，略微有些麻煩，若是要求不能建立臨時變數，則可以採用數學上的加法來進行一些變通。如下 include int main 2....

最大的兩個數

輸入乙個四行五列的矩陣，找出每列最大的兩個數。接下來的四行每行包括五個整數。代表乙個四行五列的矩陣，矩陣元素全部是整數。可能有多組測試資料，對於每組資料，按照樣例輸出的格式將每列最大的兩個數輸出，如果最大的兩個數中的乙個數在這一列中有多個相同的值，則行值取行值小的那乙個。輸出時要保留原矩陣的行列順序...

兩個數相乘

兩個數相乘 option base 1 private sub command1 click dim m as string dim n as string m trim text1.text n trim text2.text dim number1 as byte dim number2 as ...