Vb随机产生姓名的函数

不是我写‎的，在其它‎网页上粘贴‎来的。

看了‎李冬梅老师‎的信息及其‎特征这堂课‎发现原来一‎个小小的点‎名器可以很‎好的让学生‎集中注意力‎，跟着老师‎的思路走，‎所以学一下‎。

V‎B写的随机‎点名器代码‎''+‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++'‎1、新建一‎个工程；‎'2、在窗‎体Form‎1内放入L‎a bel1‎、Time‎r1、Co‎m mand‎1、Com‎m and2‎四个控件；‎'3、把‎以下代码直‎接复制到你‎的工程里；‎'4、在‎工程所在的‎文件夹里新‎建一个文本‎文件“N.‎t xt”，‎把名字写入‎文件，一行‎一个名字。

‎'+++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+++++‎+'‎'代码虽简‎单，'为‎你解忧烦，‎'写码伤‎脑筋，'‎占用我一晚‎；'每每‎向钱看，‎'钱包总受‎伤，'拷‎完顶一顶，‎'就算帮‎个忙。

（这‎是编程的作‎者写的，前‎面挺押韵，‎也挺有意思‎，呵呵。

）‎'O‎p tion‎Expl‎i cit‎‎D im T‎e mp A‎s Str‎i ng‎ Di‎m Nam‎e Txt(‎5000)‎As S‎t ring‎‎'存储从“‎N.txt‎”中逐行读‎取的内容,‎如果大于5‎000条记‎录请更改为‎更大的数字‎。

‎Dim ‎i As ‎L ong‎ D‎i m Lc‎As L‎o ng ‎ '‎N.txt‎中的记录总‎数(文本行‎数)‎ Dim‎x As‎Long‎‎ ' 存‎储随机数‎P‎r ivat‎e Sub‎Comm‎a nd1_‎C lick‎()‎ i =‎0‎ Lc ‎= 0‎ x ‎= 999‎999‎ Op‎e n Ap‎p.Pat‎h & "‎\N.tx‎t" Fo‎r Inp‎u t As‎#1 ‎ '数一‎数“N.t‎x t”中有‎几个记录。

VB常用函数介绍在VB (Visual Basic) 中，有许多常用函数可以帮助我们处理数据、操作字符串、进行数学计算等。

下面是一些VB常用函数的介绍：1. MsgBox函数：MsgBox函数用于显示一个消息框，通常用于向用户显示一些信息或提示。

它接受一个字符串参数作为要显示的消息文本。

例如：MsgBox("Hello World!")2. InputBox函数：InputBox函数用于显示一个输入框，允许用户输入一个值。

它接受一个字符串参数作为提示文本，并返回用户输入的值。

例如：Dim name as Stringname = InputBox("请输入您的姓名：")MsgBox("您的姓名是：" & name)3. Len函数：Len函数用于返回一个字符串的长度。

它接受一个字符串参数，并返回该字符串的字符数。

例如：Dim str as Stringstr = "Hello World!"MsgBox("该字符串的长度为：" & Len(str))4. Left函数和Right函数：Left函数和Right函数用于返回一个字符串的左侧或右侧指定数量的字符。

它们接受两个参数：一个是要截取的字符串，另一个是要截取的字符数。

例如：Dim str as Stringstr = "Hello World!"MsgBox("左侧的3个字符为：" & Left(str, 3))MsgBox("右侧的5个字符为：" & Right(str, 5))5. Mid函数：Mid函数用于返回一个字符串的中间一部分字符。

它接受三个参数：一个是要截取的字符串，另一个是要截取的起始位置，最后一个是要截取的字符数。

例如：Dim str as Stringstr = "Hello World!"MsgBox("中间的5个字符为：" & Mid(str, 7, 5))6. InStr函数：InStr函数用于在一个字符串中查找指定的子字符串，并返回第一次出现的位置。

用vb制作随机点名器，提供代码及详细制作步骤1.Form的Caption属性可命名为：课堂随机点名2.在界面放入一个Listbox, 一个Label ,一个commandbotton,它们的属性不用改变。

3.右击表单Form，选择“查看代码”4.输入下列代码：Option ExplicitDim flag As BooleanPrivate Sub Command1_Click()With Command1If .Caption = "点名" Then.Caption = "停止"flag = FalsetestElse.Caption = "点名"flag = TrueEnd IfEnd WithEnd SubFunction test()Dim tDo Until flagLabel1.Caption = List1.List(Int(Rnd * List1.ListCount)) t = TimerDo Until Timer - t > 0.05DoEventsLoopDoEventsLoopEnd FunctionPrivate Sub Form_Load()Dim arr, i As IntegerList1.Visible = FalseCommand1.Caption = "点名"With Label1.Caption = "".AutoSize = True.ForeColor = vbRed.FontSize = 24.FontBold = TrueEnd WithOpen App.Path & "\123.txt" For Input As #1 （备注说明：在保存位置同一目录下新建一个123的文本文件，并把名单录入到文本中，一个名字一行。

）Close #1For i = 0 To UBound(arr)If Len(arr(i)) > 0 Then List1.AddItem arr(i)End Sub运行界面如下：。

vba随机函数VBA随机函数是一种非常有用的Excel函数，它可以让你在Excel 中快速生成随机数字和字符串。

VBA随机函数的主要用途是生成随机的数字和字符串，例如，可以使用它来生成一个随机的单词，一个随机的数字序列，或者一个随机的字符串。

VBA随机函数的使用非常简单，使用该函数只需要几行代码。

例如，可以使用Rnd（）函数来生成一个随机的数字序列：Dim MyNumber As IntegerMyNumber = Int((10 * Rnd) + 1)该函数将生成一个1-10之间的随机数字，你可以在括号内指定范围，也可以使用Randomize（）函数来生成一个随机的字符串，例如：Dim MyString As StringRandomizeMyString = Rnd (1, 10)这样就可以生成一个1-10之间的随机字符串，比如"8"、"6"等。

VBA随机函数的另一个优点是可以用来生成随机的单词，这有助于提高Excel表格的可读性。

例如，可以使用VBA随机函数来生成一些随机的单词，以便在Excel表格中表达一个概念，而不使用一些抽象的术语。

例如，可以使用VBA随机函数来生成一些随机的单词，以表达“技术”：Dim MyWord As StringMyWord = Rnd (1, 10)这样就可以生成一个1-10之间的随机单词，比如"科技"、"计算机"等。

总之，VBA随机函数是一个非常有用的Excel函数，它可以让你快速生成随机的数字和字符串，并帮助提高Excel表格的可读性。

如果你想要在Excel中快速生成随机数字和字符串，VBA随机函数是一个很好的选择。

vba随机函数VBA（VisualBasicforApplications）是用于构建基于Windows 环境的应用程序的强大编程语言。

VBA的功能强大，在Excel、Word、Access等主流的Office软件里，VBA都可以实现无数功能，其中也包含了随机函数，这并不是一个高深的编程概念，它指的是任何一个VBA程序可以调用VBA内置的函数，在受控的情况下按照一定的规则，生成出一个随机的结果。

首先，我们来看一下VBA内置的随机函数。

VBA提供了几种随机函数，主要有Rnd()函数，Randomize()函数，可以用这两个函数来实现随机性。

Rnd函数就是一个随机函数，它的功能就是返回一个0到1的随机小数（小数点后面有18位），这个小数可以用来做后续的计算，比如做一个1-100之间的随机数，只需要将Rnd的结果乘以100就可以了。

Randomize函数的一般用法是，在程序的开头先读取一个系统时间作为种子，然后再执行Rnd函数就能产生出另外一个随机数了。

这样随机函数就可以实现任意多次计算，每次计算都不一样。

同时，VBA还提供了一系列的函数来对随机数进行更复杂的操作。

比如Int函数，该函数用于将一个小数截断为一个整数。

这个函数可以将Rnd返回的随机小数截断为任意范围的整数，从而方便实现一定范围内的随机数生成。

另外，VBA还提供了函数Randomize，它的作用是“设定每次随机数的规则”，这样就可以控制Rnd函数的计算结果。

和Int函数一样，Randomize函数也可以“控制”Rnd函数产生的结果，从而达到让每次随机出来的结果不同的目的。

最后，VBA还有另外一个函数叫做RandBetween()函数，它的作用就是生成一个指定范围的随机数，而且不用再像Int函数和Randomize()函数一样，去控制Rnd函数的计算结果了。

综上所述，VBA提供了几种随机函数，可以用于实现不同的功能，从而满足开发者的需求。

VBA的随机函数的使用技巧虽然简单，但是却可以帮助开发者实现很多有趣的功能，比如随机生成一个数字、字符串等，或者模拟概率分布等等。

随机点名系统。

综合网上各类小程序，自己修改定制了一款新的小程序。

学生名单.txt 放在同一个目录中。

使用截图如下Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)'定义常量Const HWND_TOPMOST = -1 'On TopConst HWND_NOTOPMOST = -2 'No TopConst SWP_NOACTIV A TE = &H10 'Const SWP_SHOWWINDOW = &H40 ''Dim TopOn As IntegerDim ss, mm, nnDim num(1 To 300) As IntegerDim j, k As IntegerDim A(500) As String, r As IntegerDim filename As StringPrivate Sub Command1_Click()Dim b As StringDim t, i As Integerfilename = App.Path & "\" & "学生名单.txt" Open filename For Input As #1'产生记录总数以内的随机数xi = 1While Not EOF(1)Line Input #1, A(i)i = i + 1Wendc = iClose #1Start:Randomizet = Int(c * Rnd + 1)For j = 1 To cIf t = num(j) ThenGoTo StartEnd IfNextLabel1.Caption = A(t)k = k + 1num(k) = tIf k = c ThenMsgBox "所有人员均已点过！", vbSystemModal Command1.Enabled = FalseCommand3.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()Unload Form1End SubPrivate Sub Command3_Click()j = 0k = 0For i = 1 To 300num(i) = 0NextCommand3.Enabled = FalseCommand1.Enabled = TrueLabel1.Caption = "Name"End SubPrivate Sub Command4_Click()Timer1.Enabled = TrueCommand4.Enabled = FalseEnd SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) End SubPrivate Sub Form_load()Form1.Height = 500Form1.Width = 8550Command3.Enabled = FalseTimer1.Enabled = Falsemm = 45: ss = 0Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Dim M As IntegerSetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / 15, _Me.Top / 15, Me.Width / 15, _Me.Height / 15, SWP_NOACTIV ATE Or SWP_SHOWWINDOW Line1:If ss < 10 Thens = "0" & ssElses = ssEnd IfIf mm < 10 Thenmmm = "0" & mmElsemmm = mmEnd Ift = mmm & ":" & sLabel2.Caption = tss = ss - 1If nn = 3 Thenss = 88End IfIf mm = 0 And ss = -1 And nn = 0 ThenMsgBox "休息时间已到，五分钟后继续", vbSystemModalnn = 1mm = 5: ss = 0GoTo Line1End IfIf mm = 0 And ss = -1 And nn = 1 ThenMsgBox "继续上课", vbSystemModalnn = 2mm = 45: ss = 0GoTo Line1End IfIf mm = 0 And ss = -1 And nn = 2 ThenMsgBox "放学咯！", vbSystemModalCommand1.Enabled = Falsenn = 3mm = 88: ss = 88End IfIf ss = -1 And mm > 0 Then mm = mm - 1: ss = 59If mm = 0 And hh > 0 Then hh = hh - 1: mm = 59 End Sub。

函数届的大V—vlookup应用：制作起名工具，宝宝起名不再愁关于VLOOKUP，我们学习了自动匹配补齐相关信息自动判断成绩（数量）等级按姓名汇总多个表格内容今天我们学习制作一个随机起名工具，效果如下：这么多的姓名，都是随机生成，如果你想给宝宝起名字，就挑出最好听的吧！如果你是写小说或者编写示例名单，直接复制出去吧！接下来我们来制作：一、首先准备好数据：分别为序号、姓、男名、女名这个表我们命名为“数据”，然后再新建一个表“随机起名”，输入相关内容：在B2输入公式：=VLOOKUP(1,数据!A:D,2,0)意思是：在数据工作表中的A-D列的第一列查找1，取回第二列对应内容，这一步是取得第一个姓氏。

接着当然是取回男名的第一个字和第二个字了：公式分别为：VLOOKUP(1,数据!A:D,3,0)VLOOKUP(2,数据!A:D,3,0)我们只要将三个公式用&连接起来，就可以得到一个完整是姓名：=VLOOKUP(1,数据!A:D,2,0)&VLOOKUP(1,数据!A:D,3,0)&VLOOKUP(2,数据!A:D,3,0)比如：刘成俭下面我们就要实现随机起名功能，所谓随机，也就是交给大V一个随机数序号，（用RANDBETWEEN）让它取回对应的姓和名。

交给它的这个序号，其实VLOOKUP的第一个参数。

于是上面的公式改造成为：=VLOOKUP(RANDBETWEEN(1,4),数据!A:D,2,0)&VLOOKUP(RANDBETWEEN(1,100),数据!A:D,3,0)&VLOOKUP(RANDBETWEEN(1,84),数据!A:D,3,0)这样就制作了随机效果，往下复制公式就可以得到许多不同的名字。

至于女名，也按照这种方法去设置了，当做练习交给大家吧！大V厉害吧，如果能和其他函数公式配合，会更加智能，有兴趣的朋友不妨学习一下我的《学点Excel公式有好处》。

VB制作幻灯片随机点名工具大家好，我是、灬尛坏坏"注：此程序适用于学校班级实用,此文是原创，转载请标明岀处，本次教程：这个在powerpoint里，完全和powerpoint结合起来，我简单写了一下，新建一个vb程序，在窗体上放一个label, 一个timer和一个按钮，timer 的interval 设置为1，Enable 设置为False。

源码(不解释，自己研究)：Dim a(0 To 9) As StringPrivate Sub Command1_Click()Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Form_Load()SetHotkey Me.hwnd, 1, 0, vbKeyHome,"Add"a(0)=" 张三"a(1)=" 李四"a(2)=" 王五"a(3)=" 刘六"a(4)=" 牛七"a(5)=" 马八”a(6)=" 杨九"a(7)=" 苟十"a(8)=" 朱----a(9)=" 吕十二”End SubPrivate Sub Form_Unload(Cancel As Integer)SetHotkey Me.hwnd, 1, 0, 0, "Del"End SubPrivate Sub Timer1_Timer()Dim i As Integeri = Int(Rnd * 10)Label1.Caption = a(i)Labell.Tag = iEnd Sub新建一个模块，写入以下代码Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVai hwnd As Long, ByVai nIndex As Long, ByVai dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVai hwnd As Long, ByVai nIndex As Long) As LongPrivate Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVaiIpPrevWndFunc As Long, ByVai hwnd As Long, ByVai Msg As Long, ByVai wParam As Long, ByVai iParamAs Long) As LongPrivate Deciare Function RegisterHotKey Lib "user32" (ByVai hwnd As Long, ByVai id As Long, ByVai fskey_Modifiers As Long, ByVai vk As Long) As LongPrivate Deciare Function UnregisterHotKey Lib "user32" (ByVai hwnd As Long, ByVai id As Long)As LongPublic Deciare Function ShowWindow Lib "user32" (ByVai hwnd As Long, ByVai nCmdShow As Long) AsLongPublic Deciare Sub keybd_event Lib "user32" (ByVai bVk As Byte, ByVai Scan As Byte, ByVai dwFiagsAs Long, ByVai dwExtraInfo As Long)Public Deciare Function SendMessageLib "user32" Alias "SendMessageA" (ByVai hwnd As Long, ByVai wMsg As Long, ByVai wParam As Long, iParam As Any) As LongPublic Deciare Function SetForegroundWindow Lib "user32" (ByVai hwnd As Long) As LongConst SW_HIDE = 0Const SW_SHOW = 5Const WM_HOTKEY = & H312Const MOD_ALT = &H1Const MOD_CONTROL = &H2Const MOD_SHIFT = &H4Const GWL_WNDPROC = (-4)'窗口函数的地址Dim FormlsShowing As BooleanDim key_preWinProc As Long ' 用来保存窗口信息Dim key_IsWinAddress As Boolean ' 是否取得窗口信息的判断Function keyWndproc(ByVai hwnd As Long, ByVai Msg As Long, ByVai wParam As Long, ByVai iParamAs Long) As LongIf Msg = WM_HOTKEY ThenSelect Case wParam 'wParam 值就是 key_idHotKeyCase 1 '激活多个热键后，多个热键所对应的操作，大家在其他的程序中，只要修改此处就可以了FormlsShowing = Not FormlsShowingIf FormIsShowing ThenShowWindow hwnd, SW_HIDEElseShowWindow hwnd, SW_SHOW'SendMessage hwnd, & H32, 0, 0SetForegroundWindow hwndEnd If'Case 2'MsgBox "hide"'ShowWindow hwnd, SW_HIDEEnd SelectEnd If'将消息传送给指定的窗口keyWndproc = CallWindowProc(key_preWinProc, hwnd, Msg, wParam, IParam)End FunctionFunction SetHotkey(ByVal hwnd As Long, ByVal KeyId As Long, ByVal keyControlKey As Long, ByVal keyNormalKey As Long, ByVal Action As String)If key_IsWinAddress = False Then ' 判断是否需要取得窗口信息，如果重复取得，再最后恢复窗口时, 将会造成程序死掉'记录原来的window程序地址key_preWinProc = GetWindowLong(hwnd, GWL_WNDPROC)'用自定义程序代替原来的window程序SetWindowLong hwnd, GWL_WNDPROC, AddressOf keyWndprocEnd IfSelect Case ActionCase "Add"RegisterHotKey hwnd, KeyId, keyControlKey, keyNormalKey ' 向窗口注册系统热键key_IsWinAddress = True ' 不需要再取得窗口信息Case "Del"SetWindowLong hwnd, GWL_WNDPROC, key_preWinProc '恢复窗口信息UnregisterHotKey hwnd, KeyId ' 取消系统热键key_IsWinAddress = False ' 可以再次取得窗口信息End SelectEnd Function这样就成了，主要的思路是注册系统热欢迎您的下载，资料仅供参考!致力为企业和个人提供合同协议，策划案计划书，学习资料等等打造全网一站式需求。

vb randomize函数不重复VB的Randomize函数是一个随机数函数，常用于生成随机数。

在VB中，使用Randomize函数可以初始化随机数生成器的种子值，从而保证每次运行程序时都能够产生不同的随机数序列。

Randomize函数的语法格式如下：Randomize [ seed ]其中，seed是一个可选的参数，用于指定随机数生成器的种子值。

如果未提供种子值，则使用系统时钟作为默认的种子值。

当调用Randomize函数时，它会将种子值赋予Rnd函数，然后再调用Rnd函数生成伪随机数。

Rnd函数会返回一个指定范围内的随机数。

要使用Randomize函数生成不重复的随机数，你可以使用一个数组来存储已经生成的随机数。

每次生成新的随机数时，都需要检查该数是否已经存在于数组中。

如果存在，则重新生成新的随机数，直到生成一个不重复的随机数为止。

接下来，我将给出一个示例代码，演示如何使用Randomize函数生成不重复的随机数。

```vbSub GenerateUniqueRandomNumbers()Dim numCount As IntegerDim minNum As IntegerDim maxNum As IntegerDim randomNum As IntegerDim numArray() As IntegernumCount = 10 ' 要生成的不重复随机数的数量minNum = 1 ' 最小随机数maxNum = 100 ' 最大随机数ReDim numArray(1 To numCount) ' 根据数量调整数组大小' 生成不重复的随机数For i = 1 To numCountrandomNum = Int((maxNum - minNum + 1) * Rnd + minNum) ' 生成随机数Do Until Not Contains(numArray, randomNum) ' 判断随机数是否已经存在于数组中randomNum = Int((maxNum - minNum + 1) * Rnd + minNum) ' 重新生成随机数LoopnumArray(i) = randomNum ' 将随机数存入数组Next i' 输出结果For i = 1 To numCountDebug.Print numArray(i)Next iEnd SubFunction Contains(arr() As Integer, value As Integer) As Boolean' 判断数组中是否包含指定元素For i = LBound(arr) To UBound(arr)If arr(i) = value ThenContains = TrueExit FunctionEnd IfNext iContains = FalseEnd Function```在上述示例代码中，我们通过GenerateUniqueRandomNumbers 子过程生成了10个不重复的随机数。