vb求教，谢谢

给我全部代码，复制粘贴就能用那种~

开始,从1到36随机抽取一个数字.弹出，确认,得出数字保留在窗体的文本框里,结束

谢谢了！

'一个按键  一个文本框

private sub command1_click()

dim a as integer

a=int(rnd*36+1) 

msgbox a

text1.text=a

end sub