首頁 程式語言 工具下載 學習範例 技術專區 相關書籍

原始碼程式範例 好站相報 技術論壇 易尋網 ASP空間租賃 汽車追蹤的第一個家 弘光科技大學 南開技術學院 巨匠電腦 買賣購物網 Life Light 遠距醫療網 清境民宿珂之幄   原始程式碼 <%@ Page Language="VB" MasterPageFile="~/MasterPage.master" Title="隨機49取出6" %> <script runat="server"> Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Dim ball(6) As Integer Dim i As Integer Dim j As Integer Randomize() For i = 0 To 6 again: ball(i) = Int(Rnd() * 49) + 1 '### 重複檢查 ### For j = 0 To i - 1 If ball(i) = ball(j) Then Response.Write("重複") GoTo again End If Next Response.Write("第" & i & "球是" & ball(i) & "<BR>") Next End Sub </script> <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server"> </asp:Content>   1. 請點選此處複製以上資料     2. 請按ctrl-c複製到剪貼簿     3. 切換到ASP的原始內碼區     4. 請按ctrl-v貼上所有資料