如何用vb做一个随机摇号1-78,但是每次出现的号码不重复,求完整的代码和具体操作步骤,新手求高手指导？

清江一曲抱村流，长夏江村事亭幽。

两岸青山相对出，孤帆一片日边来。

明月松间照，清泉石上流。

人皆苦炎热，我爱夏日长。

vb中怎么直接在窗体放加号和等号？

以下代码单击窗体后在鼠标位置创建一个新的textbox。

OptionExplicit

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

DimTAsObject

StaticNumAsLong

'在本窗体内添加（可以是其他如picturebox等）；第一个参数是要添加的控件，第二个是控

件名

SetT=Me.Controls.Add("VB.textbox","Text"&Num)

'当然还有其他属性一样的设置，如高度宽带等

T.Text="Text"&Num'指定控件文本内容

T.Visible=True'设置控件可见

T.Left=X'设置左边距离

T.Top=Y'设置顶部距离

Num=Num+1'防止控件名重复

EndSub

如果要在其他控件添加，就在第三个参数填上容器

如在picture1里面添加：SetT=Me.Controls.Add("VB.textbox","Text"&Num,Picture1)