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

ÒÀÈ»ÇóÖú vb ʵÏÖ¶þ²æÊ÷Ç°Ðò±éÀú - VB / »ù´¡Àà

ÓÃC++µÄ´úÂëÊÇÕâÑùµÄ
Status PreOrderTraverse(BiTree T,Status(*Visit)(TElemType e)){
//Ç°Ðò±éÀú¶þ²æÊ÷µÄ·ÇµÝ¹éËã·¨£¬¶Ôÿ¸öÔªËص÷Óú¯ÊýVisit
InitStack(S); p = T;
while(p || !StackEmpty(S)){
if(p){
if(!Visit(p->data)){
return ERROR;
}
Push(S,p);
p = p->lchild;
}
else{
Pop(S,p);
p = p->rchild;
}
}//while
return OK;
} //PreOrderTr

ÕâÊǶþ²æÊ÷µÄÇ°Ðò±éÀú£¬ÏÖÔÚÎÒÏëÓÃVBʵÏÖ ÔÚText1 ÈÃÓû§ÊäÈëÒ»¸öÐòÁÐ È»ºóÇ°Ðò±éÀú Êä³ö½á¹ûµ½label1 Èç ABCDE Ç°Ðò±éÀúºóΪ ABDEC 
  ´ó¸ÅÄ¿µÄÊÇÕâÑùµÄ£¬ÇëÎÊVB ¿ÉÒÔÓÃÕ» ²»£¬ »òÕß ¸ÃÈçºÎʵÏÖ£¿£¿ Íû¸ßÈËÖ¸µã~
°ï¶¥.......


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

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

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

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

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

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

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ