2020-01-29から1日間の記事一覧
Function Unit(x() As Double) As Double()Dim i As IntegerDim n As IntegerDim a As IntegerDim m As DoubleDim j As IntegerDim x_k() As DoubleDim x_len As IntegerDim max As Double, min As Doublemax = x(1)min = x(1)x_len = UBound(x) For i = 1 T…
Sub Draw()Dim i As IntegerDim j As IntegerDim a As DoubleDim b As DoubleDim c As DoubleDim d As Double d = 350For j = 1 To 5 a = Rnd b = Rnd c = Rnd For i = 1 To 5 ActiveSheet.Shapes.AddShape(msoShapeOval, 82.8 + i * 100, 59.4 + j * 100, 9…
Function Bord(x() As Double) As Double()Dim i As IntegerDim a As Integer Dim b() As DoubleDim m As DoubleDim n As IntegerDim h As IntegerDim c As DoubleDim x_len As IntegerDim max As Double, min As Doublemax = x(1)min = x(1)x_len = UBound(…