vb程序设计含详解

1、1编写程序，将26个字母逆序输出教材p87【例4-15】2、 编写程序，在窗体上随机输出一个10-99之间的两位整数。Private Sub Form_Click()clRan domizePrint Int(Rnd() * 90) + 10End Sub3、 在窗体的单击事件中编写程序，从键盘输入3个数，按从小到大的顺序输出到窗体上。Private Sub Form_Click()clsa = Val(I nputBox(a二)b = Val(I nputBox(b二)c = Val(I nputBox(c二)If a b The nt = a: a = b: b = tEnd IfIf a

2、 c The nt = a: a = c: c = tEnd IfIf b c The nt = b: b = c: c = tEnd IfPrint 按从小到大排序后的结果：;a; 、; b; 、; cEnd Sub4、编写程序，要求随着不断单击命令按钮 Commandl,窗体的标题依次显示为:今天是星期一t今天是星期二t今天是星期三t今天是星期四t今天是星期五t今天是星期六t今天是星期日。Private Sub Comma nd1_Click()Static i As In tegeri = i + 1Select Case iCase 1Form1.Capti on 二”今天是星期一Ca

3、se 2Form1.Capti on 二”今天是星期二Case 3Form1.Capti on 二”今天是星期三Case 4Form1.Capti on 二”今天是星期四Case 5Form1.Capti on 二”今天是星期五Case 6Form1.Capti on 二”今天是星期六Case 7Form1.Capti on 二”今天是星期日i = 0End SelectEnd Sub5、 编写程序，将字符串山高人为峰按逆序峰为人高山输出。Private Sub Comma nd1_Click()clss =山高人为峰s1 =For i = Len(s) To 1 Step -1s1 = s1

4、 & Mid(s, i, 1)NextPrint s1End Sub6、 使用文本框输入长方形的长和宽，用MsgBox输出长方形的周长和面积Private Sub Form_Click()l = Val(Text1.Text)h = Val(Text2.Text)MsgBox 长是+ Str(l) + 宽是+ Str(h) + _的长方形 ” + Chr(10) + 面积是:+ Str(l * h) + _Chr(10) + 周长是:+ Str(2 * (l + h)End Sub7、输入 x,计算 y 的值。其中：y=1+3x (x=0); y=1-5x (x= 0 The ny = 1 +

5、 3 * xElsey = 1 - 5 * xEnd IfPrint x=; x; 时 y=; yEnd Sub8在窗体的单击事件过程中，编写程序计算1! +2! +3! +15!Private Sub Form_Click() cisSum = 0x = 1For i = 1 To 15x = x * i Sum = Sum + xNextPrint 1!+2!+.+15!=; Sum End SubPrivate Sub Form_Click() cisSum = 0For i = 1 To 15x = 1Forj = 1 To ix = x * jNextSum = Sum + xNex

6、tPrint 1!+2!+.+15!=; SumEnd Sub9、编程计算从200到1000之间的所有4的倍数之和Private Sub Form_Click()cisSum = 0For i = 200 To 1000 Step 4Sum = Sum + iNextPrint 200-1000中 4 的倍数和是:;SumEnd Sub10、编写程序，通过InputBox函数从键盘上输入4个数，计算并在窗体上显示这4个数的和及平均值Private Sub Form_Click()cisSum = 0For i = 1 To 4x = Val(lnputBox(接收 4 个数)Sum = Sum

7、 + xNextPrint 和是;SumPrint 平均值是;Sum / 4End Sub11、 编写程序,点击命令按钮Commandl时，两个文本框textl与text2中的内 容进行交换。Private Sub Comma nd1_Click()t = Text1.TextText1.Text = Text2.TextText2.Text = tEnd Sub12、用InputBox函数输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并在窗体上输出三角形的面积。构成三角形的条件是： 任意两边之和大于第三边。面积公式为area=,其中S=(A+B+C)/2，A、B、C

8、为三条边的长度。Private Sub Form_Click()clsa = Val(I nputBox(a二)b = Val(I nputBox(b二)c = Val(I nputBox(c二)If a + b c And a + c b And b + c a The ns = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c)Print 边长为:;a; b; c;的三角形面积为：;areaEnd IfEnd Sub13、 编程将一维数组A(10)中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。Privat

9、e Sub Form_Click()Dim a(10) As In tegerRan domizeclsPrint 初始数组为：For i = 0 To 10a(i) = Int(Rnd * 10)Print a(i);NextPrintt = a(10)For i = 10 To 1 Step -1a(i) = a(i - 1)Nexta(0) = tPrint 移位后数组为”For i = 0 To 10Print a(i);NextPrintEnd Sub14、使用InputBox函数输入圆半径r,使用文本框分别输出圆球表面积和圆球体积。提示：圆球表面积公式为4*314*r;圆球体积公式

10、为(3/4)*314*r3Private Sub Form_Click()r = Val(InputBox( 圆半径:)Text1.Text =半径为+ Str(r) + 的圆球表面积是 ” + Str(4 * 3.14 * r)Text2.Text =半径为+ Str(r) + 的圆球体积是+ Str(3 / 4) * 3.14* r 八 3)End Sub15、 编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。精彩文档Private Sub Form_Click()CisFor i = 1 To 5Forj = 1 To 5gs = gs +

11、1Print i * 10 + j;If gs Mod 5 = 0 Then PrintNextNextEnd Sub16、在窗体上输出下三角的九九乘法表。Private Sub Form_Click()CisFor i = 1 To 9For J = 1 To iPrint i; *; J; =; Format(Str(i * J), !);NextPrintNextEnd Sub17、 编写程序，实现如下功能：使用InputBox函数输入一个数，单击窗体时， 如果该数大于等于0,将其平方根输出到标签 Lablel上，否则输出“数据不能 为负数”的提示信息。Private Sub Form_

12、Ciick()x = Val(lnputBox( 接收一个数)If x = 0 The nLabel1.Caption = Sqr(x)ElseMsgBox 数据不能为负数End IfEnd Sub18、求s=a+aa+aaa+aaaaaa（n个a）,其中a和n的值由用户 自己输入。例如，当 a=3,n=4 时，S=3+33+333+333佃、在窗体的单击事件中编写程序，要求：由文本框TEXT1输入一个0到6Private Sub Form_Click() Clsa = InputBox(a=)n = Val(InputBox(n=) s = 0For i = 1 To ns = s + Va

13、l(String(i, a)NextPrint sEnd SubPrivate Sub Form_Click()Clsa = Val(lnputBox(a=)n = Val(I nputBox(n=)s = 0s1 = 0For i = 1 To nsi = si * 10 + a si = si + a * 10 八(i - 1) s = s + s1NextPrint sEnd Sub的数字，单击窗体时，在标签控件 LABEL1上显示汉英对照星期信息，如：输 入0,则显示星期日（SUNDAY）、输入1,则显示星期一（MONDAY ）,以此 类推。如果输入0-6以外的数据，用MsgBox信息

14、框显示“输入数据错误”的提示信息。Private Sub Form_Click() Dim d As In teger d = Val(Text1.Text) Select Case dCase 0Label1.Capti on = Su ndayCase 1Label1.Captio n = Mon dayCase 2Labell.Captio n = TuesdayCase 3Labell.Capti on 二Wed nesdayCase 4Labell.Capti on = ThursdayCase 5Labell.Captio n = FridayCase 6Labell.Captio

15、 n = SaturdayCase ElseMsgBox 输入数据错误End SelectEnd Sub20、从键盘输入一个半径，输出圆的面积和周长，输出要求有文字说明，保留 两位小数。Private Sub Form_Click()Clsr = Val(I nputBox(r=)Print 半径为;r; 的圆Print 面积为;Round(3.14 * r 八 2, 2)Print 周长为;Round(2 * 3.14 * r)End Sub21、在窗体的单击事件过程中，编写程序计算 1! +2! +3! +20!参见：822、编写涨工资的程序。计算条件是：基本工资大于或等于 1500元的，

16、增加工 资20% ;若小于1500元大于或等于900元的，增加工资15% ;小于900元的, 增加工资10%。要求：(1)在文本框中输入基本工资值；(2)在标签上输出增长后 的基本工资值；(3)当单击按钮command1时实现上述功能。Private Sub Comma nd1_Click()gz = Val(Textl.Text)Select Case gzCase Is = 1500gz = gz * (1 + 0.2)Case Is = 900gz = gz * (1 + 0.15)Case Elsegz = gz * (1 + 0.1)End SelectLabell.Captio n

17、 = Str(gz)End Sub23、 公用电话收费标准如下：通话时间在 3分钟之内(包括3分钟)，收费05 元；3分钟以上，则每超过1分钟加收0.15元。编写一段程序，计算某人通话S 分钟，应缴多少电话费。Private Sub Form_Click()Clss = Val(InputBox( 通话时间)If s max The n max = aLoopPrintPrint 最大数;maxEnd Sub25、 在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最小数。Private Sub Form_Click()Cisa = Val(lnputBox( 接收三个数:)Print

18、a;Min = aFori = 1 To 2a = Val(lnputBox(接收三个数:)Print a;If a Min The n Min = aNextPrintPrint 三数中最小者是：；MinEnd Sub26、编写程序，求 s 的值，s=ix 2X 3+2x 3X 4+ +n x (n+1) x (n+2)的值。n 由 程序输入。Private Sub Form_Click()Cisn = Val(l nputBox( n=)s = 0For i = 1 To ns = s + i * (i + 1) * (i + 2)NextPrin t 1 x 2x 3+2x 3x 4+;

19、 n; x ； n + 1; x ； n + 2; =; sEnd Sub27、 火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费 0.25 元，超过50公斤后，超过部分按每公斤040元收费。输入行李重量 W公斤， 计算出应付多少运费。Private Sub Form_Click()Clsw = Val(l nputBox(w=)If w = 50 The nyf = w * 0.25Elseyf = 50 * 0.25 + (w - 50) * 0.4End IfPrint 行李重量为”;w; 公斤”Print 应付运费:;Format(yf, 0.00);元End Sub28、

20、编写程序，交换两个变量当中的数据。Private Sub Form_Click()Clsa = Val(I nputBox(a二)b = Val(I nputBox(b二)Print 交换前两个数:;a; bt = a: a = b: b = tPrint 交换后两个数:;a; bEnd Sub29、设纸的厚度为05毫米，将纸对折，再对折，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。Private Sub Form_Click()Clsh = 0.5: cs = 0Do While h 8848000h = h * 2cs = cs + 1LoopPrint 折纸次数为:;csEnd Sub30、通过文本框输入一个整数 X，判断X是否能被2整除。判断的结果在标签 中显示。Private Sub Form_Click()Dim x As In tegerx = Val(Textl.Text)能被2整除If x Mod 2 = 0 The nLabell.Captio n = Str