《VB操作题集》.doc

（1-2+3-4+-n的值） Private Sub Command1_Click() Dim n As Integer, t As Integer n = Val(Text1.Text) s = 0 t = -1 For i = 1 To n t = -t s = s + i * t Next i Text2.Text = s End Sub （10！） Private Sub Command1_Click() Dim i As Integer Dim s As Single s = 1 For i = 1 To 10 Step 1 s = s * i Next i Print 10!为:; s End Sub （求2/3+4/5+6/7+8/9的值） Private Sub Command1_Click() 注释：以下为求2/3+4/5+6/7+8/9的值的代码，请不要删除1和2以外的任何代码 Dim s As Single Dim i As Integer 注释：删除1，在1处写上正确的代码 s = 0 注释：删除2，在2处写上正确的代码 For i = 1 To 9 Step 2 s = s + (i - 1) / i Next i Print s=; s End Sub （求1到1000之间能被6整除的个数） Private Sub Command1_Click() 注释：以下为求1到1000之间能被6整除的个数的代码，请不要删除1和2以外的任何代码 Dim s As Integer Dim i As Integer 注释：删除1，在1处写上正确的代码 s = 0 For i = 6 To 1000 Step 6 注释：删除2，在2处写上正确的代码 s = s + 1 Next i Print s=; s End Sub （求1+4+7+……+40的值） Private Sub Command1_Click() 注释：以下为求1+4+7+……+40的值的代码，请不要删除1和2以外的任何代码 Dim s As Integer Dim i As Integer s = 0 注释：删除1，在1处写上正确的代码 For i = 1 To 40 Step 3 注释：删除2，在2处写上正确的代码 s = s + i Next i Print s=; s End Sub （483） Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a ^ 2 Mod b = 0 Then Text3.Text = 能 Else Text3.Text = 不能 End If End Sub （485） Private Sub Command1_Click() Dim a, b As Integer a = Text1.Text b = Text2.Text If (a - b) Mod 4 = 0 Then Text3.Text = 能 Else Text3.Text = 不能 End If End Sub （486） Private Sub Command1_Click() Dim a, b As Integer a = Text1.Text b = Text2.Text If a ^ b 500 Then Text3.Text = 溢出 Else Text3.Text = a ^ b End If End Sub （）求2×6×10×14×18的值 Private Sub Command1_Click() 注释：以下为求2×6×10×14×18的值的代码，请不要删除1和2以外的任何代码 Dim s As Integer Dim i As Integer 注释：删除1，在1处写上正确的代码 s = 1 For i = 2 To 18 Step 4 注释：删除2，在2处写上正确的代码 s = s * i Next i Print s=; s End Sub （488） Private Sub Command1_Click() Dim a, b As Integer a = Text1.Text b = Text2.Text If a * b Mod 2 = 0 Then Text3.Text = 偶数 Else Text3.Text = 奇数 End If End Sub （489） P