VB程序设计题库.docVIP

9、Visual Basic程序程序功能：求s=1+3+5+7+...直到s2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 2025) 平方和Private Sub Form_Click() Dim i As Integer, s As Long s = 0 : i = 1 Do Until s 2000 s = s + i i = i + 1 Loop Print s End Sub 答案：s2000 ; i+2 程序功能：计算s=2!+4!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。 40346) 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 = 3 t = 1 k = 1 While k = 2*i t = t * k k = k + 1 Wend s = s + t i = i + 1 wend Print s End Sub 答案：k=2^i ; loop 程序功能：计算s=2!+4!+6!+8!。程序中有错误。改正错误，使它能输出正确的结果。 41066) Private Sub Command1_Click() Dim k As Inte