vb for循环 折纸：要求点一下出来折叠十次的厚度
答案:1 悬赏:0
解决时间 2021-03-21 10:33
- 提问者网友：动次大次蹦擦擦
- 2021-03-21 00:33
vb for循环 折纸：要求点一下出来折叠十次的厚度
最佳答案
- 二级知识专家网友：神也偏爱
- 2021-03-21 00:41
Private Sub Command2_Click()
i = Val(Text1.Text)
For n = 1 To 10
i = i * 2
Next
Print i
End Sub
如果不要求用循环来计算就更简单：
Private Sub Command2_Click()
i = Val(Text1.Text)
Print i * 2 ^ 10
End Sub
追问：要设n为什么 intege吗
我想要在list里出现结果要怎么写
追答：VB中的变量不声明也可以使用，当然最好还是声明一下：
Private Sub Command2_Click()
Dim i As Double, n As Integer
i = Val(Text1.Text)
For n = 1 To 10
i = i * 2
Next
List1.AddItem i
End Sub
追问：谢谢 以后vb方面希望多多指教
i = Val(Text1.Text)
For n = 1 To 10
i = i * 2
Next
Print i
End Sub
如果不要求用循环来计算就更简单：
Private Sub Command2_Click()
i = Val(Text1.Text)
Print i * 2 ^ 10
End Sub
追问：要设n为什么 intege吗
我想要在list里出现结果要怎么写
追答：VB中的变量不声明也可以使用，当然最好还是声明一下：
Private Sub Command2_Click()
Dim i As Double, n As Integer
i = Val(Text1.Text)
For n = 1 To 10
i = i * 2
Next
List1.AddItem i
End Sub
追问：谢谢 以后vb方面希望多多指教
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯