关于vb程序的设计

Private Sub Command1_Click()

If text1 = "" Or combo1Text = "" Then

MsgBox "信息不完整"

Else

If Option1Value = True Then

List1AddItem text1 & vbTab & "男" & vbTab & combo1Text

Else

List1AddItem text1 & vbTab & "女" & vbTab & combo1Text

End If

End Sub

Private Sub Form_Click()

Dim i As Integer

For i = 200 To 300

If (i Mod 3 = 0) And (i Mod 7 = 0) Then Print i

Next i

End Sub

扩展资料：

VB基本特点：

1、VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。

VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。

过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。

2、窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。

举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。

3、VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于 *** 作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供d出功能。

4、VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。

5、VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。

和有些语言不一样，VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。

6、VB 使得大量的外界控件有了自己的生存空间。大量的第三方控件针对 VB 提供。VB 也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。

参考资料：

Private Sub Command1_Click()

s = Text1Text

For i = 1 To Len(s)

    a = Asc(Mid(s, i, 1))

    If a >= Asc("A") And a <= Asc("Z") Or a >= Asc("a") And a <= Asc("z") Then

        x = x + 1

    ElseIf a >= Asc("0") And a <= Asc("9") Then

        y = y + 1

    End If

Next

Label4Caption = x

Label5Caption = y

End Sub

Private Sub Form_Activate()

'1年期225%，2年期243%，3年期为270%，5年期为288%（不记复利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 00225, x2 As Double = 00243, x3 As Double = 0027, x5 As Double = 00288

Dim x As Double

x = Val(InputBox(""))

Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)

Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)

Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a c b

End Function

Private Sub Form_Load()

AutoRedraw = True

End Sub

以上就是关于关于vb程序的设计全部的内容，包括:关于vb程序的设计、vb程序设计单击窗体,求200到300之间既能被3整除又能被7整除的数、vb程序设计要详解等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！