求一个自动生成数字字母组合的软件
按你的要求抄了一个批处理给你。
你把以下的东西复制到记事本中,另存为任意文件名.bat的文件,双击打开就能运行了。
选择1就是生成7位随机数。
可以要几位都行,自己改一下即可。
@echo off& setlocal enabledelayedexpansionmode con cols=60 lines=10& color 0a& title .del smile.txt 2>nul& echo.1.纯数字 2.数字英文 3.数字英文符号set /p wind=选择序号:& echo. & set /p snow=输入生成组合个数:for %%1 in (0 1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)do (set /a x+=1&& set x!x!=%%1)if "%wind%"=="1" (for /l %%1 in (1 1 %snow%)do (for /l %%2 in (1 1 7)do (set /a n%%2=!random! %% 10set m%%1=!m%%1!!n%%2!)cls& echo %%1/%snow%& echo !m%%1!>>smile.txt))if "%wind%"=="2" (for /l %%1 in (1 1 %snow%)do (for /l %%2 in (1 1 10)do (set /a n%%2=!random! %% 62 +1 call set m%%1=!m%%1!%%x!n%%2!%%)cls& echo %%1/%snow%& echo !m%%1!>>smile.txt))if "%wind%"=="3" (more +14 "%~F0">smile.vbs& smile.vbs %snow%&& del smile.vbs)if exist smile.txt (start "" "smile.txt")else mshta vbscript:msgbox("输入错误")(close)exitx=array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","~","!","@","#","$","%","^","&","*","(",")","_","+","|","[","]","{","}",";","'",":",",",".","/","","?")for i = 1 to wscript.arguments(0)for j = 1 to 10Randomizey=int(1000000*rnd mod 89)n=n & x(y): next n=n & vbcrlf: nextcreateobject("scripting.filesystemobject").opentextfile("smile.txt",2,true).writeline n
自动生成流水号带二维码的软件有没有?
这个Bartender软件就可以实现,具体操作步骤如图:1、新建一个文本,然后右击属性,进入文本属性窗口,将数据源右击新建成三段(把你需要自动自增的列独立出来)。
2、选择你要设置自增的段。
3、选择转换标签,点击序列化对应的按钮。
4、在弹出的窗口,选择序列设置标签中递增(默认选择递增后下面的设置参数都不用动就是你要的自增1的设置参数)。
5、下图是设置好后,打印5张标签的效果,应该是你想要的效果吧。
有没有自动生成“会计分录”的软件
我们要在手工熟练的情况下,才能更好的运用财务软件,如果连基本的分录都做不好,怎么做好账?先把基础打好,不要图一时的方便。
如果你不是专职会计,那么你只要用金蝶财务软件,或用友财务软件,有些分录能自动生成:有些会计凭证可以自动生成,如:计提折旧、结转费用等等; 有些凭证可以采用模式凭证的方法,即摘要、明细科目、部门或项目核算等不变的部分采取复制上月的方法,每月只需输入变动的金额,如:人工成本的分配、费用的分配等等。
比如说工资表有的Excel就可以自动生成会计分录:建议你去下载金蝶或者用友U8财务软件试试看,不过我没试过。
有没有一款集合所有数学理论的软件,能自动从一堆数字里面找出一...
建立text1,text2,text3,text4,text5,并且设置Text5的Multiline属性为True,代码如下。
================================= Private Sub Command1_Click() Dim i As Long, t As Long t = Val(Text2.Text) For i = 0 To Val(Text3.Text) Text5.Text = Text5.Text & Text1.Text & t i & ";" & Text4.Text & vbCrLf Next End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub
用Excel按要求,自动生成一组数字
word的自动编号功能是个不错的功能去了有点可惜:) 去掉自动编号有两个办法 1、半自动 在回车产生自动编号后按Ctrl+Z取消自动生成的编号,再输入一遍第一个编号。
此合编号将不再自动生成。
2、确实不想用word的自动编号功能可以在工具菜单下--自动更正选项--键入时自动套用格式处取消“自动编号表”选项。
转载请注明出处51数据库 » 自动生成一个数字的软件