(完整版)《VB程序设计》实验报告

台州学院

《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()

实验2.2 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图2-2所示。

Private Sub Command1_Click() Label1.Caption = \百位数：\+ Left(Text1.Text, 1) + \十位数：\

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

\个位数：\+ 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

c = InputBox(\输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”：\

MsgBox (\区号：\+ Left(c, 4) + Chr(13) + Chr(10) + \号码：\+ 采用变量m来存放中间过程和结果 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, m As Single a = Text1.Text Right(c, 8)) End Sub

实验3.1 在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。

Private Sub Command1_Click() Dim a As Single, b As Single, m As Single a = Text1.Text b = Text2.Text If a < b Then m = a Else m = b End If

MsgBox \较小值是\End Sub

实验3.2 输入三个实数，计算其中的最大值，运行界面如图3-1所示。

b = Text2.Text c = Text3.Text

If a > b Then '将a，b的较大值存入m m = a Else m = b End If

If c > m Then m = c '再将m与c比较，得到最大值 Text4.Text = m End Sub

注：比较a，b部分可以写成单行If结构：

If a > b Then m = a Else m = b

实验3.3 用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。

Private Sub Command1_Click()