【正文】
有一行錯(cuò)誤,改正錯(cuò)誤,使它能輸出正確的結(jié)果。Private Sub Command1_Click()Dim x As IntegerDim n As Integern = 0For x = 10 To 1000If x Mod 7 = 5 Or x Mod 5 = 3 Or x Mod 3 = 1 Thenn = n + 1End IfLoopPrint nEnd Sub程序功能:百錢百雞問(wèn)題。Private Sub Command1_Click()s = 0cock = 1Do While cock = 100 / 5 hen = 1 Do While hen = 100 / 3 cock chick = 100 cock hen If cock + hen + chick = 100 Then s = s + 1 End If hen = hen + 1 Loop cock = cock + 1LoopPrint sEnd Sub程序改錯(cuò)與填空(二級(jí))程序功能:求100200之間的所有素?cái)?shù)個(gè)數(shù),程序中有兩行有錯(cuò)誤。程序中有兩處錯(cuò)誤,改正錯(cuò)誤,使它能輸出正確的結(jié)果。編寫(xiě)程序,求一正整數(shù)等差數(shù)列的前六項(xiàng)的平方和,該數(shù)列的前四項(xiàng)之和是2之積是880。編程(二級(jí))求S=1/2+2/3+3/5+5/8+……的前30項(xiàng)的和(注:該級(jí)數(shù)從第二項(xiàng)開(kāi)始,其分子是前一項(xiàng)的分母,其分母是前一項(xiàng)的分子與分母的和)。