今天学习了刘金玉老师VB编程教程的第22期和23期，学习的主要内容是数值分解算法技巧和list控件的运用。
一、数学计算在编程中的符号引入
1.\向下取整，相当于int函数，取整到个位数；\10表示取整到十位数；\100表示取整到百位数；\1000表示取整到千位数，以此类推。
2./数学中的除以，结果会产生小数
3.Mod取余，在做除法时候，获取最后的余数部分
例：11 mod 10的结果就是1
例：2 mod 3的结果就是2
4.数值567的个位数、十位数、百位数分别是多少
求百位数的数字=567\100=5
求十位数的数字=(567-5*100)\10=6
求个位数的数字=(567-5*100-6*10)=7
使用mod求个位数=567mod（5*100 6*10)=7
二、list控件的运用
1.三个关键函数
additem添加一项数据
Removeitem移除一项数据
list（索引号）获取其中一项从0开始
Listidex获取当前选中项索引号
Listcount获取list控件有几项内容
2.补充知识
msgbox信息提示函数，用来提醒我们当前指定的信息。表达为msgbox"字符串"
3.求list控件内的最值逻辑：
①默认声明最大值、最小值，都假设为第一项。
②循环遍历数组。
③判断遍历到的当前项是否大于或小于默认的最值，如果是，那就说明当前项为需要找的最值，一直继续下一次的遍历，继续判断是否是最大值，直到遍历完成，找到需要的最值。
④把找到的最值输出。
4.案例：输入一组数据（334,11,39,74,3,5,8,111，55），找出最大值和最小值
（1）准备事项：新建一个frame控件，一个list控件，5个label控件，4个command控件，如图分布并设置格式。
（2）输入代码：
Private Sub Command1_Click()
List1.AddItem (Text1.Text)
End Sub
Private Sub Command2_Click()
List1.RemoveItem (List1.ListIndex)
End Sub
Private Sub Command3_Click()
MsgBox List1.ListIndex
End Sub
Private Sub Command4_Click()
Dim i As Integer
Dim max As Integer
Dim min As Integer
max = Val(List1.List(0))
min = Val(List1.List(0))
For i = 0 To List1.ListCount - 1 Step 1
If Val(List1.List(i)) > max Then max = Val(List1.List(i))
If Val(List1.List(i)) < min Then min = Val(List1.List(i))
Next i
Label4.Caption = max
Label5.Caption = min
End Sub
（3）生成exe程序，打开生成的程序，逐个输入我们的案例数据，点击求最值，我们可以看到结果。
,
