Crystal Reports  

¤ñ¸û Basic »yªk¤½¦¡©M Visual Basic ¤¤ªº¨ç¦¡

¨Ï¥Î formula ÅܼƻP¦b Visual Basic ¤¤¼¶¼g¤@­Ó¦W¬° formula ªº¨ç¦¡Ãþ¦ü¡C

½Ð¦Ò¼{¤U¦Cªº Basic »yªk¤½¦¡¡G

Rem ¶Ç¦^¦r¦ê­Èªº¤½¦¡
Rem Rnd ¨ç¦¡¶Ç¦^¤@­Ó¶Ã¼Æ
Rem ¤¶©ó 0 »P 1 ¤§¶¡
If Rnd > 0.9 Then
formula = "§AŤF¡I"
Else
formula = "©êºp¡A½Ð¦A¸Õ¤@¦¸"
End If

¥H¤Wªº¤½¦¡¦b Rnd ¶Ç¦^ªºÀH¾÷¸¹½X¤j©ó 0.9 ®É¡A·|¶Ç¦^¤å¦r¦r¦ê­È¡uYou won!¡v¡A§_«h·|¶Ç¦^¤å¦r¦r¦ê­È¡uSorry, try again.¡v¡C

¤W­zªº¤½¦¡¥i¥H¼g¦¨¦p¤Uªº Visual Basic ¨ç¦¡¡G

Rem ¥H¤Uµ{¦¡½X¬° Visual Basic »yªk
Function formula()
If Rnd > 0.9 Then
formula = "§AŤF¡I"
Else
formula = "©êºp¡A½Ð¦A¸Õ¤@¦¸"
End If
End Function

½Ð°Ñ¾\

Basic »yªk