求助各位大神们，请问这两题该怎么做，孩子快要急死了就是不会做，麻烦各位可以给我一个解答或者参考代码了，谢谢你们了！😭😭

图一就两句代码的事：
Command1.Enabled = True
Command1.Enabled = False
分别写在两个单选按钮的Click事件过程中
图二代码如下：
Dim a(1 To 10) As Integer, i As Integer
Print "能被9整除的数有：";
For i = 1 To 10
a(i) = Int(Rnd * 667) + 123
If a(i) Mod 9 = 0 Then Print a(i);
Next i