来自「Visual Basic中,对于文本比较好的处理方式.」· 代码 · 共 27 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_click()
    Dim a As Integer, b As Integer, c As Integer
    Dim d As Integer, s As Integer, m As Single
    a = 6: b = 21: c = 23: d = 15
    s = a + b + c + d
    m = (a * 18 + b * 19 + c * 20 + d * 21) / s
                              '舍入到小数后1位
    Print "平均年龄："; Int(m * 10 + 0.5) / 10
End Sub