s dim shu as string,zong as string private sub command1_click() if text1.text=""then msgbox"未填抽取号码 exit sub end if if text2.text=""then msgbox"未填抽取号码数 exit sub end if aaa=val(text1.text) bbb=val(text2.text) redim m(bbb) for i=1 to bbb m(i)=0 x1: randomize a=int(rnd*... 20210311
private sub button7_click(byval sender as system.object,byval e as system.eventargs)handles button7.click dim str as string=" str=inputbox("请输入要反转的数字") dim pl as string=strreverse(str) textbox6.text=v...
方法一:private sub command1_click() form1.cls dim i1 as integer, i2 as integer, i3 as integer, i4 as integer, i5 as integer dim cl**t as string for i1 = 65 to 70 for i2 = i1 + 1 to 70 ...