当前位置：新励学网 > 秒知问答 > vb怎么设置n为输入值

vb怎么设置n为输入值

发表时间：2024-07-30 13:49:23 来源：网友投稿

分析：由于我们不知道输入的这个整数是几位数，所以要先判断整数的位数，然后用循环找出每个位数具体的数值，最后加起来。

先建立2个文本框Text1、Text2，1个按钮Command1。操作：在Text1中输入一个整数，再单击按钮，则结果显示在Text2。下面是Command1的代码：Private Sub Command1_Click()Dim i,x,y,a() as integer //i用来做循环，x用来保存整数位数，y用来保存求和结果，a() 数组用来保存每个位数数值。Text2.text="" //程序开始时，先清空Text2。x=len(Text1.text) //先判断输入的整数的位数。for i=1 to x a(i)=val(mid(Text1.text,i,1)) //用读取字符串函数把各位数找出来，并转化成数字放到数组a(i) 中。y=y+a(i) //把各位数加起来。next iText2.text=y //把求和结果显示在Text2中。End Sub有什么问题可以追问。

免责声明：本站发布的教育资讯（图片、视频和文字）以本站原创、转载和分享为主，文章观点不代表本网站立场。

如果本文侵犯了您的权益，请联系底部站长邮箱进行举报反馈，一经查实，我们将在第一时间处理，感谢您对本站的关注！