代码大全

endif
end Function

Function Min!(Arg1!, Arg2!)

‘find the arithmetic minimum of Arg1 and arg2
if ( Arg1!< Arg2!) then
Max! = Arg1!
else
Max! = Arg2!
endif
end Function

18-74

18-74 Basic

Function ConvertBlanks$( Mixedstring$ )

'Create a String identical to NixedSttring$ except that the

'blanks are replaced with underscores.

dim i%

dim StringLength%

dim workString$

WorkString $ = ""

StringLength% = Len(MixedString$)

for i% = 1 to StringLength%

if (mid$(MixedString$,i%,1)="" then

Workstring$ = WorkString$ + "_"

else

Workstring$ = WorkString$ + mid$(MixedString$,i%,1)

endif

next i%

ConvertBlanks$ = WorkString$

end Function