Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ