中科新闻网本田全地形踏板摩托车:vb的问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 08:28:06
求a！要求：窗体中的文本框text1存放a的值，单击command1后，text2中显示a值
Private Sub Form_Click()
Dim a%, i%, s%
a = text1.Text
s= ............
for i=1 to .........
s=s*........
Next i
print ........
End Sub
请告诉我。。。。。。。。中的
Private Sub Form_Click()
Dim a%, i%, s%
a = text1.Text
s= ............
for i=1 to .........
s=s*........
Next i
print ........
End Sub
请告诉我。。。。。。。。中的
s=1
for i = 1 to Val(a)
s = s*i
最后那句print...有点其妙，事实上VB中这句是无效的，但如果要填就填print s
补充一句text2.Text = Str(s)
求a！要求：窗体中的文本框text1存放a的值，单击command1后，text2中显示a值
Private Sub Form_Click()
Dim a%, i%, s%
a = Text1.Text
s = 1
For i = 1 To a
s = s * i
Next i
Print s
End Sub