男性，38岁，因骑跨伤致排尿困难， * * 流血而入院

首先应考虑的诊断是

A．输尿管损伤

B．肾裂伤

C．前 * * 断裂

D．后 * * 断裂

E．肾蒂伤

在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程：Private Sub Commandl_Click()Dim inData As StringTextl.Text=""Open"d：myfile.txt"For 【 】As#1Do While 【 】Input#,inDataLoopText1.Text=Text1.Text+inDLoopClose#1End Sub程序的功能是,打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。