一个线程进行阶乘和的运算，另一个线程则每隔一段时间读取上个线程的运算结果

不知道你用的是何语言
用VB
dim i as integer
dim s as integer
dim aa as integer
private sub form_load()
timer1.interval=200
end sub
private sub command1_click()
aa=inputbox("几的阶乘：")
for i=1 to aa
s=s*i
next
end sub

private sub timer1_timer()
text1.text=cstr(s)
end sub

我也学习了