As IntegerDim j As IntegerFOUNDFor i 1 To 7FOUND For j 1 To 5 Print quotquotFOUND LoopPrintNext iEnd Sub答案:答案 1For i 1 To 5答案 2For j 1 To i答案 3Next j或Next第 16 题 (1.0 分) 题号:461------------------------------------------------【程序改错】------------------------------------------------题目:产生 30 个小于 100 的成绩随机数,并统计出优、良 、中等、及格、不及格数的个数,并计算出成绩属 于优秀段的成绩平均分。
------------------------------------------------Option ExplicitPrivate Sub Form_Click Dim k a bjg jg zd lh yx As Integer Dim pjf As Integer Randomize pjf 0 For k 1 To 30 FOUND a IntRnd Select Case a Case 0 To 59 bjg bjg 1 不及格 Case 60 To 69 jg jg 1 及格 Case 70 To 79 zd zd 1 中等 Case 80 To 89 lh lh 1 良好 Case 90 To 100 yx yx 1 优秀 FOUND pjf pjf 1 End Select Next k FOUND If yx gt 0 Then pjf pjf / 30 Debug.Print quot不及格quot Strbjg quot人,及格quot Strjg quot人,中等quot Strzd quot人quot Debug.Print quot良好quot Strlh quot优秀quot Stryx quot人quot Debug.Print quot优秀分数段成绩平均分quot amp pjfEnd Sub答案:答案 1a Int Rnd 100或a Int Rnd 100答案 2pjf pjf a答案 3If yx gt 0 Then pjf pjf / yx第 17 题 (1.0 分) 题号:456------------------------------------------------【程序改错】------------------------------------------------题目:挑选单数并排序程序:程序启动后由计算机自动产 生 20 个属于100,300之间的随机整数,单击quot显 示全体quot按钮时,在 Form1 上显示这 20 个随机数; 单击quot显示奇数quot按钮时,在 Form1 上显示其中的奇数; 单击quot排序quot按钮时,在 Form1 上将这些奇数从小到大显示。
要求显示格式为每行显示 5 个数据。
------------------------------------------------Option ExplicitPrivate a20 As Integer b20 As IntegerPrivate k As IntegerPrivate Sub cmdodd_ClickDim I As Integerk 0For I 1 To 20 FOUND If aI / 2 IntaI / 2 Then k k 1 bk aI End IfNext IFor I 1 To k Print bI FOUND If IntI / 5 ltgt I / 5 Then PrintNext IPrintEnd SubPrivate Sub cmdAll_Click Randomize Dim I As Integer For I 1 To 20 FOUND aI IntRnd 20 100 Print aI If IntI / 5 I / 5 Then Print Next I PrintEnd SubPrivate Sub cmdsort_Click Dim I As Integer Dim J As Integer Dim Temp As Integer For I 1 To k - 1 For J I To k If bI gt bJ Then Temp bI: bI bJ: bJ Temp Next J Next I For I 1 To k Print bI If IntI / 5 I / 5 Then Print Next IEnd Sub答案:答案 1If aI / 2 ltgt IntaI / 2 Then或If aI mod 2 ltgt0 Then或If 0ltgtaI mod 2 Then或If aI / 2 ltgt aI 2 Then或If intaI / 2 ltgt aI / 2 Then或If aI 2 ltgt aI/2 Then答案 2If IntI / 5 I / 5 Then Print或If I mod 5 0 Then Print或If 0 I mod 5 Then Print或If I / 5 intI / 5 Then Print或If I / 5 I 5 Then Print或If I 5 I/ 5 Then Print答案 3aI IntRnd 200 100第 19 题 (1.0 分) 题号:499------------------------------------------------【程序改错】------------------------------------------------题目:编程将一个数从已经有序(设从小到大排序)的数组 中删除,使数组还继续保持有序而且其余元素按照下 标连续存放。
------------------------------------------------Option ExplicitPrivate Sub Form_Click Dim A As Integer N As Integer Flag As Integer Dim i As Integer X As Integer P As Integer Flag 0 N InputBoxquot输入元素个数quot FOUND Dim AN For i 1 To N Ai InputBoxquot输入数组的第quot amp i amp quot个元素quot Next i Print quot删除某元素前的数组quot For i 1 To N Print Ai Next iStart: X InputBoxquot输入要删除的元素:quot For i 1 To N If X Ai Then P i: Flag 1 Next i If Flag 0 Then MsgBox quot没有此元素quot: GoTo Start For i P To N - 1 FOUND Ai 1 Ai Next i FOUND N N 1 Print quot删除元素后的数组:quot For i 1 To N Print Ai Next iEnd Sub答案:答案 1ReDim AN答案 2Ai Ai 1或Ai A1 i答案 3N N - 1第 20 题 (1.0 分) 题号:139------------------------------------------------【程序改错】------------------------------------------------题目:随机产生并输出 100 以内大于 50 的 20 个整数,输 出时每 5 个数一行。
------------------------------------------------Option ExplicitPrivate Sub Form_ClickRandomize TimerDim i As Integer ma As IntegerFOUNDi 1FOUNDDo Until i lt 20 ma Rnd 100 1 If ma gt 50 Then Print ma i i 1FOUND If i 5 0 Then Print End IfEnd IfLoopEnd Sub答案:答案 1i 0答案 2Do while i lt 20或Do while 20 gt i或Do while i lt19或Do while 19 gt i答案 3If i mod 5 0 Then第 23 题 (1.0 分) 题号:474------------------------------------------------【程序改错】------------------------------------------------题目:程序功能为求解一元二次方程的实根,请修正程序中错误。
------------------------------------------------Option ExplicitPrivate Sub Form_Load Dim a b c root1 root2 work As Double a ValInputBoxquot 请输入系数 a 的值quot b ValInputBoxquot 请输入系数 b 的值quot c ValInputBoxquot 请输入系数 c 的值quot FOUND work b 2 - 4 a c If work gt 0 And a ltgt 0 Then FOUND root1 Sqrwork / 2 a FOUND root2 Sqrwork / 2 a Debug.Print quot有二个实根quot Strroot1 quotquot Strroot2 Else Debug.Print quot无实根quot End IfEnd Sub答案:答案 1work b 2 - 4 a c或work b b - 4 a c答案 2root1 -b Sqrwork / 2 a或root1 Sqrwork -b / 2 a或root1 -b Sqrwork / a2或root1 Sqrwork -b / a2答案 3root2 -b - Sqrwork / 2 a或root2 - Sqrwork - b / 2 a或root2 -b - Sqrwork / a2或root2 - Sqrwork - b / a2第 28 题 (1.0 分) 题号:133------------------------------------------------【程序改错】--------------------------------.
上一篇:
2012年9月份考试可视化程序设计(VB)第三次作业.doc
下一篇:
还记得,那年的风车吗?