"程序功能:计算s=2!+4!+6!+8!。程序中有错误。改正错误,使它能输出正确的结果。 Private Sub Command1_Click() Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 : i = 1 Do While i <= 4 t = 1 k = 1 While k <= 2^i 本行存在错误 t = t * k k = k + 1 Wend s = s + t i = i + 1 wend 本行存在错误 Print sEnd Sub" 只要输出答案就可以啦。有分加
Private Sub Command1_Click() Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 : i = 1 Do While i <= 4 t = 1 k = 1 While k <2^i 本行存在错误 t = t * k k = k + 1 Wend s = s + t i = i + 1 Loop 本行存在错误 Print sEnd Sub