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中label顯示怎麼換行，在VB中怎麼怎麼設定label自動換行
有兩種方法實現label換行 1 將label控制元件的可以調整控制元件label的寬度和高度，即可實現自動換行 2 控制換行。例如 private sub form load with label1 caption 12 vbcrlf 345 vbcrlf 6789 end with end su...
vb取模運算怎麼四捨五入，VB 取模運算怎麼四捨五入
10.6 mod 4.2 2.2 13.52 mod 3.6 2.72 int 10.6 mod 4.2 2 int 13.52 mod 3.6 2 您好 由於性生活時 與宮頸有著直接的接觸,如果不注意性生活衛生,可以直接把病菌帶入 感染宮頸 而對已患宮頸糜爛的婦女來說,則可加重其宮頸炎症,有可能使...
vb中怎麼控制LINE的寬度，vb中怎麼控制一個LINE的寬度
1 在窗體上新增一個line1控制元件。2 在它的屬性框裡修改borderwidth的值為想要的值，比如輸入5。3 程式設計實現 line1.borderwidth 6 堵義 事先在窗體裡新增一個line控制元件 需要顯示的時候指定它的位置 寬度用width屬性試試。 line沒有寬度可設，你要設 ...