vb上机练习题(1)
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
1.新建工程,界面如下图,将窗体名称改为f1,标题属性为“我的第一个工程”, Text2允许多行,三个命令按钮名称分别为C1、C2、C3,单击C1按钮将Text1的字体改为黑体,Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色,Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。
Private Sub Command1_Click()
= 黑体
End Sub
Private Sub Command2_Click() = vbRed
= vbBlue End Sub
Private Sub Command3_Click() End End Sub
2.新建工程,界面如上图,运行时,鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色,鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”,鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
= vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
= vbGreen End Sub
Private Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
= "在窗体上按下了鼠标" End Sub
Private Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
= "在窗体上抬起了鼠标" End Sub
3.新建工程,界面如下图,运行时,在文本框Text1中输入内容的同时,在文本框Text2、Text3
Te
Te
中显示相同的内容,但字体不同(字体自定)。
Private Sub Command1_Click() = ""
= ""
= ""
End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Text1_Change()
=
=
End Sub
注:“字体不同”可以在属性那调“Font”
4.设计一个窗体,如上图所示。当单击某个命令按钮时,对文本框中的文字完成相应的设置。其中,每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅,“粗体”按钮将使文本框中的文字加粗,“斜体”按钮将使文本框中的文字倾斜,“下划线”按钮将使文本框中的文字加下划线,“删除线”按钮将使文本框中的文字加删除线。
Private Sub Command1_Click() = + 5
End Sub
Private Sub Command2_Click() = - 5
End Sub
Private Sub Command3_Click() = True
End Sub
Private Sub Command4_Click()
= True
End Sub
Private Sub Command5_Click()
= True
End Sub
Private Sub Command6_Click() = True
End Sub
5.设计一个窗体,如下图所示。程序中将π定义成符号常量(用Const ),运行时,输入底面半径r和圆柱高h,然后单击“计算”命令按钮,在相应文本框中显示计算结果。运算结果为只读。
Private Sub Command1_Click()
Const pi =
h = Val(Text1)
r = Val(Text2)
= pi * r ^ 2
= 2 * pi * r * h
= pi * r ^ 2 * h
End Sub
6.设计界面如上图所示。单击“出题”按钮,产生任意两个【1,100】之间的随机整数于Text1、Text2中,单击“计算”按钮,求两个数的和。运算结果为只读。
Private Sub Command1_Click() = Int(100 * Rnd + 1)
= Int(100 * Rnd + 1)
End Sub Private Sub Command2_Click()
a = Val
b = Val
= a + b
End Sub
7.设计一个数字钟表程序,界面如图所示。运行时单击窗体,显示当前的年月日星期及时间。
Private Sub Form_Click()
= Year(Now)
= Month(Now)
= Day(Now)
= Weekday(Now)
= Time
End Sub
8.设计一个数学函数程序,界面如图所示。程序运行时,在文本框中输入任意数值,单击相应按钮标签中显示结果。文本框始终处于选中状态。
Private Sub Command1_Click() = Abs(Val(Text1))
= 0
= Len
End Sub Private Sub Command2_Click() = Sqr(Val(Text1))
= 0
= Len
End Sub