VB程序

Question

我是菜鸟，下面是我要考的程序题，希望朋友们给个正确的答案，谢谢了
   求出100-999之间的降序数，将程序结果以一行五个的方式显示在图片框中；程序写在命令按钮控件的click事件中

Answer 1

'请增加一个按扭 Command1 一个图片框 Picture1
Option ExplicitPrivate Sub Command1_Click()
  Dim i As Long
  Dim j As Long
  Dim m As Long
  Dim Count As Long
  Count = 1
  Picture1.AutoRedraw = True
  For i = 9 To 2 Step -1
     For j = i - 1 To 1 Step -1
       For m = j - 1 To 0 Step -1
           If Count > 4 Then
             Picture1.Print i * 100 + j * 10 + m
             Count = 1
           Else
             Picture1.Print i * 100 + j * 10 + m;
             Count = Count + 1
           End If
       Next
     Next
  NextEnd Sub