一.实验目的
  二.实验要求
  2.能够实现退格和清除功能;
  4.小数点不能重复输入;
  6.应用控件数组实现。
   1、创建控件组的方法
  b、然后进行“复制”和“粘贴”,当选择“粘贴”时,出现对话框提示已有一个同名控件,询问是否创建控件组,选择“是”后,即创建了一个名为“Command”的控件组。这时,第一个按钮的Index属性值默认为“0”,第二个的Index属性值自动设为“1”,并且大小与第一个按钮相同,只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮,共19个按钮,每建立一个,就将它拖到合适处,并修改相应的Caption属性值。
  2、各控件属性设置如下:
  控件 名称 Caption 控件 名称 Caption
  按钮 Command 3 退格 按钮 Command 2(1) -
  按钮 Command 5 = 按钮 Command 2(3) /
  按钮 Command 1(0)~Command1(9) Caption 0 ~ 9
  
  Dim shu1 As Single, shu2 As Single, suanfu As String
  
  Text1.Text = Text1.Text & Command1(Index).Caption
  End Sub
  Private Sub Command2_Click(Index As Integer)
   suanfu = Command2(Index).Caption
  End Sub
  Private Sub Command4_Click()
  Text1.Text = Text1.Text + "."
   Text1.Text = ""
  If InStr(Text1.Text, ".") < Len(Text1.Text) Then   Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)   End If   End Sub   Private Sub Command5_Click() ’开始加减乘除的运算    Select Case suanfu    Text1.Text = shu1 + shu2    Text1.Text = shu1 - shu2    Text1.Text = shu1 * shu2    If shu2 = 0 Then   "错误" ’错误提示框图下所示    Else    End If   End Sub   Private Sub Command3_Click() ’假如输入错误,可每次退后一格   Exit Sub   Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)       Text1.Text = "" ’清除   Private Sub Command7_Click() ’平方运算   End Sub   If Left(Text1.Text, 1) <> "-" Then
   Else
  End If
  

Leave a Reply

Your email address will not be published. Required fields are marked *

7 + twenty =