vbs乘法计算机,乘法运算..

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

'Write by 次碳酸钴

'代码中Functi0n中的字母o被我替换为了数字0请大家做适当修改

functi0n addh(addh_a_c,addh_b_c)

addh_a=addh_a_c:addh_b=addh_b_c

if int(addh_a)=0 then addh_a="0"

if int(addh_b)=0 then addh_b="0"

do until len(addh_a)=len(addh_b)

if len(addh_a)

loop

do

addh_c="":addh_d=""

for addh_i=1 to len(addh_a)

if int(mid(addh_a,addh_i,1)) + int(mid(addh_b,addh_i,1)) >= 10 then

addh_c=addh_c & mid(int(mid(addh_a,addh_i,1)) + int(mid(addh_b,addh_i,1)),2,1)

addh_d=addh_d & "1"

else

addh_c=addh_c & int(mid(addh_a,addh_i,1)) + int(mid(addh_b,addh_i,1))

addh_d=addh_d & "0"

end if

next

addh_a = "0" & addh_c

addh_b = addh_d & "0"

loop until int(addh_d) = 0

addh_i = 1

do while mid(addh_c,addh_i,1) = 0 and addh_c<>"0"

addh_i=addh_i+1

loop

addh_c= mid(addh_c,addh_i,len(addh_c)-addh_i+1)

addh = addh_c

end functi0n

functi0n mulh(mulh_a,mulh_b)

mulh_d="0":mulh_c="0"

for mulh_i=0 to len(mulh_a)-1

for mulh_j=0 to len(mulh_b)-1

mulh_c=int(mid(mulh_b,len(mulh_b)-mulh_j,1)) * int(mid(mulh_a,len(mulh_a)-mulh_i,1))

for k=0 to mulh_i+mulh_j-1

mulh_c = mulh_c & "0"

next

mulh_d = addh(mulh_d,mulh_c)

next

next

mulh = mulh_d

end functi0n

a=inputbox("乘数1")

b=inputbox("减数")

c = mulh(a,b)

set fso = createobject("scripting.filesystemobject")

set fi = fso.opentextfile("result.txt",8,1)

fi.write   a & " × " & b & " = " & c & chr(13) & chr(10)

fi.close