【说明8.1】
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。
【程序代码8.1】
Private Sub Command1_Click()
For i=1 To 20
x=Int( (1) *200+100)
If (2) =0 Then
Print x
S=S+ (3)
End If
Next i
Print"Sum=";S
End Sub
【说明8.2】
程序8.2运行后，单击窗体，则在窗体上显示的内容是：a= (4) 和b= (5) 。
【程序代码8.2】
Private Sub Form_Click()
Dim a As Integer,b As Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
Print"a=";a,"b=";b
End Sub
Sub p1(x As Integer, ByValy As Integer)
x=x+l0
y=y+20
End Sub
Sub p2(ByVal×As Integer, y As Integer)
x=x+l0
y=y+20
End Sub
Sub p3(ByVal×As Integer, ByVal y As Integer)
x=x+10
y=y+20
End Sub

患者风湿热病史3年，听诊心尖区闻及响亮、粗糙、音调高的全收缩期杂音，X线检查左心房、左心室增大。据此可诊断为风心病（）

A.二尖瓣狭窄

B.二尖瓣关闭不全

C.主动脉瓣狭窄

D.主动脉瓣关闭不全

E.联合瓣膜病变