代码搜索：VB 有哪些应用？
找到约 10,000 项符合「VB 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/339873/3292962
vb reference.vb
'------------------------------------------------------------------------------
'
' This code was generated by a tool.
' Runtime Version: 1.0.3705.0
'
' Changes to this fi
www.eeworm.com/read/339873/3292965
vb reference.vb
'------------------------------------------------------------------------------
'
' This code was generated by a tool.
' Runtime Version: 1.0.3705.0
'
' Changes to this fi
www.eeworm.com/read/339873/3292971
vb assemblyinfo.vb
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to mod
www.eeworm.com/read/339299/3310232
vb assemblyinfo.vb
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these att
www.eeworm.com/read/338159/3320047
vb testunit.vb
#language BasicScript
imports "unit1.cpp"
Unit1Proc("hello from main proc")
www.eeworm.com/read/338159/3320066
vb array.vb
'**************************
' FastScript v1.0
' Arrays demo
'**************************
dim i, j
dim ar[10]
dim s
for i = 0 to 9
ar[i] = IntToStr(i)
next
s =
www.eeworm.com/read/338159/3320068
vb doloop.vb
' FastScript v1.0
' 'do-loop' operator demo
dim i, j
j = 1
i = 0
do
j = j + 1
Inc(i)
loop while i 10
ShowMessage(j)
www.eeworm.com/read/338159/3320069
vb string.vb
' FastScript v1.0
' String demo
dim i, j
dim s as String
s = "Hello World!\r\nIt's working!"
j = 0
for i = 1 to Length(s)
if s[i] = " " then Inc(j)
www.eeworm.com/read/338159/3320071
vb file.vb
' FastScript v1.0
' Files demo
dim fs, s
fs = new TFileStream("test.txt", fmCreate)
s = "Testing file..."
fs.Write(s, Length(s))
fs.Write(#13#10, 2)
s
www.eeworm.com/read/338159/3320072
vb while.vb
' FastScript v1.0
' While operator demo
dim i, j
j = 1
i = 0
while i < 10
j = j + 1
Inc(i)
wend
ShowMessage(j)