當我執行的時候他就會說型態不符。
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
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
請先 登入 以發表留言。