《10月18日VB上机任务》由会员分享，可在线阅读，更多相关《10月18日VB上机任务（4页珍藏版）》请在金锄头文库上搜索。
1、10 月月 18 日日 VB 上机任务上机任务任务一： 在窗体上画一个命名按钮，Name 属性为 Cmd1，标题为“打印”；再画一个文本框，Name 属性为 Txt1，将 Text 属性设置为空白。程序运行后，如果单击“打印”按钮，则在窗体上 打印文本框中的字符串，同时文本框中的字符串消失。 任务二： 编一程序，程序运行的初始界面如图 1-1 所示，当用户在文本框中输入姓名，例如输入 “张三” ，单击“确定”按钮，则程序的运行情况如图 1-2 所示，如果单击“结束”按钮， 即结束程序运行。图 1-1 程序运行后初始界面图 1-2 单击“确定”按钮后的程序界面任务三： 在窗体上建立 4 个命令按
2、钮 Command1、Command2、Command3 和 Command4。 要求： （1）命令按钮的 Caption 属性分别为“字体变大” 、 “字体变小” 、 “加粗”和“标准” 。 （2）每单击 Command1 按钮和 Command2 按钮一次，字体变大或变小 3 个单位。 （3）单击 Command3 按钮时，字体变粗；单击Command4 按钮时，字体又由粗体变为标 准。 （4）4 个按钮每单击一次都在窗体上显示“欢迎使用 VB” 。 （5）双击窗体后可以退出。任务四： 设计一窗体，窗体上有 1 个文本框（Text1） 、1 个命令按钮（Command1） ，运行时文本 框
3、中显示“Visual Basic 程序设计” ，命令按钮标题为“结束” ，文本框及命令按钮能随窗 体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高 度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在 Form_Load 事件中） 。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体 右下角的代码（提示：调整大小位置的代码写在 Form_Resize 事件中） 。 （3）结束程序运行的代码（命令按钮） 。程序 1界面设计参看图 10-1、10-2 以及表 10-1。表 10-1
4、 实例 2 各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件 1Name(Label1)Caption(“我的第一个 VB 程序“)Name(Label2)Caption(“请输入你的姓名“)标签控件 2FontUnderLine(True)FontItalic(True)命令按钮 1Name(Command1)Caption(“确定(&O)“)命令按钮 2Name(Command2)Caption(“结束(&X)“)过程设计如下： Private sub Form_Click()Command2.Enabled = False Een Sub Private Sub Comman
5、d1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + “: 欢迎使用“ + Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = True End Sub Private Sub Command2_Click()EndEnd Sub程序 2界面设计略，过程设计如下：Private Sub Command1_Click() 字体变大Form1.FontSize = Form1.FontSize + 3Form1.Cls:
6、Print “欢迎使用 VB“End SubPrivate Sub Command2_Click() 字体变小Form1.FontSize = Form1.FontSize - 3 Form1.Cls: Print “欢迎使用 VB“End SubPrivate Sub Command3_Click() 字体加粗Form1.FontBold = TrueForm1.Cls: Print “欢迎使用 VB“End SubPrivate Sub Command4_Click() 字体不加粗Form1.FontBold = FalseForm1.Cls: Print “欢迎使用 VB“End Sub
7、运行时，不得连续、过多次单击“字体变小”按钮，因为当 FontSize 属性值小于 0 会产生适时错误。程序 3界面设计略，过程设计如下（窗体 Height 值的计量包括标题、边框，而ScaleHeight 值仅与窗体有效绘图区域的高度有关）：Private Sub Form_Load()Text1.Text = “Visual Basic 程序设计“End SubPrivate Sub Form_Resize()Text1.Top = 0: Text1.Left = 0Text1.Width = Form1.ScaleWidth/2 用 Form1.ScaleWidth效果优于用Form1. WidthText1.Height = Form1.ScaleHeight/2 用 Form1.ScaleHeight优于用Form1. HeightCommand1.Top = Form1.ScaleHeight - Command1.HeightCommand1.Left = Form1.ScaleWidth - Command1.WidthEnd Sub
