《i》 标签的作用是

关于DNaseI足纹分析法，下列说法不正确的是

A．DNaseI可以随机水解核苷酸中的磷酸二酯键

B．DNaseI可以水解与蛋白质结合的核苷酸

C．DNaseI水解核苷酸有碱基特异性

D．末端标记的双链DNA经DNaseI作用，经放射自显影后形成以相差一个核苷酸为梯度的DNA探针

E．当结合有蛋白质的DNA片段DNase工作用后，在放射自显影图谱上出现一段空白区域，称之为足纹

用DNAaseI(浓度分别为0，0.1，1.0，10mg/ml)四种浓度，在25℃下作用20分钟消化小鸡红细胞核的染色质。用重分子标记物标记，将产物在6%聚丙烯酰胺凝胶中电泳。如下图，现在，样品被你混淆了，不知道什么样品对应于哪一个泳道，你惟一知道的是重分子标记物是最左边的一组。

  

  A．写出各泳道对应的DNAascⅠ的浓度。

  B．写出近似的分子量。

  C．通过实验来说明红细胞核染色质的结构。

医疗器械说明书和标签不得有下列内容( )

A.含有“疗效最佳”、“保证治愈”、“包治”、“根治”、“即刻见效”、“完全无毒副作用”等表示功效的断言或者保证的;

B.含有“最高技术”、“最科学”、“最先进”、“最佳”等绝对化语言和表示的;

C.说明治愈率或者有效率的;

D.与其他企业产品的功效和安全性相比较的;

E.含有“保险公司保险”、“无效退款”等承诺性语言的;

F.利用任何单位或者个人的名义、形象作证明或者推荐的;

G.含有误导性说明，使人感到已经患某种疾病，或者使人误解不使用该医疗器械会患某种疾病或者加重病情的表述，以及其他虚假、夸大、误导性的内容;

H.法律、法规规定禁止的其他内 容。

I.特殊储存、操作条件或者说明;

J.以上全是

本题是一个Applet，它的功能是在窗口上添加12×12个标签，并且横向和纵向标签的颜色为黑白相间。

import java．applet．*；

import java．．awt．*；

import java，．awt．event*；

pubhc class java2

extends Applet

{GridLayout grid；

pubhc void init（）

{grid=new GridLayout（12，12）；

setLayout（grid）；

Label =new Label[12][12]；

for（int i=0；i<；12；i++）

{for（int j=0；j<；12；j++）

{label[i][j]= ；

if（（i+j）％2= =0）

label[i][j]．setBackground（Color．black）；

else

label[i][j]．setBackground（color．white）；

add（label[i][j]）；

}

}

}}

在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )

A．Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End Sub

B．Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End Sub

C．Private Sub Command1_Click() Dim I,R As Integer Do While I＜5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End Sub

D．Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I＜5 LblResult. Caption=Str$ (R) End Sub

A.〈en〉〈/en〉和〈I〉〈/I〉

B.全部都是

C.〈I〉〈/I〉和〈Cite〉〈/Cite〉

D.〈strong〉〈/strong〉和〈B〉〈/B〉

E.〈p〉和〈Br〉

在窗体中添加一个名称为Command1的命令按钮、一个名称为Label1的标签，编写如下代码： Option Base 1 Private Sub Command1_Click( ) a=Array(23，34，25，46，35) ┊ End Sub 过程的功能是求数组a中是奇数的元素的个数，并把结果显示在标签中。为实现此功能，省略号处的程序段应该是

A．For i=0 T0 4 If a(i)Mod 2＜>0 Then b=b+1 End lf Next i Label1.Caption=b

B．For i=0 To 4 If a(i)Mod2=0 Then b=b+1 End lf Next i Label1.Caption=b

C．For i=1 To 5 If a(i)Mod 2 ◇Then b=b+1 End lf Next i Label1.Caption=b

D．For=0 To 5 If a(i)Mod 2=0 Then b=b+1 End lf Next i Label1.Caption=b

在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1)，然后编写如下代码： Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer Dim i, j, Sum AsInteger Sum＝0 For i=1 To 10 Forj=1 To 10 arrayl(i, j)=i+j Nextj Next i End Sub 此程序的功能是求数组arrayl主对角线元素的和，并把结果显示在标签中，为实现此功能，省略号处的程序段应该是 ( )

A．For i=1 To 10 For j=1 To 10 If i=j Then Sum = Sum+ arrayl (i,j) End If Next j Next i Labelt. Caption=Sum

B．For i=l TO 10 Forj=1 To 10 If i= =j Then Sum=Sum+array1 (i,j) End If Next j Next i Labell. Caption=Sum

C．For i=1 To 10 For j=1 To l0 If i=j Then Sum=Sum+arrayl (i,j) End If Next i Next j Lahell. Caption=Sum

D．For i=1 To 10 For j=1 To l0 If i=j Then Sum=arrayl (i,j) End If Next j Next i Labell. Caption=Sum

试题七（共15分）

阅读以下应用说明以及用Visual Basic 编写的程序代码，将应填入（n） 处的字句写在答题纸的对应栏内。

[应用说明]

某应用程序用于监测某种设备的工作温度（20～200度），其运行窗口中，包括一个温度计（矩形形状shpMeter）以及其中指示当前设备温度的水银柱（矩形形状shpT）,文字标签标记了温度刻度；另有一个图片框picCurve，用于动态描述检测到的温度曲线（用户见到的曲线与水银柱等高变化）；命令按钮“开始测”（cmdStart）用于启动温度检测，命令按钮“暂停检测”（cmdStop）用于暂停检测。矩形形状 shpT(水银柱)属性visible 初始设置为不可见，属性Filltype 设置为solid（实心），FillColor设置为红色；图片框picCurve的属性AutoRedraw设置为True；再创建一个定时器TimT，属性Enabled初始设置为False（不起作用），属性Interval(定时间隔)设置为500 毫秒。为模拟设备温度的检测，程序中利用了（0，1）之间均匀分布的伪随机数获得[20,200]之间的随机温度T。为了便于在图片框picCurve 中绘制曲线，程序中对该图片框立了坐标系统，左上角为原点（0，0），水平向右方向为X 轴，垂直向下方向为Y 轴，右下角坐标为（50，180）。为了便于观察记录的温度值，图片框中从上到下创建了5 条水平线Ls(i),i=0,1,…4，并在程序中按等间隔排列进行位置设置。程序中每隔半秒算出曲线点（x,y），其中x=0,1,2,…，再用直线段连接各相邻曲线点形成温度曲线。

[Visual Basic程序代码]

Dim (1) As Integer '声明全局变量

Private Sub CmdStart_Click( )

TimT.Enabled = True

ShpT.Visible = True

End Sub

Private Sub CmdStop_Click( )

TimT.Enabled = False

End Sub

Private Sub Form_Load( )

Dim i, H As Integer

PicCurve.Scale (0, 0)-(50, 180) '设置图片框坐标系：左上角-右下角

H = 30 'H 等于图片框高度的六分之一

For i = 0 To 4 '设置5条水平线Ls(i)的位置

Ls(i).X1 = 0 'Ls(i)起点横坐标

Ls(i).Y1 = H * (2) 'Ls(i)起点纵坐标

Ls(i).X2 = 50 'Ls(i)终点横坐标

Ls(i).Y2 = Ls(i).Y1 'Ls(i)终点纵坐标

Ls(i).BorderColor = &HC0C0C0 '设置水平线颜色

Next i

x = 0 '设置曲线坐标初值

End Sub

Private Sub timT_Timer()

Dim T, H As Integer 'T为即时温度，H 为图片框中温度点显示高度

T = Int(Rnd * 181) + 20 '模拟随机产生设备温度（20～200 度）

'按当前温度显示水银柱

H = ShpMeter.Height * (3) '算出水银柱的高度

ShpT.Top = (4) - H '设置水银柱顶部位置

ShpT.Height = H '设置水银柱的高度

'绘制温度曲线

y = (5) '算出曲线上当前点的纵坐标

If x = 51 Then '当超出图片框时

PicCurve.Cls '清除图片框内以前画的曲线

x = 0 '设置重画曲线的初值

ElseIf x > 0 Then '除左边点外

PicCurve.Line (x-1,Lasty)-(x,y),vbRed '由前1 点到当前点画红色线段

End If

x = x + 1 '准备下一点坐标

Lasty =y '保存当前坐标供下次使用

End Sub