Question

如图所示vb这道题的代码怎么写？谢谢！

Answer 1

Option Explicit
Private Sub Option1_Click(Index As Integer)
Text1.Text = "": Text2.Text = ""
If Index = 0 Then Text1.Enabled = False: Text2.Enabled = True
If Index = 1 Then Text2.Enabled = False: Text1.Enabled = True
End Sub
Private Sub Command1_Click()

If Option1(0).Value = True Then Text1.Text = 9 * Val(Text2.Text) / 5 + 32
If Option1(1).Value = True Then Text2.Text = (5 * (Val(Text1.Text) - 32)) / 9
 Command1.Enabled = False
End Sub

Private Sub Form_Load()
 
  Command1.Enabled = False
  Text1.Enabled = False
  Text2.Enabled = False

End Sub

 

 

 

Private Sub Text1_Change()
Command1.Enabled = True

End Sub

Private Sub Text2_Change()
Command1.Enabled = True

End Sub

Answer 2

我刚写了一下，可以用， 不过我好像会写的复杂了点。。。新手不太懂o(︶︿︶)o

 

突然发现错了，就是要求仅当文本框有数时 转换 才可以用，这个我弄错了。。 因为用起来做不到这样，楼主你看着改吧。。要是会了就顺便教下我呗 谢啦~

Answer 3

下载附件。

Answer 4

这太简单了。。。好好看看书。。。更不没几句命令。。。。主要是窗体的设置