private sub form_click()print s(25, 10)print s(25, 50)'print s(25, 100) 这两行已经超出vb的计算能力了'print s(25, 200) vb只能处理32位的数值end subfunction s(x, n)for k = 1 to n t = 1 for i = 1 to 2 * k - 1 t = t * i next i s = s + x ^ (2 * k - 1) / tnext kend function 20210311
s dim shu as string,zong as string private sub command1_click() if text1.text=""then msgbox"未填抽取号码 exit sub end if if text2.text=""then msgbox"未填抽取号码数 exit sub end if aaa=val(text1.text) bbb=val(text2...