急求VB高手帮忙~!

发布网友发布时间：2023-12-01 01:52

共1个回答

热心网友时间：2024-12-05 10:35

按照你的界面来做的。

你拉控件后，不要改控件的 "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()

End

End Sub

-------------------------

我增加了一个按钮的，图片发不上？