登录
首页 » VB源码 » VB Val与汉字的相互转化

VB Val与汉字的相互转化

于 2022-02-10 发布 文件大小:2.20 kB
0 49
下载积分: 2 下载次数: 2

代码说明:

VB 数字与字符串的相互转换(汉字区位码与汉字的相互转化)的例子,主要是使用Val函数来实现转换功能,Val的用法很简单,如Text4.Text = Val(Text3),将此行代码添加到自定义的按钮事件中即可,当用户单击按钮后,可触发此代码执行区位码转换。实现的功能为:   把数字转换成字符串,把字符串转换成数字。

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

发表评论


0 个回复

  • VB Seek语句设置随机访问文件的读取位置
    VB 设置随机访问文件的读取位置,本例中是使用Seek语句来设置随机访问文件的读取位置,代码编写方面,主要是掌握Seek的用法,以下代码将用户的单击行为作为触发Seek的事件条件:   Private Sub Command1_Click()    Dim str As String * 10    Open App.Path & "MyFile.txt" For Binary As #1    Seek #1, 5    Get #1, , str    Text1.Text = str    Close #1   End Sub   当用户单击按钮后,执行seek语句。
    2022-03-24 08:37:41下载
    积分:1
  • VB求解数学问题,求两个数最大公约数
    VB6.0演示一个求解数学问题,求两个数最大公约数,这是个简单的数学问题,数学基础好,用VB很轻松就编写出本程序了。在运行的窗口中,分别输入两个整数,单击按钮,程序将显示两个数的最大公约数是多少。求解的过程代码描述如下:   If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then    MsgBox "输入的数0或溢出,请重新输入!"    MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"    Text1.Text = ""    Text2.Text = ""    Text1.SetFocus   Else    m = Val(Text1.Text)    n = Val(Text2.Text)   If m < n Then    temp = m: m = n: n = temp   End If   Do    r = m Mod n    m = n    n = r   Loop While r 0   Label3.Caption = "两个正整数m和n的最大公约数为: " & m   End If
    2022-07-16 14:37:29下载
    积分:1
  • 树状导航菜单 +窗体分隔+框架窗口VB范例
    本实例是一个比较综合、完整的窗口制作实例,演示了树状导航菜单的制作方法,还有窗口中各种菜单的实现步骤,同时还演示了如何对窗口进行分隔显示,实现了一个带树形菜单的框架式程序主窗口界面,可广泛应用于VB的各种信息管理系统的开发中。VB源代码范例,在VB6.0环境下完美编译运行。
    2022-09-10 22:15:03下载
    积分:1
  • 支持代理的VB FTP服务器程序
    一个FTP程序的例子,不过这个是支持代理服务器的,用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站,代码中很多注释,不过是英文的。这个FTP程序的样子似乎还需要完善,和当下流行的、CuteFTP、FlashFXP都有很大的区别,甚至说有点简陋,不过这个代码主查面向学习的,英文好的可下载本源码学习。
    2022-03-06 02:53:34下载
    积分:1
  • 股票采集数据
    用VB编的股票采集数据源码、分享出来希望对大家有用。
    2022-07-10 11:37:10下载
    积分:1
  • visual studio VB 学生信息管理系统
    用visual studio VB语言编写的学生信息管理系统 WINFORM 数据库采用的是ORACLE 
    2022-02-24 12:49:02下载
    积分:1
  • 一个使用Winsock控件的VB典型范例
    一个使用Winsock控件的VB典型范例,架构为CS结构,由服务端和客户端组成,两者都运行后,可互通消息。调试步骤:   1)打开服务器端的“工程1.dsw”工程   2)点击运行按钮。   1)打开客户端的“工程1.dsw”工程   2)点击运行按钮。   3)此时服务器端和客户端已经建立连接   4)在服务器和客户端分别输入任何内容,另一端将会收到该内容并显示出来。   说明:必须先运行服务器端工程,再运行客户端工程。
    2022-03-17 18:04:14下载
    积分:1
  • VB.NET 超市管理系统
    VB.NET 超市管理系统,数据库基于SQLSERVER,使Label透明显示,进货管理、售货管理、价格管理、进货查询、售货查询、增加用户管理等。这个示范代码主要是演示VB与SQLSERVER数据库之间的各种操作,大部分是一些数据的基础应用。测试前请先附加好数据库,否则会弹出出错提示。
    2022-01-26 05:34:54下载
    积分:1
  • VB 为菜单添加分割线
    VB6为菜单制作添加分割线,在菜单项与菜单项之间显示一个分隔线,这个在Windows经典风格的窗口中,十分常见,像一个水平线那样,把菜单分成多个部分,这个水平线带有阴影效果,视觉效果更立体。   本窗口中的菜单,是一个企业综合管理系统的主界面面板,那些菜单都是测试用的,你可以看一下菜单中的分隔线是如何嵌入到菜单中的。
    2022-09-22 23:30:03下载
    积分:1
  • 网络五子棋游戏之客户大厅和服务器
    网络五子棋游戏源码之客户大厅和服务器 VB编的
    2023-07-18 23:30:04下载
    积分:1
  • 696518资源总数
  • 104388会员总数
  • 18今日下载