滚动轴承+工程塑料保持架+技术条件.docx

程序题
窗体顶端
序号
题目
程序
答案
1
程序功能:求s=1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误,使它能输出正确的结果。
Private mand1_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+...直到s>3000为止。程序中有两行有错误。改正错误,使它能输出正确的结果。
Private mand1_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 mand1_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 mand1_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间,能被3整除但不能被7整除的数的个数。程序中有两行有错误。改正错误,使它能输出正确的结果。
Private mand1_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 mand1_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 mand1_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 mand1_Click() Dim count