UC知道求vb小程序，初学api，希望高手给点自己写的程序看看
来源：百度知道 编辑：UC知道 时间：2024/05/16 10:32:05
在此先给50分
完了再追50
完了再追50
我代码一堆 需要就来找我~API 其实不会难
Private Sub Command2_Click()
End
End Sub
Private Sub Command1_Click()
Dim a(1 To 10), i, j, k
For i = 1 To 10
a(i) = Int(101 * Rnd + 100)
Next
Text1.Text = Join(a, ",")
For i = 1 To 9
For j = i + 1 To 10
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
Text2.Text = Join(a, ",")
End Sub
Private Sub Command3_Click()
Text1 = ""
Text2 = ""
End Sub
本程序需要2个标签，2个文本框，3个按钮
这是我给另一个网友做的，也给你看一看，给不给分都行，关键是大家互相学习，互相交流一下学习心得。
我也祝你可以学会VB。
如果需要我可以把表单发给你。