華閱文章網
求一段VB語言隨意輸出6到12位的字母或者數字或者中文,每輸出完
程序還是寫完了。
這段代碼會隨機輸出一行4個字符，每一行都有一個大寫字母，一個小寫字母，一個數字，一個中文字符，所有字符均為隨機產生，一共輸出6行。不知道是否附合您的標準。
'代碼如下，在窗體中添加一個按鈕，直接復制代碼： Dim MyStr(1 To 6) As String Private Sub Command1_Click() Dim RndLChr As String, RndUChr As String, RndChar As String, _ RndFig As String, i, j, x Randomize For i = 1 To 6 RndLChr = Chr(Int(Rnd * 26 + 97)） '產生隨機小寫字母 RndUChr = Chr(Int(Rnd * 26 + 65)） '產生隨機大寫字母 RndChar = ChrW(Int(Rnd * 20902 + 19968)） '產生隨機中文字符 RndFig = CStr(Chr(Int(Rnd * 10 + 48)）） '產生隨機數字 MyStr(i) = RndLChr & RndUChr & RndChar & RndFig For j = i To i - 1 '判斷字符是否相等 If MyStr(i) = MyStr(j) Then i = i - 1: Exit For Next j, i For x = 1 To 6 Print MyStr(x) '輸出字符 Next x End Sub 。
VB基本語句
VB循環語句有：
1、do while。loop：當條件為True時循環，，在進入循環之前檢查條件。
2、do。loop while：當條件為True循環，在循環至少運行一次后檢查條件。
3、do until。loop：當條件為false循環，在進入循環之前檢查條件。
4、do.. loop until：當條件為false循環，在循環至少運行一次后檢查條件。
5、While。Wend： 當條件為Ture時循環。
6、for。.next：指定循環次數，使用計數器重復運行語句。
7、for Each。next：對于集合中的每項或數組中的元素，重復執行每個語句。
8、for Each。in：從一個集合中取出每一個元素。
9、循環嵌套：就是在一個大循環內可以包含一個小循環。
10、強行退出循環
就知道這么多，呵呵
vb的基本語句
vb分為順序結構、條件結構、循環結構：
if 條件 Then
語句1
else
語句2
end if
for i = 1 to 10
語句1 '重復執行10次
next i
do
語句1
loop until 條件 '當條件滿足時退出循環，否則用遠執行下去
while 條件
語句1
wend '當條件滿足時執行循環
vb用循環語句 2+4+6+..+200 怎么弄
Private Sub Command1_Click()
Dim A As Integer, B As String
For I = 2 To 200 Step 2
B = B & I & " + "
A = A + I
Next I
B = Left(B, (Len(B) - 3))
* = B & " = " & A
End Sub上面是 2+4+6+..+200
下面是1*2*3*。*10
Private Sub Command1_Click()
Dim A As Long, B As String
A = 1
For I = 1 To 10
B = B & I & " * "
A = A * I
Next I
B = Left(B, (Len(B) - 3))
* = B & " = " & A
End Sub
用VB的6種循環語句分別編程實現10!
第一種用for。next 循環
Private Sub CommandButton1_Click()
dim i as integer
dim jc as double
jc=1
for i=10 to 1 step -1
jc=jc*i
next i
print "10!=“;
print jc
End Sub
第二種用當循環while。wend
Private Sub CommandButton1_Click()
dim i as integer
dim jc as double
jc=1
i=10
while i>=1
jc=jc*i
i=i-1
wend
print "10!=“;
print jc
End Sub
第三種用do循環do。loop
(1)do。loop while
Private Sub CommandButton1_Click()
dim i as integer
dim jc as double
jc=1
i=10
do
jc=jc*i
i=i-1
loop while i>=1
print "10!=“;
print jc
End Sub
(2)do。loop until
Private Sub CommandButton1_Click()
dim i as integer
dim jc as double
jc=1
i=10
do
jc=jc*i
i=i-1
loop until i=1
jc=jc*i
i=i-1
loop
print "10!=“;
print jc
End Sub
(4)do until。loop
Private Sub CommandButton1_Click()
dim i as integer
dim jc as double
jc=1
i=10
do until i
