《VB程序设计》实验报告.docx

《《VB程序设计》实验报告.docx》由会员分享，可在线阅读，更多相关《《VB程序设计》实验报告.docx（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、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 设计一个程序，程序运行的初始界

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

3、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 = Label

4、1.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 Su

5、b 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

6、 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.Te

7、xt = 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 设计一个程序，单击

8、“输入”按钮可弹出一个输入对话框，提示用户输入带区号的电话号码，区号为4为，号码为8位，比如输入“0571-*”，然后将区号和电话号码在消息对话框中显示出来，运行界面如图2-4所示。 Private Sub Command1_Click() Dim c As String c = InputBox(输入带区号的电话号码，区号为4为，号码为8位，比如输入“0571-*”：) MsgBox (区号： + Left(c, 4) + Chr(13) + Chr(10) + 号码： + Right(c, 8) End Sub 实验3.1 在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。Priv

9、ate Sub Command1_Click() Dim a As Single, b As Single, m As Single a = Text1.Text b = Text2.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

10、Command1_Click() Dim x As Single, y As Single x = InputBox(请输入x的值：,0) If x 10 Then y = Sqr(x) + Sin(x) ElseIf x = b And b = c Then m = b ElseIf a = c And c = b Then m = c ElseIf b = a And a = c Then m = a ElseIf b = c And c = a Then m = c ElseIf c = a And a = b Then m = a Else m = b End If Text4.Tex

11、t = m End Sub 实验 4.1 编写过程Commandl_Click，显示对话框输入n （n0），循环n次，每次随机产生一个两位数，求出其中的偶数之和，并在标签框Label1上显示。 Private Sub Command1_Click() Dim n As Integer, i As Integer, a As Integer, s As Integer Randomize 初始化随机数 n = InputBox(请输入n：) For i = 1 To n a = Int(Rnd * 90) + 10 随机生成一个两位数存于变量a中 Print a; 显示在屏幕上，以便校对（实际编

12、程可以省略） If a Mod 2 = 0 Then s = s + a 判断是否为偶数 Next i Label1.Caption = s End Sub 说明：随机生成两位数也可以用 a=(Int(Rnd*9)+1)*10+Int(Rnd*10) 实验 4.2 编写过程Commandl_Click，用InputBox函数输入10个学生的成绩，统计后依次用标签控件LabellLabe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。 Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer, n3 A

13、s Integer, CJ As Integer For i = 1 To 10 CJ = InputBox(请输入成绩(一共10个成绩)：) If CJ = 85 And CJ = 60 And CJ x(i) Then Min = x(i) n = i 记录最小值位置 End If Next i If m 1 Then 如果最大元 素不是第一个，则与第一个交换 x(m) = x(1) x(1) = Max End If If n 10 Then 如果最小元 素不是第10个，则与第10个交换 x(n) = x(10) x(10) = Min End If For i = 1 To 10 在窗体上显示结果 Print x(i); Next i End Sub 注意：如果第一个为最小元素，则结果出错，因为最小值被最大值调换了。 可以这么改：在最后一个If 前添加一行“If n = 1 Then n = m”可以设定新的最小值所在位置。 = 实验5.2 编写事件过程 Command1_Click ，完成下列运算： （1）输入10个数到整型数组a ；