编号： 

20XX－20XX学年第二学期

实 验 报 告

实验课程名称 VB程序设计基础与VBA实验

浙江大学城市学院实验报告

课程名称 VB程序设计基础与实验 实验项目名称

实验三、程序设计基础2 学生姓名 专业班级 学号

实验成绩 指导老师（签名 ） 日期

一. 实验目的和要求

掌握常用函数的使用；理解并掌握InputBox、MsgBox函数的使用；熟练掌握赋值语句的使用。掌握顺序结构的应用程序的编程过程。

二. 实验内容和原理

【练习3-1】设计一个函数计算器。其功能要求如下：

（1）运行的界面如图所示。有12个命令按钮。每使用一个函数按钮前，先单击“清除”按钮，文本框和标签框中的内容清空。

（2）Sin、Cos、Sqr、Int、Chr、Asc等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，在标签框中显示其函数值。

（3）单击“Rnd”按钮，用Rnd函数产生一随机数，显示在标签框中。

（3）单击“Date”按钮在标签框中显示系统日期；单击“Time”按钮在标签框中显示系统时间；

（4）单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入信息显示在标签框中。单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来，要求信息框提供给用户的有“是”、“否”、“取消”3个按钮，根据用户的不同选择，将函数返回结果显示在标签框中。

部分命令按钮的提示代码如下：

Sin命令按钮的事件过程可以写作：

Const pi = 3.1415926

Dim x As Single, fx As Single

x = Val(Text1.Text) „注意类型转换函数

fx = Sin(x * pi / 180)

Label1.Caption = Str(fx) „注意类型转换函数

Asc命令按钮的事件过程可以写作：

Label1.Caption = Str(Asc(Text1.Text)) „注意类型转换函数

MsgBox命令按钮的事件过程可以写作：

Dim n As String

n = MsgBox("你输入的数据是" & Text1.Text, 3 + 32 + 0, "数据检查") Label1.Caption = Str(n)

Rnd命令按钮的事件过程可以写作：

Randomize

Label1.Caption = Str(Rnd)

请完整写出所有命令按钮的事件过程。

上机实践

编写、调试运行以上程序，运行界面参考如上图。

Const pi = 3.1415926

Private Sub Command1_Click()

Dim x As Single, fx As Single

x = Val(Text1.Text)

fx = Sin(x * pi / 180)

Label3.Caption = Str(fx)

End Sub

Private Sub Command2_Click()

Dim x As Single, fx As Single

x = Val(Text1.Text)

fx = Cos(x * pi / 180)

Label3.Caption = Str(fx)

End Sub

'Rnd命令按钮的事件过程可以写作:

Private Sub Command3_Click()

Label3.Caption = Str(Rnd)

End Sub

Private Sub Command4_Click()

Dim x As Single, fx As Single

x = Val(Text1.Text)

fx = Sqr(x)

Label3.Caption = Str(fx)

End Sub

Private Sub Command5_Click()

Dim x As Single

x = Val(Text1.Text)

Label3.Caption =str( Int(x))

End Sub

Private Sub Command6_Click()

Dim x As Integer

x = Val(Text1.Text)

Label3.Caption = Chr(x)

End Sub

Private Sub Command7_Click()

Label3.Caption = str(Asc(Text1.Text))

End Sub

Private Sub Command8_Click()

Dim x As String

x = InputBox("请输入姓名:", "输入姓名:")

Label3.Caption = x

End Sub

'msgbox命令按钮的事件过程可以写作：

Private Sub Command9_Click()

Dim n As String

n = MsgBox("你输入的数据是" & Text1.Text, 3 + 32 + 0, "数据检查")

Label3.Caption = Str(n)

End Sub

Private Sub Command10_Click()

Label3.Caption = Date

End Sub

Private Sub Command11_Click()

Label3.Caption = Time()

End Sub

Private Sub Command12_Click()

Text1.text=””

Label3.Caption = “”

End Sub

【练习3-2】通过函数处理文本框中的数据。

运行的界面如下图所示。在文本框中输入一个有小数的浮点数，如-123.123456789，点击“执行”按钮，在右侧标签框中产生与左侧项目对应的值（如第二行左边是一个标签框，其Caption属性值是“Int”，右边又是另一个标签框，其Caption属性值是根据文本框中的数据由程序自动完成计算并赋值的）。观察单精度和双精度浮点数的不同结果，通过字符串函数处理产生数据的整数部分和小数部分。点击“清除”，将文本框和右侧标签框内容清除。Form_Load事件也用来将文本框和右侧标签框内容清除。将以下代码通过上机调试补充完整。

Private Sub Command1_Click()

Dim n As Integer

Dim sing As Single, doub As Double '存放单精度和双精度的值 Dim s As String

Dim a As Integer

sing = Val(Text1.Text) doub = Val(Text1.Text)

Label1.Caption = n

Label2.Caption = sing Label3.Caption = doub

s = Trim(Str(Abs(Val(Text1.Text)))) a =instr (s, ".")

Label4.Caption = Left(s, a - 1)

Label5.Caption = 日后黄土(s,len(s)-a) End Sub

Private Sub Command2_Click() Text1.Text =

Label1.Caption = “”

Label2.Caption = “”

Label3.Caption = “”

Label4.Caption = “”

Label5.Caption = “”

End Sub

Private Sub Form_Load()

5 '存放数字字符串 '小数点在数字字符串中位置 n = Int(Val(Text1.Text))

...

End Sub

【练习3-3】设计一个用计算机给出三位整数加法练习程序。程序界面如下图所示，单击一次，则在文本框中产生一题。

提示：

（1）将文本框的Multiline属性设置为true,并设置垂直滚动(ScrollBars=2)

（2）用Rnd 函数产生100~999之间的随机整数

（3）回车换行符用函数chr(13)+chr(10)表示

研究下面的代码段，考虑应填入什么内容？

Private Sub Form_Load()

Text1.text= End Sub

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = '产生三位随机数

y = '产生三位随机数

Text1.Text & x & "+" & y & "=( )" & Chr(13) & Chr(10) End Sub

上机实践

调试运行以上程序，运行界面参考如上图。

【练习3-4】 在标签框中有一串英文字符串，有三个命令按钮名称分别为command1、command2、command3，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写。其他字符不变。按“还原”按钮，回到启动状态。

在本实验中需要在通用中声明一个模块级变量s，考虑一下为什么？研究下面的代码段，考虑应填入什么内容？

Dim s As String „声明模块级变量s

Private Sub Form_Load()

s = Label1.Caption

End Sub

Private Sub Command1_Click()

Label1.Caption =

End Sub

Private Sub Command2_Click()

Label1.Caption =

End Sub

Private Sub Command3_Click() „“还原”的事件代码

Label1.Caption = s

End Sub

三. 讨论、心得（必须做）