Module Module1
创新互联主营北安网站建设的网络公司,主营网站建设方案,成都app软件开发,北安h5成都小程序开发搭建,北安网站营销推广欢迎北安等地区企业咨询
Sub Main()
Console.WriteLine(DateTimeAdd("01:23:45"))
Console.ReadLine()
End Sub
''' summary
''' 获取时间的累加值
''' /summary
''' param name="sDatetime"/param
''' returns/returns
''' remarks/remarks
Private Function DateTimeAdd(ByVal sDatetime As String) As DateTime
Dim sysTime As DateTime = DateTime.Now
Return sysTime.Add(TimeSpan.Parse(sDatetime))
End Function
End Module
楼上的代码里面num应该在click事件外定义，否则每次单击时num的值都会重新定义
软糖来回答吧，VB.net用循环是这样的
Dim k = New Integer(9) {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim 和 As Integer
For i = 0 To k.Count - 1
和 += k(i)
Next
计算数组中各元素之和更简单的方法是
使用扩展方法Sum或者Lambda表达式，以下两种均可
Dim 和1 = k.Sum()
Dim 和2 = k.Aggregate(Function(m, n) m + n)
用循环啊
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim count As Integer = Me.DataGridView1.Rows.Count
Dim sum As Double = 0
For i = 0 To count - 1
sum += Val(Me.DataGridView1.Item("Amount", i).Value)
Next
MsgBox("和是:" sum)
End Sub
