Option Explicit
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const LVS_REPORT = &H1
Private Declare Function CreateWindowEx Lib "user32.dll" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Type LVCOLUMN
Mask As Long
Fmt As Long
cX As Long
pszText As String
......................
阅读全部
|
LHY163311
贴于 2020年12月3日 18:56
hide
bbsi
Option Explicit
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const LVS_REPORT = &H1
Private Declare Function CreateWindowEx Lib "user32.dll" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Type LVCOLUMN
Mask As Long
Fmt As Long
cX As Long
pszText As String
......................
阅读全部
|
LHY163311
贴于 2020年12月3日 18:54
hide
bbsi
Option Explicit
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const LVS_REPORT = &H1
Private Declare Function CreateWindowEx Lib "user32.dll" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Type LVCOLUMN
Mask As Long
Fmt As Long
cX As Long
pszText As String
......................
阅读全部
|
LHY163311
贴于 2020年12月3日 18:54
hide
bbsi
Option Explicit
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const LVS_REPORT = &H1
Private Declare Function CreateWindowEx Lib "user32.dll" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Type LVCOLUMN
Mask As Long
Fmt As Long
cX As Long
pszText As String
......................
阅读全部
|
LHY163311
贴于 2020年12月3日 18:52
hide
bbsi
<html>
<head>
<title>找最接近的数</title>
<meta charset="utf-8">
</head>
<body >
<p>
问题描述：有一堆若干金条，从中任选几条，使其重量之和与另一给定的数量最接近。
......................
|
LHY163311
贴于 2020年12月3日 18:50
hide
bbsi
<html>
<head>
<title>找最接近的数</title>
<meta charset="utf-8">
</head>
<body >
<p>
问题描述：有一堆若干金条，从中任选几条，使其重量之和与另一给定的数量最接近。
......................
|
LHY163311
贴于 2020年12月3日 18:43
hide
bbsi
var a=[1,2,9,6,54,25];
/*a.splice(2,1);*/
alert(a);
m=a.length;
a_sort=[];
function f_min(a){
n=a.length;
var min=a[0];
for(i=0; i<n; i++){
if(a[i]<=min){
min=a[i];
flag=i;
......................
阅读全部
|
qunxingw
贴于 2020年12月3日 11:14
hide
bbsi
<!DOCTYPE html>
<html>
<head>
<title>分类</title>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="stylesheet" href="https://cdn.staticfile.org/twitter-bootstrap/4.3.1/css/bootstrap.min.css">
<link rel="stylesheet" href="css/index.css" />
<script src="https://cdn.staticfile.org/jquery/3.2.1/jquery.min.js"></script>
<script src="https://cdn.staticfile.org/popper.js/1.15.0/umd/popper.min.js"></script>
<script src="https://cdn.staticfile.org/twitter-bootstrap/4.3.1/js/bootstrap.min.js"></script>
</head>
......................
阅读全部
|
yuyouxsdh
贴于 2020年11月30日 19:04
hide
bbsi
<!DOCTYPE html>
<html>
<head>
<title>叮当网</title>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<link href="fonts/css/font-awesome.css" rel="stylesheet" />
<link rel="stylesheet" href="https://cdn.staticfile.org/twitter-bootstrap/4.3.1/css/bootstrap.min.css">
<link rel="stylesheet" href="css/index.css" />
<script src="https://cdn.staticfile.org/jquery/3.2.1/jquery.min.js"></script>
<script src="https://cdn.staticfile.org/popper.js/1.15.0/umd/popper.min.js"></script>
<script src="https://cdn.staticfile.org/twitter-bootstrap/4.3.1/js/bootstrap.min.js"></script>
......................
阅读全部
|
yuyouxsdh
贴于 2020年11月30日 19:03
hide
bbsi
<html>
<head>
<title>找最接近的数</title>
<meta charset="utf-8">
</head>
<body >
<p>
问题描述：有一堆若干金条，从中任选几条，使其重量之和与另一给定的数量最接近。
......................
|
qunxingw
贴于 2020年11月26日 15:54
hide
bbsi