通过下列程序，若输入a=333，k=5，这输出的b为多少 INPUT "a,k=" ; a.k b=0 i=0 DO q=a/k r=aMODk

通过下列程序，若输入a=333，k=5，这输出的b为多少 INPUT "a,k=" ; a.k b=0 i=0 DO q=a/k r=aMODk

Private Sub Command1_Click()
Dim n As Integer, i As Integer

n = InputBox("输入正整数：", , 0)

If n > 0 Then
Text1.Text = Empty
For i = 1 To n - 1
If n Mod i = 0 Then
Text1.Text = Text1.Text & i & ","
End If
Next
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

分析程序的功能是 进行5进制的转换。
【结果为 】： 2113
还有，你的代码段应该是下面的。别太乱了
INPUT "a,k=" ; a.k
b=0 i=0
DO
q=a/k
r=a MOD k
b=b+r*10^i
i=i+1
a=q
LOOP UNTIL q=0
PRINT b
END

1

选b.采用除5取余法，数学必修四人教A版43页到45页有详细解答
此题可等价于：把333化为五进制的数