=97AndAsc(Mid(Text1,Val(Text2),1))<=122ThenLabel2.Caption="位为小写"EndIfEndIf需要更多代码请下载本源码实例包。-IMDN开发者社群-imdn.cn"> =97AndAsc(Mid(Text1,Val(Text2),1))<=122ThenLabel2.Caption="位为小写"EndIfEndIf需要更多代码请下载本源码实例包。 - IMDN开发者社群-imdn.cn">
登录
首页 » VB源码 » VB整源码判断字符串中某一字符是否大写

VB整源码判断字符串中某一字符是否大写

于 2022-06-27 发布 文件大小:2.39 kB
0 103
下载积分: 2 下载次数: 1

代码说明:

VB编写完整源码判断字符串中某一字符是否大写,执行下面的代码,这个例子简单哦,不多介绍了,直接看代码吧:   If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1)) = 97 And Asc(Mid(Text1, Val(Text2), 1))

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • vb 将数字格式化为金额
    vb 将数字格式化为金额,这个更像是一个自动计算程序,根据用户输入的单位、数量、价格等参数,自动计算出金额,这才是程序要表达的功能,相差代码:   Private Sub Text1_LostFocus(Index As Integer)    Text1(Index).BackColor = &H80000005    If Index = 3 Then Text1(3) = Format(Text1(3), "0.00")   End Sub
    2023-01-25 23:50:04下载
    积分:1
  • VB.NET 人事管理系统 SQLSERVER版
    VB.NET 人事管理系统 SQLSERVER版,这个系统主要是练习VB.NET与数据库方面的操作,功能不复杂,包括了启动窗口界面、系统设置、添加用户、修改密码、重新登录、员工档案管理、查询员工档案、员工档案报表、编辑考勤信息、考勤信息报表、查查找员工评价、工作评价报表、编辑员工调动、员工调动报表、编辑员工工资、查找员工工资、系统帮助、工资管理模块等。在软件启动时,有一个启动窗口效果,带渐变的动画。
    2022-07-11 07:49:30下载
    积分:1
  • 日常考勤程序 基于VB.NET实现附
    一款基于VB.NET和sqlserver数据库实现的考勤程序,实现公司员工的日常考勤功能,可实现指定日期的员工考勤,考勤时可选择考勤天数、考勤人,可查询本人的考勤记录,实现的是挺基本的考勤模块,还可显示当前用户的历史记录。   本实例的数据库文件在db文件夹下,请自行添加,并配置数据库信息。   源代码运行于VS2015环境下。
    2022-12-02 11:45:03下载
    积分:1
  • VB.NET 软件在线自动升级功能演示
    VB.NET 软件在线自动升级功能演示,含源代码,程序自动更新版本源码中核心文件为UpdatingForm.vb,此文件包括了程序自动升级的主要功能,比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。   本程序需要一个存放软件最新版本的服务器或者是网址,程序运行后最先检测该网址下的软件是否是最新,若该网址不存在或出错,程序将不再继续,直接退出,如图所示。
    2022-07-23 12:00:34下载
    积分:1
  • VB 6.0 打印与打印预览功能
    VB 6.0 打印与打印预览功能源码,这个打印预览可以调节预览的放大倍率,在不同的放大状态下预览打印内容,支持打印文字内容和图片的内容,自动调用Windows默认的打印机进行打印,如测试截图所示的效果。
    2023-05-22 11:35:03下载
    积分:1
  • vb6.0 字节数组和字符串的相互转换
    vb6.0 编程实现字节数组和字符串的相互转换,演示如何进行字节数组和字符串的相互转换.
    2023-03-14 07:50:04下载
    积分:1
  • VB 6.0 AscW将汉字转换为Unicode字符代
    本源码演示VB 6.0 如何将汉字转换为Unicode字符代码,在窗口中输入汉字,单击按钮,即可将汉字转换为Unicode字符,其实这个实现起来也比较简单,用VB内置函数AscW即可实现,代码的编写可参考如下:   Private Sub Command1_Click()    Text2.Text = AscW(Text1)   End Sub   Private Sub Command2_Click()    Unload Me   End Sub
    2022-08-09 07:08:37下载
    积分:1
  • VB Val与汉字的相互转化
    VB 数字与字符串的相互转换(汉字区位码与汉字的相互转化)的例子,主要是使用Val函数来实现转换功能,Val的用法很简单,如Text4.Text = Val(Text3),将此行代码添加到自定义的按钮事件中即可,当用户单击按钮后,可触发此代码执行区位码转换。实现的功能为:   把数字转换成字符串,把字符串转换成数字。
    2022-02-10 12:28:52下载
    积分:1
  • 分享一个VB Excel表格生成模块
    分享一个VB Excel表格生成模块,借助了模块中的ChangeToExcel.ocx组件来生成,使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。   Excel表格生成模块为该组件的源代码文件,你还可以通过源码对组件功能进行调整。   Demo文件夹下是使用此组件导出Excel文件的例子,单击按钮即可生成Excel文件。
    2022-11-26 13:10:03下载
    积分:1
  • vb.NET模拟扑克牌出牌功能
    vb.NET模拟扑克牌出牌功能,其实可看作是一个界面较简单的扑克牌游戏,界面有些粗糙,没有过多美化,用文字描述了牌面,后续可以对界面进行升级。有点过于简单了,可当作一个初级的VB.NET编程例子吧。
    2022-03-22 04:23:34下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载