请教VB高手们
发布网友
发布时间:2024-10-16 12:21
我来回答
共6个回答
热心网友
时间:2024-11-13 13:19
OK,我前面说错了,更正如下:
如果以科学计数法计算的话大概是这样:
3456^321
=10^(321*log3456/log10)
=10^1135.882168552
=7.62374834347224E+1135
以VB计算精确结果时,可自定义一个Long型数组,每个数组元素代表一个万进制的位,即每次将每个数组内的数值乘以3456,然后将超出10000的部分除以10000后进到上一位,也就是下一数组元素,将余数保留在当前位上,即当前数组元素中,循环运算321次后即得到最终结果,最后将最终结果使用字符串连接输出。
Private Sub Form_Load()
Dim result() As Long 'Long型数组,每个数组元素为一个“万进制”的位
Dim i As Integer, j As Integer '计数器
Dim lUbound As Integer '万进制的总位数
lUbound = 0
ReDim result(0) As Long
result(0) = 3456 '初始值为3456
For i = 1 To 320 '循环运算320次
For j = 0 To lUbound '将每个数组元素中的数值乘以3456
result(j) = result(j) * 3456
Next
For j = 0 To UBound(result) '检查每个数组元素中的数值
If result(j) > 10000 Then '如果数值大于10000,则进位
If j = lUbound Then '在进位前检查数组边界
lUbound = lUbound + 1
ReDim Preserve result(lUbound)
End If
'进位的计算很简单,将大于10000的部分除以10000后进到上一位
result(j + 1) = result(j + 1) + result(j) \ 10000
'在原位上保留除以10000的余数
result(j) = result(j) Mod 10000
End If
Next
Next
'将全部结果连接到字符串中输出
For i = 0 To lUbound - 1
s = Format(result(i), "0000") & s
Next
s = result(i) & s
Text1.Text = s
Label1.Caption = "结果位数:" & Len(s)
End Sub
结果为:
76237483434840499889712426626096473963909931068247124172638199410539220053201610161450464002066939280638926925260420270154405231799447495245320436731301665931283240952660137358086907368044339121830531635848144441450568772821508287993467666438181243885755554898792836015603432708062302977998759211291131951767699978019004975330695697054793042155499221429969567052855745935136659823726845527843445136329342404766218345920692702081484144369600981406896399390541306496661397639380287227282800034638166780330382244829304071880825807023908154340005769742217325779028244644751599980322315632760625170290738351846477618573880996099932351295352950325271332844044331635038371782148986666758477217714762990062214571539825801641194903714821706518619256060414384827023948648226598364217388537480320237522075748433090727539744419610978258782969527316532158732245819802526035446474729194329275609908892767737827957808489590052473741556582857491245840372887253113107060668452433190374614955680014306887060608525003501743593527880304666492270653920664564390716079811354086365433698310713603357154393047253283255434103929871965354687684095494867235373056
热心网友
时间:2024-11-13 13:20
看那个fisher的吧
热心网友
时间:2024-11-13 13:20
如果你想算出结果,我想普通计算机不行,内存太小会溢出,你可以找超级计算机“天河”试试,应该可以,
热心网友
时间:2024-11-13 13:21
double都数据溢出
热心网友
时间:2024-11-13 13:22
用字符的方式模仿乘法计算,这方式在C、C++语言比较常见,但VB中不常见
热心网友
时间:2024-11-13 13:22
膜拜 小fisher!
我用模拟笔算写的乘法算法,用在这个题目里就是不断乘3456,效率比你低近百倍,编译后更是低几百倍(优化全开)
真牛!抽空要吃透你的算法