VB.net数组选择题 vb数组选择排序

vb.net关于排列数组的问题

Dim allshu, s, k As String

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked Then

allshu = allshu + "0"

End If

End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.Checked Then

allshu = allshu + "1"

End If

End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

If CheckBox3.Checked Then

allshu = allshu + "2"

End If

End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

If CheckBox4.Checked Then

allshu = allshu + "3"

End If

End Sub

Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged

If CheckBox5.Checked Then

allshu = allshu + "4"

End If

End Sub

Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged

If CheckBox7.Checked Then

allshu = allshu + "5"

End If

End Sub

Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged

If CheckBox9.Checked Then

allshu = allshu + "6"

End If

End Sub

Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged

If CheckBox10.Checked Then

allshu = allshu + "7"

End If

End Sub

Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged

If CheckBox8.Checked Then

allshu = allshu + "8"

End If

End Sub

Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged

If CheckBox6.Checked Then

allshu = allshu + "9"

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

CheckBox1.Checked = True

CheckBox2.Checked = True

CheckBox3.Checked = True

CheckBox4.Checked = True

CheckBox5.Checked = True

CheckBox6.Checked = True

CheckBox7.Checked = True

CheckBox8.Checked = True

CheckBox9.Checked = True

CheckBox10.Checked = True

allshu = "0123456789"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim a, b, i, j As Integer

a = 0

For i = 1 To Len(allshu) - 2

s = Mid(allshu, a + 1, 2)

a += 1

b = 3

For j = 1 To Len(allshu) - a - 1

k = Mid(allshu, b + a - 1, 1)

b += 1

Label1.Text = Label1.Text + s + k + ","

Next j

Next i

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

CheckBox1.Checked = False

CheckBox2.Checked = False

CheckBox3.Checked = False

CheckBox4.Checked = False

CheckBox5.Checked = False

CheckBox6.Checked = False

CheckBox7.Checked = False

CheckBox8.Checked = False

CheckBox9.Checked = False

CheckBox10.Checked = False

allshu = ""

Label1.Text = ""

End Sub

End Class

VB.NET 二维数组问题

根据你的语句，上下标是确定的，所以定义语句修改为：

Dim ary(UBound(temp), 1) As String '声明二维数组

vb.net 从数组{5,7,11,13,17,19}中取一个数，取三次（可以是相同的数），三次之和有几个值？求代码！

Sub 和()

Dim Arr, Dic As Object, i, j, k

Set Dic = CreateObject("Scripting.Dictionary")

Arr = Array(5, 7, 11, 13, 17, 19)

For i = 0 To UBound(Arr)

For j = 0 To UBound(Arr)

For k = 0 To UBound(Arr)

Dic(Arr(i) + Arr(j) + Arr(k)) = ""

Next k

Next j

Next i

MsgBox Dic.Count

Set Dic = Nothing

End Sub

结果为22种不同的和值。

vb.net 数组显示矩阵的一道题

'这是在vb6中VB.net数组选择题的代码VB.net数组选择题，在vb.net中基本差不多VB.net数组选择题，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.NET编写：已知数组A＝Array(7,6,5,1,8,5,3,9,4)，编写一程序，删除数组中值为x（例如为3）...

For i = 0 To 10 '假设数组长度为10

 If a(i) = 3 Then

For j = i To 10 - 1

a(j) = a(j + 1)

Next j

ReDim Preserve a(10 - 1)

Exit For

End If

Next i

If i  10 Then

For k = 0 To 10 - 1

Print a(k)

Next

Else

For k = 0 To 10

Print a(k)

Next

End If

VB.NET ARRAY 问题

Dim anArray(5, 3) As Integer

数组维数是从0开始计算的。

数组的 GetLength 方法返回指定维的长度。

anArray.GetLength(0) 表示取anArray第0维长度，0-5，即返回6

同理anArray.GetLength(1)取anArray第1维长度，0-3，即返回4

VB.net数组选择题的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb数组选择排序、VB.net数组选择题的信息别忘了在本站进行查找喔。