1樓：匿名使用者
按照你的介面來做的。
你拉控制項後，不要改控制項的 "name" 屬性。
功能已經實現了。
其他功能你可以自己完善。比如，有輸入為空的情況會報錯，這個留給你自己發揮。
另外，挺費時間的活，竟然沒給分，呵呵。
option explicit
private sub command1_click()
text6.text = cint(text1) + cint(text2) + cint(text3) + cint(text4) + cint(text5)
end sub
private sub command2_click()
dim filename as string
filename = text7.text
'mkdir ("d:\" & filename & "") '建立資料夾，以日期命名
open "d:\ " & filename & ".txt" for output as #1 '建立並開啟檔案，以日期命名
print #1, "早餐" & text1.text & "元"
print #1, "午餐" & text2.text & "元"
print #1, "晚餐" & text3.text & "元"
print #1, "零吃" & text4.text & "元"
print #1, "額外" & text5.text & "元"
print #1, "總和" & text6.text & "元"
print #1, "日期" & filename
close #1 '關閉檔案
end sub
private sub command3_click()
text1 = ""
text2 = ""
text3 = ""
text4 = ""
text5 = ""
text6 = ""
end sub
private sub command4_click()
endend sub
-------------------------
我增加了乙個按鈕的，**發不上？
2樓：匿名使用者
做什麼啊？怎麼沒問題，不過我手機瀏覽的。
求 軟體高手幫忙解答！ 急。。。。。
你要求的結果是？或者達到的目的是什麼，貌似你沒說。需要到主機那邊刪除你這台電腦。電腦高手請幫忙回答一下！謝謝 丟檔案一般是沒有結束完所啟動程式就直接關機了 或是經常冷關也就是直接按開機鍵，裝系統沒事，硬碟一般情況不會有問題 其實人們所說的損硬碟，原因是 硬碟的0磁軌0柱面1扇區 它是唯一的乙個，起到...
急求日語高手幫忙翻譯急，急急急，急求日語高手幫忙翻譯！！！
経済 政治 精神疾患 家庭 社會的要因 不景気 同 自殺率 日本 少 日本 自殺率 高 一定 根元 獨特 死生観即日本人。何 根強 文化 影響 人 哲學 伝統的 文化 思想 形成 日本人 特有 死生観 長期的 日本社會 武士 文化 特 然諾 重 思想 日本 民族心理的 深遠 影響 武士道 薫陶 今 ...
改錯急急急，求高手，急求高手幫忙做英語短文改錯。急急急 謝謝 望求準確 謝謝，很急
giving改成give like改成likes don t改成doesn t of改成for 希望能幫到你，祝更上一層樓o o 有不明白的請繼續追問，可以詳談嘛 giving give like likes don t doesn t of for 祝你進步，如對你有幫助，請及時採納 1.give...