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程序设计必须掌握的，希望你成功！