第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                         
三、判断题
Ⅹ Ⅹ Ⅴ Ⅹ Ⅴvb语言程序设计第五版上机答案
四、程序填空题
1、Ch<>“？”    “A” to “Z”      Loop
2、mn=m*n      n>m      n<>0      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  p<2000000000
    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
Print (CStr(s))
第5章 习题答案
一、选择题
D C A C B
二、填空题
1．18                  2.9
3.Variant              4.Option Base 1
5.值传递、地址传递      6.Byval、Byref
7.形式、实际            8.ReDim a(2)
9.窗体模块、标准模块、类模块      10.全局变量
三、判断题
Ⅴ Ⅹ Ⅹ Ⅴ Ⅹ
四、程序填空题
1、*    i+1      a(j)              2、fun(i)      fun=p
五、程序改错题
1．For n =  m  +  1  To 10     
If a(t) > a(n) Then t = n
If  t  <>  m  Then
2、max = A(1, 1)
col = j
row = i
六、程序设计题
第1题 程序
Dim i, s As Integer
a = Array(15,23,72,43,96,23,3,65,88,17)
max = a(0)
min = a(0)
s = 0
For i = 0 To 9
    If a(i) > max Then

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。