产生随机数：
循环之前，先确定随机数的个数n，第1空填n=Int(Rnd*3)+8
循环判断哪个单选按钮被选中了，判断出选中的是第i个单选按钮之后，循环n次，产生n个随机数，范围是0~Val(Option1(i).Caption)-1，第2空填Int(Rnd*Val(Option1(i).Caption))
每产生一个数，判断是否为超过10的数字，如果是则转换成字母（其实可以无脑用Hex函数转换而无需判断数字大小，但这个题显然不想出得这么简单），第3空填List1.AddItem Chr(num+55)
排序：
简单的选择排序
外层循环List1.ListCount-1次，从0循环到List1.ListCount-2即可，即第4行改为For i=0 To List1.ListCount-2，但是不改也没有错（不信你可以试试）
内层循环找到剩余未排序的数字中的最小值的位置min，先假设第i个数就是最小的，然后从第i+1个数循环到最后，如果第j个数小于第min个数，则令min=j，第5行改为If List1.List(j)<List1.List(min) Then min=j；找到最小值之后，如果它不在第i个数的位置，则交换第i个数与第min个数