1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()= 黑体End SubPrivate Sub Command2_Click() = vbRed= vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使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 SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)= "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)= "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3TeTe中显示相同的内容，但字体不同（字体自定）。
Private Sub Command1_Click() = ""= ""= ""End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Text1_Change()==End Sub注：“字体不同”可以在属性那调“Font”4.设计一个窗体，如上图所示。
当单击某个命令按钮时，对文本框中的文字完成相应的设置。
其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。
Private Sub Command1_Click() = + 5End SubPrivate Sub Command2_Click() = - 5End SubPrivate Sub Command3_Click() = TrueEnd SubPrivate Sub Command4_Click()= TrueEnd SubPrivate Sub Command5_Click()= TrueEnd SubPrivate Sub Command6_Click() = TrueEnd Sub5.设计一个窗体，如下图所示。
程序中将π定义成符号常量（用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 * hEnd Sub6.设计界面如上图所示。
单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、Text2中，单击“计算”按钮，求两个数的和。
运算结果为只读。
Private Sub Command1_Click() = Int(100 * Rnd + 1)= Int(100 * Rnd + 1)End Sub Private Sub Command2_Click()a = Valb = Val= a + bEnd Sub7．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
Private Sub Form_Click()= Year(Now)= Month(Now)= Day(Now)= Weekday(Now)= TimeEnd Sub8．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
Private Sub Command1_Click() = Abs(Val(Text1))= 0= LenEnd Sub Private Sub Command2_Click() = Sqr(Val(Text1))= 0= LenEnd SubPrivate Sub Command3_Click() = Fix(Val(Text1))= 0= LenEnd SubPrivate Sub Command4_Click() = Int(Val(Text1)) = 0= LenEnd SubPrivate Sub Command5_Click() = Sgn(Val(Text1))= 0= LenEnd Sub9．设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7整除，若能用MsgBox函数显示“能同时被3、5、7整除”，否则显示“不能整除”。
Private Sub Command1_Click()a = Val(Text1)If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 ThenMsgBox "能同时被3、5、7整除"ElseMsgBox "不能整除"End IfEnd Sub10．设计一个计算购书价钱的程序，界面如下图所示。
为了提高运行速度，设置Tab键序，使得输入完单价后，焦点定位到输入数量文本框中。
单击“计算总价”或用访问键，算出总价。
总价文本框要求为只读属性。
完成相应功能。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2) = a * b End Sub Private Sub Command2_Click() EndEnd Sub11．设计一工程，界面如上图所示。
程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Text1内容，以便继续输入。
Private Sub Command1_Click()a = Val(Text1)b = a * / 180c = Abs(Sin(b))d = Abs(Cos(b))= & a & Space(10) & Format(c, "") _& Space(10) & Format(d, "") & vbCrLf= 0= LenEnd Sub12．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2)c = Val(Text3)= a * b * cEnd Sub Private Sub Command2_Click() = ""= ""= ""= ""End Sub13．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。
Private Sub Command1_Click() a = Val(Text2)Select Case aCase 90 To 100h = "优秀"Case 80 To 89h = "良好"Case 70 To 79h = "中等"Case 60 To 69 h = "及格"Case 0 To 59h = "不及格"End Select"学号：" &"分数：" & a & Space(3) & h End Sub14．设计一个窗体Forml，界面如上图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
Private Sub Command1_Click() a = Val(Text1)= a ^ 2 * = 2 * a * End Sub15．设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大、最小数。
Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = t= a= cEnd Sub16．界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，若能组成三角形在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a + b < c Or a + c < b Or b + c < a Or Abs(a - b) > c Or Abs(a - c) > b Or Abs(b - c) > a Then= "FALSE"Elseh = (a + b + c) / 2s = Sqr(h * (h - a) * (h - b) * (h - c))= Format(s, "")End IfEnd Sub17．设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。