-
讓品牌有溫度、有情感
專注品牌策劃15年
-
當前位置：首頁 > 創(chuàng)意學院 > 技術(shù) > 專題列表 > 正文
隨機故事在線生成器（隨機故事在線生成器app）
發(fā)布時間：2023-04-14 11:00:00
稿源：
創(chuàng)意嶺 閱讀：
68
大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于隨機故事在線生成器的問題，以下是小編對此問題的歸納整理，讓我們一起來看看吧。
開始之前先推薦一個非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計劃、工作報告、論文、代碼、作文、做題和對話答疑等等
只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，越精準，寫出的就越詳細，有微信小程序端、在線網(wǎng)頁版、PC客戶端
官網(wǎng)：https://ai.de1919.com。
創(chuàng)意嶺作為行業(yè)內(nèi)優(yōu)秀的企業(yè)，服務(wù)客戶遍布全球各地，如需了解相關(guān)業(yè)務(wù)請撥打電話175-8598-2043，或添加微信：1454722008
本文目錄:
一、五位數(shù)隨機生成器
不知道你要什么語言的,我做了個VB的,調(diào)試通過：
Private Sub Command1_Click()
Dim a,b,c,d,e,f,g As Integer '七個數(shù)
Dim str As String
Dim fina As Long
a = Fix(Rnd * 10) 'rnd 是隨機函數(shù) 產(chǎn)生七個隨機數(shù)
b = Fix(Rnd * 10)
c = Fix(Rnd * 10)
d = Fix(Rnd * 10)
e = Fix(Rnd * 10)
f = Fix(Rnd * 10)
g = Fix(Rnd * 10)
str = CStr(a) + CStr(b) + CStr(c) + CStr(d) + "2" + CStr(e) + CStr(f) + CStr(g) '將它們拼接起來 其中第五位是2
fina = CLng(str) '將字符串轉(zhuǎn)換為長整型 這個fina就是你要的結(jié)果
Print fina
End Sub
二、隨機數(shù)生成器
可驗證的代碼：
Private m As Integer, n As Integer
Private Sub Command1_Click()
If IsNumeric(Text1) = False Then '位數(shù)保護
MsgBox "位數(shù)必須輸入數(shù)字"
Text1.SetFocus
Else
If Val(Trim(Text1)) < 1 Or Val(Trim(Text1)) > 4 Then
MsgBox "位數(shù)是1～4的正整數(shù)"
Text1 = ""
Text1.SetFocus
End If
End If
If IsNumeric(Text2) = False Then '個數(shù)保護
MsgBox "個數(shù)必須輸入數(shù)字"
Text2.SetFocus
Else
If Val(Trim(Text2)) < 1 Or Val(Trim(Text2)) > 100 Then
MsgBox "個數(shù)是1～100的正整數(shù)"
Text2 = ""
Text2.SetFocus
End If
End If
Text3 = ""
Dim i As Integer, k As Integer
m = Val(Trim(Text1))
n = Val(Trim(Text2))
For i = 1 To n '產(chǎn)生n個隨機數(shù)
Randomize
Select Case m '區(qū)別位數(shù)
Case 1
k = 1 + Int(Rnd * 9)
Case 2
k = 10 + Int(Rnd * 90)
Case 3
k = 100 + Int(Rnd * 900)
Case 4
k = 1000 + Int(Rnd * 9000)
End Select
Text3 = Text3 & k & "," '填充文本框
Next i
End Sub
說明：
1、設(shè)定范圍：位數(shù)<=4, 個數(shù)<=100
2、界面說明：兩個標簽、兩個普通文本框、一個按鈕、一個多行文本框text3
3、對位數(shù)和個數(shù)的輸入值，有驗證
效果如下圖。不知偶理解樓主意思沒有？
三、求個隨機數(shù)生成器
VB中有專門生成隨機數(shù)的函數(shù) .
給你的代碼,你加進去,并添上相應(yīng)控件就行了.然后看下代碼就很容易明白了.謝謝.
Private Sub Form_Load()
Command1.Caption = "隨機畫圓"
Command2.Caption = "隨機文字"
Command3.Caption = "立體圖形"
Command4.Caption = "隨機圖像"
Command5.Caption = "退出"
Form1.ScaleMode = 1
Picture1.ScaleMode = 1
Picture2.Picture = LoadPicture("D:\My Documents\My Pictures\hah.jpg")
End Sub
'注釋: 隨機畫圓動畫
Private Sub Command1_Click()
Dim XPos, YPos
Picture1.Cls
Do
nn = Int(100 * Rnd)
If nn > 0 Then
Picture1.DrawWidth = nn
End If
XPos = Rnd * Picture1.ScaleWidth
YPos = Rnd * Picture1.ScaleHeight
Picture1.PSet (XPos, YPos), RGB(Rnd * 256, Rnd * 256, Rnd * 256)
DoEvents
Loop
End Sub
'注釋: 隨機文字動畫
Private Sub Command2_Click()
Picture1.Cls
Do
nn = Int(45 * Rnd)
If nn > 0 Then
Picture1.FontSize = nn
End If
Picture1.CurrentX = Rnd * Picture1.ScaleWidth - 1000
Picture1.CurrentY = Rnd * Picture1.ScaleHeight
Picture1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Picture1.Print "enjin 你個豬！"
n = n + 1
If n > 50 Then
n = 0
Picture1.BackColor = QBColor(Rnd * 15)
End If
DoEvents
Loop
End Sub
'注釋: 立體隨機動畫
Private Sub Command3_Click()
Dim m, n
Picture1.DrawWidth = 1
Picture1.BackColor = RGB(210, 150, 0)
Picture1.Cls
Do
m = Rnd * Picture1.ScaleWidth
n = Rnd * Picture1.ScaleHeight - 500
For i = 0 To Rnd * 800
Picture1.Line (m, n + 2.5 * i)-(m + i / 2, n + 2 * i), RGB(180, 180, 180)
Picture1.Line (m, n + 2.5 * i)-(m - i / 2, n + 2 * i), RGB(80, 80, 80)
Next i
DoEvents
Loop
End Sub
'注釋: 隨機圖像顯示
Private Sub Command4_Click()
Do
xx = Rnd * Picture1.Width
yy = Rnd * Picture1.Height
Picture1.PaintPicture Picture2.Picture, xx, yy, Picture2.Width, Picture2.Height
DoEvents
Loop
End Sub
'注釋: 退出按鈕
Private Sub Command5_Click()
End
End Sub
四、守墓人隨機文本生成器怎么用
使用僵尸。守墓人隨機文本生成器是僵尸工作的地方，速妖把僵尸工人放上去才行可以使用?！妒啬谷恕肥且豢顃inyBuild制作發(fā)行的像素風模擬經(jīng)營游戲。
以上就是關(guān)于隨機故事在線生成器相關(guān)問題的回答。希望能幫到你，如有更多相關(guān)問題，您也可以聯(lián)系我們的客服進行咨詢，客服也會為您講解更多精彩的知識和內(nèi)容。
推薦閱讀：
隨機生成作文網(wǎng)站（隨機生成作文網(wǎng)站下載）
怎么設(shè)置網(wǎng)速限制（怎么設(shè)置網(wǎng)速限制功能）
贛公網(wǎng)安備 50019002502384號
