代码搜索：msgbox
找到约 3,543 项符合「msgbox」的源代码
代码结果 3,543
www.eeworm.com/read/469742/6925964
bas i2c_pca9535.bas
Attribute VB_Name = "I2C_PCA9535"
Option Explicit
' public declaration of port values
Type PortsType
P0 As Integer
P1 As Integer
End Type
Public Ports As PortsType
''''''''''
www.eeworm.com/read/466346/7034125
bas nlnewtonamainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim n As Integer, nMaxIt As Integer
Dim t As Double, h As Double
Dim s As String
' 3次方程
n = 3
' 分配初值和解的内存
Re
www.eeworm.com/read/466346/7034131
bas nlpqrootmainmodule.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/466346/7034134
bas nlgradmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim n As Integer, nMaxIt As Integer
Dim s As String
' 3次方程
n = 3
' 分配初值和解的内存
ReDim x(n) As Double
' 初值
www.eeworm.com/read/466346/7034135
bas nlndhcrootmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim n As Integer
Dim s As String
' 5次方程
n = 5
' 分配存放系数和解的内存
ReDim ar(n + 1) As Double, ai(n + 1) As Double, xr(n)
www.eeworm.com/read/466346/7034136
bas nlmivmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim n As Integer, m As Integer
Dim s As String
' 3个未知数
m = 3
' 2次方程
n = 2
' 分配初值和解的内存
ReDim x(n) As Dou
www.eeworm.com/read/466346/7034137
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/466346/7034143
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/466346/7034153
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/219095/7095475
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