文章目录

目录

文章目录

前言

内容

一、最大数与被5整除的所有数之和。

二、大写转换与右边第一个字符。

三、平方根与个位数

四、QQ登录页面设置

五、大小写转换

六、判断能否被3整除

七、所有奇数

八、计算本金加利息

九、判断口令正确

十、质数判断

---

前言

本文是一些基础题给同学们练习练习，认为太简单的同学可以点击我头像看其他VB题。

---

内容

一、最大数与被5整除的所有数之和。

创建一个VB 应用程序，界面中有两个标签文本和两个命令按钮。请按图 1-1 所示，设计窗体。编写程序代码，要求：程序运行时，用鼠标单击“最大值”命令按钮，通过输入对话框输入两数字，将两数中的较大数输出至屏幕，并在标签文本 labet2 显示大数，在标签文本 labet1 中显示较小数。如图 1-2 所示、如图 1-3、图 1-4 所示。单击“计算”命令按钮， 计算从 label1 至 label2 两数之间能被 5 整除的所有数之和。如图 1-5 所示。

                   1-1

                    1-2

                    1-3

                     1-4                                                1-5

代码：

Dim a, b
Private Sub Command1_Click()
a = InputBox("请输入第一个数字", "判断最大数")
b = InputBox("请输入第二个数字", "判断最大数")
If a > b Then
    Label1.Caption = b
    Label2.Caption = a
    Print a

Else
    Label1.Caption = a
    Label2.Caption = b
    Print b

End If
End Sub

Private Sub Command2_Click()
If a < b Then
    For i = a To b
        If i Mod 5 = 0 Then
            s = s + i
        End If
    Next
    Else
        For i = b To a
        If i Mod 5 = 0 Then
            s = s + i
        End If
    
    Next
End If
Print s
End Sub

---

二、大写转换与右边第一个字符。

创建一个 VB 应用程序，窗体中有上下排列两个文本框 text1、text2 和两个命令按钮， 请按图 2-1 所示，设计窗体。编写程序代码，要求：在 Text1 输入一字符串S，分别点击“大写字符”、“右第一字符”按钮，在 Text2 中分别显示字符串 S 的大写字符、字符串S 的右第一字符。运行结果如图 2-2、图 2-3 所示。

                       2-1

                        2-2                                                                     2-3

代码：

Private Sub Command1_Click()
S = Text1.Text
Text2.Text = UCase(S)

End Sub

Private Sub Command2_Click()
S = Text1.Text
Text2.Text = Right(S, 1)

End Sub

---

三、平方根与个位数

创建一个 VB 应用程序，窗体中有左右并排两个文本框 text1、text2 和两个命令按钮， 请按图 3-1 所示，设计窗体。编写程序代码，要求：在 Text1 输入整数 x，分别点击“平方根”、“个位数”按钮，在 Text2 中分别显示 x 的平方根、整数 x 的个位数。运行结果如图 3-2、图 3-3 所示。

               3-1                                                  3-2                                              3-3

代码：

Private Sub Command1_Click()
x = Val(Text1.Text)
Text2.Text = Sqr(x)

End Sub

Private Sub Command2_Click()
x = Val(Text1.Text)
Text2.Text = x Mod 10
End Sub

---

四、QQ登录页面设置

创建一个 VB 应用程序，界面中有上下排列二个文本框 text1 和 text2，两个标签文本和两个命令按钮。控制属性设置如图 4-1 所示。请按图 4-1 所示，设计窗体。编写代码要求： 程序运行时，用鼠标单击“登录”命令按钮，若 text1 文本为空，通过消息框显示错误信息， 若 text2 文本字符数小于 6，通过消息框显示错误信息。如图 4-2 所示。单击结束按钮时， 结束程序。

代码：

Private Sub Command1_Click()
a = Len(Text2.Text)
If Text1.Text = "" Then
MsgBox "QQ账号不允许为空！", vbOKOnly + vbInformation, "确定"
End If
If a <= 6 Then
MsgBox " QQ密码长度必须六位数以上！", vbOKOnly + vbInformation, "确定"

End If

End Sub

Private Sub Command2_Click()
End

End Sud

---

五、大小写转换

界面设计如图5-1 所示，要求文本框 Text1 中的字体大小为三号，右对齐显示。程序运行后， 单击“ 转换大写 ”按钮，使用内部函数将字符串“aBcDeF”转换成大写形式并在 Text1 中显示，如图 5-2 所示；单击“ 退出” 按钮，退出程序。

                           5-1                                                              5-2

Private Sub Command1_Click()
Text1.Text = UCase("aBcDeF")

End Sub

Private Sub Command2_Click()
End

End Sub
 

---

六、判断能否被3整除

界面设计如图6-1 所示。程序运行后，单击“输入”按钮，使用输入框输入一个整数，并将输入的整数显示在文本框 Text1 中。单击“判断”按钮，实现判断输入的整数能否被 3 整除，判断的结果显示在 MsgBox 消息框中，如图 6-2、图 6-3  和图 6-4  所示。

                       6-1                                                                   6-2

                    6-3                                                                        6-4

代码：

Dim a
Private Sub Command1_Click()
a = InputBox("输入整数", "VB2")
Text1.Text = a

End Sub

Private Sub Command2_Click()
If a Mod 3 = 0 Then
MsgBox "可以", vbOKOnly, "VB2"
Else
MsgBox "不可以", vbOKOnly, "VB2"
End If

End Sub

---

七、所有奇数

打开考生文件夹内 vb3 文件夹下的“ vb3.vbp ” 文件，界面设计如图7-1 所示。程序运行后，在文本框 Text1 和 Text2 中输入两个正整数 m 和 n，单击按钮计算 m 到 n 之间（包含 m 和 n）的所有奇数和，并将结果显示在窗体上， 如图 7-2 所示。

                      7-1                                                                7-2

代码：

Private Sub Command1_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
If n < m Then
    t = n
    n = m
    m = t
End If

For i = m To n
If i Mod 2 = 1 Then
s = s + i
End If
Next

Print s

---

八、计算本金加利息

界面设计如图8-1 所示。程序运行后，在文本框 Text1 和 Text2 中输入存款金额和存款年限， 单击按钮计算存款期限到期后能够获得的本息（年利率是 4%），并将结果显示在窗体上，如图 8-2 所示。

                            8-1                                                                8-2

代码：

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * (1 + 0.04) ^ b
Print (Int((c + 0.0005) * 1000)) * 0.001

End Sub

---

九、判断口令正确

界面如图 9-1 所示（格式不要求设置）。要求在文本框中输入的口令都以“*”显示。程序运行后，单击“校验口令”按钮，实现判断输入的口令是否等于“ABC”，判断的结果显示在MsgBox 消息框中”，如图 9-2、图 9-3 和图 9-4 所示。

                             9-1                                                               9-2

             9-3                            9-4

代码：

Private Sub Command1_Click()
Text1.PasswordChar = "*"
If Text1.Text = "ABC" Then
MsgBox "正确"
Else
MsgBox "错误"
End If
End Sub

---

十、质数判断

界面如图 10-1 所示（格式不要求设置），程序运行后，单击按钮判断文本框中输入的数是否为质数，判断结果显示在 Label2 中，如图 10-2 和图 10-3 所示。说明：质数（也叫素数）是指一个数只能被 1 和它本身整除。

算法设计思路:循环判断输入的数能否被从 2 到该数（不包括该数）之间的任何一个整数整除，如果能整除则是质数，否则不是质数，提前退出循环。

            10-1                                         10-2                                      10-3

代码：

Private Sub Command1_Click()
a = Val(Text1.Text)
If a = 2 Then
    Label2.Caption = a & "是质数!"
    ElseIf a > 2 Then
        For i = 2 To a - 1
            If a Mod i = 0 Then
                Label2.Caption = a & "不是质数!"
                Exit For
            Else
                Label2.Caption = a & "是质数!"
            End If
        Next
    ElseIf a < 2 Then
    Label2.Caption = a & "不是质数!"
    
End If
End Sub

---

总结：做完了这一篇，要是认为这一篇比较困难的同学，还是要多多去复习一下基础，做做基础题，可能基础还没学扎实。要是认为这一篇很简单的同学，可以点击我头像去练习一些比较难的题目。

 

 

菜单程序设计

为什么要学菜单？菜单重要吗？
windows环境下，所有的应用软件都是通过菜单实现各种操作的。？？你说重要不重要？？
对于复杂的操作，菜单具有明显的优势。
菜单的作用
- 提供人机对话的界面。 让使用者可以通过菜单使用应用程序的各种功能、
- 管理应用系统，控制各种功能模块的运行
高质量的菜单程序，不单可以让系统美观，还可以让操作者使用方便
菜单是什么？
菜单可以分为下拉式菜单，和弹出式菜单。
下拉式菜单长什么样？
是最典型的窗口式菜单。窗口是指屏幕上一个特定的矩形区域，
文字描述：
他可以在屏幕上出现，也可以重新显示在屏幕上，各个窗口允许覆盖，下拉式窗口 从上到下 在屏幕上下拉 一个个 窗口来供用户选择或者输入信息。
就是这玩意
弹出式菜单长什么样？
往下看。
vb中的菜单的理解？
把每个菜单项，看作是一个图形对象，（控件）， 具有和某些控件相同的属性

可视语言中，菜单的设计要简单，vb中菜单通过菜单编辑器来建立，
认识一下菜单编辑器

怎么出现这个菜单编辑器？

1. 工具-----》菜单编辑器
2. crtl + e
3. 工具栏----》菜单编辑器
4. 窗体右键--------弹出菜单选择菜单编辑器
   菜单编辑器的结构是什么？
   菜单编辑器可以分为数据区，编辑区，菜单显示区
   数据区可以 修改菜单项，设置属性
   编辑区 是 那7个按钮，用来对输入的菜单项进行简单的编辑。
   菜单显示区 输入的菜单在此处显示出来，通过内缩符号表明菜单项的层次。条形光标所在的菜单项是“当前菜单项”
   菜单编辑器怎么使用？
   往下康
   怎么使用菜单编辑器建立菜单？
   通过本章第一个例子来说明，这个例子说明了菜单程序设计的基本方法和步骤，不管多复杂的菜单都可以使用相同的方法设计。 在最后面
   为什么有些菜单项和别的不同呢？
   有些菜单项是灰色的，有些菜单项有下划线，
   我们通过有效性操作和菜单项标记来让一些菜单项更加有个性
   什么是有效性控制？
   比如： 有些菜单项可以根据执行条件不同而进行动态变化。
   我们要设置他们的有效属性，来控制他们。
   如果有效属性 = False 菜单项就变成灰色的了
   例如:Add.Enabled = False
   想要恢复就设置
   Add.Enabled = True
   对上一个11-1进行完善

Private Sub Text1_Change()
If Text1.Text = "" Then
Add.Enabled = False
Min.Enabled = False
Mul.Enabled = False
Div.Enabled = False
Else
Add.Enabled = True
Min.Enabled = True
Mul.Enabled = True
Div.Enabled = True
End If
End Sub
Private Sub Text2_Change()
If Text1.Text = "" Then
Add.Enabled = False
Min.Enabled = False
Mul.Enabled = False
Div.Enabled = False
Else
Add.Enabled = True
Min.Enabled = True
Mul.Enabled = True
Div.Enabled = True
End If
End Sub

什么是菜单项标记？
就是在菜单项面前加一个 勾勾
我们用一个例子来说明它的用法11-2

代码清单
11-1
设计 具有运算以及清除功能的菜单，
界面设计如下

设计菜单
规划好提供给菜单的属性 就可以设计菜单了，



编写程序代码

Private Sub Add_Click()
x = Val(Text1.Text) + Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Clean_Click()
Text1.Text = ""
Text2.Text = ""
Label4.Caption= ""
Text1.SetFocus
End Sub

Private Sub Div_Click()
x = Val(Text1.Text) / Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Min_Click()
x = Val(Text1.Text) - Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Mul_Click()
x = Val(Text1.Text) * Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Quit_Click()
End
End Sub

11-2