题目

下列VB程序的功能是：程序运行时，在文本框Text1中输入正整数n，单击“计算”按钮Command1后，计算n中各位数之和，并在文本框Text2中输出结果，例如：2012的各位数之和是2+0+1+2=5，则在Text2中输出5。程序运行界面如图所示。请在画线处填入合适的代码。 Private Sub Command1_Click（）   Dim i As Integer，sum As Integer   Dim r As Integer   Dim n As Long   n=Val（Text1.Text）：sum=0   Do While n>0        ①        sum=sum+r        ②         ③      Text2.Text=Str（sum） End Sub 画线处应填入的代码为：①；②；③。 答案：【1】r=n Mod 10【2】n=n\10【3】Loop

查看本题答案和解析