求解，怎么写代码，我先点击任意单选，或者复选按钮后在点击执行按钮能保存一个数到TXT文档啊！，。比如我点击 A Option1,执行过后保存是数是2，点击 C Option2 执行过后保存是数是5

我写的怎么是空白啊，不要输入的，要内置的。。。


Private Sub Check1_Click()
MM = 9
End Sub
Private Sub Check2_Click()
MM = 19
End Sub

Private Sub Command1_Click()
strFileName = App.Path & "\001.ini"
lngHandle = FreeFile()

strWrite = AA

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle


strFileName = App.Path & "\A01.ini"
lngHandle = FreeFile()

strWrite = MM

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle
End Sub

Private Sub Form_Load()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
AA = 5
End Sub

Private Sub Option2_Click()
AA = 6
End Sub

Private Sub Option3_Click()
AA = 8
End Sub

如果你没有少贴代码的话，你MM和AA必然都不能写入文本，
MM和AA在 Check1_Click、Option1_Click和Command1_Click都是局部两变量，你要用它传递数据必须在窗体层面上变成全局变量。

Dim MM as integer, AA as integer
Private Sub Check1_Click()
MM = 9
End Sub
Private Sub Check2_Click()
MM = 19
End Sub

Private Sub Command1_Click()
strFileName = App.Path & "\001.ini"
lngHandle = FreeFile()

strWrite = AA

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle


strFileName = App.Path & "\A01.ini"
lngHandle = FreeFile()

strWrite = MM

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle
End Sub

Private Sub Form_Load()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
AA = 5
End Sub

Private Sub Option2_Click()
AA = 6
End Sub

Private Sub Option3_Click()
AA = 8
End Sub