vb上机练习题

《vb上机练习题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Text2Text11.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”，Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。22PrivateSubCommand1_Click()Text1.Font=黑体EndSubPrivateSubCommand2_Click()Text1.ForeColor=vbRedText2.ForeColor=vbBlueEn

2、dSubPrivateSubCommand3_Click()EndEndSub222.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Form1.BackColor=vbRedEndSubPrivateSu

3、bCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Form1.BackColor=vbGreenEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Text1.Text="在窗体上按下了鼠标"EndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Tex

4、t1.Text="在窗体上抬起了鼠标"EndSub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。22PrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubText1_Change()Text2.Text=Text1.TextText3.Text=Text1.TextEndSub注：“

5、字体不同”可以在属性那调“Font”224.设计一个窗体，如上图所示。当单击某个命令按钮时，对文本框中的文字完成相应的设置。其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。22PrivateSubCommand1_Click()Text1.FontSize=Text1.FontSize+5EndSubPrivateSubCommand2_Click()Text1.FontSi

6、ze=Text1.FontSize-5EndSubPrivateSubCommand3_Click()Text1.FontBold=TrueEndSubPrivateSubCommand4_Click()Text1.FontItalic=TrueEndSubPrivateSubCommand5_Click()Text1.FontUnderline=TrueEndSubPrivateSubCommand6_Click()Text1.FontStrikethru=TrueEndSub225.设计一个窗体，如下图所示。程序中将π定义成符号常量（用Const）

7、,运行时，输入底面半径r和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。运算结果为只读。PrivateSubCommand1_Click()Constpi=3.14h=Val(Text1)r=Val(Text2)Text3.Text=pi*r^2Text4.Text=2*pi*r*hText5.Text=pi*r^2*hEndSub226.设计界面如上图所示。单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、Text2中，单击“计算”按钮，求两个数的和。运算结果为只读。22PrivateSubCommand1_C

8、lick()Text1.Text=Int(100*Rnd+1)Text2.Text=Int(1