怎么写vb代码
1个回答
展开全部
Private Sub Command1_Click()
Dim n As Integer
n = Text1
y = 1
Text2 = "0!=1" & vbCrLf
For i = 1 To n
y = y * i
Text2 = Text2 & i & "!=" & y & vbCrLf
Next i
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Command1.Caption = "计算"
Label1.Caption = "输入一个正整数："
End Sub
追问
运行之后没有换行所有式子都在一行
追答
.......程序没错啊，有运行截图为证啊。
看来是没上课并且没看书哪。
这需要在Text控件的属性框中设置MultyLine属性为True才可以的。
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
