大佬們看看這個題8??
uj5u.com熱心網友回復：
不是啦 是課程習題 但是老師布置的作業 這道題大家不怎么會 所以才來問問大佬們uj5u.com熱心網友回復：
連分數都用括號打在后面了。再說了，這個題目基礎得不行，如果“大家”都不怎么會做，那么你們班這一個學期都干啥去了。
uj5u.com熱心網友回復：
好難。。。。提起興趣uj5u.com熱心網友回復：
Sub 隨機()Dim I As Integer
Dim BW, SW, GW, J As Integer
Dim S As String
Dim a(1 To 100) As Integer
For I = 1 To 100
a(I) = Int(Rnd * 899 + 100)
GW = a(I) Mod 10
SW = (a(I) Mod 100 - GW) / 10
BW = (a(I) - SW * 10 - GW) / 100
If GW Mod 2 = 0 And SW Mod 2 = 0 And BW Mod 2 = 0 Then
J = J + 1
S = S & a(I) & "; "
If J Mod 10 = 0 Then
S = S & a(I) & "; " & Chr(13)
End If
End If
Next
MsgBox S
End Sub
uj5u.com熱心網友回復：
學習學習學習學習uj5u.com熱心網友回復：
我就簡單的告訴你思路 一看隨機不用說肯定用到隨機函式先把區間表示出來，然后在里面想要啥樣的數都有uj5u.com熱心網友回復：
Sub 隨機()Dim a
Dim b
Dim t
Dim i
a = ""
t = 1
i = 1
For t = 1 To 10
For i = 1 To 10
b = Int(Rnd() * 899 + 100)
If Int(b / 100) Mod 2 = 0 And Int((b - Int(b / 100) * 100) / 10) Mod 2 = 0 And Int((b - Int(b / 10) * 10)) Mod 2 = 0 Then
a = b & "," & a
End If
Next
Debug.Print t & "組內容:" & a
a = ""
Next
End Sub
僅供參考
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/26919.html
標籤：VB基礎類
上一篇：這個是怎么回事？
下一篇：mfc