设有如下通用过程: Public Function Fun(xStr As String)As String Dim t Str As String,strL As Integer tStF=" " strL=Len(xStr) i=1 Do While i<=strL/2 tStr=Tstr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1) i=i+l Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮,然后编写如下的事件过程: Private Sub Command1_Click() Dim S1 As String S1="abedef" Prim UCase(Fun(S1)) End Sub 程序运行后,单击命令按钮,输出结果是( )
ABCDEF
B. abcdef
C. AFBECD
DEFABC
某边坡岩体的类别为Ⅳ类,岩体重度为21kN/m3,有一组软弱结构面通过坡脚,结构面倾角56°,倾向与边坡倾向相同,内摩擦角为18°,内聚力为25kPa,不考虑挡墙与岩体间的内摩擦角,挡墙直立,其变形需进行严格控制,墙背岩体表面水平,地表满布10kPa的荷载,岩体泊松比为0.20,坡高12m,按《建筑边坡工程技术规范》计算,岩体对挡墙的侧向压力修正值为()。
A. 283kN
B. 378kN
C. 1100kN
D. 1550kN