1樓：網海1書生
private sub command1_click()dim x as date, x1 as date, x2 as date
if isdate( and isdate( thenx1 = cdate(
x2 = cdate(
if x1 < 1 and x2 < 1 and x2 > x1 then
randomize
dox = cdate(rnd)
loop until x >=x1 and x <=x2msgbox x
elsemsgbox "輸入的時間格式有誤！"
end if
elsemsgbox "輸入戚滾的時間格式有誤！"
end if
end sub
這是一種比較高辯餘巧妙的實現方法，利用的是時間變數的時分秒部分和隨機函式rnd的值都是大於灶悶等於0小於1的數這個特性。
2樓：篤俠
t1=val(mid(,1,2))*3600+val(mid(,3,2))*60+val(mid(,6,2))
t2=val(mid(,1,2))*3600+val(mid(,3,2))*60+val(mid(,6,2))
t=int((t2-t1)*rnd)+t1接激慎下來將以秒錶喚槐示的時間明鏈敬轉化為時分秒。
3樓：素秋英環胭
private
subcommand1_click()dimxasdate,x1
asdate,x2
asdate
ifisdate(
andisdate(
thenx1
cdate(
x2cdate(
andx2andx2
x1then
randomizedox
cdate(rnd)
loopuntilx
x1andx
x2msgboxxelse
msgbox
輸入的時間格式有誤兄寬州！"endif
elsemsgbox
輸入的時間格式有誤！"endif
endsub
這是一種比較巧妙的實現方法，利用的是時間變數的時分秒部分和隨機巧氏函式rnd的值都是大於等於0小於1的數這個特性羨蔽。
求救高手，某時間段，如何用vb生成隨機時間數
4樓：網友
在做隨機數時，記得要先初始化隨機數，不然程式一旦編譯完後就會固定了隨機數，而不同語言應該有不同的函式來實現！
c中的 srand(long num) 可以使用 srand(time(null))
vb的使用randomize
在vb中，如何生成某個範圍內的隨機整數？
5樓：斤斤
為了生成某個範圍內的隨機整數，可使用以下公式：
int((上界 - 下界 + 1) *rnd + 下界)
公式中的上界就是你所要生成這個隨機範圍的最大值，下界就是你所要生成這個隨機範圍的最小值。
在vb中,如何生成某個範圍內的隨機整數?
6樓：蓋風林映雪
為了生成某個範圍內的隨機整數，可使用以下公式：\x0dint((上界-下界。
1)*rnd
下界)\x0d公式中的上界就是你所要生成這個隨機範圍的最大值，下界就是你所要生成這個隨機範圍的最小值。
請問excel怎樣隨機生成指定範圍內的時間
7樓：教育知識問題解答
1、選中乙個單元格，用快捷鍵ctrl+；就可以輸入當前的日期，我們讓它旁邊的單元格等於它。
2、然後設定c列的格式為常規，原來為日期。我們發現，日期變成了乙個整數。
3、乙個帶有時間的日期變成了乙個小數。在excel裡日期就是乙個小數，整數代表日期，小數代表時間，整體就是乙個時間戳。
4、接著來用公式生成日期和時間，這個公式有錯誤，後面介紹。
5、用這個公式生成了乙個資料，結果是這樣的。
6、將d列設定成這種格式，拖動以後發現結果不對，查詢原因發現是用了相對單元格而不是絕對單元格。
7、重新試一下，發現還是不對，原因是多了個int（）取整函式，這樣就可以生成指定範圍內的時間了。
8樓：白水菜頭
隨機生成指定範圍內的時間可以使用rand函式。rand 函式語法沒有引數，返回大於等於 0 且小於 1 的均勻分佈隨機實數。每次計算工作表時都將返回乙個新的隨機實數。
軟體工具：excel 2013
1、假設要在b6中隨機生成7：25-9：30的時間。在b6中輸入=rand()*"9:30"-"7:25")+"7:25" 按回車鍵確認。
2、這時返回的是乙個常規值，因為單元格格式預設是常規格式。
3、要隨機生成時間，就需要將這個單元格格式改為時間格式。右擊該單元格，選擇設定單元格式。數字分類下選擇「時間」，型別中選擇乙個合適的時間型別，然後確定。
4、確定後該內容就跟顯示為時間格式。
9樓：我愛桑果
產生隨機數的函式為rand，公式為：
rand()*a-b)+b
所以你可以把其即時間放在a1，結束時間放在a2，然後用公式：
rand()*a2-a1)+a1
就可以產生乙個兩者之間的隨機數。
10樓：網友
=rand()*"8:10"-"7:50")+"7:50"
並將單元格設定為相應的時間格式。
或=text(rand()*"8:10"-"7:50")+"7:50","hh:mm")
11樓：網友
這個其實很簡單，可以使用快捷鍵來完成：
ctrl+shift+; 插入時間。
ctrl+; 輸入日期。
前提你要設定好時間顯示的格式，使用組合快捷鍵，可以隨機抓取當前時間。
vb如何生成某一範圍內的隨機數，並且排除某些數字?
12樓：網友
要產生範圍 [lowerbound，upperbound]內的隨機數的語句：
x = int((upperbound - lowerbound + 1) *rnd + lowerbound)
如果要排除 其中的某一些數，例如：a、b、c(當然a、b、c在該範圍內)
那麼：x = int((upperbound - lowerbound + 1) *rnd + lowerbound)
do while x = a or x = b or x = c
x = int((upperbound - lowerbound + 1) *rnd + lowerbound)
loop
13樓：善良的豬頭
a=1:b=100 '設定範圍。
10 x=rnd()*100-1+1)+1 '範圍內產生隨機數 公式 = rnd()*高限-低限+1)+1
if x mod 3 =0 then goto 10 '如果隨即結果是3的倍數就重新產生隨即數。
14樓：匿名使用者
a到b之間的隨機數： a+rand()*b-a) 排除的話比較 如果出現 重新產生。
求寫vb**：在多個指定範圍內隨機數字
15樓：匿名使用者
求寫vb**：在多個指定範圍內隨機數字。
m n as integer,i as integer,r as string,t as integer,filpath as string
filpath=environ("userprofile")+桌面\"
open filpath for output as #
for i=1 to n 'n是指定長度。
randomize
t=int(rnd()*4)
select case t
case 1
randomize
r=r+chr(int(rnd()*25)+65)'生成乙個大寫字母。
case 2
randomize
r=r+chr(int(rnd()*25)+97)'悔姿生成一跡磨個小寫字母。
case 3
randomize
r=r+chr(int(rnd()*9)+48)'生成碧州絕乙個數字。
end select
next i
print #1,r
close #
百年天地回元氣 一統山河際太平 國泰民安。
自家的wifi怎麼顯示不在範圍內呢
有兩種可能,手機wifi功能故障,恢復出廠設定就可以了,你家wifi名字改為手機可以識別的純數字或字母。 如果用的是獵豹wifi可以使用小面板右上方的向下箭頭中的一鍵修復功能，挺好用的，被這個功能救了。 重啟 下360有網路修復 那你重啟一下路由器，經常會有這樣的情況 為什麼我自家wifi開著，可我...
用Excel統計範圍內的數字出現的次數
周興葉茶 用公式 countif 單元格區域,要統計的單元格值所在地址 假設區域是a5 e10，黃色單元格a3是5，也就是要統計a5 e10區域有多少個值為5，那麼在某個單元格輸入公式 countif a5 e10,a3 如果直接使用數值結果來代替a3，那麼要用雙引號，如下 countif a5 e...
在全球範圍內，頂級體育明星的收入是怎麼來的？
首先我們要知道頂喚褲衝級體育明星的收入，和殲首先就是他們的薪資，其實就是他們有著一些代言純尺費，還有就是很多時候他們能夠去接受一些採訪，還有就是邀約也是能夠賺錢。收入首先是合同，在球隊效力，自然是有簽約蘆梁液費用，然後就是品牌的合作，比陪物如運動渣桐鞋或者是其他代言，另外還會去投資。體育明星與娛樂明...