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

VBÎļþ²Ù×÷

Private Sub Command1_Click()

    Dim m As Integer    '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
    Dim n As Integer  '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
    Dim k As Integer  'Ñ­»·¿ØÖÆ´ÎÊý
   
    m = Val(Text1.Text)
    n = Val(Text2.Text)
   
    For k = m To n
        Open Dir1.Path + "\k.txt" For Output As #k
    Next
   
End Sub

Õâ¶Î´úÂëµÄ±¾À´ÓÃÒâÊǵã»÷command1°´Å¥µÄʱºò ÔÚÖ¸¶¨Îļþ¼ÐÖд´½¨ ÎļþÃûΪÊý×Öm µ½nµÄ n-m¸öÎļþ£¨Ôݲ»ÅжÏn ºÍmµÄ´óСÎÊÌ⣩
¿ÉÊÇÎÒµ÷ÊÔµÄʱºòÖ»Éú³Ék.txtÎļþ  ÔõôÈÃforÑ­»·ÀïµÄkÕæÕýµÄÆð×÷ÓÃ

ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!




Ïà¹ØÎÊ´ð£º

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

VB------->C#

C# code:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......

vbµÄpicture¿Ø¼þµÄÐ¶ÔØ

ÓÃvbµÄpicture¿Ø¼þ¿ÉÒÔ¼ÓÔØpicture¿Ø¼þ,ÀýÈç
Set Picture1.Container = Picture3
ÕâÑù¾Í°ÑPicture1¼ÓÔØµ½ÁËPicture3ÉÏ,ÄÇôÔõô´ÓPicture3Ð¶ÔØµôPicture1ÄØ?
Çë¸÷λÅóÓѰïæ!лл!!
×öÁËÒ»¸öÊÔÑé,½«Pictur ......

VBÔõÑùÏÔʾµÇ½Óû§ID

VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£

ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......

vbÖпÉÑ¡²ÎÊýµÄÎÊÌâ

function multi(a as integer,b as integer,optional third)
  dim n as integer
  n = a * b
if not ismissing (third) then
    n = n * thid
end if
multi = n
end fu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ