VB±à³ÌÐòÅжÏ×ø±êÏóÏÞ
ÎÒµÄÒ»¸ö¼òµ¥µÄVBÅжÏÏóÏÞµÄÎÊÌâ Ôõô»áÔÚVB»·¾³ÏÂÔËÐгö´íÁË£¿
¸ßÊÖÃǰïÎÒ¿´Ò»Ï£¡£¡£¡
If...Then...Else... µÄÑ¡Ôñ½á¹¹
Æ½ÃæÖ±½Ç×ø±êϵÖУ¬²»Í¬ÏóÏÞÄÚµãµÄÇé¿ö
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
If x=0 Or y=0 Then Print "¸Ãµã²»ÔÚÏóÏÞÄÚ"£ºExit Sub
If x>0 Then If y>0 Then print "ÔÚµÚÒ»ÏóÏÞ" Else Print "ÔÚµÚËÄÏóÏÞ"
Else If y>0 Then Print "ÔÚµÚ¶þÏóÏÞ" Else print "ÔÚµÚÈýÏóÏÞ"
End Sub
µÚ¶þ¸öElse Ò²¾ÍÊÇx<0µÄÇé¿ö ˵ûÓжÔÓ¦µÄIf£¬Õâµ½µ×ÊǸöʲôÔÒò£¿
лÀ²£¡£¡£¡
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ÎÒÏë°Ñ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ÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......