vb編程排列小程序

A. VB中輸入10個數並按要求進行升序排序和降序的程序

'如果要自己輸入數字，可以修改下面的代碼
Text1.Text="":Text2.Text="":Text3.Text=""
Text1.Text="系統自動生成的十個數："&vbCrLf
ForI=1To10
AA(I)=0:ZGCJ(I)=0:ZDCJ(I)=0
Randomize
AA(I)=Int(Rnd*90+10)
Text1.Text=Text1.Text&AA(I)&Space(4)
IfIMod5=0ThenText1.Text=Text1.Text&vbCrLf
ZGCJ(I)=AA(I)
ZDCJ(I)=AA(I)
NextI
'----------------------------修改為：
Text1.Text="":Text2.Text="":Text3.Text=""
Text1.Text="用戶輸入的十個數："&vbCrLf
ForI=1To10
AA(I)=0:ZGCJ(I)=0:ZDCJ(I)=0
AA(I)=Val(InputBox("請輸入第"&I&"個數！"))
Text1.Text=Text1.Text&AA(I)&Space(4)
IfIMod5=0ThenText1.Text=Text1.Text&vbCrLf
ZGCJ(I)=AA(I)
ZDCJ(I)=AA(I)
NextI

B. 如何使用VB編寫一個簡單的小程序

Dim sec, min, h

Private Sub Command1_Click()
Timer1.Enabled = True
h = Text1.Text
min = Text2.Text
sec = Text3.Text
Timer2.Enabled = False
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.BackColor = &HFFFF00
Timer1.Enabled = False
Timer1.Interval = 1000
Timer2.Enabled = True
Timer2.Interval = 1000

Text1.Text = 2
Text2.Text = "00"
Text3.Text = "00"
Command2.Caption = "退出"
Command1.Caption = "開始倒計時"
End Sub

Private Sub Timer1_Timer()
If sec > 0 Then
sec = sec - 1
Else:
If (min > 0 Or h > 0) Then
sec = 59
End If

If min > 0 Then
min = min - 1
Else:
If h > 0 Then
min = 59
End If

If h > 0 Then
h = h - 1
Else: Timer1.Enabled = False

CreateObject("SAPI.SpVoice").Speak "GAME OVER!"
Form1.BackColor = &HFF
End If
End If
End If
Text1.Text = h
Text2.Text = min
Text3.Text = sec
Label6.Caption = Now
End Sub

Private Sub Timer2_Timer()
Label6.Caption = Now
End Sub

C. vb環境下編制一小程序

你好，你想問的是如何使用VB編寫一個簡單的小程序吧？在桌面上，滑鼠左鍵雙擊程序，在打開的VB6主界面上，左邊是工具菜單欄，單擊標簽按鈕，在Form1窗口上，繪制出一Label1，然後在其屬性窗口上改個名字，如Caption為第一數。
接著，用同樣的方法，在Form1窗口上繪制出第二數，並且在左邊工具菜單欄，單擊文本框按鈕，並繪制出來。在文本框屬性欄的Text屬性上，將其Text1刪除，也就是清空數據。然後，反復用第一步驟和第二步驟做成如圖所示的界面來，學習需要反復練習，在練習中不斷進步。這里是做簡單的加法程序。接著，加法程序的界面做好後，還不能執行加法運算，必須還要在Form1窗口上繪制出一個命令按鈕來，在左邊工具菜單欄，單擊命令按鈕，並繪制出來。然後給其屬性窗口下Caption改名為計算。然後，程序看起來是做好了，單擊如圖所示的運行按鈕，彈出自己做出的Form1窗口，輸入數字3和6，然後單擊計算。可是結果並沒有出現。最後，前面5個步驟只是做了程序的界面，想要程序出結果，那必須加些代碼了，既然是簡單程序，只加一行代碼就可以了。雙擊命令按鈕，在代碼窗口中輸入如下：Text3.Text=Val(Text1.Text)+Val(Text2.Text)後，再單擊運行，輸入數字，單擊計算，此時就出現結果了。
VB為使用者提供了一個功能強大而又易於操作的集成開發環境，用VB開發應用程序的大部分工作都可以通過該集成開發環境來完成。

D. （VB小編程）輸入三個數，按照從大到小的順序排序輸出

Private Sub Form_Load()
Dim x As Integer, y As Integer, z As Integer
Dim diyige As Integer
Dim dierge As String, disange As String, disige As String
diyige = InputBox("請輸入第一個數據:", "數據輸入窗口")
dierge = InputBox("請輸入第二個數據", "數據輸入窗口")
disange = InputBox("請輸入第三個數據", "數據輸入窗口")
x = Val(diyige)
y = Val(dierge)
z = Val(disange)
If x > y And y > z Then
Print z, y, x
ElseIf y > z And z > x Then
Print x, z, y
ElseIf z > x And x > y Then
Print y, x, z
End If
Print "你輸入的數據按從小到大的順序是:"
End Sub

E. 用vb或者vba在excel里編一個排列組合的小程序

VBA語言：
在A列中輸入一列數據 ，自動排列組合，結果按順序顯示在B列：
Private Sub numzh()
Dim h, l, n1, n2
h = [a65536].End(xlUp).Row
l = 1
For n1 = 1 To h
Range("b" & l) = Range("a" & n1)
l = l + 1
Next
n2 = 1
Do While n1 > h
For n1 = 1 To h
If n2 = n1 Then
n1 = n1 + 1
End If
If n1 > h Then Exit Sub
Range("b" & l) = Range("a" & n2) & Range("a" & n1)
l = l + 1
Next
n2 = n2 + 1
Loop
End Sub
你看看可以嗎？

F. 求用VB隨機排座位的小程序

lblseat(i)其實就是label控制項數組，在窗體上添加一個label 然後在屬性裡面把label的名稱改為lblseat index設置為0 這樣就是一個控制項數組了，然後在復制這個控制項，再在窗體上粘貼出你需要的個數就行了

G. 用VB做一個簡單的小程序

PrivateSubCommand1_Click()
Me.Cls
DimNAsInteger,iAsInteger
N=InputBox("n=",,9)
Fori=1To2*N-1
Ifi<=NThen
PrintSpace(N-i)+String(2*i-1,CStr(i))
Else
PrintSpace(N-(2*N-i))+String(2*(2*N-i)-1,CStr(2*N-i))
EndIf
Nexti
EndSub

H. 用vb或者vba在excel里編一個排列組合的小程序

排列組合我編有通用的模塊.
樓主這一個是排列代碼.而且是n個元素中,選擇1到n個的排列.
如果n過大,excel表要多列內容,當然也可以寫到txt文檔中,或者access資料庫中.速度來說,應該是txt或者access比較快一些.

I. 求高人用vb或者vba在excel里編一個按順序組合的小程序

樓上的？你是哪位？樓主要有問題，請聯系我
我是farfamed，要確認的問題是：
1、A列數據形式就是單個字母？B列數據形式就是單個數字？C列呢？D列呢？如果不是，請說一下數據形式，還有它們組合後，每個組合的各個數據之間有沒有間隔符？比如a1，是不是緊密連接的？
2、有N列數據，每個組合就是包含N個數據嗎？
3、組合後的數據放在哪裡？
用VBA寫了一個，你先看看：
Rem
工具－宏－VB編輯器，粘貼如下代碼，返回工作表，切換到其他Sheet，再返回到當前Sheet，即開始執行，組合後的數據從第7列開始存儲，每列最多存儲6萬個，數據量大的話，執行過程中，工作表的狀態欄是一直跳動著的
Private
Sub
Worksheet_Activate()
Dim
n
As
Long
a
=
Range("a1").End(xlDown).Row:
If
a
>
60000
Then
a
=
1
b
=
Range("b1").End(xlDown).Row:
If
b
>
60000
Then
b
=
1
c
=
Range("c1").End(xlDown).Row:
If
c
>
60000
Then
c
=
1
d
=
Range("d1").End(xlDown).Row:
If
d
>
60000
Then
d
=
1
e
=
Range("e1").End(xlDown).Row:
If
e
>
60000
Then
e
=
1
f
=
Range("f1").End(xlDown).Row:
If
f
>
60000
Then
f
=
1
n
=
0:
m
=
0
For
i
=
1
To
a
For
j
=
1
To
b
For
k
=
1
To
c
For
x
=
1
To
d
For
y
=
1
To
e
For
z
=
1
To
f
DoEvents
n
=
n
+
1
Cells(n,
7
+
m)
=
Cells(i,
1)
&
Cells(j,
2)
&
Cells(k,
3)
&
Cells(x,
4)
&
Cells(y,
5)
&
Cells(z,
6)
If
n
>
60000
Then
n
=
0:
m
=
m
+
1
Next
z
Next
y
Next
x
Next
k
Next
j
Next
i
MsgBox
n
End
Sub

J. VB程序設計一個小程序，但是要有以下功能：排序，搜索，添加，刪除，顯示（不要粘貼黨，必須自己寫）

支持你！你自己寫！

排序，搜索，添加，刪除，顯示，這些功能應該是VB程序設計必須掌握的，希望你成功！