VB代码的问题？！怎么能让多核CPU满载

本人刚学电脑硬件，略知一二，首先你要知道cup多核与主频之间的关系，多核不是指运行速度的关键，是多任务时分配工作，使任务合理分配使得提升运算能力，主频是CPU运算能力的参数，多核就相当于多个人工作，主频就是这些人的工作能力有多强，主频高的多核CPU那就是非常高端的了，现在4核已经很普遍了，还有六核的，CPU多线程好像听说过，是英特尔酷督I7的四核8线程CPU，那是CPU出厂固有的参数，改不鸟的啊！（原创作品，谢绝抄袭，谢谢采纳！）

你找的这段代码是不安全的，我在我自己的电脑上测试这段代码，CPU才达到50%左右，该程序就失去响应，所以是没法降低CPU使用率的。

我给你写了个安全点的，利用创建进程的方法来增加CPU负担，但进程数量会得到控制的，具体多少看CPU的能力，CPU运算快的，就需要创建更多的进程，大体是控制在50至200之间。

你看看，不懂可以追问，可行的话希望及时采纳，另外这段代码是安全的，你就别打坏主意了：

Dim a

Private Sub Command1_Click()

Do

‘这里不是无限调用的，进程数量会控制在50~200之间

Shell "cmd /c ping 127.0.0.1 -n 2", vbHide

DoEvents '这是防止死机的关键所在！

Loop Until a = 1

End Sub

Private Sub Command2_Click()

a = 1

End Sub

Private Sub Form_Load()

a = 0

End Sub

---