神马品牌网msds办理要多久:VB代码算法!
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 05:56:18
1)Private Sub Command1_Click()
Dim Sum As Integer
Dim I As Integer
I=1
So While I<=10
Sum=Sum+I
I=I+1
Loop
Text1.Text=Sum
End Sub
此句So While I<=10中 I是小于10或等于10吗?怎么判断等于10是否成立?
2)Private Sub Command1_Click()
Dim Sum As Integer
Dim I As Integer
I=1
Do
Sum=Sum+I
I=I+1
Loop While I<=10
Text1.Text=Sum
End Sub
3)Private Sub Command1_Click()
Dim Sum As Integer
Dim I As Integer
I=1
Do
Sum=Sum+I
I=I+1
Loop Until I>10
Text1.Text=Sum
End Sub
本人是菜鸟一个,只是为了应付7月的VB考试,要临时补学这些算法,以前没认真学,现在临急抱佛教,而且本人理解能力又差,所以这些基本的算法都不能够独自理解,请各位高手见谅,帮帮忙!!!!
求求各位大虾了!
特此声明:
我要的是自己动手计算的方法,因为考试的时候是不能上机操作的,所以要自己动手算,请大家留下大概怎么算的方法.谢谢!
Dim Sum As Integer
Dim I As Integer
I=1
So While I<=10
Sum=Sum+I
I=I+1
Loop
Text1.Text=Sum
End Sub
此句So While I<=10中 I是小于10或等于10吗?怎么判断等于10是否成立?
2)Private Sub Command1_Click()
Dim Sum As Integer
Dim I As Integer
I=1
Do
Sum=Sum+I
I=I+1
Loop While I<=10
Text1.Text=Sum
End Sub
3)Private Sub Command1_Click()
Dim Sum As Integer
Dim I As Integer
I=1
Do
Sum=Sum+I
I=I+1
Loop Until I>10
Text1.Text=Sum
End Sub
本人是菜鸟一个,只是为了应付7月的VB考试,要临时补学这些算法,以前没认真学,现在临急抱佛教,而且本人理解能力又差,所以这些基本的算法都不能够独自理解,请各位高手见谅,帮帮忙!!!!
求求各位大虾了!
特此声明:
我要的是自己动手计算的方法,因为考试的时候是不能上机操作的,所以要自己动手算,请大家留下大概怎么算的方法.谢谢!
Private Sub Command1_Click()
Dim Sum As Integer
Dim I As Integer
I=1
Do While I<=10
Sum=Sum+I
I=I+1
Loop
Text1.Text=Sum
End Sub
是 do while I<=10 .....loop 你用错了一个关键字
实际上，这个循环一直到 I > 10 之后才退出，另外没明白你的判断I=10是否成立，如果要判断加个判断语句不就可以了
if i=10 then ....
这三种算法都是一个条件循环，
一个是 do while [条件].....loop
一个是 do .....loop while [条件]
一个是 do .....loop until [条件]
至于他们有什么不一样，你可以装份VB,然后把它们考到你的代码里面逐步运行看看
再有问题加QQ问我 3855555
So While I<=10中 I是小于10或等于10吗?
这句话的意思是,当I<=10有时候就继续住下运行的意思,
I是等于I+1的,每运行一次,I就会加1,当运行到I>10的时候它就会跳到3)这个地方这是第1)个和第3)个区别