vb.net精彩编程百例 vb net

我想学习编程,但我很菜,不知道从什么学起

你好朋友，不要听8楼匿名者的一派胡言，都是从网上摘抄的，下面这篇文章是我的原创，应该对你有所帮助。

你既然喜欢编程，就应该认认真真的学习一门语言，先从VB开始，VB是比较好的入门语言，可视化的，比较简单，是非常好的入门语言。书籍最少应该准备两本，不可能一本书籍会包含VB的所有内容，在看书的时候，可以交叉的看，一本书籍中没有讲到的内容可以在另一本中看到，这样对学习是很有好处的，也能保证所学知识的完整性。学编程是一个很漫长的过程，不要着急，要理论与实践想结合，例程书籍也是很重要的，看源代码对学习也是很有帮助的，等你学完这门VB语言之后，学习别的语言是非常简单，可以尝试C语言，按照C——C++——VC的顺序学习，有助于知识的连贯性，我也希望你能学好的。

学习C语言，谭浩强的《C程序设计》是一部非常好的C语言书籍，学习程序设计是一个非常漫长的过程，不要着急，一本书多看两遍三遍，学会交叉学习法，在学习C的过程中，可以看看数据结构，编译原理，操作系统等书籍，对编成都是很有帮助的。最开始学习的时候，先不要编一些比较大的程序，多编一些小程序，比如数组运算，字符组合等等，指针是C语言的精华，是比较复杂的部分。如果有一天你能熟练驾驭指针的操作了，我相信你，你一定能学习好C语言的。

我是2001年接触编程的，刚开始只是大概了解一下，并没有进行比较深入的学习，我是从VB开始入门的，学了1年多，然后转入C语言，按照C——C++——VC的顺序学习，C学了两年，现在开始学习C++，C++的学习是很有难度的，类，标准库，多态，继承等等比较抽象难道懂的概念，虽然他秉承了C语言的风格，但是有很多很多是C语言不具备的，要多看书，上机实践也是必不可少的。《C++编程思想》，《C++标准库》，这些书都非常好，内容也很全面，例程书籍也是必不可少的，多看源代码对编程是很有帮助的，也会少走很多弯路。总之，C++的学习是一个比较漫长的过程，大概需要两年的时间，这只是底限，如果想学通，学精，还需要更多的时间。

我向你推荐一些C++经典书籍：

c++程序设计教程

c++编程思想

c++大学教程

c++程序设计语言

数据结构算法与应用c++语言描述

c++标准模板库------自修教程与参考手册

泛型编程与STL

深度探索c++对象模型

设计模式---可复用面向对象软件的基础

重构---改善既有代码的设计

Essential c++

Effective c++

More Effctive c++

C++ primer

前五本应该属于入门书籍，后面的属于学习难度比较大的，想提高C++的编程能力，看看这些书籍有好处。建议你把编程思想这本书多看看。多做练习题，对提高编程水平的帮助是很大的。

其实语言是相通的，一门语言学会了，学习其他语言就比较容易了。

业界有这样一种说法，因为JAVA这门语言包含了C++的一些特性，掌握了C++，就等于掌握了JAVA的80%，

在掌握了C++之后(我说的掌握指的是,可以熟练用C++编程序了,并没有要求你完全掌握C++的所有部分,没有人能达到这一点,因为C++太庞大了,如果能坚持不懈的学习C++两年到三年的时间了,你就可以学习其他的语言了)可以试着学习一些其他的语言,如JAVA,VC++等等比较复杂的语言.

这时候可以说你已经对程序设计语言有个大体的认识了,可以明确自己学习的方向,根据自己的学习情况而定,是学习一些自己比较感兴趣的语言啊(从兴趣出发),还是为了找工作啊,开始进行更深入的学习.比如学习windows下的框架编程和.net编程等等比较复杂的语言.

如果是为了找工作的话我建议你学好C,C++,JAVA三门语言.

在我国目前的软件开发行业中,北方C,C++,JAVA的需求量是非常大的.南方以VB为主.

关于英语对学习程序设计有没有帮助的文章这个话题已经有很多人议论过了，我个人建议把计算机专业术语弄明白了就可以了，你可以买一本计算机英语教程看一看，对程序设计是有帮助的。其实程序设计当中的英文都是一些非常简单的，如for,else,while.......并没有太高深的，而且学习程序设计不像学习网络，如CCNA这类认证需要掌握大量的英文。但是在学习程序设计的时候身边有两个工具应该足够了-----------金山词霸，计算机词典。相信你一定能学好程序设计的。

学习数学和学习程序设计有一个共同点------锻炼逻辑思维能力。在程序设计的学习中涉及到数学的地方并不多，所以也没有必要去认真的学习数学也可以学好程序设计的。

如果你是一个肯吃苦，肯用心学习程序设计的人，具有坚持不懈的精神的人，我相信，只要你认认真真去学，即使你的英语数学水平再差，你也一定能够学好程序设计的。

我是一名大三的学生，我也正在学习C++这门语言，一年多的时间，学习的感觉真的很累的，希望能和你成为朋友！

好了，说了这么多，可以参考一下，为自己做个学习计划，要对自己有信心，最后祝你在学习编程的道路上走的更好更远，祝你学有所成！！

我的QQ：261174630

相关问答

Q1: 我要学VB。

VB编程工具

Visual Basic 6.0简体中文版 Visual Basic 6.0绿色精简版 MSDN VB6精简版

VB入门教程

VB程序设计系列教程 VB 趣味例程 VB6实例教程

中文VB6傻瓜书 VB最简单入门教程 VB 6.0中文版范例入门与提高

VB初哥教学 VB编程标准 看实例学VB 6.0

VB.NET学习教程 VB.NET控件时尚编程百例 VB 中文版实用培训教程

VB经典编程 VB6循序渐进教程 VB 6.0 中文版教程

VB_NET实例解析与应用编程 VB.NET中高级篇 VB精彩编程200例

VB超级教程 VB API函数大全 Visual Basic 6.0实例教程

VB 6.0数据库开发学习教程 VB.NET数据库编程从入门到精通 VB6.0入门提高

21天学通Visual Basic.NET Visual Basic.NET实用全书 Visual Basic.NET学习范本

Visual Basic.NET培训教程 Visual Basic实用编程标准 VB学习教程

VB的控件的学习

VB编程开发技术

COM+与VB6分布式应用程序设计 Visual Basic 插件开发人员指南 VB.NET高级开发指南

VB.Net高级编程 VB.NET 面向对象可重用组件开发 Visual Basic精彩编程200例

VB.Net多媒体编程 VB.NET高级程序员指南 Visual Basic.NET GDI+技术教程

VB.Net控件应用编程实例教程 VB.NET XML Web开发人员指南 VB和SQL Server编程指南

用VB.NET开始Asp.NET1.1的开发 VB 游戏编程学习系统 Visual Basic.NET 编码技术

VB.NET面向对象CLASS的实现 VB.NET应用集锦例程 VB.NET实例解析应用编程

Visual Basic.Net与动态网页技术 VB6开发宝典 VB系统资源

VB 例程序讲解 VB.NET数据库开发实例 VB.NET与数据库开发教程

VB语言程序设计 VB.NET面向对象的实现 Visual Basic 6.0应用编程150例

Visual Basic.NET项目开发实践 Visual Basic 6.0 开发宝典 Visual Basic 6.0网络编程

Visual Basic6.0企业级应用程序开发 Visual Basic6.0数据库程序设计 Visual Basic .NET程序设计基础

Visual Basic.NET数据库开发教程 Visual Basic 6 循序渐进教程 VB游戏编程21天自学通

Visual Basic.NET进销存程序设计 Visual Basic程序设计导学 Visual Basic.NET技术内幕

VB.NET和SOL Server 2000高级编程 利用VB设计打印复杂报表 Visual Basic.NET编程基础

Visual Basic6.0元件程序开发指南 VB.Net网络数据库整合应用 Visual Basic或C#创建WS

Visual Basic.NET程序设计与应用

VB开发手册与指南

VB.Net与ASP.Net代码手册 VB 6.0中文版语言参考手册 VB编程经验手册

VB API 函数使用手册 VBA高级开发手册 VB速查手册之技巧篇

VB.NET Remoting 技术手册 VB.Net调试技术手册 Visual Basic 6.0 组件工具指南

VB.Net字符串和正则表达式参考手册 VBScript语言参考 VB6程序设计参考手册

VB技巧问答10000例 VB5 开发WEB数据库指南 VBscript英文帮助手册

VB6控件参考手册 VB6语言参考手册 VB6程序员指南

VB5开发WEB数据库指南 VBA 高级开发指南 VB中文版实用参考手册

VB编程经验手册 VB6组件工具指南 Visual Basic API函数参考手册

Visual Basic 6.0实用参考手册 Vsual Basic 6.0 控件参考手册 Visual Basic.NET类设计手册

Visual Basic.NET 语言参考手册 Visual Basic.net 反射参考手册 Visual Basic.net线程参考手册

Visual Basic编程经验手册 Visual Basic.Net专家指南 Visuai Basic.NET编程培训教程

VB速查手册之技巧篇 VBscript英文帮助手册

VB其它相关资源

VBSCRIPT函数方法速查 Visual Basic 第三方控件大全 Visual Basic 语言参考-函数速查

Access 2003 VBA 程序员参考书 VB、C快速进阶 V3.0 VB系统资源

VB Script语言参考 VB编程技巧集 VBScript 教程及语言参考

VBScript与JScript实例教程 VB精华文摘 Visual Basic 术语解释

VB常用函数 VBScript学习 VB学习一点通

VB Script基础 VBScript 帮助手册 Visual Basic 常用数值算法集

VB视频相关

VB编程与应用(电大)29讲 编程经典Visual Basic 用多媒体学Visual Basic

电子科大--- VB程序设计 VB.net多媒体教学

Q2: 100分求一个用VB.net做的简单网页的代码，谢谢！！！

用vb.net做的校友录……（附所有源代码）

来源：不详 作者 佚名 点击数：31 录入时间：07-12-17 15:21:39

想必大家都上过校友录吧，里面的功能虽然不是很强大，但是为我们这些毕业之后各奔西东的学子来说，到真是提供了一个好的聚集点，下面是我用vb.net做的校友录，当然也不能说是校友录了，只能说是我们班的学友录了：）不过只要你掌握了这种编程思想，校友录就不在话下了。这里我将重点谈一下关于管理员权限赋予。

以前有这个想法的时候，难就难在管理员身份的赋予上，开始想如果一般用户在被提升为管理员之后，我可以把他的信息转到另外一个表中，以后登陆的时候先检查manage表中是否有他就行了，这种办法我已经实现了，是不是有些笨……可是正在我要正式开工的时候，一个想法突然冒了出来，是什么呢？呵呵，就是在数据库中再增加一个字段了如果是第一次注册就让这个字段item(int)的值为0，要是被提升之后就update为1，班级创始人呢？当然了，在他申请时付给他一个班级id，然后先判断班级id为这个已经注册的人信息条数是否为0，如果是，那么就付给他item=2好了。下面的代码中，我没有实现这个功能，因为我做的是班友录的，当然了，我就是管理员喽：）

在这里，我使用的是checkboxlist(两个)，一个用来转换数据（visibe=fause），一个用来显示数据，还有一个checkbox用来写全部选中的事件。当然了还有两个按钮事件，一个是用来提升为管理员的，一个是用来降级为一般用户的，这两个按钮在判断为一般用户时

enable都是为fause的，只有当判断登录为管理员时才为true。当然了，如果你是班级创始人，是不可能被降级的：）

这里用来显示信息的我用的是一个datagrid，当判断为非管理员时，删除栏的visible将为fause，为管理员的时候，才为true，也就是说只有管理员才可以删除信息。而不是注册的用户是不能发言的所有的按钮控件的enable将都为fause。

代码如下：board.aspx

%@ Page Language="vb" AutoEventWireup="false" Codebehind="boaman.aspx.vb" Inherits="_99re1.boaman"%

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"

HTML

HEAD

title/title

meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR"

meta content="Visual Basic 7.0" name="CODE_LANGUAGE"

meta content="javascript" name="vs_defaultClientScript"

meta content="" name="vs_targetSchema"

/HEAD

body background="image/bg.gif" MS_POSITIONING="GridLayout"

form id="Form1" method="post" runat="server"

asp:checkbox id="yourcheck" style="Z-INDEX: 101; LEFT: 84px; POSITION: absolute; TOP: 71px" runat="server" Text="全部选中" AutoPostBack="True" ForeColor="SaddleBrown" Font-Bold="True"/asp:checkbox

asp:button id="Button1" style="Z-INDEX: 102; LEFT: 34px; POSITION: absolute; TOP: 43px" runat="server" Text="提升为管理员" Height="20px" Width="100px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"/asp:button

asp:button id="Button2" style="Z-INDEX: 103; LEFT: 142px; POSITION: absolute; TOP: 43px" runat="server" Text="降级为一般用户" Height="20px" Width="100px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"/asp:button

asp:checkboxlist id="CheckBoxList1" style="Z-INDEX: 104; LEFT: 14px; POSITION: absolute; TOP: 10px" runat="server" Visible="False"/asp:checkboxlist

asp:checkboxlist id="mycheck" style="Z-INDEX: 105; LEFT: 98px; POSITION: absolute; TOP: 99px" runat="server" ForeColor="Navy" Font-Size="X-Small"/asp:checkboxlist

asp:label id="Label1" style="Z-INDEX: 106; LEFT: 82px; POSITION: absolute; TOP: 14px" runat="server" ForeColor="Red" Font-Names="方正姚体"（已注册用户）/asp:label

asp:image id="Image1" style="Z-INDEX: 107; LEFT: 260px; POSITION: absolute; TOP: 180px" runat="server" Height="124px" Width="221px" ImageUrl="image/99re1-1.gif"/asp:image

asp:datagrid id="DataGrid1" style="Z-INDEX: 108; LEFT: 250px; POSITION: absolute; TOP: 83px" runat="server" Height="113px" Width="461px" BorderColor="#ffcc66" AutoGenerateColumns="False" HeaderStyle-Font-Size="9" HeaderStyle-HorizontalAlign="Center" HeaderStyle-ForeColor="red" HeaderStyle-Font-Bold="True"

Columns

asp:HyperLinkColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Height="24" ItemStyle-Font-Size="9" DataNavigateUrlField="stu_id" DataNavigateUrlFormatString="querry.aspx?stu_id={0}" DataTextField="stu_id" HeaderText="学号"/asp:HyperLinkColumn

asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100" ItemStyle-Font-Size="9" DataField="tel" HeaderText="电话"/asp:BoundColumn

asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="80" ItemStyle-Font-Size="9" DataField="oicq" HeaderText="OICQ"/asp:BoundColumn

asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="140" ItemStyle-Font-Size="9" DataField="email" HeaderText="E-mail"/asp:BoundColumn

asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="60" ItemStyle-Font-Size="9" DataField="point" HeaderText="登录次数"/asp:BoundColumn

/Columns

/asp:datagrid

/form

/body

/HTML

下面是codebehind中的内容：boaman.asp.vb

Imports System.Data

Imports System.Data.SqlClient

Public Class boaman

Inherits System.Web.UI.Page

Protected WithEvents yourcheck As System.Web.UI.WebControls.CheckBox

Protected WithEvents Button1 As System.Web.UI.WebControls.Button

Protected WithEvents CheckBoxList1 As System.Web.UI.WebControls.CheckBoxList

Protected WithEvents mycheck As System.Web.UI.WebControls.CheckBoxList

Protected WithEvents Label1 As System.Web.UI.WebControls.Label

Protected WithEvents Image1 As System.Web.UI.WebControls.Image

Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

Protected WithEvents Button2 As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer

'Do not modify it using the code editor.

InitializeComponent()

End Sub

#End Region

Dim conn As SqlConnection = New SqlConnection("server=lixinri;uid=sa;pwd=;database=99re1")

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'////////////////////判断是否为过客

If Session("stu_id") = "" Then

Button1.Enabled = False : Button2.Enabled = False

'////////////////////调用check()事件

check()

Else

If Not IsPostBack Then

Dim sql As String = "select * from pwd where stu_id=@stu_id"

Dim comm As SqlCommand = New SqlCommand(sql, conn)

comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

comm.Parameters("@stu_id").Value = Session("stu_id")

Dim dr As SqlDataReader

conn.Open()

dr = comm.ExecuteReader

While dr.Read

If dr.Item("term") = "0" Then

'///////////////////判断是否为一般用户

dr.Close()

Button1.Enabled = False : Button2.Enabled = False

Dim sql_1 As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

Dim cmd As New SqlCommand(sql_1, conn)

dr = cmd.ExecuteReader

While dr.Read

If dr.Item("term") = "1" Then

mycheck.Items.Add("u" dr.Item("name") "/u" "font color=darkorange(管理员)/font")

ElseIf dr.Item("term") = "2" Then

mycheck.Items.Add("u" dr.Item("name") "/u" "font color=red(班级创始人)font")

Else

mycheck.Items.Add("u" dr.Item("name") "/u")

End If

CheckBoxList1.Items.Add(dr.Item("stu_id"))

End While

Else

'////////////////////判断是否为管理员

dr.Close()

Button1.Enabled = True : Button2.Enabled = True

Dim sql_1 As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

Dim cmd As New SqlCommand(sql_1, conn)

dr = cmd.ExecuteReader

While dr.Read

If dr.Item("term") = "1" Then

mycheck.Items.Add("u" dr.Item("name") "/u" "font color=darkorange(管理员)/font")

ElseIf dr.Item("term") = "2" Then

mycheck.Items.Add("u" dr.Item("name") "/u" "font color=red(班级创始人)font")

Else

mycheck.Items.Add("u" dr.Item("name") "/u")

End If

CheckBoxList1.Items.Add(dr.Item("stu_id"))

End While

End If

End While

dr.Close()

'////////////////////////取出数据，填充dataset

Dim mysql As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

comm = New SqlCommand(mysql, conn)

Dim mycomm As SqlDataAdapter = New SqlDataAdapter(mysql, conn)

Dim ds As DataSet = New DataSet()

mycomm.Fill(ds, "base")

DataGrid1.DataSource = ds.Tables("base").DefaultView

DataGrid1.DataBind()

End If

End If

End Sub

'///////////////////////书写check()事件

Sub check()

If Not IsPostBack Then

Dim mysql As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

Dim comm As New SqlCommand(mysql, conn)

Dim dr As SqlDataReader

conn.Open()

dr = comm.ExecuteReader

While dr.Read

If dr.Item("term") = "1" Then

mycheck.Items.Add("u" dr.Item("name") "/u" "font color=darkorange(管理员)/font")

ElseIf dr.Item("term") = "2" Then

mycheck.Items.Add("u" dr.Item("name") "/u" "font color=red(班级创始人)font")

Else

mycheck.Items.Add("u" dr.Item("name") "/u")

End If

CheckBoxList1.Items.Add(dr.Item("stu_id"))

End While

dr.Close()

Dim mycomm As SqlDataAdapter = New SqlDataAdapter(mysql, conn)

Dim ds As DataSet = New DataSet()

mycomm.Fill(ds, "base")

DataGrid1.DataSource = ds.Tables("base").DefaultView

DataGrid1.DataBind()

End If

End Sub

'/////////////////////填充yourcheck

Private Sub yourcheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yourcheck.CheckedChanged

Dim i As Integer

For i = 0 To mycheck.Items.Count - 1

If yourcheck.Checked Then

mycheck.Items(i).Selected = True

Else

mycheck.Items(i).Selected = False

End If

Next

End Sub

'///////////////////////提升一般用户为管理员

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

conn.Open()

Dim i As Integer

For i = 0 To mycheck.Items.Count - 1

If mycheck.Items(i).Selected Then

Dim sql_1 As String = "update pwd set term=1 where stu_id=@stu_id and term=0"

Dim comm As SqlCommand = New SqlCommand(sql_1, conn)

comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

comm.Parameters("@stu_id").Value = CheckBoxList1.Items(i).Text

comm.ExecuteNonQuery()

End If

Next

Response.Redirect("boaman.aspx")

End Sub

'///////////////////////降级管理员为一般用户

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

conn.Open()

Dim i As Integer

For i = 0 To mycheck.Items.Count - 1

If mycheck.Items(i).Selected Then

Dim sql_1 As String = "update pwd set term=0 where stu_id=@stu_id and term=1"

Dim comm As SqlCommand = New SqlCommand(sql_1, conn)

comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

comm.Parameters("@stu_id").Value = CheckBoxList1.Items(i).Text

comm.ExecuteNonQuery()

End If

Next

Response.Redirect("boaman.aspx")

End Sub

End Class

当然了，这里面还有好多不足的地方，恳求高手批评指正。

校友录还有一些其它的功能就很简单了，这里就不再探讨了。

Q3: 哪里有vbscript的教程？

"

VB编程工具

Visual Basic 6.0简体中文版 Visual Basic 6.0绿色精简版 MSDN VB6精简版

VB入门教程

VB程序设计系列教程 VB 趣味例程 VB6实例教程

中文VB6傻瓜书 VB最简单入门教程 VB 6.0中文版范例入门与提高

VB初哥教学 VB编程标准 看实例学VB 6.0

VB.NET学习教程 VB.NET控件时尚编程百例 VB 中文版实用培训教程

VB经典编程 VB6循序渐进教程 VB 6.0 中文版教程

VB_NET实例解析与应用编程 VB.NET中高级篇 VB精彩编程200例

VB超级教程 VB API函数大全 Visual Basic 6.0实例教程

VB 6.0数据库开发学习教程 VB.NET数据库编程从入门到精通 VB6.0入门提高

21天学通Visual Basic.NET Visual Basic.NET实用全书 Visual Basic.NET学习范本

Visual Basic.NET培训教程 Visual Basic实用编程标准 VB学习教程

VBvb.net精彩编程百例的控件vb.net精彩编程百例的学习

VB编程开发技术

COM 与VB6分布式应用程序设计 Visual Basic 插件开发人员指南 VB.NET高级开发指南

VB.Net高级编程 VB.NET 面向对象可重用组件开发 Visual Basic精彩编程200例

VB.Net多媒体编程 VB.NET高级程序员指南 Visual Basic.NET GDI 技术教程

VB.Net控件应用编程实例教程 VB.NET XML Web开发人员指南 VB和SQL Server编程指南

用VB.NET开始Asp.NET1.1vb.net精彩编程百例的开发 VB 游戏编程学习系统 Visual Basic.NET 编码技术

VB.NET面向对象CLASS的实现 VB.NET应用集锦例程 VB.NET实例解析应用编程

Visual Basic.Net与动态网页技术 VB6开发宝典 VB系统资源

VB 例程序讲解 VB.NET数据库开发实例 VB.NET与数据库开发教程

VB语言程序设计 VB.NET面向对象的实现 Visual Basic 6.0应用编程150例

Visual Basic.NET项目开发实践 Visual Basic 6.0 开发宝典 Visual Basic 6.0网络编程

Visual Basic6.0企业级应用程序开发 Visual Basic6.0数据库程序设计 Visual Basic .NET程序设计基础

Visual Basic.NET数据库开发教程 Visual Basic 6 循序渐进教程 VB游戏编程21天自学通

Visual Basic.NET进销存程序设计 Visual Basic程序设计导学 Visual Basic.NET技术内幕

VB.NET和SOL Server 2000高级编程 利用VB设计打印复杂报表 Visual Basic.NET编程基础

Visual Basic6.0元件程序开发指南 VB.Net网络数据库整合应用 Visual Basic或C#创建WS

Visual Basic.NET程序设计与应用

VB开发手册与指南

VB.Net与ASP.Net代码手册 VB 6.0中文版语言参考手册 VB编程经验手册

VB API 函数使用手册 VBA高级开发手册 VB速查手册之技巧篇

VB.NET Remoting 技术手册 VB.Net调试技术手册 Visual Basic 6.0 组件工具指南

VB.Net字符串和正则表达式参考手册 VBScript语言参考 VB6程序设计参考手册

VB技巧问答10000例 VB5 开发WEB数据库指南 VBscript英文帮助手册

VB6控件参考手册 VB6语言参考手册 VB6程序员指南

VB5开发WEB数据库指南 VBA 高级开发指南 VB中文版实用参考手册

VB编程经验手册 VB6组件工具指南 Visual Basic API函数参考手册

Visual Basic 6.0实用参考手册 Vsual Basic 6.0 控件参考手册 Visual Basic.NET类设计手册

Visual Basic.NET 语言参考手册 Visual Basic.net 反射参考手册 Visual Basic.net线程参考手册

Visual Basic编程经验手册 Visual Basic.Net专家指南 Visuai Basic.NET编程培训教程

VB速查手册之技巧篇 VBscript英文帮助手册

VB其它相关资源

VBSCRIPT函数方法速查 Visual Basic 第三方控件大全 Visual Basic 语言参考-函数速查

Access 2003 VBA 程序员参考书 VB、C快速进阶 V3.0 VB系统资源

VB Script语言参考 VB编程技巧集 VBScript 教程及语言参考

VBScript与JScript实例教程 VB精华文摘 Visual Basic 术语解释

VB常用函数 VBScript学习 VB学习一点通

VB Script基础 VBScript 帮助手册 Visual Basic 常用数值算法集

VB视频相关

VB编程与应用(电大)29讲 编程经典Visual Basic 用多媒体学Visual Basic

电子科大--- VB程序设计 VB.net多媒体教学

Q4: 用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值

Private Sub Command1_Click()

Dim A, B, C

A = 10

B = 3

C = f(A) / (f(B) * f(A - B))

Print C

End Sub

Private Function f(n)

Dim I As Integer

f = 1

For I = 1 To n

f = f * I

Next I

End Function

Q5: VB.NET 拖动无边框窗体编程实例

Imports System Drawing Imports System Windows Forms ****************************************** Private oOriginalRegion As Region = Nothing 用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point ****************************************** Private Sub Form _MouseDown(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseDown Me bFormDragging = True Me oPointClicked = New Point(e X e Y) End Sub ****************************************** Private Sub Form _MouseUp(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseUp Me bFormDragging = False End Sub ****************************************** Private Sub Form _MouseMove(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseMove If Me bFormDragging Then Dim oMoveToPoint As Point 以当前鼠标位置为基础 找出目标位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 根据开始位置作出调整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移动窗体 Me Location = oMoveToPoint End If

lishixinzhi/Article/program/ASP/201311/21755

关于vb.net精彩编程百例和vb net的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。