代码如下
Private Sub Form_load()
n = 1
h = 1
Do While n = 1
For j = 1 To 1000000
h = j + h
Next j
Loop
Print h
End Sub
详情点http://user.qzone.

可以的，两个该程序就会使双核cpu达到100%