vb程序设计(含答案)

1、编写程序，将26个字母逆序输出。 教材p87 【例4-15】 2、编写程序，在窗体上随机输出一个10--99之间的两位整数。 Private Sub Form_Click() cl Randomize Print Int(Rnd() * 90) + 10 End Sub 3、在窗体的单击事件中编写程序，从键盘输入3个数，按从小到大的顺序输出到窗体上。 Private Sub Form_Click() cls a = Val(InputBox("a=")) b = Val(InputBox("b=")) c = Val(InputBox("c=")) If a > b Then t = a: a = b: b = t End If If a > c Then t = a: a = c: c = t End If If b > c Then t = b: b = c: c = t End If Print "按从小到大排序后的结果:"; a; "、"; b; "、"; c End Sub 4、编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。 Private Sub Command1_Click() Static i As Integer i = i + 1 Select Case i Case 1 Form1.Caption = "今天是星期一" 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 Select End Sub 5、编写程序，将字符串""山高人为峰""按逆序""峰为人高山""输出。 Private Sub Command1_Click() cls s = "山高人为峰" s1 = "" For i = Len(s) To 1 Step -1 s1 = s1 & Mid(s, i, 1) Next Print s1 End Sub 6、使用文本框输入长方形的长和宽,用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 Sub 7、 输入x，计算y的值。其中：y=1+3x (x>=0); y=1-5x (x<0)。 Private Sub Form_Click() cls x = Val(InputBox("x=")) If x >= 0 Then y = 1 + 3 * x Else y = 1 - 5 * x End If Print "x="; x; "时y="; y End Sub Private Sub Form_Click() cls Sum = 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!="; Sum End Sub Private Sub Form_Click() cls Sum = 0 x = 1 For i = 1 To 15 x = x * i Sum = Sum + x Next Print "1!+2!+...+15!="; Sum End Sub 8、在窗体的单击事件过程中，编写程序计算1！+2！+3！+ … +15! 9、编程计算从200到1000之间的所有4的倍数之和。 Private Sub Form_Click() cls Sum = 0 For i = 200 To 1000 Step 4 Sum = Sum + i Next Print "200-1000中4的倍数和是:"; Sum End Sub 10、编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。 Private Sub Form_Click() cls Sum = 0 For i = 1 To 4 x = Val(InputBox("接收4个数")) Sum = Sum + x Next Print "和是"; Sum Print "平均值是"; Sum / 4 End Sub 11、编写程序, 点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。 Private Sub Command1_Click() t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 12、用InputBox函数输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并在窗体上输出三角形的面积。构成三角形的条件是：任意两边之和大于第三边。面积 公式 小学单位换算公式大全免费下载公式下载行测公式大全下载excel公式下载逻辑回归公式下载 为area= , 其中S=(A+B+C)/2，A、B、C为三条边的长度。 Private Sub Form_Click() cls a = 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 If End Sub 13、编程将一维数组A(10)中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。 Private Sub Form_Click() Dim a(10) As Integer Randomize cls Print "初始数组为:" 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 Print End Sub 14、使用InputBox函数输入圆半径r, 使用文本框分别输出圆球 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 面积和圆球体积。提示：圆球表面积公式为4*3.14*r; 圆球体积公式为（3/4）*3.14*r3 Private 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 Sub 15、编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。 Private Sub Form_Click() Cls For i = 1 To 5 For j = 1 To 5 gs = gs + 1 Print i * 10 + j; If gs Mod 5 = 0 Then Print Next Next End Sub 16、在窗体上输出下三角的九九乘法表。 Private Sub Form_Click() Cls For i = 1 To 9 For J = 1 To i Print i; "*"; J; "="; Format(Str(i * J), "!@@"); Next Print Next End Sub 17、编写程序，实现如下功能：使用InputBox函数输入一个数，单击窗体时，如果该数大于等于0，将其平方根输出到标签Lable1上，否则输出“数据不能为负数”的提示信息。 Private Sub Form_Click() x = Val(InputBox("接收一个数")) If x >= 0 Then Label1.Caption = Sqr(x) Else MsgBox "数据不能为负数" End If End Sub Private 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 Print s End Sub Private 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 s End Sub 18、求s=a+aa+aaa+…+aaa…aaa(n个a),其中a和n的值由用户自己输入。例如，当a=3,n=4时，S=3+33+333+3333。 19、在窗体的单击事件中编写程序，要求：由文本框TEXT1输入一个0到6的数字，单击窗体时，在标签控件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 = "Wednesday" Case 4 Label1.Caption = "Thursday" Case 5 Label1.Caption = "Friday" Case 6 Label1.Caption = "Saturday" Case Else MsgBox "输入数据错误" End Select End Sub 20、从键盘输入一个半径，输出圆的面积和周长，输出要求有文字说明，保留两位小数。 Private Sub Form_Click() Cls r = Val(InputBox("r=")) Print "半径为"; r; "的圆" Print "面积为"; Round(3.14 * r ^ 2, 2) Print "周长为"; Round(2 * 3.14 * r) End Sub 21、在窗体的单击事件过程中，编写程序计算1！+2！+3！+ … +20! 参见：8 22、编写涨工资的程序。计算条件是：基本工资大于或等于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 * (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 Sub 23、公用电话收费 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 如下：通话时间在3分钟之内（包括3分钟），收费0.5元；3分钟以上，则每超过1分钟加收0.15元。编写一段程序，计算某人通话S分钟，应缴多少电话费。 Private Sub Form_Click() Cls s = Val(InputBox("通话时间")) If s <= 3 Then hf = 0.5 Else hf = 0.5 + Int(s - 3) * 0.15 End If Print "通话时间为"; s; "分种" Print "应收话费"; Format(hf, "0.##"); "元" End Sub 24、编写一个程序，用户连续输入N个值，直到输入非数值数据为止。最后输出其中最大的一个数。 Private Sub Command2_Click() Cls max = 0 Do a = InputBox("a=") Print a; "  "; If Not IsNumeric(a) Then Exit Do End If If a > max Then max = a Loop Print Print "最大数"; max End Sub 25、在窗体的单击事件中编写程序，从键盘上任意输入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 "三数中最小者是:"; Min End Sub 26、编写程序，求s的值，s=1×2×3+2×3×4+…+n×(n+1)×(n+2)的值。n由程序输入。 Private Sub Form_Click() Cls n = Val(InputBox("n=")) s = 0 For i = 1 To n s = s + i * (i + 1) * (i + 2) Next Print "1×2×3+2×3×4+…+"; n; "×"; n + 1; "×"; n + 2; "="; s End Sub 27、火车站托运行李，按规定当行李重量不超过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.25 + (w - 50) * 0.4 End If Print "行李重量为"; w; "公斤" Print "应付运费:"; Format(yf, "0.00"); "元" End Sub 28、编写程序，交换两个变量当中的数据。 Private Sub Form_Click() Cls a = Val(InputBox("a=")) b = Val(InputBox("b=")) Print "交换前两个数:"; a; b t = a: a = b: b = t Print "交换后两个数:"; a; b End Sub 29、设纸的厚度为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 "折纸次数为:"; cs End Sub 30、通过文本框输入一个整数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) + "能被2整除" Else Label1.Caption = Str(x) + "不能被2整除" End If End Sub 31、使用InputBox函数输入华氏温度，要求输出摄氏温度。公式为：C=(5/9)*(F-32), 输出要有文字说明，取两位小数。 Private Sub Form_Click() Dim f As Single, c As Single f = Val(InputBox("f=")) c = (5 / 9) * (f - 32) Print "华氏度为:"; f; "摄氏度为:"; Round(c, 2) End Sub 32、求自然数1～100之间奇数之和。 参见：9 33、在银行存款，计算本利和的公式为：p1=p(1+r)n，其中，p为存款数，n为年数，r 为年利率，p1为n年后本金和利息之和。设p=1000,n=3,r=0.02,编程计算3年后本利和。要求小数点后两位，四舍五入。 参见：教材 p47 【例3-5】 34、在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。 36、编写程序，输入一个数，判定该数是否为素数，如果是素数，则输出“该数是素数”的信息，否则输出“该数不是素数”的信息。 Private Sub Form_Click() Cls x = Val(InputBox("x=")) For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next If i = x Then Print "该数是素数" Else Print "该数不是素数" End If End Sub 37、 编程计算从300到1000之间的所有7的倍数之和。 参见：9