zcnluan的专栏

Option ExplicitDim a1 As String '定义a1为全局变量Dim bytData(1) As BytePrivate Sub cmdSend_Click()Call SendData(bytData)End SubPublic Function SendData(ByRef bytData() As Byte) As LongOn Error Resume ...

#include<stdio.h>void quickSort(int a[],int left,int right){　　int i=left;　　int j=right;　　int temp=a[left];　　if(left>=right)　　　　return;　　while(i!=j)　　{　　　　while(i<j&&a[...

PrivateSubCommandButton1_Click()Application.ScreenUpdating=FalseDimwk1AsWorkbook,sh1AsWorksheet,wk2AsWorkbook,sh2AsWorksheetFilename=Application.GetOpenFilename(fil...

FrmMain.frmVERSION 5.00Begin VB.Form FrmMain Caption = "DDEsvr" ClientHeight = 1425 ClientLeft = 60 ClientTop = 345 ClientWidth = 4020 L...