VB.net数组选择题 vb数组题目

VB.NET数组问题（！！！！！！！求助！！！！！！！！！）

Dim a(3, 3, 3)

茄子河网站建设公司创新互联公司,茄子河网站设计制作，有大型网站制作公司丰富经验。已为茄子河上1000+提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的茄子河做网站的公司定做！

Dim b(3, 3), c(3, 3), d(3, 3)

Private Sub aaa()

' 对数组a(3,3,3)赋值

For i = 1 To 3

For j = 1 To 3

b(i, j) = a(1, i, j)

For i = 1 To 3

For j = 1 To 3

c(i, j) = a(2, i, j)

For i = 1 To 3

For j = 1 To 3

d(i, j) = a(3, i, j)

End Sub

'这是在vb6中的代码，在vb.net中基本差不多，你可以参考一下

Private Sub cmdCommand1_Click()

Me.AutoRedraw = True

Dim Grp

Grp = Array(1, 2, 3, 4, 5)

Dim i, j As Long

Dim StrPrt As String

For i = 0 To UBound(Grp)

'i为位移量

StrPrt = ""

For j = i To UBound(Grp)

StrPrt = StrPrt Grp(j)

Next j

For j = 0 To i - 1

StrPrt = StrPrt Grp(j)

Next j

Me.Print StrPrt

Next i

End Sub

先说清楚，是VB还是VB.NET。Radiobutton应该是VB.NET的叫法。

VB.NET 的话，你可以尝试自定义一个控件，这个控件由 1个GroupBox、1个Label，4个Radiobutton

在定义属性，表示题干，题目的选择枝和选择的答案。

当前标题：VB.net数组选择题 vb数组题目
当前URL：http://scyanting.com/article/ddocjcg.html