vb moduleÄ£¿éÖе͍ÒåÎÊÌâ - VB / »ù´¡Àà
¾ÍÊÇÎÒÔÚÔËÐгÌÐòµÄʱºò£¬²éÕÒµÄʱºò°É£¬´ÓÁíÒ»¸ö´°¿Ú´«»ØÀ´Ò»¸öÖµ£¬È»ºó½øÐÐÐ޸ģ¬ÔËÓõÄÊÇÄ£¿éÖеıäÁ¿£¬µ«ÊÇûЧ¹û£¬ÎÒûÓÐÏêϸµØÑ§¹ýÄ£¿éÖÐÈçºÎ¶¨ÒåµÄ£¬²âÊÔ¹ýÁ˺ÃÏñÓ¦¸Ã¾ÍÊÇÊý¾Ýû´«¹ýÀ´ÎÒÊÇÕâÑù¶¨ÒåµÄpublic a as variant£¬Ð»Ð»´ó¼ÒÁË~
¿´ÆðÀ´Ã»ÎÊÌâ°¡£¬LZµ÷ÊÔһϴúÂ룬¿´¿´ÄãÔÚ¸ø¹«ÓñäÁ¿¸³ÖµµÄʱºòÊÇ·ñÕý³££¬ÎÒÏëÎÊÌâ¿ÉÄܳöÔÚ¸³ÖµÉÏÃæ
{{
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......