vb程序设计教程第五版课后答案(vb程序设计教程第五版课后答案解

vb程序设计课后答案:请问“求Fibonacci数列的前20个数。Fibonacci数列的特征是：第1个数和第二个数都是1

回答过了啊……

Dim f1, f2, f3 As Long

Dim i, j As Integer

f1 = 1

f2 = 1

j = 3?????????????????????????????????????????????????????????? 'j用来控制print和换行

Print "====输出Fibonacci数列20个数===="

Print

Print f1, f2,

For i = 3 To 20

????f3 = f1 + f2

????If j 4 Then

????????Print f3,

????Else

????????j = 0

????????Print f3

????End If

????f1 = f2

????f2 = f3

????j = j + 1

Next i

vb程序设计教程答案

Option Explicit

Private Sub Command1_Click()

Dim a() As Integer

Dim i, j, n

ReDim a(9, 9)

For i = 1 To 8

Print Tab(25 - i * 2);

For j = 1 To i

a(i, 1) = 1

a(i, i) = 1

a(i + 1, j + 1) = a(i, j) + a(i, j + 1)

Print a(i, j);

Next j

Print

Next i

End Sub

VB程序设计教程 第五版 蒋加伏 北京邮电大学出版社 习题答案

在窗体上输入100～200之间(包括100和200)不能被3整除的奇数及这些数的和