牛实验二vb语言基础及内部函数

《牛实验二vb语言基础及内部函数》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验二VB语言基础及内部函数（4个学时）一、实验目的1.掌握不同数据类型合法表达式的构成。2.掌握各种表达式的优先级别和运算。3.掌握内部函数的使用4.掌握数据的输入和输出地方法二、实验内容1.上机验证下表中个表达式的值，并将结果填入表屮。要求：先自行分析上表中表达式的值，再上机到“立即窗口”中验证，如果冇错，请分析原因。表达式值农达式值102.55“EFG''v>''efg"&“abc"True10/2.54Not5=4And5<4*2True8*3+2Mod3/2246>3*2Or7<>8And8=2*4True10>12+3AndTrueAnd2>3FalseNot7>2

2、*4OrNot5<>2+3AndFalseTrue8<>5OrNot10>12+3True#10/11/2010#+302010-11-102.设计一个程序进行选票统计，共有三位候选人（名字自拟），如果同意某人，就单击一下某人的按钮，在其对应的文本框中显示已得的票数。1）界面设计（将设计好的界面截下來粘贴在下面）^Forml［匚呵1211小白小里小苗2)代码设计PrivateSubCommandl_Click()Text1.Text=Val(Text1.Text)+1EndSubPrivateSubCommand2_Click()Text2.Text=Val(Text2.Text

3、)+1EndSubPrivateSubConiniand3_Click()Tcxt3.Tcxt=Vai(Tcxt3.Text)+1EndSubPrivateSubForm_Load()Command1.Caption="小白"Command2.Caption="小黑"Command3.Caption="小黄"EndSub3)调试过程记录(错谋情况及改正方法，不得少于三条)代码中引号应为英文半角字符代码应与控件名称相似代码需输入正确1.设计一个程序随机产生一个三位正整数显示在文木框中，然后在另一个文木框屮逆序输岀。1)代码设计如下：PrivateSubCommandl_Click(

4、)RandomizeText1.Text=Int(600*Rnd+100)DimaAsString,bAsString,cAsStringb=Text1.Texta=Right(b,2)c=Right(b,I)&Left(a,1)&Left(b,1)Text2.Text=cEndSubPrivateSubForm_Load()Command1.Caption=”逆序”Textl.Text=,H,Text2.Text=””EndSub2）运行结果（将运行后的界面截下来粘贴在下而）3)调试过程记录(错课悄况及改正方法)代码中引号应为英文半角字符代码应为控件名称相似代码需输入正确4•窗

5、体的Click、DbClick、Load事件的使用,以及Print方法和相关属性的使用。要求：在属性窗口中将窗体设置成无最大化按钮和最小化按钮，并使标题栏显示“窗体”。在窗体装入吋，在窗体上显示一张图片，标题栏显示“显示图片”。当用户单击窗体时，在标题栏显示“鼠标单击”，去除图片，并在窗体上显示“欢迎使用VB”当用户双击窗体时，在标题栏显示“鼠标双击”,，并清除窗休上的字符串。1)代码设计PrivateSubForm_DblClick()Form1.CisForm1.Caption=”鼠标双击”EndSubPrivateSubForm_Load()Form1.Picture=Lo

6、adPicture("C:UsersQUSTJSZXDesktopLighthouse.jpg")Form1.Caption=”显示图片”EndSubPrivateSubForm_Click()Form1.Picture=LoadPicture('*")Form1.Printn7K迎使用VB”Form1.Caption二”鼠标单击”EndSub2）将窗体装入后和用八单击窗体后的运行效果界血分別截下粘贴到下血。4）调试过程记录（错误情况及改正方法，不得少于三条代码中引号应为英文半角字符代码应与控件名称相似注意图片格式与路径正确1.创建一个窗体，设计一个文木编辑器，实现文木的

7、剪切、复制、粘贴和删除功能。（参考例4.5）1）创建界面（将设计好的界面截下来粘贴在下面）1)代码设计DimaAsStringPrivateSubCommandl_Click()a=Textl.SelTextTextl.SelText=EndSubPrivateSubCoinmand2_Click()a=Textl.SelTextTextLSetFocusEndSubPrivateSubCoinmand3_Click()Textl.SelText=aEndSubPrivateSu