Private Sub Command1_Click() Dim a(4) As Integer x = Text1.Text For i = 1 To 4 a(i) = Mid(x, i, 1) Next For i = 1 To 4 Print a(i); Next End Sub
创建一个数组 n() 先用 Len() 获取长度 再用 For Next循环语句 + Left(n(i),1)函数读出各数位 最后加和 大概就是这样 很长时间不用VB 有些函数记不清了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024