(完整版)《VB程序设计》实验报告
- 格式:doc
- 大小:109.50 KB
- 文档页数:20
台州学院
《VB程序设计》实验报告
实验1.1设计一个程序,程序运行的初始界面如图1-1所示。当单击“显示”按钮时,在文本框中显示“欢迎使用VB!”(图1-1);当单击“清除”按钮时,清除文本框内的文本;当单击“退出”按钮时,结束程序运行。
Private Sub Command1_Click() Text1.Text = "欢迎使用VB!"
End Sub
Private Sub Command2_Click() Text1.Text = ""
End Sub
Private Sub Command3_Click() End
End Sub
实验1.2 设计一个程序,程序运行的初始界面如图1-3所示,其中“显示”按钮为不可用。同时要求:
(1)当单击“改变文字”按钮时,在左边标签文字内容改为“你好,张三!”,同时“改变文字”按钮变为不可用(图1-4);
(2)当单击“隐藏”按钮时,将左边标签设为不可见,同时“隐藏”按钮变为不可用,“显示”按钮变为可用(图1-5);
(3)当单击“显示”按钮时,重新显示左边标签,同时“隐藏”按钮变为可用,“显示”
Private Sub Command1_Click() Label1.Caption = "你好,张三!"
Command1.Enabled = False End Sub
Private Sub Command2_Click()
Label1.Visible = False
Command3.Enabled = True
Command2.Enabled = False End Sub
Private Sub Command3_Click() Label1.Visible = True
Command2.Enabled = True
Command3.Enabled = False End Sub
实验2.1 设计一个程序,运行时界面如图2-1所示。当单击“左”、“右”、“上”、“下”按钮时,标签分别向左、右、上、下移动。Private Sub Command1_Click() Label1.Left = Label1.Left - 100
End Sub
Private Sub Command2_Click() Label1.Left = Label1.Left + 100
End Sub
Private Sub Command3_Click() Label1.Top = Label1.Top - 100
End Sub
Private Sub Command4_Click() Label1.Top = Label1.Top + 100
End Sub
实验2.2 设计一个程序,在文本框中输入一个3位整数,单击按钮后,在标签上输出该数的百位数、十位数和个位数,运行界面如图2-2所示。
Private Sub Command1_Click() Label1.Caption = "百位数:" + Left(Text1.Text, 1) + " 十位数:" + Mid(Text1.Text, 2, 1) + " 个位数:" + Right(Text1.Text, 1)
End Sub
实验2.3 设计一个程序,实现简单计算的功能、
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a + b
Label1.Caption = "+"
Text3.Text = c
End Sub
Private Sub Command2_Click() Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a - b
Label1.Caption = "-"
Text3.Text = c
End Sub
Private Sub Command3_Click() Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a * b
Label1.Caption = "*"
Text3.Text = c
End Sub
Private Sub Command4_Click() Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a / b
Label1.Caption = "/"
Text3.Text = c
End Sub
Private Sub Command5_Click() Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command6_Click() End
End Sub
实验2.4 设计一个程序,单击“输入”按钮可弹出一个输入对话框,提示用户输入带区号的电话号码,区号为4为,号码为8位,比如输入“7”,然后将区号和电话号码在消息对话框中显示出来,运行界面如图2-4所示。
Private Sub Command1_Click() Dim c As String