电脑vb程序怎么使用

1既然是入门呢,第一步当然是要启动VB:双击VB图标后会自动d出“新建工程”对话框,

2接下来就是添加“控件”了:从界面的左侧选中我们需要的“Label”控件并在“F

3完成了各种控件的添加,及时修改“Captain”等属性,可以使编程更加直观。

4接下来就是最关键的编写代码环节了:双击“计算”(也就是之前的“Command 2”)按

5那为了方便 *** 作呢,可以进行小小的完善——添加“重置”功能: 双击“重置‘按钮,

用VB实现上述功能的函数是：

Function fun(m, n) As Integer

Sum = 0

For i = 1 To 100

  If i Mod m = 0 Or i Mod n = 0 Then

    Sum = Sum + i

  End If

Next i

fun = Sum

End Function

Private Sub Command1_Click()

m = CInt(InputBox("m="))

n = CInt(InputBox("n="))

Print "100以内能被"; m; "或"; n; "整除的数的总和="; fun(m, n)

End Sub

可视化程序设计一般有一下步骤

设计程序界面

编写程序代码

调试、运行程序；面向对象的程序设计以对象为中心，以事件为过程执行的起点

例题：

设计一个简易的打字测试程序，单击“开始”按钮，计时开始，输入字符；单击“结束”按钮，程序输出打字速度。

（1）启动VB，新建一个VB标准EXE工程。单击工具箱中的文本框控件（TextBox），将鼠标指针移到窗体上，拖动十字线在窗体上画出大小适当的控件。

（2）用同样的方法在窗体中添加两个命令按钮控件（CommandButton）、两个标签控件（Label）和一个文本框控件。

（3）通过属性窗口可以更改对象的原有属性。

（4）双击“frmTest”窗体中的“开始”按钮，打开对应的代码窗口。在对象中=列表框中选择“通用”，输入代码。

（5）在对象列表框中选择“cmdStart"，在过程列表框中选择”Click"事件。输入代码。

（6）保存工程，运行程序。

Private Sub Command1_Click() '窗体上放一个按钮，点击，就可以在窗体上打印结果

    Dim SuShu(3) As Integer, i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer, c1 As Long, c2 As Long, Ji1 As Long, Ji2 As Long, Ji3 As Long

    MeAutoRedraw = True

    SuShu(0) = 2:    SuShu(1) = 3: SuShu(1) = 5: SuShu(3) = 7

    For i1 = 0 To 3

        For i2 = 0 To 3

            For i3 = 0 To 3

                c1 = SuShu(i1) 100 + SuShu(i2) 10 + SuShu(i3)

                For i4 = 0 To 3

                    For i5 = 0 To 3

                        c2 = SuShu(i4) 10 + SuShu(i5)

                        Ji1 = c1 SuShu(i5)

                        Ji2 = c1 SuShu(i4)

                        Ji3 = Ji1 + Ji2 10

                        If Ji1 > 1000 And Ji2 > 1000 And Ji3 > 10000 Then

                            If IsQuanSuShu(Ji1) And IsQuanSuShu(Ji2) And IsQuanSuShu(Ji3) Then '如果是，输出结果

                                Print "   " & CStr(c1) & vbNewLine & " X  " & CStr(c2) & vbNewLine & "--------"

                                Print "  " & CStr(Ji1) & vbNewLine & " " & CStr(Ji2) & vbNewLine & "--------" & vbNewLine & " " & CStr(Ji3)

                            End If

                        End If

                    Next

                Next

            Next

        Next

    Next

End Sub

Private Function IsQuanSuShu(ByVal n As Long) As Boolean '每一位是否全部是2,3,5,7

    Dim k As Integer

    Do While n > 0

        k = n Mod 10

        If k <> 2 And k <> 3 And k <> 5 And k <> 7 Then Exit Function

        n = n \ 10

    Loop

    IsQuanSuShu = True

End Function

以上就是关于电脑vb程序怎么使用全部的内容，包括:电脑vb程序怎么使用、用vb编写程序、使用VB进行程序设计有哪些步骤等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！