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

设计一个程序,程序运行的初始界面如图1-1所示。当单击“显示”按钮时,在文本框中显示“欢迎使用VB!”(图1-1);当单击“清除”按钮时,清除文本框内的文本;当单击“退出”按钮时,结束程序运行。
图1-1 程序运行初始界面
图1-2 单击“显示”按钮后的程序界面
设计一个程序,程序运行的初始界面如图1-3所示,其中“显示”按钮为不可用。同时要求:
(1)当单击“改变文字”按钮时,在左边标签文字内容改为“你好,张三!”,同时“改变文字”按钮变为不可用(图1-4);
(2)当单击“隐藏”按钮时,将左边标签设为不可见,同时“隐藏”按钮变为不可用,“显示”按钮变为可用(图1-5);
(3)当单击“显示”按钮时,重新显示左边标签,同时“隐藏”按钮变为可用,“显示”按钮变为不可用(图1-4)。
图1-3 第1题的程序运行初始界面
图1-4 单击“改变文字”按钮后的程序界面
图1-5 单击“隐藏”按钮后的程序界面
四、实验原始记录

程序的界面设计。(可以是多张主要的图。下面的图要替换成你们自己设计的图。如何取图?设计好界面,按“Print Screen SysRq”键,打开画图软件,单击“编辑|粘贴”命令,利用菜单栏下方的“选定”功能,选中窗体,按“Ctrl + C”键,然后选中下面的实验样例图,按“Ctrl + V”键,替换掉)
程序代码。
Private mand1_Click()
= "欢迎使用VB!"
End Sub
Private mand2_Click()
= ""
End Sub
Private mand3_Click()
End
End Sub

程序的界面设计。(可以是多张主要的图。下面的图要替换成你们自己设计的图)
程序代码。
Private mand1_Click()
= True
= True
= False
End Sub
Private mand2_Click()
= False
= False
= True
End Sub
Private mand3_Click()
= "你好,张三!"
= False
End Sub
五、实验结果及分析
。(可以是多张主要的图。输入数据,显示结果。下面的图要替换成你们自己的图。如何取图?运行程序,按“Alt + Print Screen SysRq”键,选中下面这张图,按“Ctrl + V”键,替换掉)
。(可以是多张主要的图。输入数据,显示结果。下面的图要替换成你们自己的图)
设计一个程序,运行时界面如图2-1所示。当单击“左”、“右”、“上”、“下”按钮时,标签分别向左、右、上、下移动。
图2-1 程序运行时的界面
设计一个程序,在文本框中输入一个3位整数,单击按钮后,在标签上输出该数的百位数、十位数和个位数,运行界面如图2-2所示。
图2-2 程序运行时的界面
设计一个程序,实现简单计算的功能,运行界面如图2-3所示。
图2-3 程序运行时的界面
设计一个程序,单击“输入”按钮可弹出一个输入对话框,提示用户输入带区号的电话号码,区号为4为,号码为8位,比如输入“0571-86281517”,然后将区号和电话号码在消息对话框中显示出来,运行界面如图2-4所示。

图2-4 程序运行时的界面
四、实验原始记录

程序的界面设计。
程序代码。
Private mand1_Click()
= - 100
End Sub
Private mand2_Click()
= + 100
End Sub
Private mand3_Click()
= - 100
End Sub
Private mand4_Click()
= + 100
End Sub

程序的界面设计。
程序代码。
Private mand1_Click()
Dim a As Integer, b As Intege