《vb教学资料》vb操作题总结

《《vb教学资料》vb操作题总结》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第一早运行时单击窗体显示黑体20磅红色“这是我的第一个VB程序”，单击“结束”命令按钮则退出程序的运行。PrivateSubform_click()Form1.FontSize=20Forml.ForeColor=RGB(255,0,0)Forml.FontName=〃黑体〃Forml.Print〃这是我的第一个VB程序!EndSubPrivateSubCommand1_Click()EndEndSub设计一个加法计算器程序，当输入两个加数时，计算并输出和数。PrivateSubCommandl_Click()DimaAsSingle,b

2、AsSingle,cAsSinglea=Textl・Textb=Text2.Textc=a+bText3・Text二cEndSubPrivateSubCommand2_Click()EndEndSub设计一个程序，当用户单击窗体时，在标题栏显示“鼠标单击窗体”，在窗体显示“你好,欢迎使用VB”；当用户双击窗体时，在标题栏显示“鼠标双击窗体”，在窗体显示“再见，谢谢使用VB”PrivateSubFormclick()Forml.Caption="鼠标单击窗体"lablel.Visible二Falselablel.Caption二〃你好，欢迎

3、使用VB〃EndSub设计一个程序，当输入圆的半径时，计算并输出圆的周长及面积。PrivateSubCommandl_Click()DimaAsSingle,bAsSingle,cAsSingleTextl.Text二aText2.Text二bText3.Text二cLabel1.Caption=圆半径Label2.Caption二圆周长Label3.Caption二圆面积b=3.1415926*2*ac=3.1415926*a*aEndSubPrivateSubCommand2_C1ick()EndEndSub第二章编程，输入球的半径r

4、,计算并输出球的体积vPrivateSubCommand1_C1ick()DimvAsSingle,rAsSingler=Vai(Textl.Text)v=4/3*3.14159*r3Label3.Caption二Str(v)EndSubPrivateSubCommand2Click()EndEndsub编程，显示运行时单击窗体的次数DimnAsIntegerPrivateSubForml_Click()n=n+1Label1.Caption二nEndSub编程，统计运行时输入字符串中的字符数PrivateSubCommandl_Clic

5、k()Label3.Caption二Len(Textl.Text)EndSubPrivateSubCommand2_C1ick()EndEndSub设计一个简单的函数计算器，熟悉三角函数，随即函数，时间函数，日期函数等常用函数的使用方法与规则。PrivateSubCmdsin_Click()'计算正弦值，参数为弧度制Textl.Text二Sin(Vai(Textl・Text))PrivateSubCmdcos_Click()'计算余弦值Textl.Text二Cos(Vai(Textl.Text))EndSubPrivateSubCmdsq

6、r_Click()'计算平方根DimnAsByteIfVai(Textl.Text)>=0ThenTex11.Text二Sqr(Vai(Textl.Text))ExitSubEndIfn=MsgBoxIfn=6ThenTextl.Text二-Vai(Textl.Text)Textl.Text二Sqr(Vai(Textl.Text))ElseTextl.Text二〃〃EndIfEndSubPrivateSubCmdrnd_Click()DimrndxAsSinglerndx=Vai(Textl.Text)RandomizerndxTextl

7、.Text二RndEndSubPrivateSubCmdtime_Click()Textl.Text=〃现在是〃+Left(Time,2)+〃点〃+Mid(Time,4,2)+〃分〃EndSubPrivateSubCmddate_Click()DimsAsString,mAsIntegers=Right(Date,Len(Date)-5):m=Textl.Text=〃今天是〃+Left(Date,4)+〃年〃_+Left(s,m-1)+〃月〃+Mid(s,m+1,Len(s)-m)+〃日〃EndSubPrivateSubCmdclearC

8、lick()Textl.Text二"”EndSubPrivateSubcmdend_Click()EndSub第二早输入三个数,如果三条线段的长度分别等于这三个数，判断三条线段能否构成三角形，