浙江理工大学VB课后练习七答案

上传人:ni****g 文档编号:431491757 上传时间:2022-08-20 格式:DOC 页数:2 大小:45.50KB
返回 下载 相关 举报
浙江理工大学VB课后练习七答案_第1页
第1页 / 共2页
浙江理工大学VB课后练习七答案_第2页
第2页 / 共2页
亲,该文档总共2页,全部预览完了,如果喜欢就下载吧!
资源描述

《浙江理工大学VB课后练习七答案》由会员分享,可在线阅读,更多相关《浙江理工大学VB课后练习七答案(2页珍藏版)》请在金锄头文库上搜索。

1、第四节 教材习题解答一、判断题1. 2. 3. 4. 5. 6. 7. 8. 9. 二、选择题1D 2A 3C 4C 5B 6D 7B 8D 9B三、填空题1. 窗体控制菜单、下拉菜单、快捷菜单 2. ShowFont 3. Color 4. 工程、部件5. Action=1、ShowColor 6. Click 7.工具 8.代码窗口、Click 9. 相同、不小于0四、程序阅读题单击t11后连续闪烁5次显示系统当前日期,单击t12后连续闪烁5次显示系统当前时间。五、程序填空题 六、程序设计题题1程序代码如下Private Sub Command1_Click() CommonDialog1

2、.ShowOpen: Label1.Caption = CommonDialog1.FileNameEnd Sub题2程序代码如下Private Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click() Label1.Caption = File1.Path + File1.FileNameEnd Sub题3程序代码如下Private Sub Ex_Click() EndEnd SubPrivate Sub fill_Click(Index As Integer) Shape1.FillStyle = Index + 2End SubPrivate Sub FillC_Click() CommonDialog1.ShowColor Shape1.FillColor = CommonDialog1.ColorEnd SubPrivate Sub sha_Click(Index As Integer) Shape1.Shape = IndexEnd Sub1

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 大杂烩/其它

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号