VB6.0中计算问题初探

 1.今天对于VB6.0中的计算问题进行了初步了解，自己设计了一个小程序，下面是程序运行的界面：

2.下面将简单介绍界面设计步骤：

1）.首先放置Picturebox控件

2）.在Picturebox控件中，放置一个OLE控件

3）.新建一个excel工作簿，右击excel,可以对其进行编辑

4）.编辑成上述所示界面，并添加垂直滚动条VScrollBar和水平滚动条HScrollBar

5）.双击各个控件，进行程序编写

3.VB程序如下：

Private Sub Command1_Click()
'Imports System.Math     'VB.NET中使用
Text1.Text = "" '将text1清空
Dim xls As Object
Set xls = OLE1.object.sheets(1)
Text1.Text = xls.cells(3, 3).Value

Dim i As Integer, sum As Double
Set xls = OLE1.object.sheets(1)
sum = 0
For i = 2 To 7
   sum = sum + xls.cells(2, i).Value
Next i
xls.cells(2, 8).Value = sum / 6
xls.cells(3, 8).Value = Format$(Math.Sqr(sum), "0.00%")
xls.cells(4, 8).Value = sum ^ 2
End Sub

Private Sub HScroll1_Change()
    OLE1.Left = -HScroll1.Value       'value属性对应于滚动框在滚动条中的位置
End Sub
     
Private Sub VScroll2_Change()
OLE1.Top = -VScroll2.Value
End Sub

Private Sub form_load()
HScroll1.Value = 0
VScroll1.Value = 0
With OLE1
     HScroll1.Max = .Width - Picture1.Width + 20  '对于单击滚动条的情况可用LargeChange属性
     HScroll1.LargeChange = .Width / 10           '对于单击滚动条两端箭头的情况可用SmallChange属性
     HScroll1.SmallChange = .Width / 20
     VScroll1.Max = .Height - Picture1.Height + 20
     VScroll1.LargeChange = .Height / 10
     VScroll1.SmallChange = .Height / 20
End With
End Sub