实验十数组的应用(二).docVIP

实验十 数组的应用（二） 一、实验目的 1. 掌握动态数组的定义和应用 2．掌握控件数组的应用 二、实验内容 1、程序设计一； 2、验证实验一。 三、实验指导 1、程序设计一 设计如图1所示的界面。 在窗体上先画两个图片框Picture1和Picutre2,在Picture1中放四个选项按钮Option1 0 、Option1 1 、 Option1 2 和 Option1 3 ，设置各个选项按钮的Style属性为1-Graphical，Caption属性分别为 “宋体”、“楷体”、“黑体”和“隶书”； 在Picture2中放四个复选框Check1 0 、Check1 1 、 Check1 2 和 Check1 3 ，设置各个选项按钮的Style属性为1-Graphical，Caption属性分别为 “粗体”、“斜体”、“删除线”和“下划线”。 图1 设置文字效果 编写程序，单击选项按钮可以改变文本框中文字的字体，选择复选框中的选项可以对文本框中的文本同时设置（或取消）文字的样式或效果。 2、验证实验一 设计实现一个简单的计算器。 设计界面如图2所示 图2 “计算器” 采用文本框Text1作为输入运算数据和输出结果。设置两个命令按钮数组Command1和Command2分别表示计算器中的两个按钮，运算数字和运算符号。界面中对象的设置如下表1所示： 表1 对象的属性设置 对象 属性 属性值 Text1 Caption Alignment 1-Right Justify Locked True Command1 0 ~Command1 10 Caption 1、2、3、4、5、6、7、8、9、0 Command2 0 ~Command2 4 Caption +、-、*、/、 编写代码 在窗体模块的通用段声明： Dim IsFirst As Boolean ‘是否是第一个运算符 Dim SaveOperator As Integer ‘存放上一次的运算符 Dim x As Double ‘第一个运算数 Dim y As Double ‘第二个运算数Private Sub Command1_Click Index As Integer If Form1.Tag T Then ’向显示中的数追加新数 If Index 10 Then Text1.Text 0. Else Text1.Text Command1 Index .Caption End If Form1.Tag Else Text1.Text Text1.Text Command1 Index .Caption End If End Sub 单击计算器上的运算符，触发Command2命令按钮组的Click事件，代码如下： Private Sub Command2_Click Index As Integer Form1.Tag T If IsFirst Then ‘如果是第一个运算数 x Val Text1.Text ‘将第一个运算数存入x中 IsFirst Not IsFirst Else y Val Text1.Text ‘将第二个运算数存入y中 Select Case SaveOperator Case 0 Text1.Text x + y Case 1 Text1.Text x - y Case 2 Text1.Text x * y Case 3 If y 0 Then Text1.Text x / y Else MsgBox 不能以0为除数 Text1.Text x IsFirst False End If Case 4 y 0 IsFirst False End Select x Val Text1.Text End If SaveOperator Index End Sub （3）运行结果如图2所示。