新填空题1新 5.docx

1、新填空题1新 5 程序改错1、题目：下面程序的作用是产生100以内的全部素数，并按每行5个数据输出。Private Function prime(ByVal n As Integer) Dim i As Integer prime = 1 If n = 1 Then prime = 0*ERROR* For i = 2 To n - 1 If n Mod i = 0 Then prime = 0 Next iEnd FunctionPrivate Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 To 100 If

2、prime(i) = 1 Then*ERROR* Print Tab(k Mod 5) * 8); i; k = k + 1*ERROR* If k Mod 5 = 0 Then Print ; End If Next iEnd Sub2、题目:列表框应用程序。要求从文本框中输入课程名称，然后按添加按钮，把姓名添加到列表框中；当选择列表框中某一项后，按删除按钮，则从列表框中删除该项；当选择列表框中某一项后，按修改按钮，把列表框中选取的项送往文本框且修改按钮变为修改确认。在文本框的内容修改好后，按修改确认按钮，再把文本框中修改后的信息送到列表框且修改确认按钮变为修改。Private Sub Fo

3、rm_Load() List1.AddItem 北京-上海 List1.AddItem 北京-广州 List1.AddItem 北京-四川 List1.AddItem 北京-西安 List1.AddItem 北京-哈尔滨 List1.AddItem 北京-沈阳 List1.AddItem 北京-长春End SubPrivate Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text 将文本框中的内容加到列表框中 Text1.Text = Else MsgBox 请在文本框中输入信息！ End IfEnd SubPriva

4、te Sub Command2_Click() *ERROR* If List1.ListIndex = 0 Then Exit Sub List1.RemoveItem List1.ListIndex 删除选定的项目End SubPrivate Sub Command3_Click() If Command3.Caption = 修改 Then Text1.Text = List1.Text Text1.SetFocus Command1.Enabled = False Command2.Enabled = False *ERROR* Command3.Caption = 修改确认 Else

5、 List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = *ERROR* Command3.Caption = 修改 End IfEnd Sub3、题目：产生30个小于100的成绩随机数，并统计出优、良、中等、及格、不及格数的个数，并计算出成绩属于优秀段的成绩平均分。Private Sub Form_Click() Dim k%, a%, bjg%, jg%, zd%, lh%, yx As Integer Dim pjf As Integer R

6、andomize pjf = 0 For k = 1 To 30 *ERROR* a = Int(Rnd()*100) 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 优秀 *ERROR* pjf = pjf + a End Select Next k *ERROR* If yx 0 Then pjf = pjf / yx De

7、bug.Print 不及格 + Str$(bjg) + 人，及格 + Str$(jg) + 人，中等 + Str$(zd) + 人; Debug.Print 良好 + Str$(lh) + 优秀 + Str$(yx) + 人 Debug.Print 优秀分数段成绩平均分 & pjfEnd Sub4、题目:使用顺序文件读写方式编写一个简单的记事本应用程序，基本逻辑是：假设在考生目录中有一个名为exam.txt的文本文件。当点击打开按(Command1)时，程序将exam.Txt文件中的内容显示在文本框(Text1)中，当点击新建按钮(Command2)时，清空Text1中的内容；用户可以在Tex

8、t1中进行编辑操作，当点击保存按钮(Command3)时，将Text1中的内容保存在exam.txt文件中。当点击退出按钮(Command4)时关闭本窗体。Private Sub Command1_Click() Dim A As String Text1 = Open exam.txt For Input As #1 Do While Not EOF(1) *ERROR* Input #1, A Text1 = Text1 + A Loop *ERROR*Close #1End SubPrivate Sub Command2_Click() Text1 = End SubPrivate Su

9、b Command3_Click() Open exam.Txt For Output As #1 *ERROR* Write #1, Text1 Close #1End SubPrivate Sub Command4_Click() Unload MeEnd Sub5、题目：请修改程序中错误，保证程序最后输出效果如图1所示。Private Sub Form_Click() Dim i As Integer For i = 1 To 7 *ERROR* Print Spc(7-i); *ERROR* If i = 1 Then Print * Else *ERROR* Print *; Spc

10、(2 * (i - 1)-1); * End If Next iEnd Sub6、题目：求s=1!+3!+5!+7!，阶乘的计算用Function过程fact实现.Private Sub Form_Click()Dim i As Integer, s As Integer*ERROR*For i = 1 To 7 Step 2 s = s + fact(i)Next iPrint sEnd Sub*ERROR*Public Function fact%(n%)Dim t As Integer, i As Integert = 1For i = 1 To nt = t * iNext i*ERR

11、OR*fact = tEnd Function7、题目：以下程序段用于输出100-300的所有素数Private Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step 2 k = Int(Sqr(n) i = 2*ERROR* swit = 0*ERROR* While i=k swit = 0 If n Mod i = 0 Then swit = 1 Else*ERROR* i = i + 1 End If WendIf swit = 0 The

12、n Print n;End IfNext nEnd Sub8、题目:移动数组元素,将数组中某个位置的元素移动到指定位置.Function fMove(a%(), L1%, L2%) Dim N As Integer, i As Integer, T As Integer *ERROR* N = UBound(a) If L2 = N + 1 Then *ERROR* a(N) = a(L2)For i = L1 To N a(i) = a(i + 1) Next i Else T = a(L1) a(L1) = a(L2) *ERROR* a(L2) = T End IfEnd Functio

13、nPrivate Sub Form_Click() Dim a%(1 To 5) Dim i As Integer For i = 1 To 5 a(i) = i Next fMove a, 1, 5 For i = 1 To 5 Print a(i) NextEnd Sub9、题目：用辗转相除法求两个整数的最大公约数。Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0*ERROR* m = n n = r r = m Mod n Lo

14、op*ERROR* gcd = nEnd FunctionPrivate Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox(输入一个整数) b = InputBox(输入一个整数) a = Val(a) b = Val(b)*ERROR* c = gcd(a, b) Print a, b, cEnd Sub10、题目：以下程序段用于打印如图1所示的九九乘法表：Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerP

15、rint Tab(30); 9*9 tablePrint: PrintPrint * ;For i = 1 To 9*ERROR* Print Tab(i * 6); i;Next iPrintFor j = 1 To 9 Print j; ;*ERROR* For k = 1 To j*ERROR* Print Tab(k * 6); j * k; ; Next k PrintNext jEnd Sub11、题目：下面的程序段用于删除数组中指定位置的数字，如果位置错误给出提示，否则分别显示删除前后的数组元素Private Sub Form_Click()Dim a(10) As Intege

16、r, x As IntegerDim i As Integer, k As IntegerFor i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i);Next iPrintx = InputBox(请输入要删除第几位数字)*ERROR*If x0 And x=10 Then*ERROR* For k = x To 9*ERROR* a(k) = a(k+1) Next k Print 删除后的数组: For i = 1 To 9 Print a(i); Next iElse Print 删除位置错误End IfEnd Sub12、题目:输入两个正整

17、数m和n，求其最大公约数。Private Sub Form_Click() Dim m As Integer, n As Integer, r As Integer m = InputBox(输入m的值：) n = InputBox(输入n的值：) Do While n 0 *ERROR* r = m Mod n m = n *ERROR* n = r Loop *ERROR* Print 两数的最大公因子为：& nEnd Sub13、 题目：该程序实现将输入的 0 - 255 之间的正整数转 换成二进制数Option ExplicitPrivate Sub Form_Click() Cons

18、t n = 8 Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox(请输入一个 0 - 255 之间的正整数：) Print x*ERROR* For m = 0 To n a(m) = x Mod 2*ERROR* x = x 2 Next m s = For m = n To 0 Step -1*ERROR* s = s + Str(a(m) Next m Print s End Sub15、题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。Private Sub Crea

19、teRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print 数据： For I = 1 To N *ERROR* X(I) = Int(10+Rnd() * 90) Print X(I); Next I Print Print 排序： For I = 0 To N - 1 For J = I + 1 To N *ERROR* If X(I) X(J) Then *ERROR* Temp = X(J) X(J) = X(I) X(I

20、) = Temp End If Next J Print X(I); Next I PrintEnd SubPrivate Sub Command1_Click() CreateRNDEnd Sub16、题目：以下程序段用于计算货物运费。设货物运费每吨单价p元与运输距离s公里之间关系如图1Option ExplicitPrivate Sub Form_Click()Dim w!, s!Dim p As Currency, t As Currencyw = InputBox(请输入货物重量)s = InputBox(请输入托运距离)Select Case s Case Is 100 p = 30

21、*ERROR* Case Is =100 p = 27.5 Case Is 300 p = 25 Case Is a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = tempEnd If*ERROR*Next j , i For i = 1 To 10Print a(i);NextEnd Sub18、题目:输入一个字符串，将所有的小写字母都转换为大写字母。Private Sub Form_Click() Dim s1 As String, s2 As String, i As Integer, t As String s1 = Inpu

22、tBox(输入字符串，#号结束) i = 1 *ERROR* t= Mid(s1, i, 1) While t # *ERROR* If t = a And t = z Then t = Chr(Asc(t) - 32) s2 = s2 + t i = i + 1 t = Mid(s1, i, 1) Wend *ERROR* Print 新字符串为：; s2End Sub19、题目：单击开始命令按钮，秒表开始计时，单击结束命令按钮， 秒表结束计时，并在标签框显示运行时间，如运行了0小时2分10秒。Dim x As LongDim h As Integer, m As Integer, s As

23、 IntegerPrivate Sub Form_Load() Form1.Caption = 动态秒表（小时：分：秒） Command1.Caption = 开始&S Command2.Caption = 结束&E Label1.Alignment = 2 Label1.Caption = 0:0:0 Timer1.Interval = 1000 Timer1.Enabled = False x = 0End SubPrivate Sub Command1_Click() *ERROR* Timer1.Enabled = TureEnd SubPrivate Sub Command2_Cli

24、ck() *ERROR* Timer1.Enabled = False x = 0 Label1.Caption = 运行了 + Str(h) + 小时 + Str(m) + 分 + Str(s) + 秒End SubPrivate Sub Timer1_Timer() x = x + 1 h = x 3600 m = (x Mod 3600) 60 *ERROR* s = (x Mod 3600) 3600 Label1.Caption = Str(h) + : + Str(m) + : + Str(s)End Sub 20、题目:下面的程序用冒泡法完成数组a中的10个整数按升序排列，请修正程序中错误。Private Sub Command1_Click() Dim a Dim i As Integer, j As Integer, a1 As Integer a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83) For i = 1 To 9 *ERROR* For j = i +1To 9 *ERROR*