VB程序题目.docx

1、VB程序题目程序改错1 题目：求s=2！+4！+6！+8！，阶乘的计算用Function过程fact实现。程序代码：Private Sub Form_Click()Dim i as integer, s as longFor i = 2 to 8 For i = 2 to 8 step 2 s = s + fact(i)Next iPrint sEnd SubPublic Function fact( ) Public Function fact(Byval n%)Dim t as longDim i as integert = 1For i = 1 to n t = t * iNext iF

2、act = i Fact = tEnd function 2 题目：请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）在300元以上者，按八折优惠；（4）在500元以上者，按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序代码：Private Sub Command1_Click ()Dim x As Integer, y As Singlex = Val(Text1.Text)If

3、x 100 then x = y y=xElse If x 200 theny = 0.95 * x Else If x 300 theny = 0.9 * x Else If x 300 theny = 0.8 * xElse y = 0.7 * xElse If End IfEnd IfEnd IfEnd IfText2.text = x Text2.text = yEnd Sub程序填空1 题目：由输入对话框输入n（n必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框label1上显示。Sum=1/2+1/6+1/(k*(k+1) (k0且n30）”)Do while n3

4、0 N = val(inputbox(“n=”,”请重新输入”)LoopSum = 0K = 0DoK=k+1Sum = sum + 1/(k * (k+1)Loop until (k+1) nLabel1.caption = “sum” + str(sum)End sub2 题目：下面的程序用于打印出以下图形。程序代码：Private sub form_click()Dim i%, j%, k%For I = 3 to 0 step -1 For j = 0 to 2 * iPrint “ ”; Next j For k = 5 to 11-2*iPrint “*” ; Next kprin

5、tNext iFor I = 0 to 3 For j = 0 to 2 * I + 2print “ ”; Next j For k = 0 to 4-2 * iPrint “*” ; Next iprintNext iEnd sub程序设计1 题目：求二维数组中最大元素及其所在的行和列，并将最大值存入变量Max中，将最大值的行位置存入row中，列位置存入变量column中程序代码：Private Sub Form_load()ShowDim a(2,3) As IntegerDim max As Integer, row As Integer, column As Integera(1,1

6、) = 34 : a(1,2) = 34 : a(1,3) = 43 a(2,1) = 34 : a(2,2) = 78 : a(2,3) = 12 Max = a(1,1)Row = 1Column =1For i = 1 to 2 For j = 1 to 3 If a(i,j) max Then max=a(i,j) : row = i : column = j Next jNext iPrint max,row,columnEnd Sub2 题目：(事件)双击窗体（响应）求3+6+9+12+15+18+300的和，并将结果输出到窗体上。将结果存入变量sum中。程序代码：Private

7、Sub Form_DblClick()Dim sum As IntegerSum = 0For j = 3 to 300 step 3 Sum = sum + jNext jPrint sumEnd Sub3 题目：创建一个绘图程序。当程序运行时，单击“绘图”按钮，在窗体的Picture控件上画出【-pi，pi】即【-3.14，3.14】区间的余弦函数曲线。要求将图片框的坐标系定义为左上角为（-4，2），右下角为（4，-2），并在图片框中画出坐标的x轴和y轴。图例：程序代码：Private Sub Command1_Click()Dim i As Integer Dim i As single

8、Picture1.Scale (4,2)-(4,2) Picture1.Scale (-4,2)-(4,-2)Picture1.Line (-4,0)-(4,0)Picture1.Line (0,2)-(0,-2)Picture1.CurrentX = 0.2Picture1.CurrentY = -0.1Picture1.Print “0”Picture1.CurrentX = -3.2Picture1.CurrentY = -0.1Picture1.Print “-n”Picture1.CurrentX = 3.3Picture1.CurrentY = -0.1Picture1.Print

9、 “n”Picture1.CurrentX = 0.2Picture1.CurrentY = 0.9Picture1.Print “1”Picture1.CurrentX = 0.2Picture1.CurrentY = -0.8Picture1.Print “-1”For i = -3.141 To 3.141 Step 0.001Picture1.Pset (i,sin(i) Picture1.Pset (i,cos(i)Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub4 题目：用自定义函数的方法求sum（x）。当x在-1,1上，su

10、m(x)=x/2!+x2/3!+x3/4!+xn/(n+1)!；当x1或x-1时，sum(x)=0。当n=0时，输入数据错误。x，n都是由用户输入。程序代码：Private Sub Command1_Click()Dim s AS SingleDim n As Integer, x As Single, k As Integern = Val(Inputbox(“Please input a integer value：”) x = Val(Inputbox(“Please input a single value：”)if n 1 Or x -1 Then Exit sum = 0 Else

11、 For i = 2 To n For i = 2 To n+1ss = ss * isum = x (i - 1) /ss sum =sum + x (i - 1) /ssNext i End ifEnd Function程序填空3 题目：以下程序段用于实现：输入两个正整数m和n，求其最大公因数和最小公倍数。程序代码：Private sub form_click ()Dim a%, b%, num1%, num2%, tempNum1 = inputbox(“请输入一个正整数”)Num2 = inputbox(“请输入一个正整数”)If ab then Temp = num1 : num1

12、= num2 : num2 = tempEnd ifA = num1B = num2Do while a mod b 0 Temp = a mod b A = bb = temp LoopPrint “最大公约数为：”; bPrint ”最小公倍数为：”; num1 *num2 /bEnd sub4 题目：窗体上建立一个文本框text1,用于显示结果。单击按钮弹出输入对话框，录入0-6之间的数值，判断输出值为星期几。程序代码：Private sub command1_click()Dim x as integerX = val( inputbox (“请输入星期几（06）”)Select ca

13、se x Case is = 0 Text1.text = “星期日”Case is = 1 Text1.text = “星期1”Case is = 2 Text1.text = “星期2”Case is = 3 Text1.text = “星期3”Case is = 4 Text1.text = “星期4”Case is = 5 Text1.text = “星期5”Case is = 6 Text1.text = “星期6”Case else Text1.text = “输入错误”End selectEnd sub程序设计3 题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在

14、窗体上。将结果存入变量sum中。程序代码：Private Sub Form_Click()Dim sum As IntegerSum=0For j = 2 To 100 Step 2 Sum=sum + jNext jPrint sumEnd Sub4 题目：（事件）单击窗体（响应）求10！的值。并将结果输出到窗体上。将结果存入变量sum中。Private Sub Form_Click()Dim sum As LongSum = 1For j = 1 To 10 doSum = sum * jNext jPrint sumEnd Sub程序改错5 题目：请修改程序中的错误，保证程序最后输出效果

15、如图1所示。图例：程序代码：Private Sub Form_Click() Dim i As Integer For i = 1 To 7 Print Spc(7); Print Spc（7-i）;If i = 1 Then If i = 1 ThenPrint “*” ElsePrint “*”;Spc(2*(i - 1);”*” Print “*”;Spc(2*(i-1)-1);”*” End If Next iEnd Sub6 题目：输入一个字符串，将所有的小写字母都转换为大写字母。程序代码：Private Sub Form_Click()Dim s1 As String, s2 As

16、 String, i As Integer, t As Strings1 = Inputbox(“输入字符串，以#号结束”)i = 1s1 = Mid (s1,i,1) t = Mid (s1,i,1)While t “#” If t = “a” And t = “a” And t 10 Text2.text = “值大于10”Case else Text2.text = “值小于0”End selectEnd sub程序设计5 题目：（事件）单击窗体。（响应）求1！+2！+3！+4！+5！并将结果输出到窗体上。结果存入变量S中。程序代码：Private sub form_click()Dim

17、 s As IntegerS = 0For i = 1 To 5 x= 1For j = 1 To ix = x *jNext jS = s + xNext iPrint sEnd Sub6题目：（事件）单击窗口（响应）求1-1/2+1/3-1/4+1/99-1/100的值将结果存入变量J中。程序代码：Private Sub Form_Click()Dim I As Singlex = 0j = 0For i = 1 To 100 x = (-1)(i+1)/i J = j + xNext iPrint jEnd Sub程序改错1 题目：求s=2！+4！+6！+8！，阶乘的计算用Functio

18、n过程fact实现。程序代码：Private Sub Form_Click()Dim i as integer, s as longFor i = 2 to 8 For i = 2 to 8 step 2 s = s + fact(i)Next iPrint sEnd SubPublic Function fact( ) Public Function fact(Byval n%)Dim t as longDim i as integert = 1For i = 1 to n t = t * iNext iFact = i Fact = tEnd function 2 题目：请根据下列描述编写

19、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）在300元以上者，按八折优惠；（4）在500元以上者，按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序代码：Private Sub Command1_Click ()Dim x As Integer, y As Singlex = Val(Text1.Text)If x 100 then x = y y=xElse If x 200 theny = 0

20、.95 * x Else If x 300 theny = 0.9 * x Else If x 300 theny = 0.8 * xElse y = 0.7 * xElse If End IfEnd IfEnd IfEnd IfText2.text = x Text2.text = yEnd Sub1 题目：由输入对话框输入n（n必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框label1上显示。Sum=1/2+1/6+1/(k*(k+1) (k0且n30）”)Do while n 30 N = val(inputbox(“n=”,”请重新输入”)LoopSum = 0K =

21、 0DoK = k+1 Sum = sum + 1/(k * (k+1)Loop until (k+1) nLabel1.caption = “sum” + str(sum)End sub2 题目：下面的程序用于打印出以下图形。 * * * * * *程序代码：Private sub form_click()Dim i%, j%, k%For I = 3 to 0 step -1 For j = 0 to 2 * iPrint “ ”; Next j For k = 5 to ! 11-2*i !Print “*” ; Next kprintNext iFor I = 0 to 3 For j = 0 to 2 * I + 2 print “ ”; Next j For k = 0 to 4-2 * iPrint “*” ; Next kprint Next iEnd sub