《VB程序设计》课后习题答案（第四版，邵洁主编的）

包含5.6.7.8.9.10章节
习题5
一．        判断题
1.×
2.×
3.√
4．×
5．√
6．×
7.√
8.√
9.√
10．√

二．        选择题
1．        B
2．        B
3．        A
4．        C
5．        D
6．        D
7．        A
8．        C

三．        程序阅读题
1．        窗体上的显示结果：


2．        窗体上的显示结果：



四．        程序填空题

1. (1) I+j-1
(2) 7-I
(3) print

2. (1) Dim STR As String
(2) inputbox(STR)
(3) UCase(x) = "E"

五．        程序设计题
1．
Private Sub Form_Click()
Dim i As Integer
  Dim j As Integer
  Dim n As Integer         'n+1层为杨辉三角形的层数
  Dim a() As Integer        '定义动态数组，因为层数未定
  n = InputBox("请输入一个正整数<=9，")
  ReDim a(n + 1, n + 1)     '确定数组
  If n > 9 Then
    Print "输入的数太大，n<=9"
    End
  End If
  For i = 1 To n + 1
    a(i, 1) = 1
    a(i, i) = 1
  Next i
  '计算出除第一列和最后一列外的数据，请编写代码。
  For i = 3 To n + 1
    For j = 2 To i - 1
      a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
    Next j
  Next i
'打印输出扬辉三角形
  For i = 1 To n + 1
    For j = 1 To i
      Print a(i, j);
  Next j
  Print
Next i
End Sub
2．
Private Sub Form_Click()
  Dim a(9) As Integer
  Dim n As Integer
  Dim I As Integer