VB计算机CPU暴力测试程序

sunsea

对不起，我不会VC，所以做成了VB。（如果是VC的话就可以多线程方式执行，不会看上去像死机了）
此程序采用最传统、最暴力的方法测试CPU：
对随机基数进行平方、开方、对数、反对数等暴力整数、浮点计算指定次，检验性能。
注：由于此测试手段非常“暴力”、“野蛮”，霸占CPU，而且是单线程程序，所以可能在计算时看上去像死机，请谅解（这是单线程程序的不足）！
如果是多核CPU，建议按CPU核心数量多开测试，结果更准确！

源码：

1. Option Explicit
   
2. Private Sub Command1_Click()
   
3.     Dim jsw, cs, i, ii As Integer
   
4.     Dim StartTime, EndTime As Double
   
5.     jsw = Form1.Text1.Text
   
6.     cs = Form1.Text2.Text * 1000000
   
7.     Dim zfc As String
   
8.     zfc = "1**6789"
   
9.     Form1.Label11.Caption = "正在计算"
   
10.     Form1.Label8.Caption = ""
    
11.     StartTime = Timer
    
12.     For i = 1 To cs
    
13.         Randomize
    
14.         Dim ranmod As String
    
15.         Dim temp, temp2, temp3, temp4, temp5, temp1 As Double
    
16.         ranmod = "0"
    
17.         For ii = 1 To jsw
    
18.             ranmod = ranmod & Mid(zfc, 1 + Int(Len(zfc) * Rnd), 1)
    
19.         Next ii
    
20.         temp = ranmod ^ 2
    
21.         temp1 = Sqr(temp)
    
22.         temp2 = Log(temp1)
    
23.         temp3 = Exp(temp2)
    
24.         temp4 = Atn(temp3)
    
25.         temp5 = Tan(temp4)
    
26.         temp = temp + 1
    
27.         temp = temp * ranmod - 5
    
28.     Next
    
29.     EndTime = Timer
    
30.     Form1.Label8.Caption = EndTime - StartTime
    
31.     Form1.Label11.Caption = "计算完成"
    
32. End Sub

复制代码

[ 本帖最后由 2011czmxbb52 于 2012-7-31 09:57 编辑 ]

sunsea

**
竟然定义错变量类型
导致数字一大就溢出
这回修正了

[ 本帖最后由 2011czmxbb52 于 2012-7-31 09:56 编辑 ]

2012hongrui

你循环语句中不用Doevents语句,不怕程序停止响应么？VB程序可是单线程的,编译成可执行文件很耗CPU的,极有可能卡死！

sunsea

原帖由 2012hongrui 于 2012-7-30 22:19 发表
你循环语句中不用Doevents语句,不怕程序停止响应么？VB程序可是单线程的,编译成可执行文件很耗CPU的,极有可能卡死！

这个问题基本无视。
再严重点按Ctrl+Alt+Del
再说，我也不会VC和MFC
如果我会直接写多线程好了
对了
那个语句的语法是什么
我没有找到
一般我查语法资料都是从天极那边查：http://www.yesky.com/imagesnew/software/vbscript/index.html

[ 本帖最后由 2011czmxbb52 于 2012-7-31 09:56 编辑 ]

sunsea

好吧
我把我写的烂的一塌糊涂的MFC代码发上来（还有点错），希望大家帮忙！谢谢！

sunsea

现在发现VB.NET可以搞多线程（更重要的是不用去烦那么繁杂的API），所以就用VB。NET做了
可惜微软不给力，还要装那么大一个.NET
VB.NET的效率好像也不怎么高
源码：

1. 
   
2. Option Explicit On
   
3. Imports VB = Microsoft.VisualBasic
   
4. Friend Class Form1
   
5.     Inherits System.Windows.Forms.Form
   
6.     Dim Td As System.Threading.Thread '定义一个线程
   
7.     'Delegate Sub Dg(ByVal v As Int32) '声明一个委托，以后实现检测核心数量并自动生成线程就有用了
   
8.         Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
   
9.         Me.Label11.Text = "正在计算"
   
10.         Me.Label8.Text = ""
    
11.         Td = New System.Threading.Thread(AddressOf CPUTest)
    
12.         Td.Start()
    
13.         End Sub
    
14. 
    
15.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
16.         Td.Abort() '中止线程
    
17.         Me.Label11.Text = "计算被终止"
    
18.         Me.Label8.Text = ""
    
19.     End Sub
    
20.     Sub CPUTest()
    
21.         '这里定义了很多变量，但是，一旦线程结束（相当于Sub执行完成），内存便会被释放（因为变量生存期过了）
    
22.         Dim cs, jsw, i, StartTime, EndTime As Object
    
23.         Dim ii As Short
    
24.         jsw = Me.Text1.Text
    
25.         cs = CDbl(Me.Text2.Text) * 1000000
    
26.         Dim zfc As String
    
27.         zfc = "1**6789"
    
28.         Dim ranmod As String
    
29.         Dim temp4, temp2, temp, temp3, temp5 As Object
    
30.         Dim temp1 As Double
    
31.         Dim temp6, temp7 As String
    
32.         temp6 = cs
    
33.         temp6 = temp6 / 100
    
34.         temp7 = "0"
    
35.         CheckForIllegalCrossThreadCalls = False
    
36.         Me.ProgressBar1.Value = 0
    
37.         CheckForIllegalCrossThreadCalls = True
    
38.         StartTime = VB.Timer()
    
39.         For i = 1 To cs
    
40.             '简便打注释技巧：选中需要注释的区域，按Ctrl+K，再按一遍Ctrl+C就行了；如果要撤销注释，按Ctrl+K，再按一遍Ctrl+U就行了
    
41.             If temp7 = temp6 Then
    
42.                 CheckForIllegalCrossThreadCalls = False
    
43.                 Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
    
44.                 CheckForIllegalCrossThreadCalls = True
    
45.                 temp7 = "0"
    
46.             End If
    
47.             temp7 = temp7 + 1
    
48.             Randomize()
    
49.             ranmod = "0"
    
50.             For ii = 1 To jsw
    
51.                 ranmod = ranmod & Mid(zfc, 1 + Int(Len(zfc) * Rnd()), 1)
    
52.             Next ii
    
53.             temp = ranmod ^ 2
    
54.             temp1 = System.Math.Sqrt(temp)
    
55.             temp2 = System.Math.Log(temp1)
    
56.             temp3 = System.Math.Exp(temp2)
    
57.             temp4 = System.Math.Atan(temp3)
    
58.             temp5 = System.Math.Tan(temp4)
    
59.             temp = temp + 1
    
60.             temp = temp * ranmod - 5
    
61.         Next
    
62.         EndTime = VB.Timer()
    
63.         CheckForIllegalCrossThreadCalls = False
    
64.         Me.Label8.Text = EndTime - StartTime
    
65.         Me.Label11.Text = "计算完成"
    
66.         CheckForIllegalCrossThreadCalls = True
    
67.     End Sub
    
68.     ' Sub Label()
    
69.     '现在我们用不到这个段，代码就没有
    
70.     '以后实现检测核心数量并自动生成线程就有用了
    
71.     ' End Sub
    
72. End Class
    

复制代码

下载：

[ 本帖最后由 2011czmxbb52 于 2012-7-31 17:58 编辑 ]

2012hongrui

编译成一个可执行文件,最讨厌的就是停止响应时按ctr|+alt+De|,既然你不在乎,我也不再说什么了.

sunsea

原帖由 2012hongrui 于 2012-7-31 18:26 发表
编译成一个可执行文件,最讨厌的就是停止响应时按ctr|+alt+De|,既然你不在乎,我也不再说什么了.

好了
现在VB.NET的版本有停止按钮了