逃阿>>> 啦啦啦 逃阿 逃到沒有考試 沒有學測的夢想世界去 >>>無年限修築中

1,116愛的鼓勵 0訂閱站台

Private Sub Command1_Click()
Open ”c:myfile_output.txt” For Output As #9 ’output:輸出存檔,要蓋舊資料
Open ”c:myfile_append.txt” For Append As #1 ’append:輸出存檔,要保留舊資料

Print #9, Text1.Text; ’分號:不斷行
Print #9, ”,”;
Print #9, Text2.Text

Print #1, Text1.Text;
Print #1, ”,”;
Print #1, Text2.Text


Close #9 ’檔案不在使用
Close #1
End Sub



Private Sub Command2_Click()
Open ”c:myfile_append.txt” For Input As #1 ’input:讀取檔案
Do While Not EOF(1) ’EOF:End of File 括弧內的數字是檔案代號 (不需要#號)
Line Input #1, s ’Line:一次一行資料
Label1.Caption = Label1.Caption & s & Chr(13)
Loop
Close #1
End Sub







’亂數 : 10~20整數
’0<=rnd<1
’0<=rnd*11<11 (*11)
’0<=int(rnd*11)<=10 (int取整數)
’10<=int(rnd*11)+10<=20 (+10)



++1++

’亂數 : 20~60整數 等差2
’10~30 整數(/2)

’0<=rnd<1
’0<=rnd*21<21 (*21)
’0<=int(rnd*21)<=20 (int取整數)
’10<=int(rnd*21)+10<=30 (+10)

++2++

’亂數 : 20~60偶數 等差2
’10~30 整數(/2)

’0<=rnd<1
’0<=rnd*21<21 (*21)
’0<=int(rnd*21)<=20 (int取整數)
’10<=int(rnd*21)+10<=30 (+10)
’20<=(int(rnd*21)+10)*2<=60 (*2)


**int 去小數


++3++

’亂數 : -20~60偶數 等差2
’-10~30 整數(/2)

’0<=rnd<1
’0<=rnd*41<41 (*41)
’0<=int(rnd*41)<=40 (int取整數)
’-10<=int(rnd*41)-10<=40 (-10)
’-20<=(int(rnd*41)-10)*2<=60 (*2)


++4++


’亂數 : -20~60偶數 等差0.2
’-100~300 整數(*5)

’0<=rnd<1
’0<=rnd*401<401 (*401)
’0<=int(rnd*401)<=400 (int取整數)
’-100<=int(rnd*401)-100<=400 (-100)
’-20<=(int(rnd*401)-100)/5<=60 (/5)



>>>real<<<<



Private Sub Command1_Click()
’亂數 : -20~60偶數 等差0.2
’-100~300 整數(*5)

’0<=rnd<1
’0<=rnd*401<401 (*401)
’0<=int(rnd*401)<=400 (int取整數)
’-100<=int(rnd*401)-100<=400 (-100)
’-20<=(int(rnd*401)-100)/5<=60 (/5)
Randomize Timer

Label1.Caption = ””
For i = 1 To 5
r = Int(Rnd * 6) + 1
Label1.Caption = Label1.Caption & r & Chr(13)

Next i
End Sub