三车资料库

QQ登录

只需一步,快速开始

注册

归类:工学类

《VB程序设计》课后习题答案(第四版,邵洁主编的)

ansys1977 发表于 2010-11-14 18:19:18
好资料,谢谢
— — — — — — — —下载区开始线 — — — — — — — —  
《VB程序设计》课后习题答案(第四版,邵洁主编的).rar

《VB程序设计》课后习题答案(第四版,邵洁主编的).rar [45.11 KB]

— — — — — — — —下载区结束线 — — — — — — — —  
包含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

三车资料库

三车资料库|Archiver|法律顾问:ITLAW-庄毅雄律师|联系我们  

Copyright © 2009 - 2011 三车资料库 (湘ICP备11018236号) All rights reserved.

Powered by Discuz! X2. 掘墓网.

GMT+8, 2012-5-20 08:13 , Processed in 0.081121 second(s), 25 queries .