代码搜索: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