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

1、VB程序设计实验报告(此文档为word格式，下载后您可任意编辑修改！)台州学院VB程序设计实验报告实验1.1 设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。Private Sub Command1_Click() Text1.Text = 欢迎使用VB！End SubPrivate Sub Command2_Click() Text1.Text = End SubPrivate Sub Command3_Click() EndEnd Sub实验1.

2、2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”Private Sub Command1_Click() Label1.Caption = 你好，张三！ Command1.Enabled = FalseEnd SubPrivate Sub Comma

3、nd2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = FalseEnd Sub实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、“右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。Private Sub Command1_Click() Label1.Left

4、= Label1.Left - 100End SubPrivate Sub Command2_Click() Label1.Left = Label1.Left + 100End SubPrivate Sub Command3_Click() Label1.Top = Label1.Top - 100End SubPrivate Sub Command4_Click() Label1.Top = Label1.Top + 100End Sub实验2.2 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图2-2所示。Private Sub

5、 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 = cEnd

6、SubPrivate 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 = cEnd SubPrivate 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 = cEn

7、d SubPrivate 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 = cEnd SubPrivate Sub Command5_Click() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command6_Click() EndEnd Sub实验2.4 设计一个程序，单击“输入”按钮可弹出一个输入对话

8、框，提示用户输入带区号的电话号码，区号为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) + 号码： + Right(c, 8)End Sub实验3.1 在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。Private Sub Command1_Click() Dim

9、 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 = mEnd Sub注：比较a，b部分可以写成单行If结构：If a b Then m = a Else m = b实验3.3 用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。Private Sub Command1_Click() Dim x As Single

10、, 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.Text = mEnd Sub实验4.1 编写过程Commandl_C

11、lick，显示对话框输入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; 显示在屏幕上，以便校对（实际编程可以省略） If a Mod 2 = 0 Then s = s + a

12、判断是否为偶数 Next i Label1.Caption = sEnd 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 As Integer, CJ As Integer For i = 1 To 10 C

13、J = InputBox(请输入成绩(一共10个成绩)：) If CJ = 85 And CJ = 60 And CJ = 84 Then n2 = n2 + 1 ElseIf CJ 60 Then n3 = n3 + 1 End If Next i Label1.Caption = n1 Label2.Caption = n2 Label3.Caption = n3End Sub实验4.3 编制事件程序 Command1_Click，执行该过程时输入n，并计算下列表达式的值，然后将计算结果在文本框控件Text1中显示。Private Sub Command1_Click() Dim n As

14、 Integer, i As Integer, s As Single n = InputBox(请输入n：) s = 1 For i = 2 To n s = s + i / (i + 1) * (i + 2) Next i Text1.Text = sEnd Sub实验4.4 打印出所有的水仙花数，所谓水仙花数是指一个三位数，其各位数字立方和等于该数。例如，153是一水仙花数，因为程序1：用3个数字组合成百位数的办法，生成所有的三位数进行判断。Dim a As Integer, b As Integer, c As Integer a代表百位数字，b十位，c各位Dim s As Integ

15、er s存放组合成的三位数For a = 1 To 9 百位数字取值范围是1-9 For b = 0 To 9 十位数字取值范围是0-9 For c = 0 To 9 个位数字取值范围是0-9 s = a * 100 + b * 10 + c 组合成的三位数 If s = a * a * a + b * b * b + c * c * c Then 判断是否水仙花数 Print s End If Next c Next bNext a-程序2：将百位数拆分出每一位，来判断是否水仙花数。Dim i As Integer 存放循环取值的三位数Dim a As Integer, b As Integ

16、er, c As Integer a存放百位数字，b十位，c各位For i = 100 To 999 a = Int(i/100) b = Int(i - a * 100) / 10) c = i Mod 10 If i = a * a * a + b * b * b + c * c * c Then 判断是否水仙花数 Print i End IfNext i实验4.5 用近似公式求值，当时不再累加。Private Sub Command1_Click() Dim i As Integer, s As Single, t As Single t = 1 Do i = i + 1 s = s +

17、 1 / i 2 Loop Until 1 / i 2 10 -5 Print Sqr(6 * s)End Sub实验4.6（选做）一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23。Private Sub Form_Click() Dim i As Integer, j As Integer, m As Integer, n As Integer m = InputBox() n = (m Mod 10) * 10 + m 10 For i

18、 = 10 To 99 j = (i Mod 10) * 10 + i 10 If i + m = j + n Then Print m, i Exit For End If Next iEnd Sub实验5.1 输入10个数给x数组，找出其中值为最大的元素并将其与第一个元素互换，找出值最小的元素并将其与最后一个元素互换，其他元素不动。如原来： 8，7，9，15，0，3，-8，19，31， 5输出：31，7，9，15，0，3， 5，19， 8，-8Private Sub Form_Click() Dim x(10) As Integer, i As Integer Dim Max As Int

19、eger, m As Integer, Min As Integer, n As Integer Max、m存最大值和最大值位置；Min、n存最小值和最小值位置 For i = 1 To 10 x(i) = InputBox(请输入第 & i & 个数：) Print x(i); 显示在窗体上 Next i Print 显示换行 Max = x(1) Min = x(1) m = 1 n = 1 For i = 1 To 10 If Max x(i) Then Min = x(i) n = i 记录最小值位置 End If Next i If m 1 Then 如果最大元素不是第一个，则与第一

20、个交换 x(m) = x(1) x(1) = Max End If If n 0 分解t的每一位，并加入到b(i)中 b(i) = b(i) + （t Mod 10) 取出t的个位数，加入b(i)中 t = t 10 t缩小十倍，去掉原来的个位 Wend Next i （2）完成，下面完成（3）： For i = 1 To 10 Print a(i); Next i Print （3）完成，下面完成（4）： For i = 1 To 10 Print b(i); Next iEnd Sub=实验5.3 利用随机函数产生30个不同的三位正整数，打印出这30个数，然后将它们按从大到小的次序排序，并

21、打印出排序后的结果。（完全可以参照：书上实例，可以用冒泡排序法，也可以用选择排序法）=实验5.4（选做）输入n后，再输入n个数a1,a2,，an,按照下列公式计算s的值并显示。公式1：v=(a1+a2+.+an)/n公式2：s=Sqr(a1-v)2+(a2-v)2+.+(an-v)2)/nPrivate Sub Form_Click() Dim a() As Single, n As Integer, i As Integer Dim sum As Single, v As Single, s As Single n = InputBox(请输入元素个数：) ReDim a(n) For i

22、= 1 To n a(i) = InputBox(请输入第 & i & 个数：) Print a(i); 显示在窗体上 Next i Print 显示换行 求出v： For i = 1 To n sum = sum + a(i) Next i v = sum / n 求出s： sum = 0 For i = 1 To 10 sum = sum + (a(i) - v) 2 Next i s = Sqr(sum) / n 显示结果： Print v, sEnd Sub=实验6.1 编写一个求三个数最大值的函数max(x，y，z)，然后调用此函数求下列表达式的值，首先在文本框中输入a,b,c三个数

23、，然后单击“计算”按钮，在文本框中输出表达式的值m。表达式为：功能：返回x,y,z的最大值Function max(ByVal x As Single, ByVal y As Single, ByVal z As Single) As Single max = x If max y Then max = y If max z Then max = zEnd FunctionPrivate Sub Command1_Click() Dim a As Single, b As Single, c As Single, m As Single a = Text1.Text b = Text2.Tex

24、t c = Text3.Text m = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c) Text4.Text = mEnd Sub=实验6.2 编一求素数的函数过程Prime(x)，若x是素数返回True，否则返回False。主调程序调用Prime(x)函数输出100之内的所有素数。功能：判断整数x是否素数，如果是返回True，否则返回FalseFunction Prime(ByVal x As Integer) As Boolean Dim i As Integer If x 2 Then Exit Function 当x2返回False For i = 2 To Sqr(x) If x Mod i = 0 Then Exit Function 如果x被i整除，说明x不是素数，立刻返回 Next i Prime = True x是素数End FunctionPrivate Sub Form_Click() Dim i As Integer For i = 1 To