 Re: うーん 効果がない！(対策完了) ( No.23 ) |
- 日時： 2007/07/06 13:53
- 名前： 花ちゃん
- １２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０
タブ タブ メモ帳
半角スペース４個
全角スペース２個
iiii
wwww
VB6.0 のソースコード
Private Sub Command1_Click()
'オプションボタンのチェック
Dim i As Long
For i = 0 To 4
If Option1(i).Value = True Then
lngOpNo = i
End If
Next i
End Sub
VB.NET のソースコード
Private Sub Button12_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button12.Click
'Rnd 関数 [名前空間 : Microsoft.VisualBasic]
'単精度浮動小数点数型 (Single) の乱数を返します
'任意の範囲の整数の乱数を生成するには、次の式を使用してください。
'CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
'１〜９の範囲の乱数を２０個生成します。
For i As Integer = 1 To 20
Debug.Write(CInt(Microsoft.VisualBasic.Int((9 - 1 + 1) * Microsoft.VisualBasic.Rnd()) + 1))
'結果 7 5 6 3 3 7 1 7 8 7 1 4 8 8 4 9 8 1 9 4
Next i
End Sub
|
|
