當我執行的時候他就會說型態不符。
Dim cpu As String
Dim mb As String
Dim ram As String
Private Sub Command1_Click()
txthd.Text = "建議配置:" & vbCrLf & vbCrLf & cpu & vbCrLf & mb & ram
  DoEvents
End Sub
Private Sub opntyp_Click(Index As Integer)
cpu = opntyp(Index).Caption
   mb = opntyp(Index).Caption
  ram = opntyp(Index).Caption
  
  If Index = 0 Then
    cpu = "處理器:500MHz" & mb = "主機板:p4pe" & ram = "記憶體:128MB"
ElseIf Index = 1 Then
cpu = "處理器:1000MHz" & mb = "主機板:p4p800" & ram = "記憶體:512MB"
ElseIf Index = 2 Then
cpu = "處理器:2000MHz" & mb = "主機板:p4px" & ram = "記憶體:768MB"
Else
cpu = "處理器:3000MHz" & mb = "主機板:p4c800" & ram = "記憶體:1024MB"
  End If
End Sub
文章標籤
全站熱搜
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(4) 人氣(8)