- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《Visual Basic程序设计基础》教材
习题
第1章 Visual Basic 6.0程序设计概述
习 题
一、判断题
参考答案:
1.√ 2.√ 3.√ 4.× 5.√ 6.× 7.√ 8.× 9.√ 10.√
11.× 12.√ 13.× 14.√ 15.√
二、选择题
参考答案:
1. C 2. B 3.D 4.C 5.B 6.A 7.D 8.A 9.B 10.D
三、填空题
参考答案:
1.对象、事件 2.属性、方法、事件 3.控件、屏幕(Screen)
4.Left 5. Top 6.属性、对象名.属性名=表达式
7.网格 8.F orm1
9.Load或Initialize或Resize或Activate(自动执行的先后顺序也按此排列)
10.Activate、Deactivate
四、程序设计题
参考代码:
程序1.界面设计参看表1。
表1 各控件的主要属性设置
编号 控件 属性(属性值) 属性(属性值) ① 窗体 Name(Form1) Caption(实验1-1) ② 标签控件1 Name(Label1) Caption(我的第一个VB程序) ③ 标签控件2 Name(Label2) Caption(请输入你的姓名)
FontItalic(True)
FontUnderLine(True) ④ 文本框 Name(Text1) Text() ⑤ 命令按钮1 Name(Command1) Caption(确定(O)) ⑥ 命令按钮2 Name(Command2) Caption(结束(X))
Enabled(False)
过程设计如下:
Private Sub Command1_Click()
Label2.Visible = False ‘使控件Label2看不见
Label1.Caption = Text1.Text + : 欢迎使用 + Label1.Caption
Text1.Visible = False ‘使控件Text1看不见
Command1.Enabled = False ‘使控件Command1不能用
Command2.Enabled = True ‘使控件Command2能用
End Sub
Private Sub Command2_Click()
End ‘结束程序运行
End Sub
程序2.界面设计,
过程设计如下:
Private Sub Command1_Click() 字体变大
Form1.FontSize = Form1.FontSize + 3
Form1.Cls: Print 欢迎使用VB
End Sub
Private Sub Command2_Click() 字体变小
Form1.FontSize = Form1.FontSize - 3
Form1.Cls
Print 欢迎使用VB
End Sub
Private Sub Command3_Click() 字体加粗
Form1.FontBold = True
Form1.Cls: Print 欢迎使用VB
End Sub
Private Sub Command4_Click() 字体不加粗
Form1.FontBold = False
Form1.Cls: Print 欢迎使用VB
End Sub
运行时,不得连续、过多次单击“字体变小”按钮,因为当FontSize属性值小于0会产生适时错误。
程序3.
界面设计 运行效果图
过程设计如下(窗体Height值的计量包括标题、边框,而ScaleHeight值仅与窗体有效绘图区域的高度有关):
Private Sub Form_Load()
Text1.Text = Visual Basic 程序设计
End Sub
Private Sub Form_Resize()
Text1.Top = 0: Text1.Left = 0
Text1.Width = Form1.ScaleWidth/2 用 Form1.ScaleWidth效果优于用Form1. Width
Text1.Height = Form1.ScaleHeight/2 用 Form1.ScaleHeight优于用Form1. Height
文档评论(0)