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)
应该说是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了
可以的,把项目的类型设成类库,将所有的函数用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()
希望你能了解,不懂再追问