100个vb精彩小程序源码实例 vb小程序实例初学者

大家好我是源源，100个vb精彩小程序源码实例，关于vb小程序实例初学者很多人还不知道，那么现在让我们一起来看看吧！

100个vb精彩小程序源码实例 vb小程序实例初学者

1、Private Sub Command1_Click()Dim a(1 To 10) As Integer, Max As IntegerRandomizeText1.Text = ""For i = 1 To 10a(i) = Int(Rnd() 101) + 200 & " "Text1.Text = Text1.Text & a(i) & " "NextMax = 1For i = 2 To 10If a(i) > a(Max) ThenMax = iEnd IfNextText2.Text = "的数字：" & a(Max) & " 序号：" & MaxEnd Sub'以上文本框名称分别为txt1、txt2按钮名称为cmd1假设文本框中的10个数以逗号隔开。

2、Option ExplicitPrivate Sub cmd1_click()Dim i As Integer, s As StringDim max As Integer, ind As Integers = txt1.Textmax = Val(Left(s, 3))ind = 1For i = 2 To 10s = Mid(s, InStr(s, ",") + 1)If (max max = Val(Left(s, 3))ind = iEnd IfNexttxt2.Text = "第" & ind & "数，其值为" & max & "。

3、"End SubPrivate Sub Form_Load()Dim i As IntegerRandomizetxt1.Text = Int(200 + Rnd 201)For i = 1 To 10txt1.Text = txt1.Text & "," & Int(100 + Rnd 201)NextEnd SubPrivate Sub Command1_Click()Dim a(10) As Integer, i As Integer, j As Integer, max As Integer, xishu As Integermax = 0Text1.Text = ""xishu = 0For i = 0 To 9a(i) = Rnd 100 + 200Text1.Text = Text1.Text & a(i) & " "If max max = a(i)xishu = iEnd IfNext iText2.Text = xishuEnd Sub。

本文到这结束，希望上面文章对大家有所帮助。