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!
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
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¿Ø¼þ¿ÉÒÔ¼ÓÔØpicture¿Ø¼þ,ÀýÈç
Set Picture1.Container = Picture3
ÕâÑù¾Í°ÑPicture1¼ÓÔØµ½ÁËPicture3ÉÏ,ÄÇôÔõô´ÓPicture3Ð¶ÔØµôPicture1ÄØ?
Çë¸÷λÅóÓѰïæ!лл!!
×öÁËÒ»¸öÊÔÑé,½«Pictur ......
VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£
ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......
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 ......