文章目录
目录
前言
本文是一些基础题给同学们练习练习,认为太简单的同学可以点击我头像看其他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
总结:做完了这一篇,要是认为这一篇比较困难的同学,还是要多多去复习一下基础,做做基础题,可能基础还没学扎实。要是认为这一篇很简单的同学,可以点击我头像去练习一些比较难的题目。