《18个VB经典例题.pdf》由会员分享，可在线阅读，更多相关《18个VB经典例题.pdf（9页珍藏版）》请在三一文库上搜索。
1、实用文档 文案大全 1、随机产生三个100300 之间的整数，判断这三个整数是否能构成三角形，如果可以， 求三角形的面积。 Dim x As Integer, y As Integer, z As Integer Dim c As Single, s As Single x = Int(Rnd * 201 + 100) y = Int(Rnd * 201 + 100) z = Int(Rnd * 201 + 100) If x + y z And x + z y And y + z x Then c = (x + y + z) / 2 s = Sqr(c * (c - x) * (c - y)
2、 * (c - z) Print “ 三角形面积是：“ If x = 90 Then a = a + 1 ElseIf x = 80 Then b = b + 1 ElseIf x = 70 Then c = c + 1 ElseIf x = 60 Then d = d + 1 ElseIf x = 50 Then e = e + 1 ElseIf x = 40 Then f = f + 1 ElseIf x = 30 Then g = g + 1 ElseIf x = 20 Then h = h + 1 ElseIf x = 10 Then i = i + 1 Else j = j + 1
3、End If 实用文档 文案大全 Next m Print a, b, c, d, e, f, g, h, i, j 3、我国有13 亿人口，按照人口年增长0.8% 计算，多少年以后我国人口超过26 亿。 Dim x As Double 人数一定要定义成双精度的 Dim n As Integer x = 1300000000 n = 0 Do While x = 0 Then x1 = (-b + Sqr(d) / (2 * a) 求方程的两个根 x2 = (b + Sqr(d) / (2 * a) x1 = Format(x1, “.#“) 对根规范化输出 x2 = Format(x2, “
4、.#“) End If Print x1, x2 5、某次歌手大奖赛，共有10 名选手，有10 名评委打分。要求评委给10 位选手打分，去 掉一个最高分，去掉一个最低分，求出该选手的平均分。 Dim i As Integer Dim j As Integer Dim max As Single, min As Single, sum As Single, aver As Single For i = 1 To 10 十个选手的成绩 max = 0 min = 100 sum = 0 For j = 1 To 10 十个评委的分数 x = Rnd * 101 产生 0100 的分数 If x m
5、ax Then max = x If x b） Dim a As Integer, b As Integer, c As Integer For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 If c * c = a * a + b * b And a b Then Print a; b; c; Print End If Next c Next b Next a 8、把输入的字符串逆序输出。 Dim str As String, strRe As String Dim i As Integer str = Text1.Text 原字符串 For
6、i = 1 To Len(str) strRe = Mid(str, i, 1) 输出 60 个分数 Select Case mark(i) Case Is max Then max = mark(i) 找出最大数 If mark(i) mark(n + 1) Then mark(n + 2) = mark(n + 2) + 1 Print mark(i); 输出学生成绩 Next i Print mark(n + 1); mark(n + 2) 输出平均分与高于平均分的人数 12、随机生成包含10 个数组元素的有序数组，然后第一个与第六个进行交换，第二个与第 七个进行交换。 。 。 。 。
7、。 ，并把原数组以及交换后的数组分别在窗体上显示出来。 Dim s(1 To 10) As Integer For i = 1 To 10 产生 10 个数 s(i) = Int(Rnd * 101) Print s(i); 输出交换前的数值 Next i Print For i = 1 To 5 实现交换 t = s(i) s(i) = s(5 + i) s(5+ i) = t Next i For i = 1 To 10 Print s(i); 输出交换后的数值 Next i 13、已知数组a=Array(1,4,8,5,10) ，b(6)，通过数组a 给数组 b 赋值；用选择法按照升序对
8、 数组 b 排序，对排序后的数组插入元素6，使 b 数组有序；删除元素5，并使数组元素个数 减 1。 Option Base 1 Private Sub Command1_Click() Dim b(1 To 6) As Integer, a As Variant a = Array(1, 4, 8, 5, 10) For i = 1 To 5 用数组 A 给数组 B 赋值 b(i) = a(i) 实用文档 文案大全 Print b(i); 输出数组B 的前 5 个元素 Next i Print b(6); 输出数组B 最后一个元素 Print For i = 1 To 5 用选择法对数组B
9、升序排序 Min = i For j = i + 1 To 6 If b(j) b(j - 1) Then 找出插入位置 For i = 1 To j - 1 插入位置以前的元素向前移动一个位置 b(i) = b(i + 1) Next i b(j - 1) = 6 在准确的位置插入6 End If Next j For i = 1 To 6 输出插入6 以后的数组B 的所有元素 Print b(i); Next i Print Dim c() As Integer 定义数组C 是一个动态数组 ReDim c(1 To 6) As Integer For i = 1 To 6 c(i) = b
10、(i) Next i 下面是删除元素5 For i = 1 To 6 If c(i) = 5 Then 如果数组C 里面有 5 就进行删除 For j = i To 5 把元素 5 后面的元素向前移动一个位置 c(j) = c(j + 1) Next j End If Next i ReDim Preserve c(5) 只保留数组C 里面前面的5 个元素，达到了删除目的 For i = 1 To 5 实用文档 文案大全 Print c(i); 输出删除 5 以后的数组元素 Next i End Sub 14、编写一个无参数Sub 过程 Triangle，在窗体上输出用“* ”组成的如下图所示
11、的三角形 图案。 被调过程 Public Sub Triangle() 子过程 Print “ *“ Print “ * * *“ Print “ * * * * *“ Print “ * * * * * * * “ Print “* * * * * * * * *“ End Sub 主调过程 Private Sub Command1_Click() Call Triangle 调用子过程 End Sub 15、把上面的Triangle 过程改造成带参数的过程，使之能输出任意行三角形图案，并尝试 用两种方法调用。 被调过程 Public Sub Triangle(n As Integer) F
12、or i = 1 To n Print Tab(n - i); String(2 * i - 1, “*“); Next i End Sub 主调过程 Private Sub Command1_Click() Dim a As Integer a = Val(InputBox(“ 请输入 a“) Call Triangle(a) End Sub 16、编写一个函数Prime，用于判断一个自然数是否为素数。调用此函数输出3100 之间 的所有的素数。 （提示：函数Prime 的类型使用布尔型） 被调函数 Public Function Prime(m As Integer, n As Integer) As Boolean Dim i As Integer, j As Integer 判断 m-n 之间的所有素数 For i = m To n Prime = True For j = 2 To Sqr(i) 判断一个数是否是素数 If i Mod j = 0 Then 实用文档 文案大全 Prime = False End If Next j If Prime Then 如果 prime = True 则 i 是素数 Print i Next i d = Find(c, a() Print Print d End Sub