杭州交通信息网济南 一次性餐具厂家:急学VB代码的算法
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 19:47:29
private sub command1_click()
Dim Sum As Integer
Sum=0
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=sum
End sub
这学期要补考VB,我以前学的全忘了,现在还剩一个月而已,我只想学好考试上的代码算法和其他考试上的知识,以上是我从书本上选的很简单的一个循环语句,上机操作是很简单的,但要是考试时是不可以上机的,那要怎么算啊?请高手教教我......
求求大家了!!!!!!!!!!!!!!!很惭愧地说本人因数学没学好,逻辑思维比较迟钝,现在连很简单的数学题都不会了,所以VB的这些算法真的难到我了.!
Dim Sum As Integer
Sum=0
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=sum
End sub
这学期要补考VB,我以前学的全忘了,现在还剩一个月而已,我只想学好考试上的代码算法和其他考试上的知识,以上是我从书本上选的很简单的一个循环语句,上机操作是很简单的,但要是考试时是不可以上机的,那要怎么算啊?请高手教教我......
求求大家了!!!!!!!!!!!!!!!很惭愧地说本人因数学没学好,逻辑思维比较迟钝,现在连很简单的数学题都不会了,所以VB的这些算法真的难到我了.!
private sub command1_click() //Command1控件的click单机事件
Dim Sum As Integer //定义Sum为Integer变量
Sum=0 //让Sum=0
For i=1 To 10 //for 循环让 i 从 1 到 10 步+ 1
Sum=Sum+i //Sum=Sum+i 累加
Next i //下一个 i 跳到 for上
Text1.Text=sum //在text1控件上显示累加和
End sub //函数体结束
很简单的呀!
循环10次,从0开始!
1. sum = 0+1
2. sum = 1+2
3. sum = 3+3 以此类推!! 呵呵,我也只懂一点VB..
没事大家交流下.
QQ 549395041