代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/139506/13152001
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/139506/13152015
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/139506/13152021
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/139506/13152023
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/139506/13152026
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/139506/13152029
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/139506/13152044
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/139506/13152070
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/325790/13184424
m pfgui_action.m
function pfgui_action(action,hObject, varargin);
% Sorry, I didn't have enough time to write nice and documented GUI code.
% Toolbox for nonlinear filtering.
% Copyright (C) 2005 Jakob Ros閚
www.eeworm.com/read/323963/13304699
frm form1.frm
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fest Einfach
Caption = "Visual Basic Sample App"
ClientHeight = 750
ClientLeft = 45
ClientTop