找回密码
 欢迎注册
查看: 8550|回复: 3

[求助] 有几个关于tlb版的问题问题一下

[复制链接]
发表于 2020-10-4 20:37:07 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?欢迎注册

×
HugeCalcU4VB 与 HugeCalc4VB 我该用哪一个? 是由电脑配置决定的吗?

点评

HugeCalcU4VB 与 HugeCalc4VB,前者是为了 Unicode 字符输入输出的,后者则是单字节的,与电脑配置无关。  发表于 2020-10-5 11:20
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2020-10-4 20:43:36 | 显示全部楼层
使用HugeCalc计算库手动求阶乘的代码可以这样写吗?
Private Sub cmdFactoriel_Click()
    Dim hi1 As Long
    Dim hi2 As Long
    Dim hi3 As Long
    Dim i As Long
   
    Dim pStr As Long
    Dim nStrLen As Long
   
    Dim Str As String
   
    Dim TempsUtilise As Single
   
    QueryPerformanceCounter Counter0
   
    hi1 = HI_new
    hi2 = HI_new
    hi3 = HI_new
      
    QueryPerformanceCounter Counter1
   
    HI_set_u32 hi1, 1
    For i = 2 To CLng(txtNaturel.Text)
   
        HI_mul_u32 hi1, hi1, i
   
    Next i
   
    QueryPerformanceCounter Counter2
   
    TempsUtilise = (Counter2 - Counter1) / Frequency
    txtTempsUtilise.Text = TempsUtilise
   
   
    pStr = HI_getStr(hi1, 0, nStrLen)
   
    L_SetWindowText txtFactoriel1.hWnd, pStr
   
    HI_delete hi1
    HI_delete hi2
    HI_delete hi3
   
    QueryPerformanceCounter Counter3
   
    TempsUtilise = (Counter3 - Counter0) / Frequency
    txtTempsUtilise2.Text = TempsUtilise
   
    ShowErrorCode
End Sub

特别是
    HI_mul_u32 hi1, hi1, i
语句会不会影响运算速度,前一个hi1有没有被删除?

HugeCalc_test.zip

7.76 KB, 下载次数: 1, 下载积分: 金币 -1 枚, 经验 1 点, 下载 1 次

HugeCalc手动求阶乘

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2020-10-6 06:32:35 | 显示全部楼层
我在Windows10下用VB6,是不是我应该用HugeCalcU4VB版?还有帮我看看我的代码有没有问题,好吗.
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-12-22 00:59 , Processed in 0.025694 second(s), 20 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表