vb怎么设置n为输入值？ – 网络|

先建立2个文本框Text1、Text2，1个按钮Command1。

操作：在Text1中输入一个整数，再单击按钮，则结果显示在Text2。下面是Command1的代码：

PrivateSubCommand1_Click()Dimi,x,y,a()asinteger//i用来做循环，x用来保存整数位数，y用来保存求和结果，a()数组用来保存每个位数数值。

Text2.text=""//程序开始时，先清空Text2。x=len(Text1.text)//先判断输入的整数的位数。

fori=1toxa(i)=val(mid(Text1.text,i,1)

)//用读取字符串函数把各位数找出来，并转化成数字放到数组a(i)中。

y=y+a(i)//把各位数加起来。

nextiText2.text=y//把求和结果显示在Text2中。EndSub有什么问题可以追问。