vb.net编写过程,VBNET程序设计

VB程序设计一般的四个步骤

1、建立应用程序界面

创新互联是一家专业从事成都做网站、成都网站制作、网页设计的品牌网络公司。如今是成都地区具影响力的网站设计公司,作为专业的成都网站建设公司,创新互联依托强大的技术实力、以及多年的网站运营经验,为您提供专业的成都网站建设、营销型网站建设及网站设计开发服务！

2、设置对象的属性

3、编写应用程序的代码

4、保存和运行程序

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

扩展资料

VB语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。

1、不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。

2、无原生支持多线程

Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

3、异常处理不完善

Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。

VB.net 程序编写

Function ULCase(ByVal value As String) As String

Dim s As String = ""

For Each i As Char In value

s = IIf(Char.IsLower(i), Char.ToUpper(i), Char.ToLower(i))

Next

Return s

End Function

textbox1.text=ULCase(textbox1.text)

就行了.类似楼上,用的内置方法判断大小写

2.

能得到数据的方法 常用 InputBox  ,TextBox

inputBox 用法

Public Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "", Optional ByVal XPos As Integer = -1, Optional ByVal YPos As Integer = -1) As String

功能: 在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。

参数:

Prompt: 必选的 String 表达式，作为消息显示在对话框中。Prompt 的最大长度大约为 1024 个字符，具体取决于所用字符的宽度。如果 Prompt 包含多行内容，则可以在每行之间使用回车符 (Chr(13))、换行符 (Chr(10)) 或回车/换行符组合 (Chr(13) Chr(10)) 来分隔各行。

Title: 可选。显示在对话框标题栏中的 String 表达式。如果省略 Title，则标题栏中显示应用程序名称。

DefaultResponse: 可选的 String 表达式。如果未提供其他输入，则作为默认响应显示在文本框中。如果省略 DefaultResponse，则显示的文本框为空。

XPos: 可选。数值表达式，指定屏幕左边缘与对话框左边缘之间的距离（以缇为单位）。如果省略 XPos，则对话框水平居中。

YPos: 可选。数值表达式，指定屏幕顶部与对话框上边缘之间的距离（以缇为单位）。如果省略 YPos，则对话框垂直定位在屏幕向下大约三分之一处。

返回值:

在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。

代码:

Dim KC() As String = {"语文", "数学", "英语", "物理", "化学"}

Dim MyTable As New Hashtable

For Each i As String In KC

MyTable.Add(i, Val(InputBox("请输入"""  i  """ 的成绩:", "成绩输入", "0")))

Next

Dim sum As Single

For Each i As DictionaryEntry In MyTable

sum += i.Value

Next

Dim Pf As String = IIf(sum  450 OrElse _

(MyTable(KC(0))  95 AndAlso MyTable(KC(1))  95 AndAlso MyTable(KC(2))  95 AndAlso MyTable(KC(3))  80 AndAlso MyTable(KC(4))  80) OrElse _

(MyTable(KC(0))  85 AndAlso MyTable(KC(1))  85 AndAlso MyTable(KC(2))  85 AndAlso MyTable(KC(3))  85 AndAlso MyTable(KC(4))  85), "优秀", "可以")

MsgBox(Pf)

VB.net 如何编写一个可以返回数组的函数（过程）？

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

编写一个VB.NET程序

Private Sub Form_Click()

Text1.Text = 8 * 3 * 6 \ 2

Text2.Text = 7 2 Or 4 9

End Sub

Private Sub Form_Load()

Label1.Caption = "8*3*6\2"

Label2.Caption = "72or49"

Text1.Text = ""

Text2.Text = ""

End Sub

只举了1和7其他的可以类比