楼上的代码里面num应该在click事件外定义，否则每次单击时num的值都会重新定义
专注于为中小企业提供网站设计制作、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业霍邱免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
int sum = 0;//和
for (int i = 1; i = 100; )//i从1开始循环，每次循环累加2，正好是奇数
{
sum = sum + i;
i = i + 2;
}
Console.WriteLine("1到100奇数和为："+sum);
Console.ReadLine(); 这是C#的代码，仅供参考
1、首先开始编写代码，定义变量，如下图所示。
2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。
3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。
4、最后将剩下的代码补齐，编写完整的代码如下图所示。
5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。
常用不常用，要看每个人的编程方向和使用习惯的！一般字符串函数和类型转换函数都是要用的
Module Module1
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
这是我刚刚试验过的 绝对可行
Imports System.Data.SqlClient
Public Class Form1
Private DataTable1 As New DataTable '设成全局变量
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Sql1 As New SqlConnection
Dim CB As New SqlConnectionStringBuilder
CB.DataSource = "MICROSOF-91C849\SQLEXPRESS" '数据库服务器名称
CB.InitialCatalog = "test" '数据库名称
CB.UserID = "ww"
CB.Password = "123456"
Sql1.ConnectionString = CB.ConnectionString
Sql1.Open()
Dim Adp1 As New SqlDataAdapter("Select * From FileTemp Where Name = '1'", Sql1) '第一个查询语句
Adp1.Fill(DataTable1)
Me.DataGridView1.DataSource = DataTable1
Sql1.Close()
Sql1.Dispose()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Sql1 As New SqlConnection
Dim CB As New SqlConnectionStringBuilder
CB.DataSource = "MICROSOF-91C849\SQLEXPRESS"
CB.InitialCatalog = "test"
CB.UserID = "ww"
CB.Password = "123456"
Sql1.ConnectionString = CB.ConnectionString
Sql1.Open()
Dim Adp1 As New SqlDataAdapter("Select * From FileTemp Where Name = '2'", Sql1) '第二个查询语句
Adp1.Fill(DataTable1)
Me.DataGridView1.DataSource = DataTable1
End Sub
End Class
