vb程序编写大纲

ProID

ProProblem 程序功能：求s=1+3+5+7+...直到s>2000为 止。程序中有两行有错误。改正错误，使它 能输出正确的结果。

3001 程序功能：求s=1+3+5+7+...直到s>3000为 止。程序中有两行有错误。改正错误，使它 能输出正确的结果。 3002 程序功能：计算s=2!+4!+8!。程序中有两 行有错误。改正错误，使它能输出正确的结 果。 3003 程序功能：计算s=2!+4!+6!+8!。程序中有 两行有错误。改正错误，使它能输出正确的 结果。 3004 程序功能：求200到400间，能被3整除但 不能被7整除的数的个数。程序中有两行有 错误。改正错误，使它能输出正确的结果。 3005 程序功能：求200到500间，能被13整除但 不能被17整除的数的个数。程序中有两行有 错误。改正错误，使它能输出正确的结果。 3006 程序功能：求1到400间，同时能被3和7整 除的数的个数。程序中有两行有错误。改正 错误，使它能输出正确的结果。 3007 程序功能：求1到500间，同时能被5和9整 除的数的个数。程序中有两行有错误。改正 错误，使它能输出正确的结果。 3008 程序功能：求能被3整除且至少有一位数字 为5的三位数的个数。程序中有两行有错误 。改正错误，使它能输出正确的结果。 3009 程序功能：求能被7整除且至少有一位数字 为9的三位数的个数。程序中有两行有错误 。改正错误，使它能输出正确的结果。 3010 程序功能：求三位偶数中，个位数字与十 位数字之和除以10所得的余数是百位数字的 数的个数。程序中有两行有错误。改正错 误，使它能输出正确的结果。 程序功能：求三位奇数中，个位数字与十 位数字之和除以10所得的余数是百位数字的 数的个数。程序中有两行有错误。改正错 误，使它能输出正确的结果。

3011

3012

ProSource Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 i = 1 Do Until s < 2000 Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 i = 1 Do Until s < 3000 Private Sub Command1_Click() Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 i = 1 Private Sub Command1_Click() Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 i = 1 Private Sub Command1_Click() Dim count As Integer Dim x As Integer count = 0 x = 200 Private Sub Command1_Click() Dim count As Integer Dim x As Integer count = 0 x = 200 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 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 Private Sub Command1_Click() Dim count As Integer Dim a As Integer, b As Integer, As Integer Dim x As Integer Private Sub Command1_Click() Dim count As Integer Dim a As Integer, b As Integer, As Integer Dim x As Integer Private Sub Command1_Click() Dim count As Integ

er Dim a As Integer, b As Integer, As Integer Dim x As Integer Private Sub Command1_Click() Dim count As Integer Dim a As Integer, b As Integer, As Integer Dim x As Integer

c

c

c

c