コンボボックスで選んだリストに得点を付けるとして、表示ボタンでその得点を取り出し、合計得点
を出したいときどうすればいいですか？Combo1.ItemData(Combo1.ListIndex)
初心者ですみません。

とりあえず一行目に環境とか書いたほうが良いと思われ。

> コンボボックスで選んだリストに得点を付けるとして、
選んだリストに得点をつけるというのが…具体的な方法じゃないのでちょっと危ない滑り出し。

> 表示ボタンでその得点を取り出し、
表示ボタン…で「得点」を「取り出す」…？
とりあえず、「得点をつける」という方法が不明なので、
どうやって、何を入れたか不明なハコから何をして取り出せばいいのか分からん。

> 合計得点を出したいときどうすればいいですか？
コレは答えられるかもしれない。
個々の得点を合計すれば、出る…ソレだけだと思われ。

> Combo1.ItemData(Combo1.ListIndex)
…これ一体…？

> 初心者ですみません。
初心者で逃げるな…とかいえないな。(orz

こういうことをききたいのでしょうか？

Option Explicit

Private Sub Combo1_Click()
    Text1.Text = CStr(Combo1.ItemData(Combo1.ListIndex))
    Text2.Text = CStr(CLng(Text2.Text) + CLng(Text1.Text))
End Sub

Private Sub Form_Load()
    Dim dat
    Dim i As Long
    dat = Array(Array("国語", "算数", "理科", "社会"), _
                Array(30, 20, 40, 50))
    For i = 0 To UBound(dat(0))
        Combo1.AddItem dat(0)(i)
        Combo1.ItemData(Combo1.NewIndex) = dat(1)(i)
    Next
    Text2.Text = "0"
End Sub

> こういうことをききたいのでしょうか？
>
> Option Explicit
>
> Private Sub Combo1_Click()
>     Text1.Text = CStr(Combo1.ItemData(Combo1.ListIndex))
>     Text2.Text = CStr(CLng(Text2.Text) + CLng(Text1.Text))
> End Sub
>
> Private Sub Form_Load()
>     Dim dat
>     Dim i As Long
>     dat = Array(Array("国語", "算数", "理科", "社会&q
uot;), _
>                 Array(30, 20, 40, 50))
>     For i = 0 To UBound(dat(0))
>         Combo1.AddItem dat(0)(i)
>         Combo1.ItemData(Combo1.NewIndex) = dat(1)(i)
>     Next
>     Text2.Text = "0"
> End Sub

ありがとうございます。この方法で作動しました。