From ce76ee35c4ee0c5cd6e7b450df2d95b289461e2d Mon Sep 17 00:00:00 2001 From: Adolfo Jayme Barrientos Date: Sat, 14 May 2016 22:58:45 -0500 Subject: tdf#99809 Add back some syntax highlighting tags… MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit … accidentally removed in 8799ced9da7b7aeb37fadf700e062cc3255ebfe0 Change-Id: I799b62bb169dbc0505ed03deef6e460d75a66e9d --- source/text/sbasic/shared/03080301.xhp | 8 +++++--- source/text/sbasic/shared/03080302.xhp | 8 +++++--- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/source/text/sbasic/shared/03080301.xhp b/source/text/sbasic/shared/03080301.xhp index 34c4756bf3..e52e586b0f 100644 --- a/source/text/sbasic/shared/03080301.xhp +++ b/source/text/sbasic/shared/03080301.xhp @@ -39,8 +39,9 @@ Syntax: + Randomize [Number] - + Parameters: Number: Any integer value. Used as seed to initialize the random-number generator. Equal seeds result in equal random-number sequences by the Rnd function. If the parameter is omitted, the Randomize statement will be ignored. Unless a predictable sequence of numbers is desired, there is no need to use the Randomize statement, as the random-number generator will be initialized automatically at first use – it will be seeded using a system-provided random-number generator that produces uniformly-distributed, non-deterministic random numbers. If no such generator is available on the system, the system time will be used as seed. @@ -49,6 +50,7 @@ Example: + Sub ExampleRandomize Dim iCount As Integer, iVar As Integer, sText As String Dim iSpectral(10) As Integer @@ -63,10 +65,10 @@ Next iCount MsgBox sText,0,"Spectral Distribution" End Sub - +
- \ No newline at end of file + diff --git a/source/text/sbasic/shared/03080302.xhp b/source/text/sbasic/shared/03080302.xhp index 7ba71b641b..16e93d95ab 100644 --- a/source/text/sbasic/shared/03080302.xhp +++ b/source/text/sbasic/shared/03080302.xhp @@ -39,8 +39,9 @@ Syntax: + Rnd [(Expression)] - + Return value: Double @@ -51,6 +52,7 @@ Example: + Sub ExampleRandomSelect Dim iVar As Integer iVar = Int((15 * Rnd) -2) @@ -65,10 +67,10 @@ Print "Outside range 1 to 10" End Select End Sub - +
- \ No newline at end of file + -- cgit v1.2.3