FLY的狐狸

　　【例】单击某命令按钮输出3～100之间的所有奇数、奇数之和。将奇数显示于带垂直滚动条的文本框中，奇数之和显示于另一个文本框中。

　　分析：带垂直滚动条的文本框Text1的属性设置如下

　　MultiLine: True
　　ScrollBars: 2-Vertical

　　程序运行效果如下图所示：

程序源码：

Option Explicit
Private Sub Command1_Click()
   Dim I As Integer, Sum As Integer
   Sum = 0
   For I = 3 To 100 Step 2
      Text1.Text = Text1.Text & Str(I) & Chr(13) & Chr(10)
      Sum = Sum + I
   Next I
   Text2.Text = Sum
End Sub