tagCANDY CGI VBレスキュー(花ちゃん)の雑談用掲示板
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の雑談用掲示板
Re: うーん 効果がない!(対策完了) ( No.23 )
日時: 2007/07/06 13:53
名前: 花ちゃん

1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890

    タブ    タブ    メモ帳
    半角スペース4個
  全角スペース2個
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))
   '1〜9の範囲の乱数を20個生成します。
   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





 [スレッド一覧へ] [親スレッドへ]