【正确答案】正确答案:【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“'”,将问号改为正确的内容。 参考答案 Private Sub Command1.C1ick() Text4="" a=Val(Text1) b=Val(Text2) n=Val(Text3) Text4=Text4&a&""&b '文本框Text4中第二项的内容一定是b k=2 Do While k<n c=a*b k=k+1 If C<10 Then'判断乘积是否小于10 Text4=Text4&""&C'若小于10.则直接接到Text4文本末尾 a=b'将b赋给a成为下二次循环的前一项 b=c'将c作为下一次循环的后一项 Else d=C\10'当C大于10,则取整 Text4=Text4&""&d a=d'将十位数作为下一次循环的前一项 k=k+1 If k<=n Then '当k>n时,则数列数已够,不用求下一项 d=c Mod 10 Text4=Text4&""&d b=d将余数作为下一次循环的后一项 End If End If Loop End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
【答案解析】