梁弯曲时，横截面上正应力的最大值σ_max（

A、剪力

B、弯矩

C、应力

D、正应力

E、切应力

设有以下程序：

Option Base 1

Private Sub Command1_Click( )

Dim arr1 ,Max as Integer

art1 = Array(12,435,76,24,78,54,866,43)

【 】= arr1(1)

For i = 1 To 8

If arrl(i)＞Max Then【 】

Next i

Print "最大值："； Max

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。

A、弯曲正应力最大，弯曲切应力等于零

B、弯曲正应力等于零，弯曲切应力最大

C、弯曲正应力和弯曲切应力都最大

D、弯曲正应力和弯曲切应力都等于零

以下程序的运行结果是( ) #define MAX 10 int a[MAX]，i; main() { printf("\n");sub1()；sub3(A) ,sub2()，sub3(A) ； } sub2() { int a[MAX]，i，max； max=5； for(i=0；i＜max；i++)a[i]＝i； } sub1() {for(i=0;i＜MAX；i++)a[i]＝i+i; } sub3(int a[]) { int i; for(i=0;i＜MAX，i++)printf("%d"，a[i])； printf("\n")； }

A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4

B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18

C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4

D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18

在窗体中有一外名为Command2的命令按钮，该命令的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将事件代码补充完整。

Private Sub Command2_Click()

max＝0

max_n＝0

For i＝1 To 10

num＝Val(InputBox("请输入第"& i &"个大于0的整数："))

If num＞max Then

man＝【 】

max_n＝i

End If

Next i

MsgBox("最大值为第"& max_n &"个输入的" & max)

End Sub