Dim n As Integer: Dim b As Integer: Dim c As Integer Private Sub cmdCal_Click() n = txtA.Text b = n * 5 + (n * (n - 1)) / 2 * 2 c = b * 2 Text2.Text = b Text3.Text = c Text1.Text = b / 365 End Sub Private Sub Command1_Click() End End Sub 很多年很多年前写的，纪
由于时间关系，此次上传的滚动条有点BUG，大半年前写的，但是在使用正确的情况下是不会有问题的，列表控件是准备在windown mobile 6.5上用的，因为mobile上提供的.net类库里的方法、事件等等都非常有限，所以此次的实现主要是根据mobile的环境而写的，针对于PC上的实现，肯定还是有很大的优化空间的，有什么见意，希望大伙多多评论。
