VB賓果 成績排名 費氏數列-20點

Question

1.請用亂數1~25用VB6.0寫出 5X5的表格 不可重複 1~25都要用到
2. 用VB6.0寫出 隨意輸入 3筆0-100的分數 然後排名 1.2.3
還要列出 A 100~90 B 89~80 C 79~70 D 69~60 F>=59
3.寫出 費氏數列 隨意輸入 數列長度之後 把數列內容列出來
該數列特性 Ni=Ni-1+Ni-2
謝謝回答喔....

Answer 1

' 格式請自行調整
Private Sub Command1_Click()
Dim ary(25) As Integer, a(25) As Integer
Dim i As Integer, j As Integer, k As Integer, b As Integer
Dim buf As String

Randomize
i = 0
Do
b = Int(Rnd() * 25) + 1
If (a(b) = 0) Then
i = i + 1
a(b) = 1
ary(i) = b
End If
Loop While (i < 25)

For i = 0 To 4
buf = ""
For j = 1 To 5
buf = buf & Format(ary(i * 5 + j), "@@") & " "
Next j
Print buf
Next i

Label1(0).Caption = Text4(0).Text
' ´¡¤J±ƧǪk
For i = 1 To 2
For j = 0 To i - 1
If (CInt(Text4(i).Text) > CInt(Label1(j).Caption)) Then
For k = i To j + 1 Step -1
Label1(k).Caption = Label1(k - 1).Caption
Next k
Label1(j).Caption = Text4(i).Text
GoTo next_i
End If
Next j
Label1(i).Caption = Text4(i).Text
next_i:
Next i
For i = 0 To 2
b = CInt(Label1(i).Caption)
If (b > 89) Then
Label1(i).Caption = Label1(i).Caption & " - A"
ElseIf (b > 79) Then
Label1(i).Caption = Label1(i).Caption & " - B"
ElseIf (b > 69) Then
Label1(i).Caption = Label1(i).Caption & " - C"
ElseIf (b > 59) Then
Label1(i).Caption = Label1(i).Caption & " - D"
Else
Label1(i).Caption = Label1(i).Caption & " - F"
End If
Next i

j = 1: k = 1
buf = "1,1"
For i = 3 To CInt(Text4(3).Text)
b = j + k
buf = buf & "," & b
j = k
k = b
Next i
Label1(3).Caption = buf

End Sub

Answer 2

＊ ***** http://***** ＊

[電子遊戲]
拉霸、水果盤、7PK、5PK

[運彩遊戲]
棒球、籃球、足球、網球、冰球、各種體育經典賽事

[真人遊戲]
百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠

[對戰遊戲]
台灣麻將、德州撲克、骰盅吹牛、四支刀、鬥地主、十三支、二八槓、暗棋、接龍

[彩球遊戲]
香港六合、台灣樂透、今彩539、樂合彩、大陸時時彩、基諾彩、北京賽車、賽狗、賽馬、指數

[優惠活動]
1. 新舊會員儲值就送500點
2. 真人百家樂彩金等你拿
***** http://*****
歡迎免費體驗試玩!!

線上影片直播、正妹圖、討論區免費註冊 ~

Answer 3

推薦您前往黃金俱樂部遊戲網！

提供您詳盡的說明

您可以先進行遊戲下載：
網址：http://99點5888th點net

誠心服務！會員溫馨！永久服務！
第一：全程直播遊戲的公平與公正性【亞洲唯一直屬會員代理】
第二：點數儲值和託售皆在十分鐘之內完成【全台娛樂城速度最快24小時不分周末】
第三：二十四小時專業客服務線上服務全年無休【大大小小問題都可以馬上做詳細解答喔】
電子機台．真人遊戲和你一同玩樂
麻將 百家樂 5PK 德州撲克 水果盤 賓果
輪盤 21點 10點半 骰盅 牌九 鬥地主 13支

全年網站優惠活動不間斷！
快去註冊會員！免費：http://99點5888th點net

Answer 4

線上遊戲天堂 http://ts999.tw

運動遊戲
實況棒球、籃球、足球、冰球、網球等多種經典賽事

即時遊戲
百家、21點、牌九、二八杠、骰寶、龍虎、輪盤、牛牛、番攤

對戰遊戲
麻將、德州撲克、二八杠、吹牛、鬥地主、13支、暗棋、接龍

電子遊戲
5PK、7PK、水果盤遊戲、5輪遊戲、極限飆速、趙雲救主、西遊戲、金瓶梅、中國美人、英雄

彩球遊戲
大樂透、六合、時時彩、今彩539、3星彩、4星彩

最新優惠活動
1. 運動遊戲連過5關,彩今再加碼10%
2. 新會員加入,有機會獲得500元禮券與精美讀卡機
3. 遊戲積分可兌換汽機車、3C、精品等多種大獎

****體驗試玩喔~!
線上遊戲天堂 http://ts999.tw