完整word版,VB程序设计例题12例

累加求和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程序设计习题集一、选择题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___窗口可以查看到应用程序工程中的所有组成部分。

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 的偶数都可以分解成两个素数（素数对）的和。

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个三位数，计算它们的平均值，保留两位小数，运行界面如下图所示。

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。

程序设计第一题、题目：（事件）单击窗体（响应）求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的值。

实验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程序设计实例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输入3个数，输出最大的数X=val(text1)y=val(text2)z=val(text3)if x>=y thenif x>=z then print xelse print zend ifelse if y>=z then print yend if2有一元二次方程：aX2+bX+c=0,依次输入a, b, c,判断此方程是否有实根a=val(text1)b=val(text2)c=val(text3)If b*b-4*a*c>=0 then print “有实根”else print “无实根”end if3输入一个成绩，若大于等于60,则用消息框显示“恭喜！成绩通过！”，若小于60,则弹出消息框显示“抱歉！成绩没有通过！”N=val (textl)if n>=60 then msgbox”恭喜！成绩通过!”else msgbox “抱歉！成绩没有通过！”end if4输入一年份，判断它是否为闰年，并显示有关信息(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除)y=val(text 1)if y mod 4 =0 and y mod 100 = 0 then print “y 是闰年”else print y "不是闰年’”end if5输入学生的百分制成绩，转换输出为五级制成绩，90〜100分转换为优秀，80〜89转换为良好，70〜79转换为中等，、60〜69转换为及格，0〜60转换为不及格。

If mark >=90 then grade= ‘优’else If mark >=80 then grade =‘ 良’else If mark >=70 then grade =‘ 中’else If mark >=60 then grade ='及格’else grade="不及格”6随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。

VB程序设计经典案例'-------------------------------------------------'【程序设计】'-------------------------------------------------'题⽬：(事件)单击窗体。

' (响应)我国现有⼈⼝为13亿，设年增长率为1%，' 计算多少年后增加到20亿。

并将结果输出' 在窗体上。

将结果存⼊变量year 中。

' 使⽤do while ...loop语句完成程序。

'-------------------------------------------------Private Sub Form_Click()Dim year As Integer, sum As Single'***************** Begin **************Dim p as doubleDim r as singleP=1300000000r=0.01Do while p<2000000000P=p+p*rn=n+1LoopPrint “n=”,nYear=n'*************** End *************************'-------------------------------------------------'题⽬：(事件)单击窗体。

' (响应)求从100到1000之间所有是3的倍数的数之' 和，当和⼤于3000时，停⽌计算并输出和。

请将结果输' 出到窗体上,并存⼊所给变量SUM中。

使⽤for...next语' 句完成程序'-------------------------------------------------Private Sub Form_Click()Dim sum As Integer'***************** Begin **************sum = 0Dim i As IntegerFor i = 100 To 1000If i Mod 3 = 0 Thensum = sum + iIf sum > 3000 Then Exit ForEnd IfNext iPrint sum'*************** End *************************1题⽬（事件）点击窗体（响应）求1！+2！+3！+…………………+10!的值，并在窗体上输出，结果存⼊变量L中Private sub form –click() Dim l as longDim p as longP=1Fori=1to10P=p*il=l+pnextprint lend sub3题⽬点击窗体求100以内偶数的和，并将结果输出在窗体上，将结果存⼊变量sum 中Private sub form –click() 如果是奇数的和，则Dim sum as integer …………………….For i=0 to 100 step2 for i=1 to 100 step 2Sum=sum+i………………Next ……….Print sumEnd sub ………………………..题⽬：单击窗体求1+2+3+4+5+……………….+100的值并将结果输⼊在窗体上，结果存⼊变量sum 中Private sub form –click() Dim sum as integerFor i=0 to 100Sum=sum+iNextPrint sumEnd sub题⽬双击窗体求1+5+10+15+……………..+500的和，并将结果输出在窗体上，将结果存⼊变量sum 中Private sub form-click() Dim sum as longSum=0For i=0 to 500 step 5Sum=sum+iNextPrint sumEnd sub'题⽬：求两个数m,n的最⼤公约数p和最⼩公倍数q'-------------------------------------------------'注意：请在指定的事件内编写代码。

VB经典的程序设计题VB经典的程序设计题VB经典的程序设计题是指那些常见的、经典的VB程序设计题目，这些题目涵盖了VB程序设计的各个方面，包括基础语法、界面设计、数据处理、算法等内容。

在考虑这些题目时，我们可以根据自己的需求和目标来选择合适的题目，以提高自己的VB编程能力。

下面是一些VB经典的程序设计题目，供参考。

一、VB基础语法题⒈编写一个程序，输入一个正整数n，输出从1到n的所有自然数。

⒉编写一个程序，输入一个整数n，输出该整数的倒序。

⒊编写一个程序，输入一个字符串，将它反转输出。

⒋编写一个程序，输入一个字符串，输出字符串中的所有数字。

⒌编写一个程序，输入一个字符串，将其中的大写字母转换为小写字母，将其中的小写字母转换为大写字母。

二、界面设计题⒈编写一个程序，设计一个登录界面，包括用户名和密码的输入框以及登录按钮。

⒉编写一个程序，设计一个计算器界面，包括数字按钮、运算符按钮和结果显示框。

⒊编写一个程序，设计一个图形界面，包括按钮和文本框，用于计算两个数的和、差、积和商。

⒋编写一个程序，设计一个学绩查询界面，包括学号和姓名的输入框以及查询按钮。

三、数据处理题⒈编写一个程序，输入一组整数，将它们按照从大到小的顺序排序并输出。

⒉编写一个程序，输入一组字符串，将其中的重复字符串去除并输出。

⒊编写一个程序，输入一组学绩，计算平均分并输出。

⒋编写一个程序，输入一组学绩，计算最高分和最低分，并输出。

四、算法题⒈编写一个程序，输入一个正整数n，判断它是否是素数。

⒉编写一个程序，输入一个正整数n，输出它的所有因子。

⒊编写一个程序，输入一个正整数n，计算它的阶乘。

⒋编写一个程序，输入一个正整数n，计算它的斐波那契数列的第n项。

附件：本文档没有涉及附件。

法律名词及注释：⒈ VB：Visual Basic的简称，是一种基于事件驱动的程序设计语言。

⒉程序设计题：指要求编写一个能够运行的程序来解决特定问题的问题描述。

⒊基础语法：指编程语言的基本语法结构和规则。

Visual Basic6.0程序设计题型示例一、选择题（每小题中只有一个选项是正确的）1．在Visual Basic应用程序中，窗体、标签和命令按钮都可以称为（）。

A．对象B．事件C．方法D．属性2．在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。

A．工程资源管理器窗口B．工具箱窗口C．代码窗口D．属性窗口3．建立一个新的“标准EXE”工程后，不在工具箱中出现的控件是（）。

A．单选按钮B．图像框C．通用对话框D．文本框4．下列是窗体文件扩展名的是（）。

A．bas B．res C．frm D．vbp5．对象的特性是（）。

A．对象B．事件C．方法D．属性6．在Visual Basic中，通过设置窗体的（）属性可以更改窗体的标题文字。

A．name B．caption C．backcolor D．forecolor 7．下列不属于程序的模式是（）。

A．设计B．中断C．运行D．编辑8．一个窗体最多容纳（）个控件。

A．1B．255C．32767D．109．下列可以打开属性窗口的操作是（）。

A．F4B．F5C．F7D．F010．整型数据的存储空间是（）。

A．2字节B．4字节C．8字节D．16字节11．Visual Basic6.0采用的编程机制是（）。

A．结构化的程序设计B．访问数据库C．事件驱动D．良好的中文支持12．以下不属于Visual Basic事件的是（）。

A．click B．print C．load D．mouseup 13．在一个语句行内写多条语句时，每个语句之间应该使用的分隔符是（）。

A．逗号B．分号C．顿号D．冒号14．下列数据类型中，占用内存最大的是（）。

A．Boolean B．Integer C．Byte D．Single 15．向窗体中添加控件，正确的操作方法是（）。

A．用鼠标双击工具箱上所要添加的控件按钮B．在窗体上双击C．用鼠标单击当前窗体的空白处D．用鼠标右键单击所选中的多个中控件的任意一个076第一部分Visual Basic6.0程序设计16．如果想同时调整选定控件的宽度和高度，正确的操作方法是（）。

1．下面选项内不属于描述面向对象程序设计特征的名词是( )A．继承性B．多态性C．连续性D．封装性2．VB中数据类型Boolean表示布尔型，布尔型变量占( )字节。

A．4 B．3 C．2 D．13．表达式Cint(13.2/2)的结果是( )A．6.5 B．6 C．7 D．54．表达式Len(String(6, "9"))的值是( )A．9 B．6 C．999999 D．出错5．要在窗体上仅显示文字，选用( )控件最合适A．LABEL B．TEXTBOX C．COMMANDBUTTON D．IMAGE6．从编写到运行一个完整的程序的流程是( )。

A．编译程序、运行程序B．编译程序、测试程序、运行程序C．编写程序、编译程序、运行程序D．需求分析、编译程序7．关于结构化程序设计的思想方法，下列选项中不属于其核心思想的是( )。

A．自顶向下B．逐步求精C．模块化D．可复用8．下列关于算法的特征描述不正确的是( )A．有穷性：算法必须在有限步之内结束B．确定性：算法的每一步必须有确切的含义C．输入：算法至少有一个输入 D．输出：算法至少有一个输出9．下面属于结构化程序设计的基本方法的是( )A．筛选法B．递归法C．归纳法D．自顶向下10．在VB中，表达式Mid("程序设计",2,2)的结果是( )A．程B．序C．序设D．出错11．以下不是描述算法的方法有( )A．自然语言B．流程图C．伪代码D．E-R图12．在VB中，表达式Mid("程序设计",2)的结果是( )A．程序B．序C．序设计D．出错13．下列程序，当单击窗体时s的值是( )Private Sub Form_Click()Dim s as booleana = 2:b = 3:c = 4:d = 5s = a > b And 2 * a > c Or c <= dPrint sEnd SubA．TRUE B．FALSE C．-1 D．114．在VB中，不能作为变量名的是 ( )A．中国B．STRING C．b_q D．a_b15．在VB程序中，假定有以下循环结构, 则正确的描述是( )Do While条件循环体LoopA．如果"条件"是一个为0的常数，则一次循环体也不执行B．如果"条件"是一个为0的常数，则执行无穷次循环体C．如果"条件"是一个为0的常数，则至少执行一次循环体D．不论"条件"是否为"真"，至少执行一次循环体16．以下哪个不是程序设计高级语言( ) [后面还有2个类似的题目，要了解每个选项]A．VC B．Pascal C．C++ D．CSS17．在VB程序中有以下程序段，语句Print "VB"的执行次数是( )For i=1 To 3For j=3 To 1 Step -1Print "VB"Next jNext iA．3 B．4 C．6 D．918．在VB中，表达式Cos(0)的结果是( )A．0 B．1 C．约等于3.14 D．出错19．在使用流程图描述算法中，表示变量的计算与赋值的符号框为( )A．矩形框B．菱形框C．平行四边形框D．椭圆形框20．在VB中，以下关于变量定义错误的是( )A．Dim a As Integer B．Public a As String C．Private a As Boolean D．Dim a Integer 21．在VB中，表达式Sgn(-5.8)的结果是( )A．-5.8 B．-5 C．-6 D．-122．已知f(1)=1，f(2)=2，当n≥3时，f(n)= f(n-1)+f(n-2)，编程求f(100)的值，应选择的算法为( ) A．解析法B．穷举法C．递归法D．冒泡排序法23．下面说法正确的是( )A．算法+数据结构=程序设计 B．算法就是程序 C．数据结构就是程序D．算法包括数据结构24．穷举法的适用范围是( )A．一切问题B．解的个数极多的问题C．解的个数有限且可一一列举 D．设计算法25．在VB中，表达式Log(100)的结果是( )A．1 B．2 C．10 D．以上都不是26．如果设计的程序需要播放Mp3音乐或avi视频文件，可用控件( )A．label B．textbox C．mediaplayer D．data27．表达式Asc("A")的结果类型是( )A．数值型B．日期型C．布尔型D．字符型28．程序运行后，要按指定的时间间隔重复自动执行某段代码，可用控件( )A．Label B．textbox C．timer D．image29．如果设计的程序需要与数据库进行连接，可用控件( )A．label B．textbox C．timer D．data30．在VB程序中，下列哪个程序行是正确的( )A．x-5=y B．a+b=c C．y=1:y=y+1 D．i=5;i=i+131．在软件开发中有许多重要的环节，下列叙述中正确的是( )A．软件维护只包括对程序代码的维护B．程序调试后一般不需要再测试C．软件测试应该由程序开发者来完成D．需求分析与程序设计、测试、维护是软件开发中的重要环节32．如果把一个人当作对象，那么血型相当于这个对象的( )A．属性B．方法C．事件D．过程33．算法是解决问题的步骤序列，正确的序列是( )①分析问题；②提出问题；③设计算法A．②①③B．①②③C．①③②D．②③①34．不论多么复杂的程序，在程序设计中都可以归为( )等三种基本控制结构的组合。

VB程序设计笔试题题库一、选择题1 下列常量中，是 Integer类型常量的是（C ）。

A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . （ A ）A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（B ）。

A、IDE是设计、调试、运行 VB程序的工具。

B、用户不能随意关闭 IDE中的窗口。

C、" 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。

D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。

4 len( “程vb序设计”)=( C ) 。

A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后， A= （ A ）。

A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。

A、将 True 转换为 1 ，将 False 转换为 0B、将 True 转换为 1 ，将 False 转换为 -1C、将 True 转换为 0 ，将 False 转换为 -1D、将 True 转换为 -1 ，将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ，则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值（ B ）。

A、不能计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。

VB 基础程序设计100例（上）注意：1. 除非题目要求，不要使用控件（如按钮，文本框等），也不添加其他窗体和标准模块。

一律在Form_Click()过程中编写代码，用inputbox 函数输入数据，在窗体上输出结果。

2. 每个程序只保存一个窗体文件（例如第1题为t001.frm ）,不保存.vbp 工程文件。

3. 只有在使用外部过程（Sub 子过程、Function 函数过程）可以提高效率，或题目要求使用外部过程的情况下，才使用外部过程。

4. 所有代码都应按缩进的格式书写。

待有了一定的程序设计经验之后，在学习第5章时，再根据需要进行应用程序界面设计，即进入VB 编程的第二阶段。

有了第一阶段的基础，第二阶段困难不大。

第一部分 该部分习题不使用数组1.用Inputbox 函数输入一个整数，判断其能否被2，3，和5整除，若能则输出该数及它的平方值2.输入一个年份，判断是否闰年。

闰年的条件是该数能被4整除且不能被100整除，或该数能被400整除3．交换两个变量的值，在程序中只允许出现这两个变量4.依次输入一元二次多项式的二次项、一次项和常数项系数，输出它的两个根，例如 x1=2 x2=-3.5 或 x1=3+2*i x2=3-2*i 这里 i 是虚数单位5.计算 s=1+2+3+…+n 和c=1*2*3*…*n6.计算下式之和首次大于10000时的n 的值：s=1+2+22+…+2n +…7.计算下式之和不超过10000时的n 的最大值：s=12+22+…+n 2+…8.计算 s=1*21 (51)311-++++n9.计算 s=n n 1)1( (31)211--+-+-10.计算 t=1+(1+2)+(1+2+3)+…+(1+2+…+n)11.计算 t=1!+2!+…+n!12.计算 t=!1...!31!211n ++++13.计算 s=)!1(...!32!2++++n nx x x14.同上题，要求用Sub 过程计算每项的分子，用Function 过程计算每项的分母15.编写Function 过程计算n!,调用该过程计算组合数16.编写Sub 过程计算n!,调用该过程计算组合数17.编写程序，打印斐波那契(Fibonacci)数列的前30项。

18个VB经典例题18个VB经典例题1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。

Dim x As Integer, y As Integer, z As IntegerDim c As Single, s As Singlex = 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 Thenc = (x + y + z) / 2s = Sqr(c * (c - x) * (c - y) * (c - z))Print "三角形面积是：" & sElsePrint "构不成三角形"End If2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[]90、之间的学生人100,数。

Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%Dim x As SingleFor m = 1 To 60 '产生60名学生的分数x = Rnd * 101 '产生0－100的分数Print x;If x >= 90 Thena = a + 1ElseIf x >= 80 Thenb = b + 1ElseIf x >= 70 Thenc = c + 1ElseIf x >= 60 Thend = d + 1ElseIf x >= 50 Thene = e + 1ElseIf x >= 40 Thenf = f + 1ElseIf x >= 30 Theng = g + 1ElseIf x >= 20 Thenh = h + 1ElseIf x >= 10 Theni = i + 1Elsej = j + 1End IfNext mPrint a, b, c, d, e, f, g, h, i, j3、我国有13亿人口，按照人口年增长0.8%计算，多少年以后我国人口超过26亿。

索引一、在窗体上画一个文本框，其名称为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），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。