VB语言程序设计教程(第2版)杨忠宝刘向东主编第1-7章习题答案.doc

第1章 习题答案 一、选择题 B D C A C 二、填空题 1．对象框、属性列表 2.Windows 3.Ctrl+Q 4.查看代码 5.对象 、事件驱动 6.事件驱动编程 7.工程 8.工程资源管理器 三、判断题 Ⅹ Ⅹ Ⅴ Ⅴ Ⅹ 第2章 习题答案 一、选择题 B A B B D A B C C A 二、填空题 1．设计用户界面、编写程序代码、运行应用程序 2.逻辑错误 3.数据 4.Caption 5.Show 、Hide 6.True 7.Activate、Deactivate 8.Caption 9.方法 10.MultiLine 三、判断题 Ⅹ Ⅹ Ⅴ Ⅹ Ⅹ Ⅹ Ⅹ Ⅴ Ⅹ Ⅴ 第3章 习题答案 一、选择题 B A B D D C C B B B 二、填空题 1．3*(a+b)^2*C 2.5 3.x*y mod z 4.Double 5.x mod 5 =0 6.逻辑 7.0 8.True 9.4 10.Vis Basic 三、判断题 Ⅴ Ⅹ Ⅹ Ⅹ Ⅹ 第4章 习题答案 一、选择题 D A B C D D B D A C 二、填空题 1．20 300 2.36 3.15 12 4.1 2 3 5.5 三、判断题 Ⅹ Ⅹ Ⅴ Ⅹ Ⅴ 四、程序填空题 1、Ch“？” “A” to “Z” Loop 2、mn=m*n nm n0 r=m mod n 五、程序改错题 1、If Len(strPws) = 0 Then Exit Sub MsgBox 恭喜，密码正确， ，验证 If Not (KeyAscii = 48 And KeyAscii = 57) Then 2、 For j = 2 To i - 1 Print i; Space(10); If k Mod 4 = 0 Then Print 六、程序设计题 第1题 程序 Dim i， j， k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next 第2题 程序 Dim i As Integer For i = 100 To 200 If ((i Mod 5) = 0) And ((i Mod 3) 0) Then Print (CStr(i)) sum = sum + i End If Next 第3题 程序 Dim i As Integer Dim n As Integer i = 1 p = 1 Do While i = 10 p = p * i If i Mod 2 = 1 Then n = n + 1 sum = sum + (-1) ^ (n - 1) / p End If i = i + 1 Loop Print sum 第4题、程序 dim p as double dim r as single dim n as integer p=1300000000 r=0.01 do while p2000000000 p=p+p*r n=n+1 loop print n=,n year=n 第5题 程序 Dim j, i As Integer s = 0 j = 100 For i = 2 To 10 j = j / 2 s = s + 2 * j Next s = 100 + s Pri