您现在的位置:首页 >> 课程案例 >> 内容

VB语言基础的综合应用实例

时间:2009-6-18 21:17:20 点击:3309

3.1  使用数学函数的事例。

编写的窗体click事件过程代码如下:

Private Sub form_click()

    x = -123

    y = 456.789

    a = Abs(x) - Sgn(x) * x

    b = Int(y / 100)       '求百位数

    c = y - Int(y / 100) * 100 '剔除百位数

    d = Int(y * 10 + 0.5) / 10 '舍入到小数后第一位

    Print a, b, c, d

End Sub

运行程序后单击窗体,如图3-4所示:

3-4 运行效果图

输出结果是: 0    4    56.789    456.8

3.2  使用字符串函数示例。先从字符串a中找出某个指定字符(本例为空格),再以此字符为界拆分成两个字符串。

编写的窗体单击过程代码如下:

  Private Sub Form_click()

    Dim a As String, b As String, c As String

    Dim n As String

    a = "visual basic"

    n = InStr(a, " ") '查找空格位置

    b = Left(a, n - 1) '取左边部分

    c = Mid(a, n + 1)  '取右边部分

    Print b

    Print c

 End Sub

程序运行后单击窗体如图3-5所示

3-5运行效果图

输出结果是:

visual

basic

3.3使用转换函数的示例。

编写的窗体click事件过程代码如下:

Private Sub Form_click()

    x = "123": y = 123

    aChr(Asc(x)+5)

    b= Str(Val(x)+5)

    cVal(Str(y)+"5")

    print a

    print b

    print c

 End Sub

运行程序后单击窗体,如图3-6所示:

3-6运行效果图

输出结果为如下数值:

6

128

1235

3.4 给定一个两位正整数(36),要求交换个位数和十位数的位置,把处理后的数显示在窗体上。

编写的窗体单击事件过程代码如下:

  Private Sub Form_Click()

       Dim x As Integer, a As Integer

       Dim b As Integer, c As Integer

       x = 36

       a = Int(x / 10)                           '求十位数

       b = x Mod 10                              '求个位数

       c = b * 10 + a                            '生成新的数

       Print "处理后的数: "; c

  End Sub

运行程序后单击窗体,如图3-7所示:

3-7运行效果图

输出结果如下:

处理后的数:63

作者:Admin  
相关文章
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4