完整word版,VB程序设计例题12例
VB经典的程序设计题
累加求和1到100Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub1到100的奇数和Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 step 2sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()End求n!Private Sub Command1_Click()Dim fact As Double, n As Integer, i As Integer n = Val(Text1.Text)fact = 1For i = 1 To nfact = fact * iNextText2.Text = factEnd Sub累加求和1到100（Do while）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do While i <= 100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub（Do Until）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do until i >100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub求平均成绩Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, d As Single Dim pj As Singlea = 60:b = 70:c = 80:d = 90pj = (a + b + c + d) / 4Text1.Text = Str(pj)End Sub求圆的周长Private Sub Command1_Click()Dim r As DoubleConst pi = 3.1415926r = Val(InputBox("请输入圆的半径"))Print "圆的周长为:", 2 * pi * rEnd Sub输入两个整数m n，使得m>=n,并输出m nPrivate Sub Command1_Click()Dim m As Integer, n As Integer, a As Integerm = Val(InputBox("请输入m:", 输入, "m"))n = Val(InputBox("请输入n:", 输入, "n"))If n > m Thena = mm = nn = aEnd IfPrint "m=", mPrint "n=", nEnd Sub计算sum=1/1!+1/2!......+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于【0,100】之间，计算数组中所有偶数的和Private Sub Command1_Click()RandomizeDim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint "所有偶数的和为:", sEnd Sub输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。
VB程序设计习题集
VB程序设计习题集一、选择题1. 一个工程必须包含的文件的类型是:AA、*.vbp ,*.frm ,*.frxB、*.vbp ,*.cls, *.basC、*.bas ,*.ocx ,*.resD、*.frm ,*.cls ,*.bas2. 以下不能在“工程资源管理器”窗口中列出的文件类型是：DA、．basB、．resC、．fnnD、．ocx3. 下列不能打开工具箱窗口的操作是: BA、招待“视图”菜单中的“工具箱”命令B、按Alt+F8键C、单击工具栏上的“工具箱”按钮D、按Alt+V，然后按Alt+X键4. 不能作为容器使用的对象是：DA、窗体B、框架C、图片框D、图像框5. 在Visual Basic中传递参数的方法有__ B ___方式。
A、一种B、两种C、三种D、四种6. Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是:BA、属性、控件和方法B、属性、事件和方法C、窗体、控件和过程D、控件、过程和模块7. 创建VB应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码，其中正确的步骤是:AA、①③④B、①②④C、②③④D、①②③④8. 要将名为MyForm的窗体显示出来，正确的使用方法是:AA、MyForm.ShowB、Show.MyFormC、MyForm LoadD、MyForm Show9. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 : BA. ValueB. DefaultC. CancelD. Enabled10. 如果在立即窗口中执行以下操作(<CR>是回车键)：Ca=8<CR>b=9<CR>print a>b<CR>则输出结果是：A)-1B) 0 C)False D)True11. 在设计应用程序时，通过___D___窗口可以查看到应用程序工程中的所有组成部分。
完整word版VB循环程序例题100道附答案.docx
VB循环程序例题附答案1.素数1.[100 ， 999] 范围内同时满足以下两个条件的十进制数.⑴其个位数字与十位数字之和除以 10 所得的余数是百位数字；⑵该数是素数;求有多少个这样的数？15n = 0For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2.[300 ， 800] 范围内同时满足以下两个条件的十进制数.⑴其个位数字与十位数字之和除以 10 所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。
761 For i = 300 To 800a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3.除 1 和它本身外，不能被其它整数整除的正整数称为素数（注： 1 不是素数， 2 是素数）。
若两素数之差为 2 ，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。
22n = 0For i = 31 To 601 - 2x = 0If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4.数学家哥德巴赫曾猜测：任何大于6 的偶数都可以分解成两个素数（素数对）的和。
VB程序题
1. 参照下图制作一滚动字幕（滚动方式自由设计）。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
2. 建立一个如下图所示的记事本应用程序（小图标也可用文字替代）。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
3. 编写华氏温度与摄氏温度之间转换的程序。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
4. 建立一个登录程序，界面参考下图。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
5. 编写一个自动贩卖机系统，运行界面如下图所示。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
6. 编写如下图所示的猜数游戏程序。
7. 百元买百鸡。
假设小鸡每只0.5元，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。
结果如下图所示。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
8. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的功能必做，第二行完成“成绩统计”功能。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
9. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的功能必做，第二行完成“成绩排序”功能。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
10. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的功能必做，第二行完成“成绩查询”功能。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
11. 完成如下图所示的“课程管理系统”程序设计。
12. 随机生成3个正整数，其中1个一位数，1个二位数，1个三位数，计算它们的平均值，保留两位小数，运行界面如下图所示。
最新VB经典例题13道(附答案)
V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。
VB程序设计题库(全)
程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
VB经典例题(附答案)
实验4：编写一个程序。
要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。
在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。
设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。
vb程序设计实例
vb程序设计实例2009-5-22 15:37提问者：淘淘的某在| 悬赏分：20 | 浏览次数：1688次编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。
今有X元，5年以后使用，共有如下6中存法：①存一次5年期；②存一次3年期，一次2年期；③存一次3年期，两次1年期；④存两次2年期，一次1年期；⑤存一次2年期，三次1年期；⑥存五次1年期.分别计算各种存法5年后到期的本息合计，如图所示2009-5-22 17:06最佳答案Private Sub Form_Activate()'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。
今有X元，5年以后使用，共有如下6中存法：Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288Dim x As Doublex = Val(InputBox(""))Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2) Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)End SubPrivate Function ss(ByVal a As Double, b As Integer, c As Double) As Doubless = a + a * c * bEnd FunctionPrivate Sub Form_Load()AutoRedraw = TrueEnd Sub如下Dim str As StringPrivate Sub Command1_Click() str = Text1.SelTextText1.SelText = "" Command3.Enabled = True End SubPrivate Sub Command2_Click() str = Text1.SelText Command3.Enabled = True End SubPrivate Sub Command3_Click() Text1.SelText = strEnd SubPrivate Sub Command4_Click() EndEnd SubPrivate Sub Command5_Click() Form2.ShowForm1.HideEnd SubPrivate Sub Form_Load()Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = TrueEnd Sub如何让Command1~4功能键的目标转向text1 内的内容我点的时候必须把text1里面的内容去选定后才能进行操作如何让他自己选定为text1的内容- -！上面的Command1剪切功能Command2复制功能Command3粘贴功能Command4退出- -！三、利用VB三维面板控件设计流动条2000-09-15 00:00:00·王金柱·yeskyVB提供了一个三维面板控件，利用这个控件可设计图形效果的立体界面，从而使应用程序的界面显得更生动、美观，该控件还可以设置各种形式的背景，然后在背景上显示各种形式的字符，令人感兴趣的是，使用三维面板控件，还可设计我们经常在安装程序中看到的表示安装进程的流动条，并可显示进程百分比，改变流动条的颜色等。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
索引一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。
再画一个命令按钮，其名称为C1，Visible属性为False。
编写适当的事件过程。
程序运行后，如果在文本框中输入字符，则命令按钮出现。
二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。
程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。
（要求在未输入半径前两个按钮呈灰色不可用。
）三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。
程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。
四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。
程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。
单击退出按钮则程序退出。
五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。
（2）收入在200~400元，超过200元的部分纳税3%。
（3）收入超过400元的部分，纳税4%。
（4）当收入达5000元或超过时，将4%税金改为5%。
编程序实现上述操作。
六、给定三角形的三条边的边长，计算三角形的面积。
编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。
当输入-1时结束程序。
七、编程求100以内的全部素数。
八、编程打印钻石图案。
九、输出杨辉三角形。
十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。
十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。
编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。
十二、编程求1000以内的完全数。
所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。
如28=1+2+4+7+14就是一个完全数。
一、（P50-2）在窗体上画一个文本框，其名称为Text1，Text属性为空白。
再画一个命令按钮，其名称为C1，Visible属性为False。
编写适当的事件过程。
程序运行后，如果在文本框中输入字符，则命令按钮出现。
要求：存盘时必须存放在“上机题”文件夹下，工程文件名为vb2-2.vbp，窗体文件名为vb2-2.frm。
程序中不得使用任何变量。
程序清单如下：Private Sub Text1_Change()If Text1 <> "" Then C1.Visible = TrueEnd Sub运行效果如下：二、（P78-2）计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。
程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。
（要求在未输入半径前两个按钮呈灰色不可用。
）程序清单如下：Private Sub Command1_Click()x = Val(Text1) * 2 * 3.14159Picture1.Print "r=" & Text1Picture1.Print "周长=" & xEnd SubPrivate Sub Command2_Click()y = Val(Text1) ^ 2 * 3.14159Picture1.Print "r=" & Text1Picture1.Print "面积=" & yEnd SubPrivate Sub Text1_Change()If Text1 <> "" ThenCommand1.Enabled = TrueCommand2.Enabled = TrueEnd IfEnd Sub运行效果如下：三、（P78-3）在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。
程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。
程序清单如下：Private Sub Form_Click()Randomizex = Int(Rnd * 900) + 100Text1.Text = x Mod 10Text2.Text = x \ 10 Mod 10Text3.Text = x \ 100End Sub运行效果如下：四、（P78-4）设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。
程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。
单击退出按钮则程序退出。
程序清单如下：Private Sub Command1_Click()Text1 = ""Text2 = ""Text3 = ""Text4 = ""End SubPrivate Sub Command2_Click()Text4 = (Val(Text1) + Val(Text2) + Val(Text3)) / 3 Text4 = Format(Text4, "0.0")End SubPrivate Sub Command3_Click()Form1.HideEnd Sub运行效果如下：五、（P112-3）某税务部门征收所得税，规定如下：（1）收入200元以内，免征。
（2）收入在200~400元，超过200元的部分纳税3%。
（3）收入超过400元的部分，纳税4%。
（4）当收入达5000元或超过时，将4%税金改为5%。
编程序实现上述操作。
程序清单如下：Private Sub Command1_Click()x = Val(Text1)Select Case xCase Is<= 200Text2 = 0Case Is<= 400Text2 = (Val(Text1) - 200) * 0.03Case Is < 5000Text2 = 200 * 0.03 + (Val(Text1) - 400) * 0.04Case ElseText2 = 200 * 0.03 + (Val(Text1) - 400) * 0.05End SelectEnd Sub运行效果如下：六、（P112-4）给定三角形的三条边的边长，计算三角形的面积。
编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。
当输入-1时结束程序。
程序清单如下：Private Sub Command1_Click()A = Val(Text1)B = Val(Text2)C = Val(Text3)If A <= 0 And A <> -1 Or B <= 0 And B <> -1 Or C <= 0 And C <> -1 ThenMsgBox "请重新输入！", 5 + 16 + 0, "警告"Text1 = ""Text2 = ""Text3 = ""ElseIf A = -1 Or B = -1 Or C = -1 ThenUnload MeElseIf A + B <= C Or A + C <= B Or B + C <= A Then MsgBox "请重新输入！", 5 + 16 + 0, "警告"Text1 = ""Text2 = ""Text3 = ""ElseP = (A + B + C) / 2S = (P * (P - A) * (P - B) * (P - C)) ^ (1 / 2)Text4 = SEnd IfEnd Sub运行效果如下：七、（P112-6）编程求100以内的全部素数。
程序清单如下：Private Sub Form_Click()y$ = "2"Dim n%, j%, k%n = 100For j = 3 To nk = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示素数"End Sub运行效果如下：八、（P112-8）编程打印钻石图案。
程序清单如下：Private Sub Form_Click()For i = -3 To 3a = Abs(i)x = 9 + ay = Abs(i * 2)z = 7 - yPrint Tab(x);For j = 1 To zPrint "*";Next jPrintNext iEnd Sub运行效果如下：九、（P147-1）输出杨辉三角形。
程序清单如下：Private Sub Form_Click()Print 1Print 1; 1Print 1; 2; 1Print 1; 3; 3; 1Print 1; 4; 6; 4; 1Print 1; 5; 10; 10; 5; 1End Sub运行效果如下：十、（P147-4）有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。
程序清单如下：Private Sub Form_Click()RandomizePrint "10个20~90的随机数如下："Dim a(1 To 10) As Integer, n As IntegerFor n = 1 To 10a(n) = 20 + Int(Rnd * 71)s = s + a(n)Print a(n);NextPrintp = s / 10Print "平均值为：" & pDim b(1 To 10) As Integer, m As Integerb(1) = Abs(a(1) - p)x = b(1)q = a(1)r = 1For m = 2 To 10b(m) = Abs(a(m) - p)If b(m) < x Thenx = b(m)q = a(m)r = mEnd IfNextPrint "10个随机数中最接近于平均值的数是第" & r & "个数：" & qEnd Sub运行效果如下：十一、（P147-5）在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。