文章目录
目录
前言
本文是一些基础题给同学们练习练习，认为太简单的同学可以点击我头像看其他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
总结：做完了这一篇，要是认为这一篇比较困难的同学，还是要多多去复习一下基础，做做基础题，可能基础还没学扎实。要是认为这一篇很简单的同学，可以点击我头像去练习一些比较难的题目。
1599
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
