代码搜索:integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/173349/9661637
test tkt1443.test
# 2005 September 17
#
# The author disclaims copyright to this source code. In place of
# a legal notice, here is a blessing:
#
# May you do good and not evil.
# May you find forgiveness for yo
www.eeworm.com/read/369088/9663424
bas modconst.bas
Attribute VB_Name = "Modconst"
Public portitem As Integer
www.eeworm.com/read/369009/9669053
bas module1.bas
Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public gintWZSmode As Integer 'for WZ setup
Public gintGFSmode As Integer 'for GF setup
Public gintKHSmode As Integer 'for KH setup
Publi
www.eeworm.com/read/172934/9681903
frm frmroom.frm
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmRoom
Caption = "客房信息列表"
ClientHeight = 3972
ClientLeft = 60
www.eeworm.com/read/172933/9682000
bas module1.bas
Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public gintWZSmode As Integer 'for WZ setup
Public gintGFSmode As Integer 'for GF setup
Public gintKHSmode As Integer 'for KH setup
Publi
www.eeworm.com/read/368620/9683164
bas module1.bas
Attribute VB_Name = "Module1"
Public Function GetFileName(strURL As String) As String
On Error Resume Next
Dim i As Integer
Dim strFileName As String
i = Len(strURL) - 1
www.eeworm.com/read/368597/9684801
frm spxx.frm
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Object = "{D07CD9D2-ECE9-493F-86F2-186659
www.eeworm.com/read/172797/9689693
bas calculate.bas
Attribute VB_Name = "calculate"
Dim c(g_MaxPotNum * (g_MaxPotNum + 1) / 2) As Double
Dim w(g_MaxPotNum) As Double
Dim b4(g_MaxPotNum, 2) As Integer
Dim a4(g_MaxPotNum, 2) As Double
Dim l4(g_
www.eeworm.com/read/172797/9689719
bas adjust.bas
Attribute VB_Name = "Adjust"
Dim c(g_MaxPotNum * (g_MaxPotNum + 1) / 2) As Double
Dim w(g_MaxPotNum) As Double
Dim b4(g_MaxPotNum, 2) As Integer
Dim a4(g_MaxPotNum, 2) As Double
Dim l4(g_Max
www.eeworm.com/read/172797/9689792
bas calculate.bas
Attribute VB_Name = "calculate"
'Dim c(g_MaxPotNum * (g_MaxPotNum + 1) / 2) As Double
'Dim w(g_MaxPotNum) As Double
'Dim b4(g_MaxPotNum, 2) As Integer
'Dim a4(g_MaxPotNum, 2) As Double
'Dim