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

合集下载

VB经典的程序设计题

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程序设计习题集

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

完整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程序题

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道(附答案)

最新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程序设计题库(全)

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经典例题(附答案)

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程序设计实例

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提供了一个三维面板控件,利用这个控件可设计图形效果的立体界面,从而使应用程序的界面显得更生动、美观,该控件还可以设置各种形式的背景,然后在背景上显示各种形式的字符,令人感兴趣的是,使用三维面板控件,还可设计我们经常在安装程序中看到的表示安装进程的流动条,并可显示进程百分比,改变流动条的颜色等。

VB编程题经典案例

VB编程题经典案例

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程序设计经典案例

VB程序设计经典案例

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编程能力。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

VB程序设计题型示例

VB程序设计题型示例

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.如果想同时调整选定控件的宽度和高度,正确的操作方法是()。

高中信息技术VB试题及答案介绍word版本

高中信息技术VB试题及答案介绍word版本

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.不论多么复杂的程序,在程序设计中都可以归为( )等三种基本控制结构的组合。

(完整word版)VB程序设计试题题库及答案.doc

(完整word版)VB程序设计试题题库及答案.doc

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

vb100例(上)

vb100例(上)

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经典例题

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亿。

VB程序设计教案,数组12,数组复习题,附答案

VB程序设计教案,数组12,数组复习题,附答案
Next j
Print
Next i
For i = 1 To()
For j = 1 To()
()
Next j
Next i
For i = 1 To n
For j = 1 To m
Print d2(i, j)
Next j
Print
Next i
End Sub
16.下列程序的功能是随机产生10个两位整数并输出,然后进行排序输出,请在空白处填入相应的语句,使之完成上述功能。
3 2 3
B.1 2 3
1 2 3
1 2 3
C.1 2 3
2 4 6
3 6 9
D.1 1 1
2 2 2
3 3 3
21.下述语句的运行结果是()
Private Sub Command1_Click()
Dim a
i = 0
a = Array(1, -2, 9, 0, -1, 9)
Do
k = a(i)
For m = 10 To k Step -2
B.控件数组的每一个控件共享同样的事件过程
C.控件数组中的每一个元素的下标由控件的index属性指定
D. 控件数组中的每一个元素只能有相同的属性设置
24.在窗体上画3个单选按钮,组ห้องสมุดไป่ตู้一个名为Chkoption的控件数组,用于标识数组下标的参数()。
A.Tag
B.Index
C.ListIndex

Next i
For i = 1 To()
t = x(i)
()
()
Next i
For i = 1 To n
Label2.Caption = Label2.Caption & x(i) & ""

VB程序设计例题12例

VB程序设计例题12例

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

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 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)在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。

相关文档
最新文档