刚开始接触VB，有一个小应用，人民币美元兑换，总是出错，求助，我现在主要是不明白写代码的规则

怎样用VB编写人民币与美元兑换程序~

Private Sub Command1_Click()
a=val(inputbox("人民币"))
b=6*a
msgbox b & "美元"
End Sub

Private Sub Command1_Click()Text1.Text = Val(Text3.Text) / Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = ""Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub

四个按钮，一个个双击进去，看看是不是跳转到你的代码上，如果不是到你的代码，而是重新出来的一个过程的话把你对应原来对应功能复制到这个新过程去，再把原来的删除。
看你代码是表示这几个按钮是控件数组的。哦，对了，还要注意你的这几个按钮的index属性，全部按钮都清空这个属性。

你写的Command0是用的控件数组。这样的话，要在每个里面都加一句:
command1_click(index as integer)
select case index
case 0
'你的程序
case 1
'你的程序
…………
end select
end sub
、、、、、、、、、、、、、、、
这样就能分开每个控件数组的功能的。
如果你想单用每个command1、Command2、Command3……
就将每个里里面的【index as integer】删除就可以了

若不对请指正。谢谢

你把 4个按钮的 index 属性全填写上 0
或者你把 click(index as integer) 中的index as integer 全删除， 两者选一即可

四个按钮名字不一样，所以command_click后面没有Index参数，那个是你有多个同名的按钮（都叫command1）的时候才有的参数，把那个（Index as Integer）去掉就可以了

留个QQ我给你看看

---

刚开始接触VB，有一个小应用，人民币美元兑换，总是出错，求助，我现在主要是不明白写代码的规则视频