目前分類:VB 6 程式語言 (6)

瀏覽方式: 標題列表 簡短摘要

'存檔
Private Sub Command1_Click()
    Dim Str As String

    Str = "輸入想存的字吧"
    Open "C:\temp.txt" For Output As #1

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

'產生100個亂數介於1-6之間
'計算出1-6出現次數,並且次數全部加總要100次

Private Sub Form_Activate()
    Randomize
    Dim count(6) As Integer '記錄筆數

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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


goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

Private Sub Command1_Click()
    FileName = App.Path & "\test.xls"
    If Dir(FileName) <> "" Then Kill FileName

    Dim myExcel As Object
    Set myExcel = CreateObject("excel.application")

goodlucky 發表在 痞客邦 PIXNET 留言(1) 人氣()

VB6 無條件進位法

b = -Int(-a)

一行就可以解決了....

 

goodlucky 發表在 痞客邦 PIXNET 留言(1) 人氣()