沈阳司令部门诊新地址:急求啊 懂VB的人进

来源:百度文库 编辑:高考问答 时间:2024/05/06 06:14:28
创建窗体,要求在文本框text1中输入一整数,单击按钮“开始”后,在text2中显示text1中整数各位相加之和 这个程序语句什么啊 谢谢啊 大哥大姐们

在开始按钮的Click事件处理程序中输入:
Dim N as Long, Sum as Long
N = abs(Val(text1.text))
Sum = 0
do while N>0
sum = sum + (N mod 10)
N = N \ 10
loop
text2.text = CStr(Sum)

简单啊,教科书上就有原例,你去查一下吧.