计算机vb程序题.docVIP

程序题 窗体顶端 序号 题目 程序 答案 1 程序功能：求s=1+3+5+7+...直到s2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_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 2025 2 程序功能：求s=1+3+5+7+...直到s3000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 i = 1 Do Until s 3000 s = s + i i = i + 1 Loop Print s End Sub 3025 3 程序功能：计算s=2!+4!+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 = 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 40346 4 程序功能：计算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 = 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 41066 5 程序功能：求200到400间，能被３整除但不能被７整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim count As Integer Dim x As Integer count = 0 x = 200 While x = 400 If x Mod 3 = 0 Or x Mod 7 0 Then count = count + 1 End If x = x + 1 Loop Print count End Sub 57 6 程序功能：求200到500间，能被13整除但不能被17整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim count As Integer Dim x As Integer count = 0 x = 200 While x = 500 If x Mod 13 = 0 Or x Mod 17 0 Then count = count + 1 End If x = x + 1 Loop Print count End Sub 21 7 程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Form_Click() Dim count As Integer Dim x As Integer For x = 1 To 400 if mod(x,3)=0 and mod(x,7)=0 then count = count + 1 end if Next count print count End Sub 19 8 程序功能：求1到500间，同时能被5和9整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim count As Integer Dim x As Integer For x = 1 To 500 if mod(x,5)=0 and mod(x,9)=0 then count = count + 1 end if Next count print count End Sub 11 9 程序功能：求能被3整除且至少有一位数字为5的三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click()