vb习题答案

习题一（11页） 填空题 工程资源管理器窗口 字母序，分类序 Vbp工程文件，vbg工程组文件，frm窗体文件，bas标准模块文件，cls类模块文件，res资源文件 代码 调试应用程序 屏幕上的位置 简答题 是可视化编程工具；面向对象的程序设计；事件驱动的变成机制；结构化的程序设计语言；强大的数据库功能；动态数据交换功能；支持ActiveX技术；具有网络功能；可使用枚举类型；动态链接库和 WinAPI。 学习版：VB的基础版本；专业版：为专业编程人员提供了功能完备的工具；企业版：似的专业编程人员能够开发功能强大的组内分布式应用程序。 主窗口：功能同Microsoft 内的功能 窗体设计窗口：用来在窗体上设计应用程序的界面 属性窗口：用来设置应用程序界面上对象的属性 工程窗口：类似于Windows下的资源管理器 代码窗口：用来编写和修改程序代码 立即窗口：调试应用程序 窗体布局窗口：用来设计应用程序运行时各个窗体在屏幕上的位置 工具箱：包含程序设计时往窗体中放置控件的图形按钮 习题二（49页） 简答题 对象是指一组描述其特征的属性及这组属性上的专业操作及行为的封装体。属性是用来描述对象状态的数据。 事件过程使用_ 区分对象名与事件名；而方法以.区分；事件过程以事件驱动，方法由程序驱动；事件过程代码由使用者设计，方法是系统预定义的；方法有过程型和函数型，事件为过程型 Vbp包含工程中所有其它文件的文件名，以及VB的环境设置信息，frm包含窗体和控间的属性设置以及编写的事件代码，bas包含可供其它窗体调用的过程，ocx如果在VB工程中包含了非标准控件，就会在工程文件中产生这个文件。 当程序出现执行错误时，程序运行时单击了中断，用户在程序代码中设置了断点 单击对象“cmdOK”事件 将lblmessage.caption误写成lblmessage；caption NAME属性作为对象的标识在程序中引用，每个对象都有该属性；CAPTION属性是某些对象的外观文字。 当用户从磁盘上复制一个VB应用程序到另一张磁盘，稍一疏忽就很容易丢掉一个或几个文件 当窗体装入内存时会触发LOAD事件，而PRINT “GOOD MORNING”只有在窗体被激活后执行才能看到 窗体的LEFT指窗体的左上角距屏幕左边的距离，窗体的TOP指窗体的左上角距屏幕上边的距离；控件的LEFT指控件的左上角距窗体左边的距离，控件的TOP指控件的左上角距窗体上边的距离 Intitialize,Load,Active,Unload 不行 复制、移动、另存为 填空题 逻辑、编译、高亮显示 逻辑 Maxlength Multilane Label1.move (form1.scalewidth-label1.width)/2, (form1.scaleheight-label1.height)/2 Form 习题三（71页） 五、 Int(101+rnd*99) X mod 3=0 or x mod 7=0 X>=2 and x<=3 mid$(s,6,8) ucase(s) X15) y= 5+2x (0=7 7、x>=0; x30 Y=x*x+5*x+2 Case 10 to 30 Y=sqr(3*x)-2 Case is<15 Y=1/x+abs(8*x) End select Msgbox y Sum=0 For I =1 to 10 Sum=sum+(I+1)*(2*I+1) Next I Print sum 3.i=1 while x<20 x=12*(1+0.001)^I I=I+1 wend print I 4. Do While a <> -1 a = Val(InputBox("a=?")) If a = -1 Then MsgBox "运行结束": Exit Do b = Val(InputBox("b=?")) c = Val(InputBox("c=?")) If a < b + c And b < c + a And c < a + b Then d = (a + b + c) / 2 s = Sqr(d * (d - a) * (d - b) * (d - c)) Print s Else MsgBox "这三边无法构成三角形，继续！a=-1时，结束运行" End If Loop 5. max=int(50+rnd()*50) min=max sum=max for I=1 to 20-1 a=int(50+rnd()*50) sum=sum+a if maxa then min=a next I print “max=”;max print “min=”;min print “average=”;sum/20 6. for a=1 to 30 for b=1 to 30 for c=1 to 30 if a*a+b*b=c*c then print a,b,c next c,b,a 8. Print " "; For i = 3 To 12 Step 3 Print " "; i; Next i Print For i = 15 To 18 Print i; For j = 3 To 12 Step 3 Print " "; i * j; Next j Print Next I 9. Number = InputBox("请输入学号：") score = Val(InputBox("请输入成绩：")) If score >= 80 Then a$ = "Very Good" ElseIf score >= 60 Then a$ = "good" ElseIf score >= 50 Then a$ = "Fair" ElseIf score >= 40 Then a$ = "Poor" ElseIf score >= 30 Then a$ = "Fail" ElseIf score >= 0 Then a$ = "低于30，无评语！" End If MsgBox "学号：" & Number & "，考试成绩为：" & score & "," & a$ 简述题 1． 习题五（126页） 一、 CBDBCBABDCC 二、 interval enabled 下拉式组合框，简单组合框，下拉式列表框，style，0，1，2 下拉式列表框（style=2） 习题六（156页） 选择题 2，C、D，D，B，D，B，C，D 填空题 静态，动态 0，option base 名称，Index Variant Load,unload 动态，静态 9，ia(imax) t=a(j),a(j)=a(j+1) 分析程序，写出运行结果 n(2)=2 n(3)=3 N(4)=4 N(5)=5 2 65 7 2 3 2 4 1 10 9 8 7 6 5 4 3 2 1 简答题 1. 2. 3. 4. 6. 五、编程题 1． Option Base 1 Private Sub Form_Activate() Dim A, b, c%(1 To 6) A = Array(3, 4, 2, 5, 6, 8) b = Array(9, 12, 34, 23, 22, 55) For i = 1 To 6 c(i) = A(i) + b(i) Print c(i); Next i End Sub 2． Option Base 1 Private Sub Form_Activate() Dim Arr, num As Integer, inum As Integer Arr = Array(3, 6, 12, 5, 8, 24) '原始数据 Print "原始数据" For i = 1 To UBound(Arr) Print Arr(i); Next i num = Val(InputBox("请输入您要查找的数：")) inum = 0 'inum记录找到数下标，未找到时为0 For i = 1 To UBound(Arr) If Arr(i) = num Then inum = i: Exit For Next i Print If inum = 0 Then Print "查无数据"; num Else Print "第"; inum; "个数据是"; num End If For i = inum To UBound(Arr) - 1 Arr(i) = Arr(i + 1) Next i Print "结果数据" For i = 1 To UBound(Arr) - 1 Print Arr(i); Next i End Sub 3． Option Base 1 Private Sub Form_Activate() Dim Arr() As Integer, n% n = Val(InputBox("请输入数据个数：")) ReDim Arr(n) For i = 1 To n Arr(i) = Val(InputBox("请输入数据：")) Next i Print "原始数据" For i = 1 To n Print Arr(i); Next i For i = 1 To n \ 2 t = Arr(i): Arr(i) = Arr(n - i + 1): Arr(n - i + 1) = t Next i Print: Print "结果数据" For i = 1 To n Print Arr(i); Next i End Sub 4． Private Sub Form_Activate() Dim A%(1 To 2, 1 To 3), B%(1 To 3, 1 To 2) For i = 1 To 2 For j = 1 To 3 A(i, j) = Val(InputBox("")) Print A(i, j); Next j Print: Print Next i For i = 1 To 3 For j = 1 To 2 B(i, j) = A(j, i) Print B(i, j); Next j Print Next i End Sub 5． Private Sub Form_Activate() Dim Arr(1 To 5, 1 To 5) As Integer For i = 1 To 5 For j = 1 To 5 Arr(i, j) = 0 If i = j Or i + j = 6 Then Arr(i, j) = 1 Next j, i For i = 1 To 5 For j = 1 To 5 Print Arr(i, j); Next j Print Next i End Sub 6．