VB期中复习资料 新 全

《VB期中复习资料 新 全》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、，清空文本框的内容，单击“结束”按钮结束运行。PrivateSubCommand1_Click()Dimt%t=Val(Text1):Text1=Text2:Text2=tEndSubPrivateSubCommand2_Click()Text1="":Text2=""EndSubPrivateSubCommand3_Click()EndEndSub3、窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序怎么样书写？PrivateSubCommand1_Click()Com

3、mand3.Visible=FalseEndSub4、自动选择第3个字符起的6个字符。PrivateSubForm_Click()Text1.SelStart=2Text1.SelLength=6Text2=Text1.SelTextEndSub5、实现两数相乘PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenText1=””6Text1.SetFocusEndifEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNume

4、ric(Text2)ThenText2=””EndifEndSubPrivateSubText3_GotFcous()Text3=Val(Text1)+Val(Text2)EndSub6、设计程序完成下列操作（1）剪切、复制和粘贴的编辑操作（2）字体、大小的格式设置DimstAsStringPrivateSubCommond1_Click()st=Text1.SelText‘将选中的内容存放在st变量中’Text1.SelText=“”‘将选中的内容清除，实现剪切’EndSubPrivateSubCommond2_Click()st=Text1.SelText‘将选中的

5、内容存放在st变量中’EndSubPrivateSubCommond3_Click()Text1.SelTxet=st‘将st变量中的内容插入到光标所在的位置，实现粘贴’EndSubPrivateSubCommond4_Click()Text1.FontName=“黑体”EndSubPrivateSubCommond5_Click()Text1.FontSize=20EndSubPrivateSubCommond6_Click()EndEndSub7、建立一个学生情况登记表（要求：在文本框输入相应的内容，点击“确定”按钮，在窗体右边的标签输出四个文本框的内容，程序运行界

6、面如图）PrivateSubCommand1_Click()（第7题）Label2=Text1&vbCrLf&Text2&vbCrLf&Text3&vbCrLf&Text4&vbCrLfEndSubPrivateSubCommand2_Click()Text1="":Text2="":Text3="":Text4="":Label2=""EndSub6PrivateSubCommand3_Click()EndEndSub上机3顺序结构1、动态显示Shape形状；PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPriv

7、ateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Shape1.Shape=Int(Rnd*6+0)EndSub2、根据用户输入的半径，求对应的直径、圆周长、圆面积、球表面积、球体积，要求保留3位小数显示结果；PrivateSubCommand1_Click()Constpi=3.1415Dimr!,d!,s!r=Val(Text1):d=2*r:s=pi*r^2:Text2=d:Text3=sEndSubPrivateSubCommand2_Click(