VB 問題 我想生成一組隨機數，但我想生成不包含 4 的隨機數

我不明白如何在你的程式中使用遞迴**，如果你只是不讓帶有 4 的字串被生成，請使用乙個條件。

此外，還可以重新生成 turn 語句。

public sub xunhuang()

strtemp2 = string(val(, "0")

r:strtemp = int(rnd * val("1" & strtemp2))

for i = 1 to len(strtemp)

if mid(strtemp, i, 1) = "4" then goto r

nextend sub

此外，要確定乙個字串是否包含另乙個字元，使用 instr 會更容易，** 如下所示。

public sub xunhuang()

strtemp2 = string(val(, "0")

dostrtemp = int(rnd * val("1" & strtemp2))

loop until instr(strtemp, "4") =0

end sub

不知道你的問題出在哪裡**，哪一步不能實現就意味著不能實現？

我猜是呼叫 xunhuan 語句後跟退出子

此外。 最好在生成隨機數之前使用 randomize 進行初始化。

用這個簡單的點 if instr（cstr（strtemp），"4"然後打電話給尋煌，這樣你就不用迴圈了。

1.開啟“Microsoft Visual Basic中文”軟體，準備乙個空白的專案檔案

2.然後你需要乙個命令按鈕，點選左側工具箱中的“命令按鈕”，然後拖動滑鼠左鍵在表單右側繪製

3.雙擊命令按鈕，這裡是輸入**列印0到10之間的任意整數的演示，並為其他範圍生成乙個隨機整數公式為“int（（上限-下限+1）*rnd+下限）”，如果為1到53則為“int（（1-53 + 1） * rnd+53”：

4.寫完後，執行程式，每次點選命令按鈕，都會在表單上列印乙個0到10之間的整數

第一種方法：使用無引數的 random（） 建構函式;

預設種子值用作種子值，如果觸發隨機函式的時間間隔很短，則可以產生相同的隨機數。

第二種方式：使用 rngcryptoserviceprovider 生成種子值; 構建速度較慢。

1、random()

使用預設的瞬態種子值初始化隨機類的新例項。

2、random(int32)

使用指定的種子值初始化 random 類的新例項。

該引數是資料型別為 int32 的種子值，用於計算偽隨機序列的起始值的個數。 如果指定了負數，則使用其絕對值。

隨機類生成的隨機數是偽隨機數，因此在隨機的內部生成機制中還是有一定的規律的，並不是真正意義上的完全隨機。 如果種子值相同，則每次都會生成相同的隨機數。

必須複製才能初始化：randomize。 沒有種子。 出來的資料肯定是固定的。

randomize 語句的示例。

在此示例中，隨機化數生成器使用 randomize 語句進行初始化。 由於數值引數被忽略，因此 randomize 使用計時器函式的返回值作為新的隨機數種子值。

dim myvalue

randomize '初始化隨機數生成器的操作。

myvalue = int((6 * rnd) +1) '生成乙個介於 1 和 6 之間的隨機值。

'需要先使用它。

randomize '初始化隨機數生成器的操作。

但它不能儲存，絕對不能重複。

你說的每次都應該有限制，產生的數數是有範圍的，數數是有限制的，按照抽屜原則，總有重複的時間。

除非。。。。。。