'存檔
Private Sub Command1_Click()
Dim Str As String
Str = "輸入想存的字吧"
Open "C:\temp.txt" For Output As #1
Print #1, Str
Close #1
End Sub
Roger 發表在 痞客邦 留言(0) 人氣(4,010)
If IsNumeric(Text1.Text) Then
Print "是數字"
Else
Print "不是數字"
End If
Roger 發表在 痞客邦 留言(0) 人氣(6,313)
'產生100個亂數介於1-6之間
'計算出1-6出現次數,並且次數全部加總要100次
Private Sub Form_Activate()
Randomize
Dim count(6) As Integer '記錄筆數
Dim Num As Integer
For i = 1 To 100
Num = Int(Rnd() * 6) + 1
count(Num) = count(Num) + 1
Next i
For i = 1 To 6
Print i & " 出現 " & count(i) & " 次"
Next i
End Sub
Roger 發表在 痞客邦 留言(0) 人氣(6,381)
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Roger 發表在 痞客邦 留言(0) 人氣(497)
Private Sub Command1_Click()
FileName = App.Path & "\test.xls"
If Dir(FileName) <> "" Then Kill FileName
Dim myExcel As Object
Set myExcel = CreateObject("excel.application")
myExcel.Visible = True
myExcel.Workbooks.Add
For i = 1 To 10
myExcel.ActiveSheet.Cells(i, 1) = i
myExcel.ActiveSheet.Cells(i, 2) = "列號的 10 倍是 " & i * 10
Next
myExcel.ActiveWorkbook.SaveAs FileName
myExcel.Quit
Set myExcel = Nothing
End Sub
Roger 發表在 痞客邦 留言(1) 人氣(2,114)
Roger 發表在 痞客邦 留言(2) 人氣(10,849)