VB程序设计基础题

编程 同时被 2 个专栏收录
8 篇文章 0 订阅
6 篇文章 0 订阅

文章目录

目录

文章目录

前言

内容

一、最大数与被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


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

 

 

  • 2
    点赞
  • 0
    评论
  • 4
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
©️2020 CSDN 皮肤主题: 游动-白 设计师:白松林 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值