- 博客(1)
- 收藏
- 关注
原创 生成不定的n个正整数
窗体编辑: Private Sub Command1-click() n = Inputbox("请输入一个正整数n,>=1") Dim Str2 As string Call getNInteger(n,str2) lable1.Caption = left(str2,len(str2)-1) End Sub 模块编辑: Sub gettNInteger(Byval n A
2012-05-17 09:19:57 216
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人