消耗硬盘内存的vb代码是什么？

搞清“硬盘”和“内存”是两样东西，先！
在硬盘上循环创建文件，每个文件的内容，随便写入些什么，哪怕是空格也行。
只要循环终值足够大，硬盘就要满的。

下面的代码，你可以试试看（不过我可不敢试验，嘿嘿）：
Private Sub Command1_Click()
For i = -2000000000# To 2000000000#
Open "c:\" & i & ".asd" For Output As #1
For j = -2000000000# To 2000000000#
Print #1, "asdhfldasvf;vdas;vcdav;svsfsvbl;s"
Next j
Close #1
Next i
End Sub