0

誰でも次のコードを圧縮できますか?

Dim a as integer = 0
    Dim b as integer = 4
    Dim c as integer =4
    Dim d as integer =4

For Each rad As RadioButton In GroupBox1.Controls
    If b > 1 Then
    rad.Text = ds.Tables("questionBank").Rows(a).Item(b)
    b = b - 1
    End If
    Next



    a = a + 1
    For Each rad As RadioButton In GroupBox2.Controls
    If c > 1 Then
    rad.Text = ds.Tables("AddressBook").Rows(a).Item(c)
    c = c - 1
    End If
    Next


    a = a + 1
    For Each rad As RadioButton In GroupBox2.Controls
    If d > 1 Then
    rad.Text = ds.Tables("AddressBook").Rows(a).Item(d)
    d = d - 1
    End If
    Next

LAN ベースの多肢選択問題 MCQ アプリケーションを開発しています。それぞれに 3 つのラジオ ボタンを含む、多数のグループ ボックスを含むフォームがあります。各ラジオ ボタンのテキスト プロパティは、ユーザーが回答としてオプションの 1 つを選択できるように、質問のオプションの 1 つを表示する必要があります。

データセット「ds」には、質問と回答が含まれています。各行には、1 つの質問と 3 つのオプションが含まれています。質問は列 1 にあり、オプションは列 2、3、および 4 にあります。

変数 a は行をループするために使用され、変数 b、c、および d は行の列をループするために使用されます。

4

2 に答える 2

0

試してみてください:
交換してください

rad.Text = ds.Tables("questionBank").Rows(a).Item(b)

と

rad.Text = ds.Tables("questionBank").Rows(a)(b)
于 2013-06-02T09:08:51.393 に答える