①某系统通过用户视频点播的基础数据如评分、播放、快进等，分析计算出用户可能喜爱的影片，并为他提供定制化的推荐
②某网站通过追踪用户在其网络的行为，识别用户在它的网络中的好友，从而给出新的好友推荐建议
③某交通流量数据公司依靠分析历史和实时路况数据，能给出及时的路况报告，以帮助司机避开正在堵车的路段，并且帮他们提前规划好行程
④某保险公司天都会对美国境内超过100万个地点、未来两年的天气情况进行超过1万次模拟，而后将根系结构和土壤孔隙度的相关数据，与模拟结果相结合，为成千上万的农民提供农作物保险
Private Sub Command1_Click()
Dim n as integer, i as integer,s as double
n=val(inputbox("请输入n的值"))
s=0:i=1
do while ①
②
i=i+1
Loop
s= ③
Print s
End Sub
① ②
