以下程序的功能是随机产生10个两位的整数：
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 100) + 1
Print a(i)
Next i
End Sub
运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是( )。

A) a(i)=Int(Rnd * 100)

B) a(i)=Int(Rnd * 90)+10
C) a(i)=Int(Rnd * 100)+10

D) a(i)=Int(Rnd * 101)

周某与秦某签订了一份买卖房屋的协议。协议签订后，周某为了确保未来取得房屋所有权，可以向有关登记机构申请（）。

A.变更登记

B.异议登记

C.预告登记

D.撤销登记