1樓：匿名使用者
private sub command1_click()for i1 = 1 to 8
for i2 = i1 + 1 to 8
for i3 = i2 + 1 to 8
for i4 = i3 + 1 to 8
for i5 = i4 + 1 to 8
for i6 = i5 + 1 to 8
s = i1 & i2 & i3 & i4 & i5 & i6if instr(ss, s) = 0 then ss = ss & vbcrlf & s
next
next
next
next
next
next
msgbox mid(ss, 3)
end sub
2樓：
dim a(1 to 6) as integer,i as integer,j as integer,f as boolean
randomize
for i=1 to 6
doa(i)=int(rnd*8)+1
f=false
if i>1 then
for j=1 to i-1
if a(i)=a(j) then f=true:exit fornext
end if
loop while f
next
3樓：匿名使用者
dim a(1 to 6) as integerfor i=1 to 6
a(i)=int((rnd*8)+1)
next i
這是在一到八取六個整數
vb中print語句怎麼用，VB中Print語句怎麼用？
樓主如果還是做不出來的話，可以把郵箱留下，我把我用vb6.0做的乙個例子給你發過去，解壓之後就能執行了，你可以參考下。好像你的郵箱是qinyehong 126.com是吧？我已經發過去了。 豆漠義友珊 print a 是輸出字串a 就是直接輸出引號內的。print a是輸出程式內 a的當前值 pri...
vb 的取餘運算子是怎麼算的，VB中的所有運算子
dim a as integer a 5 mod 2 答案是1,因為5被2除后，餘數是1.mod 為取餘函式。準確的理解應該為 兩個整數之間相除取餘數。當兩個除數小數時，先轉化為整數在相除。在轉化時，原則為4舍6入5成雙。例如 轉化為5 轉化為6 轉化為6 轉化為6 mod 3 0 相當於 12 m...
vb中的left怎麼用啊，vb中left函式的使用
vb妮可 private sub timer1 timer if label1.left 0 label1.width then left,就是控制項最左邊緣在螢幕中的位置,你這樣想,如果控制項的left 0了,就說明控制項緊挨著窗體的左邊緣了,可是這時候,讓它轉換到右邊去,就會不完美,比如這個標籤...