VB上机实验题

(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，请务必认真！

．．．．．．)

实验一：第二章

⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。

Private sub command1_click()

Label1.visible=false

Command1.caption=label1.caption

End sub

⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框，

名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。

上机代码：Private sub command1_click()

Label1.visible=false

Text1.visible=false

Print text1.text

End sub

⒊在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名

称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。

Private sub command1_click()

Text2=text1.seltext

End sub

Private sub command2_click()

Text1.seltext=””

End sub

4．在名称为Form1的窗体上画一个文本框，名称为Text1，Text属性值为“VB可视化程序设计”，采用宋体四号字；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“黑体”、“隶书”和“楷体_GB2312”。程序运行时，单击不同的命令按钮，则文本框的字体变为相应的字体。请编写三个命令按钮的Click过程完成上述功能。

Private sub command1_click()

Text1.fontname=command1.caption

End sub

Private sub command2_click()

Text1.fontname=command2.caption

End sub

Private sub command3_click()

Text1.fontname=command3.caption

End sub

5．在名称为Form1的窗体上画一个文本框，名称为T1，Text属性值为空。要求在文本框里输入“VB程序设计”，并按下回车键以后，窗体的标题栏显示文本框的内容。

Private sub text1_keypress(keyascii as integer)

If keyascii=13 then

Caption=text1

End if

End sub

实验二：第三章1

⒈在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值均为空。程序运行时，在T1输入“abcdefg”，立即在T2里显示“ABCDEFG”。程序中不得使用任何变量。【提示】函数Ucase()将小写字母转换为大写字母。

Private sub T1_change()

T2=ucase(T1)

End sub

⒉在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值均为空；画一个命令按钮，名称为C1，标题为“确定”。程序运行时，在T1中输入“abcdefg”，按下回车键或者“确定”按钮以后，在T2里显示“ABCDEFG”。程序中不得使用任何变量。

Private sub T1_lostfocus( )

T2=Ucase(T1)

End sub

或：private sub T1_keypress(keyascii as integer)

If keyascii=13 then

Tt2=Ucase(T1)

End sub

⒊在名称为Form1的窗体上画一个标签，名称为L1，标题为“请输入圆半径”；一个文本框，名称为T1，Text属性值为空；一个命令按钮，名称为C1，标题为“计算圆面积”。程序运行时，在文本框里输入一个整数，按下“计算圆面积”命令按钮后，在窗体上输出相应的圆面积。

Private sub command1_click()

Dim r as integer

R=text1

Print 3.14*r*r

End sub

⒋在名称为Form1的窗体上画一个文本框，名称为T1，Text属性值为空；一个标签，名称

为L1，标题为“欢迎您和我们一起学习VB”，标签的大小能够随着标题文字的多少自动调整。

程序运行时，在文本框里输入你的姓名，并按下回车键，则标签的标题改为“欢迎××和我们

一起学习VB”（××为你的姓名）。

Private Sub T1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

L1.Caption = Mid(L1, 1, 2) & T1 & Mid(L1, 4)

End If

End Sub

实验三：第三章2

⒌在名称为Form1的窗体上画一个标签，名称为L1，标题为“现在离北京奥运会开幕还有××天”，采用3号黑体字。程序运行时，该标签处于隐藏状态；单击窗体，该标签显示倒计时；

双击窗体，隐藏标签。

提示：两个日期型数据进行减法运算的结果是数值型，意义是两个日期之间的天数。Date函数返回当天的日期。

Private Sub Form_Click()

L1.Visible = True

L1 = “现在离2009年国庆还有" & #2009/10/01# - Date & "天"

End Sub

Private Sub Form_DblClick()

L1.Visible = False

End Sub

⒍在名称为Form1的窗体上画一个名称为Label1的标签，其初始内容为空，且能根据指定的标题内容自动调整标签的大小；再画2个命令按钮，标题分别是“日期”和“时间”，名称分别为Command1和Command2。请编写2个命令按钮的Click事件过程，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。

注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm 。