C++VB 初めてプログラム板来た初心者ｽﾚ delphi hsp

C++VB 初めてプログラム板来た初心者ｽﾚ delphi hsp at TECH

627:デフォルトの名無しさん
07/08/13 14:12:30
>>626
おまえ
スレタイ
読めてない
　＼（^o^）／

Public Sub hoge()
Dim HDD As Variant
Dim ImgFile As Variant
Dim cnt As Long

HDD = CDec(200) * CDec(1024) * CDec(1024) * CDec(1024)
ImgFile = CDec(2.5) * CDec(1024) * CDec(1024)
Do While True
If HDD < ImgFile Then
Debug.Print cnt; "枚入ります"
Exit Sub
End If
HDD = HDD - ImgFile
cnt = cnt + 1
Loop
End Sub

次ページ

続きを表示

1を表示