在vb编程生成一个由1到30之间的随机整数构成的3x4矩阵将其以3行4列的形式显示在窗
vb\u7f16\u7a0b\u9898: \u968f\u673a\u751f\u6210\u4e00\u4e2a4\u884c9\u5217\u7684\u77e9\u9635,\u77e9\u9635\u5143\u7d20\u4e3a10-99\u4e4b\u95f4\u7684\u968f\u673a\u6574\u6570.\u6253\u5370\u663e\u793a.Option Base 1
Private Sub Form_Click()
Dim a(36) As Integer, b(6, 6) As Integer, i As Integer, j As Integer, num As Integer
Print "\u539f\u77e9\u9635\uff1a"
Randomize
For i = 1 To 36
a(i) = Int((99 - 10 + 1) * Rnd + 10)
Print a(i);
num = num + 1
If num Mod 9 = 0 Then Print
Next
For i = 1 To 35
For j = 1 To 36 - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next
Next
Print "\u6392\u5e8f\u540e\u77e9\u9635\uff1a"
For i = 1 To 36
Print a(i);
num = num + 1
If num Mod 6 = 0 Then Print
Next
Print "\u4e3b\u5bf9\u89d2\u7ebf\u4e0a\u6570\u5b57\u4e3a\uff1a"
For i = 1 To 6
Print a((i - 1) * 6 + i);
Next
Print
End Sub
Option Base 1
Dim a(4, 5)
Private Sub Command1_Click()
randomize
cls
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
Next j
Next i
For i = 1 To 4
For j = 1 To 5
Print a(i, j);
Next j
Print
Next i
End Sub
'生成一个3行4列元素的数组
temp = "生成数组如下：" & Chr(10)
For i = 1 To 3
For j = 1 To 4
num(i, j) = Int(Rnd() * 30) + 1 '生成30以内的整数
temp = temp & num(i, j) & " "
Next j
temp = temp & Chr(10)
Next i
'打印结果
MsgBox temp
Private Sub Form_click()
Dim a%(2, 3)
Form1.Cls
For i = 0 To 2
For j = 0 To 3
a(i, j) = Int(Rnd * 30 + 1)
Print Tab(j * 5); a(i, j);
Next j
Next i
End Sub
绛旓細Private Sub Form_Click()Dim i, j, t, a(1 To 50)Cls Randomize Print "50涓殢鏈烘暟锛"For i = 1 To 50 a(i) = 1 + Int(100 * Rnd)Print a(i);If i Mod 10 = 0 Then Print Next Rem 鐢ㄥ啋娉℃硶鎺掑簭 For i = 1 To 49 For j = 1 To 50 - i If a(j) > a(j + ...
绛旓細Form1.AutoRedraw = True Do St = InputBox("璇疯緭鍏ユ煡鎵剧殑鑼冨洿(N)", "杈撳叆", 50)Loop Until Pan(St)N = Val(St)Do St = InputBox("璇疯緭鍏ュ拰鏁帮紙Y锛", "杈撳叆", 100)Loop Until Pan(St)Y = Val(St)Do St = InputBox("鐩稿姞鏁扮殑涓暟鏄", "杈撳叆", 10)Loop Until Pan(St)X ...
绛旓細Dim a(20) As IntegerPrivate Sub Command1_Click() Randomize For i = 1 To 20 a(i) = Int(Rnd * 50) + 1 Text1 = Text1 & a(i) & " " If i Mod 10 = 0 Then Text1 = Text1 & vbCrLf Next iEnd SubPrivate Sub Command2_Click() For i = 1 To 19 ...
绛旓細For i = 0 To 9 Randomize a(i) = Int(Rnd(1) * 101)x = x + a(i)Next i Print "鍏冪礌鍜=" & x Print "骞冲潎鍊=" & x / 10 For i = 0 To 9 If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) & " "Next i Print "澶т簬骞冲潎鍊肩殑鍏冪礌涓暟=...
绛旓細涓轰簡鐢熸垚鏌愪釜鑼冨洿鍐呯殑闅忔満鏁存暟锛屽彲浣跨敤浠ヤ笅鍏紡锛欼nt((涓婇檺 - 涓嬮檺 + 1) * Rnd + 涓嬮檺)閽堝鎮ㄧ殑闂锛屽彲閲囩敤浠ヤ笅璇彞锛欴im MyRnd Randomize '鍒濆鍖栭殢鏈烘暟,闃叉鍑虹幇闅忔満鏁版瘡娆′竴鏍风殑闂 MyRnd = Int((59 - 1 + 1) * Rnd + 1) '涔熷彲绠鍖栬〃绀烘垚锛欼nt(59 * Rnd+1)'闅忔満鏁版鏃跺凡鐢熸垚...
绛旓細Private Sub Command1_Click()ClsDim a As LongDim b(20) As Long, c(20) As LongPrint "20涓殢鏈烘暟锛";For i = 1 To 20Randomizea = Int((Rnd * 100) + 1)b(i) = aPrint a;Next iPrintFor i = 1 To 20If b(i) Mod 2 = 1 Thenj = j + 1c(j) = b(i)End If...
绛旓細鍑芥暟浠ｇ爜濡備笅锛歅ublic Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End Function浜屻佷妇涓緥瀛愶紝瑕浜х敓10涓1鍒100涔嬮棿鐨勯殢鏈烘暣鏁帮紝濡備笅锛1銆佹墦寮VB6.0寮鍙戣蒋浠讹紝鏂板缓涓涓鏍囧噯exe宸ョ▼锛2銆佸湪璁捐鐣岄潰涓婃坊鍔犱竴涓猅ext鎺т欢鍜屼竴涓狢ommand鎺т欢锛3銆丆ommand1鎺т欢鐨凜aption灞炴ц缃负"浜х敓10...
绛旓細Private Sub Command1_Click()Dim isPrime(100) As Boolean Dim i As Integer, j As Integer For i = 1 To 100 isPrime(i) = True Next For i = 2 To 100 If isPrime(i) = True Then For j = 2 To 100 If i * j <= 100 Then If isPrime(i * j) Then isPrime(i * j) =...
绛旓細Private Sub Command1_Click()Dim a(10), i, j As Integer For i = 0 To 9 a(i) = Int(Rnd * 100) + 1 Print a(i);Next For i = 0 To 8 For j = i To 9 If a(i) > a(j) Then t = a(i)a(i) = a(j)a(j) = t End If Next Next Print For i = 0 To...
绛旓細杩欎釜鏄偅涓绔犵殑鍏ㄩ儴绛旀 1锛庤鏈夊涓嬩袱缁勬暟鎹細(1)1,3,5,2,4,18,50,25 (2)5,27,30,35,60,41,87,33 缂栧啓涓涓绋嬪簭锛屾妸涓婇潰涓ょ粍鏁版嵁鍒嗗埆璇诲叆涓や釜鏁扮粍涓紝鐒跺悗鎶婁袱涓暟缁勪腑瀵瑰簲涓嬫爣鐨勫厓绱犵浉鍔狅紝鍗1+5锛3+27锛屸︹︼紝25+33锛屽苟鎶婄浉搴旂殑缁撴灉鏀惧叆绗笁涓暟缁勪腑锛屾渶鍚庤緭鍑虹涓変釜鏁扮粍鐨勫 ...
