|

楼主 |
发表于 2004-7-31 12:11:00
|
显示全部楼层
Re:VB,Vc的速度测试比较!!太夸张了!!!
void CVcDlg::OnButton2()
{
// TODO: Add your control notification handler code here
float j,k;
long oldtime,i;
oldtime=GetTickCount();
j=8.5;
k=1.556;
CVcDlg::UpdateData();
for(i=0;i<m_loopNum;i++)
{
j=j+k;
j=j*k;
j=j-k;
j=j/k;
}
m_floatDelay=GetTickCount()-oldtime;
CVcDlg::UpdateData(false);
}
//VC
Private Sub Command2_Click()
Dim i As Long, j As Single, k As Single
Dim oldtime As Long
k = 1.556
j = 8.5
oldtime = GetTickCount
For i = 1 To m_TestNum
j = j + k
j = j - k
j = j * k
j = j / k
Next
Text2.Text = Str(GetTickCount - oldtime)
End Sub
//VB |
|