vb 程序设计教程(机械工业出版社)习题答案 实验9

vb 程序设计教程(机械工业出版社)习题答案

实验9

自测练习1

程序

Private Sub myHelp_Click()

frmAbout.Show

End Sub

Private Sub mymenu1_Click()

Text1.Text = "百货大楼"

End Sub

Private Sub mymenu2_Click()

Text1.Text = "利客隆"

End Sub

Private Sub mymenu3_Click()

Text1.Text = "稻香村"

End Sub

vb 程序设计教程(机械工业出版社)习题答案

自测练习2

程序

vb 程序设计教程(机械工业出版社)习题答案

Private Sub dis_Click()

Text1.Text = "菜单程序设计"

End Sub

Private Sub hid_Click()

Text1.Visible = False

End Sub

自测练习3

程序

vb 程序设计教程(机械工业出版社)习题答案

Private Sub vbnew_Click()

MsgBox "新建", vbOKOnly, "程序设计题" End Sub

Private Sub vbopen_Click()

MsgBox "打开", vbOKOnly, "程序设计题" End Sub

Private Sub vbsave_Click()

MsgBox "存盘", vbOKOnly, "程序设计题" End Sub

vb 程序设计教程(机械工业出版社)习题答案

自测练习4

程序

Private Sub Command1_Click()

CommonDialog1.Filter = "Word文档（*.doc)|*.doc" CommonDialog1.InitDir = "c:\"

CommonDialog1.ShowOpen

List1.AddItem (CommonDialog1.FileTitle)

End Sub

vb 程序设计教程(机械工业出版社)习题答案