VB.net 程序编写

Function ULCase(ByVal value As String) As String

创新互联主营百色网站建设的网络公司,主营网站建设方案,app软件开发,百色h5成都微信小程序搭建,百色网站营销推广欢迎百色等地区企业咨询

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版的网站

应该说是asp.net(vb.net)的网站,后台程序是用vb.net写的。

1、安装vs.net软件(选默认语言是vb.net)，安装iis服务器,安装数据库

2、运行vs.net软件,新建asp.net网站,写好网页。需要具备的知识点有html+div、javascript、jqurey、AJAX、vb.net、数据库的操作等。

3、在网上购买一个网站虚拟空间，购买一个域名,发布自已做好的网站上去就OK了

如何编写VB.NET 接口程序

可以的，把项目的类型设成类库，将所有的函数用Public修饰附封装在类里面，生成dll文件。这样别人就可以在别人项目属性的引用页里面添加对你的dll文件的引用，然后导入命名空间，直接使用了。

比如说，在一个项目里：

NameSpace Controller

Public Class ControlMachine

Public Sub Boot()

End Sub

Public Sub Shutdown()

End Sub

End Class

End NameSpace

进入另一个项目的项目属性，进入引用页，添加到那个dll文件的引用。在代码中：

Imports Controller '加在代码文档的最顶端

使用：

Dim controller As New ControlMachine

controller.Boot()

controller.Shutdown()

希望你能了解，不懂再追问

新闻名称：如何编写vb.net,如何编写脚本
网站链接：http://chengdu.cdxwcx.cn/article/phiced.html