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

Çó¼òµ¥µÄvb¼ÆËãÆ÷Ô´³ÌÐò

ÈçÌâ
ºÍ´óÈËÒ²À´Ð´³ÌÐò£¿

²Î¿¼

Æ®¹ý

ÒýÓÃ
²Î¿¼

ÎÒÓöµ½ÎÊÌâÒ»°ãÏÈ °Ù¶ÈËÑ>csdnÉϲéÌû>ʵÔÚûÓУ¬×Ô¼º±à

ÒýÓÃ
ÒýÓà 2 Â¥ caozhy µÄ»Ø¸´:
²Î¿¼

ÎÒÓöµ½ÎÊÌâÒ»°ãÏÈ °Ù¶ÈËÑ>csdnÉϲéÌû>ʵÔÚûÓУ¬×Ô¼º±à

ÎÒÓÃGoogle

ÍÆ¼öÒ»¸ö:
http://zhidao.baidu.com/question/98674146.html


MSDNµÄÀý×ÓÀïÓÐCalcÀý³Ì£¬¿ÉÒÔÖ±½Óµ÷Ó㬳ÌÐòÈçÏ£º
VB code:

' ------------------------------------------------------------------------
' °æÈ¨ËùÓÐ (C) 1994 Microsoft Corporation
'
' Äú¿ÉÒÔÃâ·ÑÒÔÈκη½Ê½Ê¹Óá¢Ð޸ġ¢¸´ÖƲ¢·Ö·¢ÄúÈÏΪÓÐÓõÄ
' ʾÀýÓ¦ÓóÌÐòÎļþ (»òÈκÎÐ޸ĹýµÄ°æ±¾)¡£Microsoft ¶ÔÈκÎ
' ʾÀýÓ¦ÓóÌÐòÎļþ²»×öÈκα£Ö¤£¬²»¸ºÈκÎÔðÈκÍÒåÎñ¡£
' ------------------------------------------------------------------------
Option Explicit
Dim Op1, Op2 ' Ô¤ÏÈÊäÈë²Ù×÷Êý¡£
Dim DecimalFlag As Integer ' СÊýµã´æÔÚÂð£¿
Dim NumOps As Integer ' ²Ù×÷Êý¸öÊý¡£
Dim LastInput ' ָʾÉÏÒ»´Î°´¼üʼþµÄÀàÐÍ¡£
Dim OpFlag ' ָʾδÍê³ÉµÄ²Ù×÷¡£
Dim TempReadout

' C (È¡Ïû) °´Å¥µÄ Click ʼþ¹ý³Ì
' ÖØÐÂÉèÖÃÏÔʾ²¢³õʼ»¯±äÁ¿¡£
Private Sub Cancel_Click()
Readout = Format(0, "0.")
Op1 = 0
Op2 = 0
Form_Loa


Ïà¹ØÎÊ´ð£º

vb´òÓ¡

ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃŰ¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

VB ÔõôÄÜÌá¸ßÎı¾ÎļþµÄÑ­»·ËÙ¶È

ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ­»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ­»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѭ»·×öʲô£ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ