Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB 6.0 ±éÀú×Ö·û´® - VB / »ù´¡Àà

ÎÒÏÖÔÚÓÐÒ»¸ö×Ö·û´®Îª 101010 µÄ×Ö·û´®£¬ÏÖÔÚÎÒÒªÇó°ÑËû±éÀú³öÀ´£¡£¡½á¹ûΪ
1
0
1
0
1
0
ÏÖÔÚÎÒµÄ˼·Êǽ«Õâ¸ö×Ö·û´®×ª»»³ÉÊý×飬ȻºóÔÚ½«ËüÓÃÑ­»·µü´ú³öÀ´£¡£¡
ÎÒÏÖÔÚµÄÎÊÌâÊDz»ÖªµÀÔõôÑùÄܽ«Ëüת»¯³ÉÊý×飡£¡ÎÒ¿´Á˺ܶàÏà¹Øº¯Êý¿ÉÊǶ¼Ã»Óнâ¾ö
Íü¸÷λ¸ßÊÖÏàÖú
µ±È»ÎÒÕâ¸ö˼·»òÐí²»ÊÇΨһµÄ£¡Èç¹û¸÷λ¸ßÊÖÓбðµÄ°ì·¨¿ÉÒÔ°ïÎÒʵÏÖÒ²·Ç³£µÄ¸Ðл£¡£¡
ÎÒÏÖÔںܼ±µÄÓÃÕâ¸öÁË£¡£¡
лл£¡£¡£¡£¡
VB code:

dim j() as integer
dim i as integer
dim h as string
i=1
h=101010
for i=1 to len(h)
j=MID(h,i,1)
next i



VB code:

Private Sub Command1_Click()
Dim a As String£¬i as integer
a = "101010"
For i = 1 To Len(a)
Print Mid(a, i, 1)
Next

End Sub




VB code:
Private Sub Command1_Click()
Dim str As String
str = "101010"
Dim b() As Byte
b = StrConv(str, vbfromUnicode)
Dim i As Long
For i = 0 To UBound(b)
Debug.Print b(i), Chr(b(i))


Next
End Sub



Ïà¹ØÎÊ´ð£º

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ