3VB程序设计.doc

1．在窗体上建立命令按钮"command1"（显示）和"command2"（退出）。运行时， "command2"按钮始终显示"退出"；单击"显示"按钮后窗体上显示"欢迎使用VB!"，同时命 令按钮1的标题改为"清除"，再单击"清除"按钮后，界面恢复窗体装入时的初始状态。 Private Sub Command1_Click() If Command1.Caption = "显示" Then Print "欢迎使用VB!" Command1.Caption = "清除" Else Cls Command1.Caption = "显示" End If End Sub Private Sub Command2_Click() End End Sub 2.用InputBox函数输入一个学生成绩，评定其等级。方法是：90～100分为"优秀"，80～ 89分为"良好"，70～79分为"中等"，60～69分为"及格"，60分以下为"不及格"。 Private Sub Command1_Click() Dim score！ score = Val(Text1.Text) Select Case sc 【VB程序设计基础】 在VB（Visual Basic）编程中，我们常常需要创建用户界面并处理用户的交互。在上述示例中，我们看到了几个常见的VB编程任务： 1. **按钮事件处理**： - `Command1_Click` 和 `Command2_Click` 是VB中常见的事件处理程序，分别对应于命令按钮`command1`和`command2`被点击时的响应。 - 当用户点击"显示"按钮，程序会打印"欢迎使用VB!"并改变按钮的标题为"清除"。 - 再次点击"清除"按钮，程序会清除文本并恢复按钮标题为"显示"。这通过`If`语句和`Cls`命令实现，`Cls`用于清空窗体的内容。 2. **InputBox与等级评定**： - `InputBox`函数用于从用户那里获取输入，这里是获取学生的成绩。 - `Select Case`语句用来根据不同的成绩范围设定等级，如"优秀"、"良好"、"中等"、"及格"和"不及格"。这里使用`Val`函数将输入的文本转换为数值类型。 3. **一元二次方程求解**： - 输入三个数，分别代表二次方程的系数a、b和c，然后计算方程的解。 - 使用`Sqr`函数计算平方根，如果判别式`d >= 0`，则方程有实根，并通过公式计算出`X1`和`X2`。 - 如果`d < 0`，则表示方程无实根，向用户展示相应信息。 4. **条件判断与赋值**： - 依据输入的数`A`，设置变量`B`的值。这里用到了嵌套的`If...Then`语句来实现不同的逻辑分支。 - 当`A > 100`时，`B = 1`；`A < 100`时，`B = -1`；`A = 100`时，`B = 0`。 5. **排序与显示**： - 用户输入三个数`x`, `y`, `z`，程序会重新排列它们并按照从小到大的顺序显示。 - 使用`If`语句进行比较和交换操作，确保`x <= y <= z`，然后在标签控件中显示排序后的结果。 6. **清理界面**： - 在某些情况下，我们需要清除用户界面的输入或显示。例如，`Command2_Click`事件处理程序通常用于重置或初始化界面，清空文本框和标签的值。 这些基础知识构成了VB编程的基本元素，包括用户交互、条件判断、数值计算以及数据排序。通过熟练掌握这些技能，开发者可以构建各种复杂的应用程序。