用vb编写一个小程序程序

新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。

新建一个命令按钮Command1,添加以下代码：

Private

Sub

Command1_Click()

Dim

i

As

Integer

For

i

=

1

To

100

If

(i

Mod

5

=

0)

And

(i

Mod

3

<>

0)

Then

Text1.Text

=

Text1.Text

&

vbCrLf

&

i

Next

End

Sub

楼主您好！

代码如下：

Option Explicit

Private Sub Command1_Click()

    Dim n(7) As Double

    Dim k(3) As Double

    k(3) = 1

    Dim j As Integer

    For j = 1 To 7

        n(j) = Val(Controls("Text" & CStr(j)).Text)

    Next j

    For j = 1 To 7

        k(1) = k(1) + n(j)

        k(2) = k(2) - n(j)

        k(3) = k(3) * n(j)

    Next j

    Me.Text8.Text = "7个数的和为：" & k(1) & vbCrLf & _

                    "7个数的差为：" & k(2) & vbCrLf & _

                    "7个数的乘积为：" & k(3)

End Sub

Private Sub Command2_Click()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i)).Text = ""

    Next i

End Sub

Private Sub Form_Load()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i)).Text = ""

    Next i

End Sub

Option Explicit

Private Sub Form_Load()

    Randomize

    Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000)    '生成100000-999999之间的随机数

    Timer1.Interval = 1000  '一秒一次

    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static n As Integer

    n = n + 1

    If n = 60 Then      '一秒一次，累加到60此即60秒

        n = 0

        Randomize

        Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000)

    End If

End Sub

有问题请追问，满意请采纳，加油！

---