VB01累加累乘算法微练习公开课教案教学设计资料

VB01累加累乘算法微练习(1) 计算 1*2+2*3+3*4++9*10的值。Private Sub Commandl_Click()s = 0For i = 1 To 9s = s + i * (

VB01 累加累 乘算法微练 计算 习(1) 1*2+2*3+3*4 的值。 ++9*10 PrivateSubCommandl_Click() s=0 Fori=1To9 s=s+i*(i+1) NextiLabel2.caption=s EndSubPrivateSubCommand2_Click() EndEndSub （2） N!=l*2*3*…*N,NN 求值由键盘输入 （ 5---10“N 应在之间，否则输出值不符合 要求”）。 PrivateSubCommandl_Click() n=val(lnputBox("n=")) Ifn>=5andn<=10Then s=l Fori=1Ton s=s*i Nexti Print"1*2*3*……n;"=";s Else Print"N 值不符合要求” EndifEndSub PrivateSubCommand2_Click() EndEndSub （3） 17.5%, 本金万元，年利率利滚 利（即每年结息后，将利息转成本金继 21 续存入）几年后本利可达到万元？ 年的本利值=本利金+本利金义年利率 PrivateSubCommandl_Click()s=l Dowhiles<2 d=d+1 s=s+s*0.075 Loop Label1.caption=dEndSub PrivateSubCommand2_Click() EndEndSub