代码搜索：visual basic
找到约 10,000 项符合「visual basic」的源代码
代码结果 10,000
www.eeworm.com/read/306033/13754748
pb basic_polinomials.pb
' Addition of polynomials (a cyclic linked list application).
Sub Add(InitP, InitQ)
Dim P, Q
P = AddressOf InitP
Q = AddressOf InitQ
Do
While P(0)(1) < Q(0)(1)
Q = AddressOf
www.eeworm.com/read/306033/13754753
pb basic_derivatives.pb
' Symbolic computing. Differentiation.
'
' Gramma:
' Expression = Term { ( "+"|"-") Term }
' Term = Multiplier { "*"|"/" ) Multiplier }
' Multiplier = Factor { "^" Factor }
' Factor = Number
www.eeworm.com/read/306033/13754757
pb basic_trees.pb
Dim Key = 0, Left = 1, Right = 2
Sub AddNode(Root, X)
If Root = NULL Then
Root = [X, NULL, NULL]
ElseIf X < Root(Key) Then
AddNode(AddressOf Root(Left), X)
ElseIf X > Root(Key) T
www.eeworm.com/read/306033/13754766
pb basic_paxtime.pb
Imports SysUtils, ExtCtrls, Forms
Dim Form = New TForm(NULL)
Form.Caption = "PAX Time"
Form.Canvas.Font.Height = 50
Form.Height = 100
Form.Width = 400
Dim Timer = New TTimer(Form)
Timer.Int
www.eeworm.com/read/306033/13754768
pb basic_nestedclasses.pb
Class Outer
Inherits TObject
Private x As Integer = 10
Shared Dim y = "abc"
Sub New()
Me = MyBase.Create()
End Sub
Class Inner
Inherits TObject
Private x As Inte
www.eeworm.com/read/306033/13754769
pb basic_delegate.pb
Imports StdCtrls, Forms
Dim F As TForm = new TForm(NULL)
Dim B As TButton = new TButton(F)
F.Show
B.Parent = F
B.Caption = "Click Me"
B.OnMouseDown = AddressOf MouseHandler
Sub MouseHandl
www.eeworm.com/read/306033/13754781
pb basic_regexp.pb
Dim r = /[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+/g
Dim s = "My e-mails are ab@cable.netlux.org and ppusr154@ints.net"
Do
If r.exec(s).length = 0 Then
Exit Do
Else
println r[0]
www.eeworm.com/read/306033/13754782
pb basic_records.pb
Structure RandomPoint
Dim X As Integer = rnd(0, 100)
Dim Y As Integer = rnd(0, 100)
End Structure
Structure RandomCircle
Inherits RandomPoint
Dim R As Integer = rnd(0, 100)
End Struct