vb习题答案(1-9章)最全的.doc

第一章 VB程序设计概述 二、选择题 CADAB ACDAB CBDBB 第二章 VB可视化编程基础 二、选择题 ABDCA CACBC DADAD BDBBB 三、填空题 1.可视 2.LEFT TOP WIDTH HEIGHT 3.按字母序 4.查看代码 5.工具、选项 6.Form1 Font 7.Multiline 8.只读属性 9.工程 属性 通用 Form1.show 10.tabindex 0 第三章 VB语言基础 二、选择题 BCADB ADBBC DBCBA DAABB 三、填空题 1.整型、长整型、单精度、双精度 2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x) 3.160 今天是：3-22 4.False 5.-4 3 -3 3 -4 4 6.“CDEF” 7.(x mod 10)*10+x\10 8.(35\20)*20=20 ( 35 \ 20 ) * 20 = 20 9.x mod 3=0 or x mod 5=0 10.27.6 8.2 8 1 100 397 true false 第四章 VB程序控制结构 二、选择题 DBCAD ABCAB D25BAC CBACB DABBC 三、填空题 1.字符型 整型 2. 1 2 3 3.x7 4.xamin 5.1024 6.11 7.12 8.6 I “*”; 9.0 100 i+1 10.2*I 6 “*”; 三、编程题 1. Private Sub Form_Click() Dim n As Integer, i As Integer, s As Long s = 1 n = Val(InputBox(请输入一个整数:)) For i = 1 To n s = s * i Next i MsgBox n ！= s End Sub 2．Private Sub Form_Click() Dim i%, k% For j = 3 To 100 k = Int(Sqr(j)) For i = 2 To k If j Mod i = 0 Then Exit For Next i If i k Then y$ = y$ j End If Next j MsgBox y, , 显示质数 End Sub 3．Private Sub Form_Click() Dim i%, s% For i = 1 To 100 s = s + i Next i MsgBox 1+2+3+……+100= s End Sub 4．Private Sub Form_Click() Dim x%, y% For x = 1 To 50 For y = 1 To 33 z = 100 - x - y If 2 * x + 3 * y + 0.5 * z = 100 Then Print 小鸡、公鸡、母鸡分别为：; x; y; z End If Next y Next x End Sub 5.Private Sub Command1_Click() Dim a%, b%, c%, p!, s! do a = Val(InputBox(请输入三角形的第一条边)) if a=-1 then exit do b = Val(InputBox(请输入三角形的第二条边)) c = Val(InputBox(请输入三角形的第三条边)) If a + b c And a + c b And b + c a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print s Else MsgBox 你输入的三边不能构成三角形，请重新输入 End If loop End Sub 6. Private Sub Form_Click() Dim i As Integer, j As Integer,k as integer For i = 1 To 8 For k=1 to 8-i Print spc(3); Next k For