1.     编程在窗体上输出101~500之间的所有能被3或者7整除的奇数，按照一行5个的方式输出并最后符合要求的数的和。
解：代码为
Private Sub form_load()
Show
Dim n, sum As Integer
Print Spc(6); "101~500之间的所有能被3或者7整除的奇数,及各数的和"
i = 0
sum = 0
For n = 101 To 500 Step 2
If n Mod 3 = 0 Or n Mod 7 = 0 Then
   sum = sum + n
   i = i + 1
   Print Spc(6); n;
   If i Mod 5 = 0 Then
   Print
   End If
End If
Next n
Print Spc(7); "sum="; sum
End Sub
2.     在4个TextBox中输入4个大小不同的数，将它们从大到小排序后的结果用Msgbox函数输出。
解： 代码为
Private Sub Command1_Click()
Dim a!, b!, c!, d!
   a = Val(Text1.Text)
   b = Val(Text2.Text)
   c = Val(Text3.Text)
   d = Val(Text4.Text)
If a <> b And b <> c And c <> d And a <> c And a <> d And b <> d Then
    If a < b Then
      t = a: a = b: b = t
    End If
       If a < c Then
          t = a: a = c: c = t
       End If
            If b < c Then
              t = b: b = c: c = t
            End If
              If d > a Then
               t = d: d = a: a = t
              End If
                If d > b Then
                 t = d: d = b: b = t
                End If
                  If d > c Then
                   t = d: d = c: c = t
                  End If
                    MsgBox "从大到小排序：" & a & "," & b & "," & c & "," & d
                    Else
                    MsgBox "有相同的数"
                    End If


For m = 10 To 32
     a = x \ 100
     b = (x - (a * 100)) \ 10
     c = x - (a * 100) - (b * 10)
     If a = b Or b = c Or c = a Then
      If x = m * m Then
         Print Spc(5); x;
         i = i + 1
         If i Mod 5 = 0 Then
         Print
         End If
      End If
     End If
Next m
Next x
End Sub
11.求这样一个四位数并输出该数字，该四位数等于其每位数字的阶乘之和。即：
abcd = a! + b! + c! + d!，将结果用Msgbox函数输出。
解： 代码为
Private Sub Command1_Click()
Dim i As Integer, a(1 To 4) As Integer, j As Integer
j = 0
For i = 1000 To 9999
     a(1) = i Mod 10
     a(2) = ((i - a(1)) / 10) Mod 10
     a(3) = ((i - i Mod 100) / 100) Mod 10
     a(4) = ((i - i Mod 1000) / 1000) Mod 10
     If (i = fact(a(1)) + fact(a(2)) + fact(a(3)) + fact(a(4))) Then
         MsgBox ("其中一个四位数为：" & i)
         j = j + 1
     End If
Next
If   j = 0   Then   MsgBox ("无结果")
End   Sub
Private Function fact(n As Integer) As Long
Dim i As Integer
f = 1
For i = 1 To n
     f = f * i
Next
fact = f
End Function
12.输出所有大于1010的4位偶数，且该类偶数的各位数字两两不相同，在窗体上按照一行5个的格式输出。
解：代码为
Private Sub form_load()
Show
Dim a, b, c, d As Integer
Print Tab(20); "所有的四位数："
i = 0
For x = 1010 To 9999 Step 2
     a = x \ 1000
     b = (x - (a * 1000)) \ 100
     c = (x - (a * 1000) - (b * 100)) \ 10
     d = x - (a * 1000) - (b * 100) - (c * 10)
     If a <> b And b <> c And c <> a And a <> d And b <> d And c <> d Then
         Print Spc(5); x;
         i = i + 1
         If i Mod 5 = 0 Then
         Print
         End If
     End If
Next
End Sub
13.求1-2!
+3
!-4!...序列，当最后的结果超过2000000停止计算，将该序列的最结果用Msgbox函数输出。
解： 代码为
Private Function m(n As Double) As Double
Dim i As Double
f = 1
For i = 1 To n
f = f * i
Next
m = f
End Function
Private Sub Command1_Click()
Dim i As Integer, b As Double, j As Double


                 MsgBox ("合格，符合征兵条件")
             Else
                 MsgBox ("不合格，不符合征兵条件")
             End If
         Else
              MsgBox ("不合格，不符合征兵条件")
         End If
     Case "女"
         If (k >= 16 And k <= 18) Then
             If (j > 160) Then
                 MsgBox ("合格，符合征兵条件")
             Else
                 MsgBox ("不合格，不符合征兵条件")
             End If
         Else
              MsgBox ("不合格，不符合征兵条件")
         End If
     Case Else
         MsgBox ("输入错误！")
End Select
End Sub
Private Sub Command2_Click()
End
End Sub
20.求出1到1000之内能被5或13整除、但不能同时被5和13整除的所有整数，在窗体上按照一行5个的格式输出。
解：代码为
Private Sub Form_Load()
Show
Dim n As Integer
Print Spc(10); "1到1000之间能被5或13整除,但不能5和13同时整除的所有整数:"
i = 0
For n = 1 To 1000
    If n Mod 5 = 0 Or n Mod 13 = 0 Then
        If n Mod 65 <> 0 Then
        i = i + 1
        Print Spc(6); Format(n, "!@@@@");
        If i Mod 5 = 0 Then
         Print
        End If
        End If
     End If
Next
End Sub


lz
你发错吧了……