Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
公司主营业务：成都网站制作、成都网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出方山免费做网站回馈大家。
Dim s As String = "0Ff0ajkh04624F"
Dim i As Integer = 0
Dim sTemp As String = ""
Dim ss As String = ""
For i = 1 To Strings.Len(s)
sTemp = Mid(s, i, 1)
If Asc(sTemp) = 65 And Asc(sTemp) = 90 Then
sTemp = LCase(sTemp)
ElseIf Asc(sTemp) = 95 And Asc(sTemp) = 122 Then
sTemp = UCase(sTemp)
Else
sTemp = sTemp
End If
ss = ss sTemp
Next
MsgBox(ss)
End Sub
UCase()函数是用来将小写字母转化为大写字母。"U"是Upper变为大写的意思。
一、UCase()语法
UCase(string)，返回 Variant(String)其中包含转成大写的字符串。必要的 string参数为任何有效的字符串表达式。如果 string 包含 Null，将返回Null。只有小写的字母会转成大写，原本大写或非字母之字符保持不变。例：
Dim MyWord= UCase("Hello World")' 返回"HELLO WORLD"。
二、VB的语言特色
1、可视化的设计平台
在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面，在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法，把程序和数据封装起来作为一个对象，每个对象都是可视的。
2、事件驱动的编程机制
面向过程的程序是由一个主程序和若干个子程序及函数组成的。程序运行时总是先从主程序开始，由主程序调用子程序和函数，开发人员在编程时必须事先确定整个程序的执行顺序。而Visual Basic 每个事件都可以驱动一段程序的运行。
3、结构化的程序设计语言
Visual Basic 6.0具有丰富的数据类型和众多的内部函数。其采用模块化和结构化程序设计语言，结构清晰，语法简单，容易学习。
4、强大的数据库功能
Visual Basic 6.0利用数据控件可以访问Access、FoxPro等多种数据库系统，也可以访问Excel、Lotus等多种电子表格。
5、ActiveX技术
ActiveX发展了原有的OLE技术，使开发人员摆脱了特定语言的束缚，方便地使用其他应用程序提供的功能，使Visual Basic 6.0能够开发集声音、图像、动画、字处理、电子表格、Web等对象于一体的应用程序。
6、网络功能
Visual Basic 6.0提供的DHTML（动态HTML）设计工具可以使开发者动态地创建和编辑Web页面，使用户能开发出多功能的网络应用软件。
三、语言缺点
Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb 点虐 获得改进）。
1、不支持继承
VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。
2、无原生支持多线程
Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。
3、异常处理不完善
Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。
扩展资料：
对象与类
1、对象（Object）
Visual Basic.NET 具有“面向对象”的特性，Visual Basic.NET 应用种程序的基本单元是对象，用 Visual Basic.NET 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，对象”可以被看做 Visual Basic.NET 程序设计的核心。
2、类（Class）
在 Visual Basic.NET中，对象是由类创建的，因此对象可以说是类的具体实例，这就好比是蛋糕和做蛋糕的模具之间的关系。各种不同的对象分属于各种不同的种类。同一类对象可能具有一些不同的特征。
参考资料来源：百度百科-Visual Basic
参考资料来源：百度百科-UCase
vb点虐 是vb的升级。
vb点虐 基于点虐 框架，是vb发展的必然趋势。
vb功能非常强大，但是也存在众多的缺点，所以微软才会开发vb点虐 。
随着时间的发展，vb点虐 完全取代vb是必然的
VB术语简介
说明下面的代码举例说明了用 Drive 对象来访问驱动器属性：Sub ShowFreeSpace(drvPath) Dim fs, d, s Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(drvPath)) s = "Drive " UCase(drvPath) " - " s = s d.VolumeName vbCrLf s = s "Free Space: " FormatNumber(d.FreeSpace/1024, 0) s = s " Kbytes" MsgBox sEnd Sub.
chr$
功能
跟chr功能一样，只不过带"$"在BASIC语言里表示是字符串的意思，执行速度会略微快一点，同样的
ucase也可以写成ucase$