VB6BOOK_第05章代码.docVIP

VB6BOOK_第05章代码 Option Explicit Private Sub Command1_Click() Dim a(1 To 5) As Integer, i As Integer For i = 1 To 5 a(i) = InputBox(请输入第 Str(i) 个元素) Next For i = 1 To 5 Print a(; i; ) = ; a(i) Next End Sub Option Explicit Private Sub Command1_Click() Dim a%(), i%, x!, f!, n% x = InputBox(x=?, , 1.9) n = InputBox(n=?, 几次多项式呀, 6) ReDim a%(n) 根据输入的n重新定义数组的大小 For i = 0 To n a(i) = InputBox(多项式的系数a( Str(i) )=?, 系数从高到低输入) Next i f = a(0) For i = 1 To n f = f * x + a(i) Next i Print 多项式的值f(; x; )=; f P