VB期中复习资料.docx

《VB期中复习资料.docx》由会员分享，可在线阅读，更多相关《VB期中复习资料.docx（7页珍藏版）》请在第一文库网上搜索。

1、1、建立一个登陆窗口，用户在文本框中输入密码（不可见，出现*）,单击“确定”按钮后输入的密码在标签中出现，单击“退出”钮结束运行。如图：（字体：黑体小四）PrivateSubCommand1_CIick（）1abeI2=输入的口令是&Text1EndSubPrivateSubCommand2_C1ick（）EndEndSub（注：更改text1的PasswordChar属性）2、建立应用程序对两个文本框中输入的内容进行交换（如a、b两变量交换通过下面三条语句完成t=a:a=b:b=t）,单击“交换”按钮实现交换，单击“清空”按钮，清空文本框的内容,单击“结束”按钮结束运行。PrivateSub

2、Command1_C1ick()Dimt%t=Va1(Text1):Text1=Text2:Text2=tEndSubPrivateSubCommand2_C1ick()Text1=:Text2=EndSubPrivateSubCommand3_C1ick()EndEndSub3、窗体中有3个按钮Command1sCommand2和Command3该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序怎么样书写？PrivateSubCommand1_C1ick()Command3.Visib1e=Fa1seEndSub4、自动选择第3个字符起的6个字符。Private

3、SubForm_C1ick()Text1-Se1Start=2Text1.Se11ength=6Text2=Text1Se1TextEndSub5、实现两数相乘PrivateSubText1_1ostFocus()IfNotIsNumeric(Text1)ThenText1=,wText1-SetFocusEndifEndSub(2)字体、大小的格式设置DimstAsStringPrivateSubCommond1_C1ick()st=Text!.Se1TextText1Se1Text=EndSubPrivateSubCommond2_C1ick()st=Text!.Se1TextEndSub

4、PrivateSubCommond3_C1ick()Text1.Se1Txet=stPrivateSubTextzeKeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text2)ThenText2=EndifEndSubPrivateSubText3_GotFcous()Text3=VaI(Text1)+Va1(Text2)EndSub6、设计程序完成下列操作(1)剪切、复制和粘贴的编辑操作将选中的内容存放在St变量中将选中的内容清除，实现剪切将选中的内容存放在St变量中将St变量中的内容插入到光标所在的位置，实现粘贴，End

5、SubPrivateSubCommond4_C1ick()Tex11FontName=黑体”EndSubPrivateSubCommond5_C1ick()Text1FontSize=20EndSubPrivateSubCommond6_C1ick()EndEndSub7、建立一个学生情况登记表(要求：在文本框输入相应的内容，点击“确定”按钮，在窗体右边的标签输出四个文本框的内容，程序运行界面如图)PrivateSubCommand1C1ick()(第7题)号名级子学姓班电班23三电 121张电1abe12=Text1&vbCr1ffeText2&vbCr1f&Text3&vbCr1f&Tex

6、t4&VbCr1fEndSubPrivateSubCommand2_C1ick()Text1=:Text2=,H,:Text3=:Text4=：1abeI2=EndSubPrivateSubCommand3_C1ick()EndEndSub上机3顺序结构1、动态显示ShaPe形状；PrivateSubCommand1_C1ick()Timer1EnabIed=TrueEndSubPrivateSubForm_1oad()Timer1EnabIed=Fa1seEndSubPrivateSubTimer1_Timer()Shape1Shape=Int(Rnd*6+0)EndSub2、根据用户输入的

7、半径，求对应的直径、圆周长、圆面积、球表面积、球体积，要求保留3位小数显示结果；PrivateSubCommand1_C1ick()Constpi=3.1415Dimr!,d!,s!r=VaI(Text1):d=2*rs=pi*r2:TeXt2=d:Text3=SEndSubPrivateSubCommand2_C1ick()Text1=:Text2=,:Text3=EndSubPrivateSubCommand3_C1ick()Text2=VaI(Text1)*2Text3=3.1415*Va1(TextI)2EndSub3、实现对于用户输入数字进行加密显示，加密方法：数字循环左移二位(提示

8、：类似循环问题，常借助于MOd运算符来解决：密文数字二(明文数字n+循环偏移量Ad+10)Mod10;PrivateSubCommandI_C1ick()Text2=(Va1(Text1)+(-2)+10)Mod10EndSub4、请根据插入点位置和待插入字符串，单击“插入”按钮实现字符串的插入。PrivateSub(提示：将字符串插入点左边和右边的字符串使用1ef1和Right函数分离，使用字符串连接符按照左边字符串、插入字符串和右边字符串的顺序连接起来，即可完成插入操作。)Command1_C1ick()Text1=1eft(Text1,Va1(Text2)&Text3&RighKText

9、U1en(Text1)-Va1(Text2)EndSub5、将输入的字符串前半部分和后半部分对称交换位置。(提示：首先根据字符串的长度将字符串分为前、中、后三个部分，使用字符串函数进行截取三个部分字符串，并将其进行重新排放，最后将结果显示在新文本框中)PrivateSubCommandI_C1ick()Dims1$,s2$,s3$,s$,n%s=Text1n=1en(s)2If1en(s)Mod2=0Thens2=s3=Right(s,1en(s)-n)E1ses2=Mid(s,n+1,1)s3=Right(s,1en(s)-1-n)EndIfsi=1eft(s,n)Text2=s3&s2&s

10、iEndSub6、编一个华氏温度与摄氏温度之间转换的程序，转换公式如下：95F=-C+32C=-(F-32)59PrivateSubCommond1_C1ick()Dimf!,c!f=Va1(Text1)c=59*(f-32)Text2=Format(c,“0.00”)，保留两位小数，EndSubPrivateSubCommond2_C1ick()Text1=Format(9/5*Va1(Text2)+32,“0.00”)EndSub7、输入半径，计算圆周长和圆面积，如图所示。要求：检查输入数据的合法性，利用Msgbox显示出错信息，定位出错文本框，计算结果保留两位小数。PrivateSubT

11、ext1_1ostFocus()IfNotIsNumeric(Text1)Thenk=MSgBOx(输入有非数字字符，请重新输入”,VboKon1y,提示“)Text1=Text1SetFocusEndIfEndSubPrivateSubCommand1_C1ick()Text2=Format(3.1416*Va1(Text1)2,0.00)EndSubPrivateSubCommand2_C1ick()Text3=Format(2*3.1416*Va1(TextI),0.00)EndSub8、输入一字符串，分别调用UCase、1en函数将其转换成大写字母并显示其字符串长度。PrivateSu

12、bCommand1_C1ick()Text2=UCase(Text1)TeXt3=1en(TextI)EndSub9、随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。PrivateSubCommand1_C1ick()x=Int(Rnd*900+100)a=xMod10b=x100c=x10-10*bPrintx&VbCr1f&a&c&hEndSub10、Prim方法练习,显示字符图形。要求窗体不可改变大小，当单击“清屏”按钮后，清除窗体所显示的图形。PrivateSubCommand1_C1ick()Dimi%Fori=1To5PrintTab(2*(5-i)+4);St

13、ring(2*iNextiEndSubPrivateSubCommand2_C1ick()C1sEndSubPrivateSubCommand1_C1ick()Dimi%-1,1);Spc(4*(5-i)+2);String(2*i-1,)nForm1清屏Fori=1To5PrintTab(2*(5-i)+4);S1ring(2*i-1,String(2*(5-i)+1,String(2*i-1,)NextiEndSub0Form1-PrivateSubCommand2_C1ick()C1sEndSub显示（注：使窗体不可改变大小，设置窗体属性：首先BoaderSty1e=1-FixedSin

14、g1e,然后MinButton=Fa1se）上机4选择结构1、编一程序输入上网的时间并计算上网费用，计算方法如下:基数30元，上网时间10小时费用=,每小时2.5元，上网时间1050小时每小时2元，上网时间50小时同时为了鼓励多上网，每月收费最多不超过150元。PrivateSubCommand1_C1ick()Dimt%,cost%t=Va1(Text1)IftIOThencost=30EIseIft150Thencost=150Text2=costEndSubPrivateSubCommand2_C1ick()Text1=*:Text2=:Text1SetFocusEndSubPrivateSubCommand3_C1ick()EndEndSub2、