VB郭贤海实验报告及答案.docxVIP

实验1?1设计一个程序，程序运行的初始界面如图1?1所示。当单击“显示”按钮时, 在文本框中显示“欢迎使用VB!”（图1?1）；当单击“清除”按钮时，清除文本框内的文本; 当单击“退出”按钮吋，结束程序运行。 图1-1程序运行初始界面 图1-2单击“显示”按钮后的程序界面 实验1?2设计一个程序，程序运行的初始界面如图1?3所示，其中“显示”按钮为不可 用。同时要求： （1） 当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！ ”，同时“改 变文字”按钮变为不可用（图1-4）； （2） 当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用， “显示”按钮变为可用（图1-5）： （3） 当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示” 按钮变为不可用（图1?4）。 凰习题1-2口回凶改变文字你好,欢迎使 fflVB!隗藏显示图 凰习题1-2 口回凶 改变文字 你好,欢迎使 fflVB! 隗藏 显示 图1-3第1题的程序运行初始界面 图1?4单击“改变文字”按钮后的程序界面 图1-5单击“隐藏”按钮后的程序界面 四、实验原始记录 实验1.1 程序的界面设计。（可以是多张主要的图。下面的图要替换成你们自己设计的图。如何 取图？设计好界面，按Print Screen SysRq键,打开画图软件，单击“编辑|粘贴”命令, 利用菜单栏下方的“选定”功能，选屮窗体，按“Grl + C”键，然后选屮下面的实验样例 图，按“Ctrl + V”键，替换掉） 程序代码。 Private Sub Command 1 _Click() Text 1.Text = ”欢迎使用 VB ! H End Sub Private Sub Command2_Click() Text 1.Text 二”“ End Sub Private Sub Command3_Click() End End Sub 实验1?2 程序的界面设计。(可以是多张主要的图。下血的图要替换成你们自己设计的图) 程序代码。 Private Sub Command l_Click() Label 1 .Visible = True Command2.Enabled = True Command 1 .Enabled = False End Sub Private Sub Command2_Click() Label 1 .Visible = False Command2.Enabled = False Command 1 .Enabled = True End Sub Private Sub Command3_Click（） Label 1 .Caption = H你好,张三！“ Command3 .Enabled = False End Sub 五、实验结果及分析 实验1?1运行结果。（可以是多张主要的图。输入数据，显示结果。下面的图要替换成 你们自己的图。如何取图?运行程序,按Alt + Print Screen SysRqn键，选中下面这张图, 按Ctrl + V”键，替换掉） 实验1?2运行结果。（可以是多张主要的图。输入数据，显示结果。下血的图要替换成 你们自己的图） 圍习题1-2 口回冈 你好，张三！ 改变文字1 显示1 实验2?1设计一个程序，运行吋界面如图2-1所示。当单击“左”、“右”、“上”、“下” 按钮时，标签分别向左、右、上、下移动。 图2?1程序运行时的界面 实验2?2设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该 数的百位数、十位数和个位数，运行界面如图2-2所示。 图2-2程序运行时的界面 实验2?3设计一个程序，实现简单计算的功能，运行界面如图2?3所示。 图2?3程序运行时的界面 实验2?4设计一个程序，单击“输入”按钮可弹出一个输入对话框，提示用户输入带区 号的电话号码,区号为4为，号码为8位,比如输入“0571然后将区号和电话 号码在消息对话框中显示出来，运行界面如图2-4所示。 图2-4程序运行时的界面 图2-4程序运行时的界面 四、实验原始记录 实验2.1 程序的界面设计。 程序代码。 Private Sub Command 1 _Click() Label I .Left = Label 1.Left ? 100 End Sub Private Sub Command2_Click() Label 1 .Left = Label 1.Left + 100 Private Sub Command3_Click() Label 1 .Top = Label 1 .Top - 100 End Sub Private Sub Command4_Click(