设b_i＞0，i=1，…，m;c_j≥0，j=1，…，n（m＜n)。写出下面线性规划的对偶问题，证明对偶问题有唯一最

设v_i∈Rⁿ,v₁≠0,λ_i∈C,λ_i互不相同,i=1,2,...,m,试证向量值函数在区间(-∞+∞)内线性无关.

设凹盯贴N77子程序如下：

SUBROUTINESUB(1，X)

B＝I十1

X＝X+B

END

若主程序中的变量M，B已按1一N规则赋值，则调用上述子程序的语句中正确，是()。

(A) CALLSUB(M，M)

(B) CALLSUB(M+4，B)

(C) CALLSUB(B，B)

(D) CALLSUB(M，B+4)

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 3， 1 To 3)， x x=Array(1，2，3，4，5，6，7，8，9) For i=1 To 3 For i-1 To 3 a(i，j)=x(i*j-1) Next j Next i Call sub1(i，j，a()) End Sub Private Sub sub1(m，n，t) For m=1 To 3 For n=1 To 3 Print t(m，n)； Next n Print Next m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．1 2 3 2 5 8 3 6 9

B．1 2 3 2 4 6 3 6 9

C．3 6 9 2 5 8 1 2 3

D．3 6 9 2 4 6 1 2 3

一个SUBA子程序如下所示： SUBROUTINE SUBA(N，X) B=N+2 X=X+B END 调用上述子例行程序的正确语句是( )。

A．CALL SUBA(N，M)

B．CALL SUBA(A，B)

C．CALL SUBA(I*2，Y)

D．CALL SUBA(I*2，J+2)

阅读下列FORTRAN77程序：

INTEGERB(4，4)，P

N＝4

CALLSUB(B，N)

WRITE(*，*)P(B，N)

END

SUBROUTINESUB(Q，N)

INTEGERM，N，K，Q(N，N)

D010K＝1，N

D010M＝1，N

10Q(M，K)＝8*(K-1)+M

END

INTEGER FUNCTI()N P(B，N)

INTEGERB(N，N)

P＝0

D0100K＝1，N

100P＝P+B(K，K)

END

运行上述程序后，输出的结果为()。

(A) 55

(B) 56

(C) 57

(D) 58

设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Clnt(Rnd()*100) Ifb(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是( )。

A．数组b中的偶数被保存在数组C中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息

设有如下程序

Option Base 1

Private Sub Command1_Click( )

Dim a(10)As Integer

Dim n As Integer

n=lnput Box(“输入数据”)

If n＜10 Then

Call GetArray(a，n)

End If

End Sub

Private Sub GetArray(b( )As Integer，n As Integer)

Dim c(10)AsInteger

j=0

For i=1 To n

b(i)=CInt(Rnd( )*100)

If b(i)/2=b(i)\2 Then

j=j+1

c(j)=b(i)

End lf

Next

Print j

End Sub

以下叙述中错误的是

A．数组b中的偶数被保存在数组c中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息

设有如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜ 10 Then Call，GetArray(a， n) End If End Sub Private Sub GetArray(b() As Integer， n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) /2 =b(i) \2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是

A．数组b中的偶数被保存在数组c中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息

设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n<10 Then Call GetArray(a，n) End If End Sub Private Sub GetArray(b( )As Integer，n As Integer) Dim c(10) As Integer j=0 For i=1 To n b(i)=CInt(Rnd( )*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub以下叙述中错误的是

A．数组b的偶数被保存在数组c中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息

设有如下程序

Option Base 1

Private Sub Command1_Click（）

Dim a（10）As Integer

Dim n As Integer

n=InputBox（"输入数据"）

If n<10 Then

Call GetArray（a,n）

End If

End Sub

Private Sub GetArray（b（）As Integer,n As Integer）

Dim c（10）As Integer

j=0

For i=1 To n

b（i）=CInt（Rnd（）*100）

If b（i）/2=b（i）\2 Then

j=j+1

c（j）=b（i）

End If

Next

Print j

End Sub

以下叙述中错误的是（ ）。

A．数组b中的偶数被保存在数组c中

B．程序运行结束后,在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何显示