VB语言,数学因数计算器,求大神帮忙翻译一下

PrivateSubCommand1_Click()DimTAsInteger,T1AsString,T2AsIntegerT=Val(Text1)T1=T&"的因数是:... Private Sub Command1_Click()
Dim T As Integer, T1 As String, T2 As Integer
T = Val(Text1)
T1 = T & "的因数是:"
For I = 1 To T - 1 & T
If T Mod I = 0 Then T1 = T1 & I & ",": T2 = T2 + I
Next
If Right$(T1, 1) = "," Then T1 = Left(T1, Len(T1) - 1)
Label1.Caption = T1
End Sub

谢谢了,明天要用,感谢帮忙

PS:这是个数学因数计算器,请告诉我各条代码是什么意思
展开
 我来答
岔路程序缘

推荐于2016-05-13 · TA获得超过8.9万个赞
知道大有可为答主
回答量:9918
采纳率:93%
帮助的人:3409万
展开全部
Private Sub Command1_Click()'单击command1命令按钮后执行下面的程序
Dim T As Integer, T1 As String, T2 As Integer‘声明T、T2都是整形数变量,T1是字符串变量
T = Val(Text1)’把text1中的数字内容赋值给变量T1
T1 = T & "的因数是:"‘T1的内容为”###的因数是:“
For I = 1 To T - 1 & T’循环入口,循环变量为I,起点1,终点T-1,步长默认为1。——此句末尾的"&T"貌似多余,应该删掉。
If T Mod I = 0 Then T1 = T1 & I & ",": T2 = T2 + I‘此句实为两句,以冒号”:“为分界,前为一句,后为一句。前一句为:如果T能够被I整除,则I为T的一个因数,则I写入T1的内容中,T1的全部内容为”###的因数是:|## ,|##,“这种形式。后一句为,T2变量加上1,实际上T2记录了因数的个数。
Next’循环至此后返回前面的For那一句执行。
If Right$(T1, 1) = "," Then T1 = Left(T1, Len(T1) - 1)'查找结束后,判断T1最后一个字符是不是一个逗号”,“,如果是,则去掉。
Label1.Caption = T1‘把T1的内容在label1中显示出来。
End Sub’程序结束语句。

解释完毕,如有不清之处,再留言 。
追问
有个问题就是第二句话:Dim T As Integer, T1 As String, T2 As Integer‘声明T、T2都是整形数变量,T1是字符串变量。整形数变量懂了就是整数,字符串变量时什么意思能通俗点解释下吗
追答
字符串变量说白了就是”文字“

如数字变量A=3,B=2,那么执行C=A+B报C就等于3+2=5,即C=5,我们可以打印出他们:
print a:b:c,结果是打印出:2 2 5
如字符串变量T1=”我们是“,T2=”20“,T3=”00“,T4=”年的孩子“,我们可以让T=T1+T2+T3+T4,最后的结果是:T=”我们是2000年孩子“。后面需要打印这几个字时,我们可以用:print T,结果是打印出:我们是2000年孩子。
这种变量不能像数字变量那样能够做+-*/运算,字符串只能相加,就是把字符前后连在一起。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
159*****691
2014-09-02
知道答主
回答量:1
采纳率:0%
帮助的人:1327
展开全部
截教
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式