平行普通角闪石（010）的切面方向的消光类型为（）。
A、对称消光
B、斜消光
C、平行消光
D、不消光
参考答案：B
改错题（14分）【题目】本程序的功能是生成由n（n通过InputBox函数输入）个3位升序数构成的随机数组,所谓升序数是指从高位到低位数字值依次增加的整数(本程序界面由1个TextBox和1个CommandButton组成，所有对象均采用缺省名)
Option ExplicitOption Base 1Private Sub Command1_Click() Dim n as long, a() As Integer, k as Integer, p as Integer n=InputBox(“输入数据个数;”,”升序数数组”,10) Redim a(n) Do p= Int(Rnd*900)+101 If judge(p) Then k=k+1 a(k)=p Text1.text=Text1.text & Str(a(k)) If K Mod 5=0 Then Text1.text = Text1.text & vbcrlf End If Loop Until k>nEnd Sub public Function judge(n as integer) As Boolean Dim i as integer, a(3) as integer For i=3 To 1 Step -1 a(i)= n Mod 10 n=n\10 Next i For i=1 to 2If a(i)>=a(i+1) Then Exit For Next i judge=TrueEnd Function1.新建工程,按参考界面形式创建窗体,再从T盘根目录下的err.txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。2.改错时,不得增加或删除语句,但可适当调整语句的位置。3.将窗体文件和工程文件分别命名为F1和P1,并保存到T盘的根目录下。
患者王某，25岁，受凉后发热、咳嗽、胸痛1周，经抗感染治疗后胸痛消失，但出现胸闷、憋气、乏力。查体：左下肺叩浊音，呼吸音消失；血常规：WBC13.4×109/L，N%78%。
上述抽液时出现的情况是属于（）
A.麻醉药过敏
B.胸膜反应
C.肺复张后肺水肿
D.穿破胸膜发生气胸
E.穿破血管导致失血
F.急性左心衰
Option ExplicitOption Base 1Private Sub Command1_Click() Dim n as long, a() As Integer, k as Integer, p as Integer n=InputBox(“输入数据个数;”,”升序数数组”,10) Redim a(n) Do p= Int(Rnd*900)+101 If judge(p) Then k=k+1 a(k)=p Text1.text=Text1.text & Str(a(k)) If K Mod 5=0 Then Text1.text = Text1.text & vbcrlf End If Loop Until k>nEnd Sub public Function judge(n as integer) As Boolean Dim i as integer, a(3) as integer For i=3 To 1 Step -1 a(i)= n Mod 10 n=n\10 Next i For i=1 to 2If a(i)>=a(i+1) Then Exit For Next i judge=TrueEnd Function1.新建工程,按参考界面形式创建窗体,再从T盘根目录下的err.txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。2.改错时,不得增加或删除语句,但可适当调整语句的位置。3.将窗体文件和工程文件分别命名为F1和P1,并保存到T盘的根目录下。