代码搜索：msgbox
找到约 3,543 项符合「msgbox」的源代码
代码结果 3,543
www.eeworm.com/read/130876/14171230
bas nlaitkenmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim n As Integer
Dim x As Double
' 迭代初值
x = 0
'求解
n = NLAitkenRoot(x, 60, 0.000001)
If n > 0 Then
www.eeworm.com/read/130876/14171248
bas nlnewtonrootmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim n As Integer
Dim x As Double
' 迭代初值
x = 1.5
'求解
n = NLNewtonRoot(x, 60, 0.000001)
If n >= 0
www.eeworm.com/read/130876/14171280
bas nlqrrootmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim x As Double
' 迭代初值
x = 1
'求解
If NLPqRoot(x, 0.000001) Then
MsgBox "x = " & x
Else
MsgBox "求
www.eeworm.com/read/129231/14256783
frm frmnewbook.frm
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form FrmNewBook
BorderStyle = 3 'Fixed Dialog
Caption = "新书登记 添加品种"
Client
www.eeworm.com/read/129138/14263115
asp changetime.asp
Flag=0
TimeNum=TimeGetF*60
Sub ChangeTime()
TimeNum=TimeNum-1
TimeNumF=TimeNum\60
TimeNum
www.eeworm.com/read/230581/14281140
ats function_out.ats
Section Main
var @a as AtsString
@a = "Atsript"
aa(@a, "abc" )
msgbox @a
End Section
function aa( out @x as AtsString , @y as AtsString )
@x = @x +@y
end function
www.eeworm.com/read/230581/14281144
ats function.ats
Section Main
msgbox xx( 1 ,3)
End Section
function xx(@a as AtsInt ,@b as AtsInt )
return @a + @b
end function
www.eeworm.com/read/230581/14281152
ats function_return.ats
Section Main
msgbox add( 3,4 )
End Section
function add( @x as AtsInt, @y as AtsInt ) as AtsInt
return @x +@y
end function
www.eeworm.com/read/230581/14281156
ats function2.ats
Section Main
msgbox xx("abc" ,"123")
End Section
function xx(@a as AtsString ,@b as AtsString )
return @a + @b
end function
www.eeworm.com/read/230581/14281215
txt demo1.txt
Section Main
msgbox xx( 1 ,3)
End Section
function xx(@a as AtsInt ,@b as AtsInt )
return @a + @b
end function
--------------------
Section Main
msgbox xx("abc" ,"123")
End Section