《VB01累加累乘算法微练习公开课教案教学设计资料.docx》由会员分享，可在线阅读，更多相关《VB01累加累乘算法微练习公开课教案教学设计资料.docx（1页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VB01累加累乘算法微练习(1) 计算 1*2+2*3+3*4+9*10的值。Private Sub Commandl_Click()s = 0For i = 1 To 9s = s + i * (i + 1)Next iLabel2. caption = sEnd SubPrivate Sub Command2_Click()EndEnd Sub（2） 求N!=l*2*3*N, N值由键盘输入（N应在5-10之间，否则输出“N值不符合要 求”）。Private Sub Commandl_Click()n = val(lnputBox(n=)If n= 5 and n = 10 Thens =
2、 lFor i = 1 To ns = s * iNext iPrint 1*2*3*n ; =;sElsePrint N值不符合要求”End ifEnd SubPrivate Sub Command2_Click()EndEnd Sub（3） 本金1万元，年利率7.5%,利滚利（即每年结息后，将利息转成本金继续存入） 几年后本利可达到2万元？ 1年的本利值=本利金+本利金义年利率Private Sub Commandl_Click() s = lDo while s2d = d + 1s = s + s * 0.075LoopLabel 1. capt ion = dEnd SubPrivate Sub Command2_Click()EndEnd Sub