vb程序设计(含答案)

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

2、 If a c Then t = a: a = c: c = t End If If b c Then t = b: b = c: c = t End IfPrint 按从小到大排序后的结果:; a; 、; b; 、; cEnd Sub4、编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一今天是星期二今天是星期三今天是星期四今天是星期五今天是星期六今天是星期日。Private Sub Command1_Click() Static i As Integer i = i + 1 Select Case i Case 1 Form1.Caption = 今天是星

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

4、Step -1 s1 = s1 & Mid(s, i, 1) Next Print 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 (

5、x= 0 Then y = 1 + 3 * x Else y = 1 - 5 * x End If Print x=; x; 时y=; yEnd SubPrivate Sub Form_Click() clsSum = 0 For i = 1 To 15 x = 1 For j = 1 To i x = x * j Next Sum = Sum + x Next Print 1!+2!+.+15!=; SumEnd SubPrivate Sub Form_Click() clsSum = 0 x = 1 For i = 1 To 15 x = x * i Sum = Sum + x Next

6、Print 1!+2!+.+15!=; SumEnd Sub8、在窗体的单击事件过程中，编写程序计算1！+2！+3！+ +15!9、编程计算从200到1000之间的所有4的倍数之和。Private Sub Form_Click() clsSum = 0 For i = 200 To 1000 Step 4 Sum = Sum + i Next Print 200-1000中4的倍数和是:; SumEnd Sub10、编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。Private Sub Form_Click() clsSum = 0 For i =

7、 1 To 4 x = Val(InputBox(接收4个数) Sum = Sum + x Next Print 和是; Sum Print 平均值是; Sum / 4End Sub11、编写程序, 点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。Private Sub Command1_Click() t = Text1.Text Text1.Text = Text2.Text Text2.Text = tEnd Sub12、用InputBox函数输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并在窗体上输出三角形的面积。构成三角形的

8、条件是：任意两边之和大于第三边。面积公式为area= , 其中S=(A+B+C)/2，A、B、C为三条边的长度。Private Sub Form_Click() clsa = Val(InputBox(a=) b = Val(InputBox(b=) c = Val(InputBox(c=) If a + b c And a + c b And b + c a Then s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c) Print 边长为:; a; b; c; 的三角形面积为:; area End IfEnd Sub1

9、3、编程将一维数组A(10)中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。Private Sub Form_Click() Dim a(10) As Integer Randomize clsPrint 初始数组为: For i = 0 To 10 a(i) = Int(Rnd * 10) Print a(i); Next Print t = a(10) For i = 10 To 1 Step -1 a(i) = a(i - 1) Next a(0) = t Print 移位后数组为 For i = 0 To 10 Print a(i); Next PrintEnd S

10、ub14、使用InputBox函数输入圆半径r, 使用文本框分别输出圆球表面积和圆球体积。提示：圆球表面积公式为4*3.14*r; 圆球体积公式为（3/4）*3.14*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这五个数字组成的所有可能的两位数，并

11、统计它们的个数。Private Sub Form_Click()ClsFor i = 1 To 5 For j = 1 To 5 gs = gs + 1 Print i * 10 + j; If gs Mod 5 = 0 Then Print NextNextEnd Sub16、在窗体上输出下三角的九九乘法表。Private Sub Form_Click()ClsFor i = 1 To 9 For J = 1 To i Print i; *; J; =; Format(Str(i * J), !); Next PrintNextEnd Sub17、编写程序，实现如下功能：使用InputBox

12、函数输入一个数，单击窗体时，如果该数大于等于0，将其平方根输出到标签Lable1上，否则输出“数据不能为负数”的提示信息。Private Sub Form_Click() x = Val(InputBox(接收一个数) If x = 0 Then Label1.Caption = Sqr(x) Else MsgBox 数据不能为负数 End IfEnd SubPrivate Sub Form_Click() Cls a = InputBox(a=) n = Val(InputBox(n=) s = 0 For i = 1 To n s = s + Val(String(i, a) Next P

13、rint sEnd SubPrivate Sub Form_Click() Cls a = Val(InputBox(a=) n = Val(InputBox(n=) s = 0 s1 = 0 For i = 1 To n s1 = s1 * 10 + a s1 = s1 + a * 10 (i - 1) s = s + s1 Next Print sEnd Sub18、求s=a+aa+aaa+aaaaaa(n个a),其中a和n的值由用户自己输入。例如，当a=3,n=4时，S=3+33+333+3333。19、在窗体的单击事件中编写程序，要求：由文本框TEXT1输入一个0到6的数字，单击窗体时

14、，在标签控件LABEL1上显示汉英对照星期信息，如：输入0，则显示星期日（SUNDAY）、输入，则显示星期一（MONDAY），以此类推。如果输入0-6以外的数据，用MsgBox信息框显示“输入数据错误”的提示信息。Private Sub Form_Click() Dim d As Integer d = Val(Text1.Text) Select Case d Case 0 Label1.Caption = Sunday Case 1 Label1.Caption = Monday Case 2 Label1.Caption = Tuesday Case 3 Label1.Caption =

15、 Wednesday Case 4 Label1.Caption = Thursday Case 5 Label1.Caption = Friday Case 6 Label1.Caption = Saturday Case Else MsgBox 输入数据错误 End SelectEnd Sub20、从键盘输入一个半径，输出圆的面积和周长，输出要求有文字说明，保留两位小数。Private Sub Form_Click() Cls r = Val(InputBox(r=) Print 半径为; r; 的圆 Print 面积为; Round(3.14 * r 2, 2) Print 周长为; R

16、ound(2 * 3.14 * r)End Sub21、在窗体的单击事件过程中，编写程序计算1！+2！+3！+ +20!参见：822、编写涨工资的程序。计算条件是：基本工资大于或等于1500元的，增加工资20%；若小于1500元大于或等于900元的，增加工资15%；小于900元的，增加工资10%。要求：(1)在文本框中输入基本工资值；(2)在标签上输出增长后的基本工资值；(3)当单击按钮command1时实现上述功能。Private Sub Command1_Click() gz = Val(Text1.Text) Select Case gz Case Is = 1500 gz = gz *

17、 (1 + 0.2) Case Is = 900 gz = gz * (1 + 0.15) Case Else gz = gz * (1 + 0.1) End Select Label1.Caption = Str(gz)End Sub23、公用电话收费标准如下：通话时间在3分钟之内（包括3分钟），收费0.5元；3分钟以上，则每超过1分钟加收0.15元。编写一段程序，计算某人通话S分钟，应缴多少电话费。Private Sub Form_Click() Cls s = Val(InputBox(通话时间) If s max Then max = a Loop Print Print 最大数; m

18、axEnd Sub25、在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最小数。Private Sub Form_Click() Cls a = Val(InputBox(接收三个数:) Print a; Min = a For i = 1 To 2 a = Val(InputBox(接收三个数:) Print a; If a Min Then Min = a Next Print Print 三数中最小者是:; MinEnd Sub26、编写程序，求s的值，s=123+234+n(n+1)(n+2)的值。n由程序输入。Private Sub Form_Click() Cls n =

19、Val(InputBox(n=) s = 0 For i = 1 To n s = s + i * (i + 1) * (i + 2) Next Print 123+234+; n; ; n + 1; ; n + 2; =; sEnd Sub27、火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.40元收费。输入行李重量W公斤，计算出应付多少运费。Private Sub Form_Click() Cls w = Val(InputBox(w=) If w = 50 Then yf = w * 0.25 Else yf = 50 * 0.

20、25 + (w - 50) * 0.4 End If Print 行李重量为; w; 公斤 Print 应付运费:; Format(yf, 0.00); 元End Sub28、编写程序，交换两个变量当中的数据。Private Sub Form_Click() Cls a = Val(InputBox(a=) b = Val(InputBox(b=) Print 交换前两个数:; a; b t = a: a = b: b = t Print 交换后两个数:; a; bEnd Sub29、设纸的厚度为0.5毫米，将纸对折，再对折，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。Private Sub Form_Click() Cls h = 0.5: cs = 0 Do While h 8848000 h = h * 2 cs = cs + 1 Loop Print 折纸次数为:; csEnd Sub30、通过文本框输入一个整数X，判断X是否能被2整除。判断的结果在标签中显示。Private Sub Form_Click() Dim x As Integer x = Val(Text1.Text) If x Mod 2 = 0 Then Label1.Caption = Str(x) + 能被