vb.net怎么加标志位,vb标签位置怎么设置

VB.net随机产生10个小于数字不重复

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

Dim i, j

j = GetRndNotRepeat(1, 10, 10)

If j(0) Then

For i = 1 To 10

MsgBox(j(i))

Next

End If

End Sub

Public Function GetRndNotRepeat(ByVal NumMin As Integer, ByVal NumMax As Integer, ByVal n As Integer)

'编制:xsfhlzh

'功能:取NumMin到NumMax间的n个随机整数

'说明:取数标志数组是Byte，每一位表示NumMin到NumMax间某个数的状态

Dim arr() As Integer

If n NumMax - NumMin + 1 Then

ReDim arr(0)

arr(0) = 0

Return arr

Else

ReDim arr(n)

Dim m As Integer

Dim b() As Byte

m = Int((NumMax - NumMin) / 8)

ReDim b(m)

'取数标志

Dim i

Dim x, y, z As Integer

Randomize()

arr(0) = 1

For i = 1 To n

Do

'找到x的位置，y表示x在数组的第几个字节，z表示x在该字节的第几位

x = Int(Rnd() * (NumMax - NumMin + 1)) + NumMin

y = x - NumMin

z = 2 ^ (y Mod 8)

y = y \ 8

Loop While b(y) And z

b(y) = b(y) Or z

arr(i) = x

'找到未取的数，并放入数组，设置标志位

Next i

End If

Return arr

End Function

相关问答

Q1: VB中怎么加入一个标签

1、首先我们新建一个工程，并新建一个标准Exe工程。

2、这时候我们找到工具箱中标签框。

3、这时候我们可以直接双击控件即可成功绘制。

4、或者我们可以选中他，然后在页面上绘制。

5、如果对它的外观不满意，我们在属性窗口中修改。

6、双击控件即可进入代码窗口。完成效果图。

Q2: VB.net怎么判断选择的Word文档已经打开

你可以在打开文档时设置一个标志位（比如为1）用来表示文档打开了，其他任何关闭文档的语句后面都加一条对标志位的更改（比如改为0），在你判断文档是否是打开状态时直接判断这个标志位就好了。。

Q3: 100分 急求在vb.net中怎样进行位操作

用bitarray类和BitVector32类实现

VB实现大致如下：

Imports System.Collections.Specialized

...

Dim bvData as BitVector32

Dim sec1 As BitVector32.Section = BitVector32.CreateSection(255)

Dim sec2 As BitVector32.Section = BitVector32.CreateSection(255,sec1)

Dim sec3 As BitVector32.Section = BitVector32.CreateSection(255,sec2)

Dim sec4 As BitVector32.Section = BitVector32.CreateSection(255,sec3)

Dim Buf(4096) as Byte 'receive byte size matched with DSP send data: 1024*4Byte

Dim recCount as Integer

Dim Data(1024) as long

....

For recCount = 0 To 1023

bvData(sec4) = buf(recByte*4)

bvData(sec3) = buf(recByte*4+1)

bvData(sec2) = buf(recByte*4+2)

bvData(sec1) = buf(recByte*4+3)

Data(recCount) = bvData.Data '这样数据肯定是-398

Next

....