求助：求高人做个VB小程序，最简单的那种百分悬赏

Private Sub Command1_Click()

'存储文本

Open AppPath & "\ctext" For Append As #1

Print #1, Text1Text

Close #1

End Sub

Private Sub Combo1_Change()

If Combo1List(Combo1ListIndex) = "条件" Then

Text1Text = "内容"

End If

End Sub

Private Sub Combo1_LostFocus()

Combo1AddItem Combo1Text

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbBlack

End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = &H0&

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbGreen

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbWhite

End Sub

Private Sub Timer1_Timer()

If Time = "07:00:00" Then MsgBox "cccc"

End Sub

我这边回不了你的问题,不能回答,也不能发文件

你发你发油箱,我从邮箱或者QQ发给你

快

楼主您好！

代码如下：

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

    MeText8Text = "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

以上就是关于求助：求高人做个VB小程序，最简单的那种 百分悬赏全部的内容，包括:求助：求高人做个VB小程序，最简单的那种 百分悬赏、用vb编写一个小程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！