VB语言习题集答案.doc

VB语言习题集答案 第一章 VB环境和程序设计初步习题 一、选择题 1-5: ACBCA 6-10: BACBA 11-15: DCDAD 16-20: BDBCA 21-24: BDAD 二、填空题 ADO ActiveX Database Object 第9章介绍 视图 工具箱 工具 选项 编辑器 对象的性质，来描述和反映对象特征的参数 对象的动作和行为 Form窗体 Font MultiLine 在程序运行时无效。有些属性只能在设计时才能设置，例如：BorderStyle, MaxButton等；有些属性只能在运行时设置，例如：SelStart, SelLenght等。 Style 工程 工程属性 通用 Form1.Show SelStart Locked TabIndex 0 三、编程题 private sub cmd运行_Click() txtShow.Caption=”Hi,Welcome” txtShow.Backup=RGB(200,200,0) txtShow.Forecolor=RGB(0,230,0) TxtShow.FontBold=True txtShow.FontSize=35 End sub 2、第一小题：(必作题) ①Private Sub cmd运行_Click() AutoRedraw = True For i = 1 To 4 For j = 1 To 2 * i - 1 Print i; Next j Print Next i End Sub ②private Sub cmd结束_Click() unload me end sub 第二小题：（高级问题） ①Private Sub cmd运行_Click() AutoRedraw = True For i = 1 To 4 Print tab(30-2*i); For j = 1 To 2 * i - 1 Print str(i); Next j Print Next i End Sub ②private Sub cmd结束_Click() unload me end sub 3、Private Sub Form_Click() label1.autosize=true Label1.BackColor = vbGreen Label1.ForeColor = RGB(250, 0, 200) 或者 Label1.ForeColor = H8080FF Label1.caption=”天天想你的365个日” End Sub Private Sub Form_DblClick() Label1.BackColor = H8000000F Label1.ForeColor = Label1.Caption = 还原 End Sub 4、Private Sub Form_Resize() Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Text1.Left = Form1.Left/2 Text1.Top = Form1.Top/2 End Sub 5、方法1：用方法实现 Private Sub Form_Load() Show Text3.SetFocus End Sub 方法2：用属性实现 Private Sub Form_Load() AutoRedraw = True Text3.TabIndex = 0 End Sub 第二章 简单的VB程序设计习题 一、概念题 1、合法常量有: (1)Single (3)Single (4)Double (7)String (9)Date (10) Double (12)八进制的整型 (13) 八进制的整型 (14) 十六进制的整型 (15)Boolean (18)Single 2、合法变量: (2) (6) (9) (10) (11) 3、(1)abs(x+y)+z^5 (2)(1+x*y)^6 (3)(10*x+sqr(3*y))/(x*y) (4)sin(45*3.1415926/180)+(exp(10)+lo