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

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

(45.11 KB) 售价: 下载豆 1 袋

包含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