1、Visual Basic 程序设计基础教材习题参考答案第 1 章 Visual Basic 6.0 程序设计概述一、判断题1 23 说 明 ： 同 类 控 件 （ 如 两 个 标 签 ） 相 互 重 叠 ， 设 计 时 可 以 设 置 “置 前 ”、 “置 后 ”属 性 。4 5 6 7 8 9 10 11 1213 14 15 16 17 18 19 20二、选择题1. C 2. B 3D 4C 5B 6A 7D 8 A 9B 10A 11C 12D三、填空题1对象、事件 2属性、方法、事件 3控件、屏幕（Screen）4对象 5Left、Top 6属性、.=7网格 8F orm19Load
2、 或 Initialize 或 Resize 或 Activate（自动执行的先后顺序也按此排列）10Activate、Deactivate四、程序设计题程序 1界面设计参看图 10-1、10-2 以及表 10-1。表 10-1 实例 2 各控件的主要属性设置控件 属性（属性值） 属性（属性值）标签控件 1 Name(Label1) Caption(“我的第一个 VB 程序“)Name(Label2) Caption(“请输入你的姓名“)标签控件 2FontUnderLine(True) FontItalic(True)命令按钮 1 Name(Command1) Caption(“确定( i
3、* j;Next jPrintNext iEnd Sub程序 4界面设计略，过程设计如下：Private Sub Form_Click()Dim x As Single, s As Single, t As SingleDim i As Integer, n As Integerx = InputBox(“请输入 x 的值：“)n = InputBox(“请输入 n 的值：“)t = x / 2: s = tFor i = 3 To nt = t * x / is = s + tNext iPrint sEnd Sub程序 5界面设计略，过程设计如下：Private Sub Form_Clic
4、k()Dim e As Single, t As Single, i As Integere = 2: t = 1: i = 1While t = 0.0001i = i + 1: t = t / i: e = e + tWendPrint eEnd Sub程序 6界面设计略，过程设计如下：Option Base 1Private Sub Form_Click()Dim n As Integer, a(9, 9) As Integer, i As Integer, j As IntegerOn Error GoTo k 下列代码中若出现错误，转到标号为 K 的语句执行。n = InputBox
5、(“请输入 n，0 Abs(xmax) Then xmax = x(i, j): ki = i: kj = jNext j, iEnd Sub第 5 章 常用控件一、判断题1 2 3 4 5 6 7 8 910 11 12 13 14 15 16 17 1819 20 21 22 23 24 25二、选择题1C 2D 3B 4B 5B 6C 7B 8B 9B 10A11D 12C 13B 14B 15A 16D 17B 18B 19B 20A三、填空题1上、下、左、左 2缇、无关 3&、+ 4Enabled 5MaxLength6Text1.SetFocus 7MultiLine 8Visib
6、le 9Alignment 10AutoSize11ForeColor 120 或 1 13True 141 15AddItem161 17List1.Clear 18文本框、列表框19下拉式组合框、简单组合框、下拉式列表框 20Scroll 21Value22Change 23定时器不起作用 24Timer 2565535四、程序阅读题程序 1. 116 程序 2. 8程序 3. 23451 程序 4. 小，你好！ 程序 5. 您好34512 小李，你好！ 欢迎使用 Visual Basic!程序 6. 李子 程序 7. y = 6 程序 8. n = 1苹果 y = 14 n = 3橘子
7、n = 5葡萄柚子香蕉五、程序填空题1（1）a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1)（2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True2 （ 1） 1 To 2*i1 （2）Command2.Enabled = True （3）Command2.Enabled = False3（1）Text2.Enabled = False （2）p = 2 （3）Print i（4）Val(Text1.Text) 2 或 Val(Text1.Text) = 1 （5）KeyAscii = 13
8、4 （1）List1.ListCount （2）List1.RemoveItem I （3）i = i + 15 （1）Timer1.Enabled = True （2）x 3600（3）(x Mod 3600) 60 或 (x - 3600 * h) 60 （4） x = x + 1 6（1）Label1.Left （2）Label1.Left = -Label1.Width六、程序设计题程序 1. 界面设计略，过程设计如下：Private Sub Command1_Click()If Command1.Caption = “显示“ ThenPrint “欢迎使用 Visual Basic！
9、“: Command1.Caption = “清除“ElseForm1.Cls: Command1.Caption = “显示“End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Form1.Cls: Command1.Caption = “显示“: Command2.Caption = “退出“End Sub程序 2界面设计略，过程设计如下：Private Sub Form_Load()Text1.MaxLength = 1: Text1.Text = “End SubPrivate Sub Te
10、xt1_KeyPress(KeyAscii As Integer)Label1.Caption = CStr(KeyAscii)End Sub程序 3界面设计略，过程设计如下：Const pwd As String = “123456“ 预设密码为 123456Private Sub Command1_Click()Cls: Print “欢迎进入！“End SubPrivate Sub Form_Load()Command1.Caption = “进入“: Command1.Enabled = Falsew车。 ，9，建立健全工地治安制度，维护正常的工作秩序，严格各项防范措施，并监督实施。1
11、0，完成领导临时交办的任务。-专业最好文档，专业为你服务，急你所急，供你所需-文档下载最佳的地方-专业最好文档，专业为你服务，急你所急，供你所需-文档下载最佳的地方质量检验工程师岗位职责1全面负责项目质量监督检查工作。2协助总工程师主持项目质量管理和质量保证体系的日常工作。3，负责工程施工原始记录表格（检查证）中属于质检人员检查签证的各项签认事宜，按规定时间向上级报送工程质量统计报表。4，负责施工全过程的工程质量监督、检查及各工序交接的质量验收工作。5，负责配合业主、监理工程师进行有关工程质量检查及各种原始记录、工程检查证的签字验收工作，对监理工程师指出有关工程质量方面存在的问题提出具体处理意
12、见。协助搞好工程成本控制。6督促、检查作业班、组、试验室、测量队的有关施工技术资料的整理工作。对测量原始记录、试验检测报告以及送交监理工程师的签证资料和各项试验资料是否齐全，数据是否准确，内容是否正确等进行认真审查，履行签证手续。7审查试验室所做的各种建筑材料的分析鉴定和配合比、混凝土强度及其它技术指标，未经监理工程师签认的材料不能批量进货，经检验属不合格材料不准使用。8参加经理部组织的工程质量检查及有关工程质量方面的会议。对项目采用的新技术、新工艺在实施过程中对其关键工序进行检查。9组织经理部每月一次的工程质量检查。10对由于质检工作疏漏、失职造成的工程质量事故承担责任。娡娡智慧的 XX 人，我要充分发扬 XX 精神，把满腔的工作热情和知识积累投入到自己所热爱的专业技术工作中去，为 XX 的再次创业而努力奋斗。二八年六月啌啌理；8、职工食堂、物业、交换台管理；9、厂内清洁卫生、绿化；10、安全保卫档案归档、保管；11、民兵、预备役人员的登记、整编和训练。第三章 附 则第十二条 自本规定施行之日起，原相关规定废止。第十三条 本规定自颁布之日起施行。颁发日期：二 OO 四年十一月三十日基层单位职责范围和业务
