歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

'存檔
Private Sub Command1_Click()
    Dim Str As String
    Str = "輸入想存的字吧"
    Open "C:\temp.txt" For Output As #1
    Print #1, Str
    Close #1
End Sub

If IsNumeric(Text1.Text) Then
    Print "是數字"
Else
    Print "不是數字"
End If

'產生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

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

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

VB6 無條件進位法