华北科技学院计算机学院综合性实验

实 验 报 告

课程名称         程序设计语言(VB)             

实验学期    2014   至  20##   学年 第  二  学期

学生所在院部    安全工程学院   安全工程专业                                  

年级    20##级      班级      安全B14某班                     

学生姓名      XXX       学号   201410044XXX                  

任课教师              徐花芬                     

实验成绩                                        

计算机学院制

《 程序设计语言（VB） 》课程综合性实验报告

开课实验室：基础三                                       20##年7 月10 日

第二篇：VB实验报告格式

                                    

                

                       资源与环境工程学院

 VB程序语言上机实验报告

              

                        专业：   采矿工程    

                        班级：     0801      

                        姓名：     宋伟锋              

                        学号：  200801124007 

                       指导老师:  李雯静     

实验设计名称：金额大小写转换

一．  实验目的：

1．    学习VB各种控件的作用及运行环境

2．    掌握时间控件的用法和参数的调用

二．  实验内容：

设计一个可以进行简单金额大小写转换的小工具

1．    设计界面

1．1设置属性

1．2设置属性后的界面如图

1．3编写程序代码

Private Sub Command1_Click()

Label1.Caption = rmb(Text1.Text)

End Sub

Public Function rmb(s As Currency) As String

    s1$ = LTrim(Str$(Abs(s)))

    L% = Len(s1)

    Select Case L - InStrRev(s1, ".")

    '双引号内是小数点

       Case L

         s2$ = s1 + ".00"

       Case 1

         s2$ = s1 + "0"

       Case 2

         s2$ = s1

    End Select

    L = Len(s2)

    DX$ = ""

    C1$ = "零壹贰叁肆伍陆柒捌玖"

    C2$ = "分角 元拾佰仟万拾佰仟亿拾佰"

    '角和元之间留一个空格

     Do While L >= 1

     x$ = Mid(s2, Len(s2) - L + 1, 1)

     DX = DX + IIf(x <> ".", Mid(C1, Val(x) + 1, 1) + Trim(Mid(C2, (L - 1) + 1, 1)), "")

     L = L - 1

     Loop

     rmb = DX + "整"

End Function

1．4运行程序

 

输入“6664575”，然后单击“转换”，入下图

结果表示：运行正常，大小写转换正常。