期末VB程序填空+设计

程序设计1题目：由输入对话框输入n（n必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框label1上显示。Sum=1/2+1/6+1/(k*(k+1) (k0且n30）”)Do while n 30 orN = 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 kprintNext iFor I = 0 to 3 For j = 0 to 2 * I + 2! ! print “ ”; Next j For k = 0 to 4-2 * iPrint “*” ; Next k! ! printNext iEnd sub3 题目：以下程序段用于实现：输入两个正整数m和n，求其最大公因数和最小公倍数。程序代码：Private sub form_click ()Dim a%, b%, num1%, num2%, tempNum1 = inputbox(“请输入一个正整数”)Num2 = inputbox(“请输入一个正整数”)If ! ab ! then Temp = num1 : num1 = num2 : num2 = tempEnd ifA = num1B = num2Do while ! a mod b 0 ! Temp = a mod b A = b ! b = temp !LoopPrint “最大公约数为：”; bPrint ”最小公倍数为：”; num1 *num2 /bEnd sub4 题目：窗体上建立一个文本框text1,用于显示结果。单击按钮弹出输入对话框，录入0-6之间的数值，判断输出值为星期几。程序代码：Private sub command1_click()Dim x as integerX = val(! inputbox !(“请输入星期几（06）”)Select case ! 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 select5 题目：下面的时间过程判断文本框text1中输入的数所在区间，并在文本框text2中输出判断结果。程序代码： private sub command1_click()Dim int1 as integer! int1 ! = val(text1.text)Select case int1Case 0 Text2.text = “值为0”Case ! 1 to 10 ! Text2.text = “值在1和10 之间（包括1和10）”Case Is ! 10 ! Text2.text = “值大于10”Case else Text2.text = “值小于0”End selectEnd subOption Explicit-【程序填空】-题目：程序输出结果为：n=3 x=42 y=9请在【?】处填入正确的内容-Private Sub Command1_Click() Dim n, x, y As Integer *SPACE* n = 0: x =【1】: y = 0 Do While x y Then m = x Else m = y End If *SPACE* If m 【str(m)】 Then m = z End IfEnd SubOption Explicit-【程序填空】-题目：窗体上建立了两个文本框Text1(输入字符串)及 Text2(转换结果)，一个命令按钮Command1(清除)。 录入Text1内容时将，将录入内容大写字母转为小写， 小写转为大写请在【?】处填入正确的内容-Private Sub Command1_Click() Text1.Text = Text2.Text = Text1.SetFocus End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 *SPACE* s = 【chr】(KeyAscii) Select Case s *SPACE* Case A 【to】 Z s = LCase(s) Case a To z *SPACE* s = 【ucase(s)】 Case Else s = * End Select Text2.Text = Text2.Text + s End Sub下面的程序段，用于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。Private Sub Form_Click()Dim mat() As IntegerDim n As Integer, m As Integern = Val(InputBox(请输入矩阵的行数)m = Val(InputBox(请输入矩阵的列数)*SPACE*【redim mat(n,m)】For i = 1 To n For j = 1 To m mat(i, j) = InputBox(请输入数组元素值) mat(i, j) = Val(mat(i, j) Next jNext iPrint 所建立的矩阵为For i = 1 To n For j = 1 To m Print mat(i, j); Next j PrintNext iMax = mat(1, 1)For i = 1 To n For j = 1 To m*SPACE* If 【max b】 Then m = aElse m = bEnd If*SPACE*If 【m c】 Then max = mElse max = cEnd IfEnd Function下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。请在【】处填入正确的内容?Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 8 a(i) = 2 * i - 1 Print a(i);Next iPrintx = InputBox(请输入要插入的整数)*SPACE*【a(0) = x】i = 8Do While a(i) x*SPACE* 【a(i + 1) = a(i) i = i - 1Loop*SPACE*If i 0 Then 【a(i + 1) = x】For i = 1 To 9 Print a(i);Next iEnd Sub根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上),及格(60分以上),不及格几个等级。请在【】处填入正确的内容?Private Sub Command1_Click()X = Val(Text1.Text)If X = 90 Then Print 优秀*SPACE*ElseIf X = 75 Then Print 良好ElseIf X = 60 Then*SPACE* 【print 及格*SPACE*【else】 Print 优秀End IfEnd Sub下面的程序段用于实现以下功能: 利用冒泡法将一组整数从小到大排序?Private Sub Form_Click()Const n = 15Dim a(1 To n) As Integer, work As BooleanDim i As Integer, j As Integer, x As IntegerRandomizeFor i = 1 To n a(i) = Int(90 * Rnd) + 10Next iFor i = 1 To n Print a(i);Next iPrint*SPACE*For i = n To 2 【step -1】 work = True For j = 1 To i - 1 If a(j) a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x*SPACE* 【work=false】或者【work0】 End If Next j*SPACE* If work Then 【exit for】Next iFor i = 1 To n Print a(i);Next iEnd SubOption Explicit-【程序填空】-题目：在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)， 一个命令按钮Command1(判断)。单击按钮时判断Text1中输入的数值 是否是4的倍数。请在【?】处填入正确的内容-Private Sub Command1_Click() Dim x As Integer *SPACE* If IsNumeric(Text1.Text) = 【false】 Then Text2.Text = 输入错误 Exit Sub End If *SPACE* x = CInt(【text1.text】或者【text1】) *SPACE* If 【x mod 4】 = 0 Then Text2.Text = 是4的倍数 Else Text2.Text = 不是4的倍数 End If End Sub下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。请在【】处填入正确的内容?Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 8 a(i) = 2 * i - 1 Print a(i);Next iPrintx = InputBox(请输入要插入的整数)*SPACE*【a(0)=x】i = 8Do While a(i) x*SPACE* 【a(I+1)=a(i)】 i = i - 1Loop*SPACE*If i 0 Then 【a(i+1)=x】For i = 1 To 9 Print a(i);Next iEnd Sub代码功能：输入数字1-7,显示其对应的星期几(例:输入1,显示星期日,如果输入其它内容，一律显示输入错误)请在【】处填入正确的内容?Private Sub Command1_Click()Dim x As IntegerDim y As Stringx = Val(Text1.Text)*SPACE* 【select case x】 Case 1 y = 今天是星期日 Case 2 y = 星期一 Case 3 y = 星期二 Case 4 y = 星期三 Case 5 y = 星期四 Case 6*SPACE* 【y=“星期五”】 Case 7 y = 星期六*SPACE* 【case else】 y = 输入错误 End SelectText2.Text = yEnd SubMaxMax=bcmax1. 题目：下面的程序用于求三个数中最大数Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox(请输入第一个数： ) b = Val(InputBox( 请输入第二个数： ) c = Val(InputBox(请输入第三个数： ) *SPACE* 【?】 = a min = a *SPACE* If b max Then 【?】 If b min Then min = b *SPACE* If 【?】 Then max = c If c max2. 下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。Private Sub Form_Click()Print 5个数34、124、68、73、352的最大值是：max1 = max(34, 124, 68)*SPACE*Max(max1,73,352)abmcmax1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Then m = aElse m = bEnd If*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function答案：Max(max1,73,352)abmc3. 题目：本程序执行功能为，输入系列字符串，按递减次序排列。（1）在文本框输入字符串，按回车键后存放到数组a（）中；（2）单击排序按钮（Command1）时，进行递减次序排列，并在图形框控件显示。请在【】处填入正确的内容-I+1a(j)a(i)=a(min)preserve a(n)text1.textDim a() As String, n As IntegerPrivate Sub Command1_Click() n = n - 1 For i = 0 To n - 1 imin = i *SPACE* For j = 【?】 To n *SPACE* If a(imin) 【?】 Then imin = j Next j t = a(i) *SPACE* 【?】 a(imin) = t Next i For i = 0 To n Me.Picture1.Print a(i) Next iEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then *SPACE* ReDim 【?】 *SPACE* a(n) = 【?】 Text1.Text = n = n + 1 End IfEnd Sub答案：I+1 10 Then *SPACE* y = Sqr(x) 【?】 Else y = 2 * x 3 + 6 End If Print yEnd Sub答案：YInputboxY=0+sin(x) 5. 题目：程序输出结果为：n=3 x=42 y=91+1loop请在【?】处填入正确的内容-Private Sub Command1_Click() Dim n, x, y As Integer *SPACE* n = 0: x =【?】: y = 0 Do While x x*SPACE* 【?】 i = i - 1Loop*SPACE*If i 0 Then 【?】For i = 1 To 9 Print a(i);Next iEnd Sub答案：a(0)=xa(i+1)=a(i)a(i+1)=x7. 根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上),及格(60分以上),不及格几个等级。Else if x=75 thenPrint “及格”Else请在【】处填入正确的内容?Private Sub Command1_Click()x = Val(Text1.Text)If x = 90 Then Print 优秀*SPACE*【?】 Print 良好ElseIf x = 60 Then*SPACE* 【?】*SPACE*【?】 Print 优秀End IfEnd Sub答案：Else if x=75 thenPrint “及格”Else-【程序填空】- 功能：输入一个数,若大于0,则显示+；若小于0， 则显示 -；若等于0,则显示零。-Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x*SPACE* Case is 0 Label1.Caption = + Case Is 0 2). Label1.Caption = - 3). Case 0 或 Case Else 或 Case Is = 0功能：输入任何一个英文字母x, 若x的值为a,c,d-f ,则显示x的大写字母； 若x的值为m,o,p-z,则显示x的小写字母； 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。-Private Sub Command1_Click()x = Text1.Text*SPACE* 【?】*SPACE* Case 【?】 Label1.Caption = UCase(x) Case m, o, p To z Label1.Caption = LCase(x) Case Else*SPACE* 【?】 End SelectEnd Sub答案： 1). Select Case x 2). a, c, d To f 3). Label1.Caption = Trim(x) + a 或 Label1.Caption = x + a功能：以下程序的功能如(图1)。-Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(请输入a的值)b = InputBox(请输入b的值)c = InputBox(请输入c的值)d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then*SPACE* If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p*SPACE* 【?】 Print x1