《新填空题1新 (5)》由会员分享，可在线阅读，更多相关《新填空题1新 (5)（32页珍藏版）》请在金锄头文库上搜索。
1、 程序改错1、题目：下面程序的作用是产生100以内的全部素数，并按每行5个数据输出。Private Function prime(ByVal n As Integer)Dim i As Integerprime = 1If n Then List1.AddItem Text1.Text 将文本框中的内容加到列表框中Text1.Text = ElseMsgBox 请在文本框中输入信息！End IfEnd SubPrivate Sub Command2_Click()*ERROR*If List1.ListIndex = 0 Then Exit SubList1.RemoveItem List1.
2、ListIndex 删除选定的项目End SubPrivate Sub Command3_Click()If Command3.Caption = 修改 ThenText1.Text = List1.TextText1.SetFocusCommand1.Enabled = FalseCommand2.Enabled = False*ERROR*Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.TextCommand1.Enabled = TrueCommand2.Enabled = TrueText1.Text =
3、 *ERROR*Command3.Caption = 修改End IfEnd Sub3、题目：产生30个小于100的成绩随机数，并统计出优、良、中等、及格、不及格数的个数，并计算出成绩属于优秀段的成绩平均分。Private Sub Form_Click()Dim k%, a%, bjg%, jg%, zd%, lh%, yx As IntegerDim pjf As IntegerRandomizepjf = 0For k = 1 To 30*ERROR*a = Int(Rnd()*100)Select Case aCase 0 To 59 bjg = bjg + 1 不及格Case 60 T
4、o 69jg = jg + 1 及格Case 70 To 79zd = zd + 1 中等Case 80 To 89lh = lh + 1 良好Case 90 To 100yx = yx + 1 优秀*ERROR*pjf = pjf + aEnd SelectNext k*ERROR*If yx 0 Then pjf = pjf / yxDebug.Print 不及格 + Str$(bjg) + 人，及格 + Str$(jg) + 人，中等 + Str$(zd) + 人;Debug.Print 良好 + Str$(lh) + 优秀 + Str$(yx) + 人Debug.Print 优秀分数段
5、成绩平均分 & pjfEnd Sub4、题目:使用顺序文件读写方式编写一个简单的记事本应用程序，基本逻辑是：假设在考生目录中有一个名为exam.txt的文本文件。当点击打开按(Command1)时，程序将exam.Txt文件中的内容显示在文本框(Text1)中，当点击新建按钮(Command2)时，清空Text1中的内容；用户可以在Text1中进行编辑操作，当点击保存按钮(Command3)时，将Text1中的内容保存在exam.txt文件中。当点击退出按钮(Command4)时关闭本窗体。Private Sub Command1_Click()Dim A As StringText1 = O
6、pen exam.txt For Input As #1Do While Not EOF(1)*ERROR*Input #1, AText1 = Text1 + ALoop*ERROR*Close #1End SubPrivate Sub Command2_Click()Text1 = End SubPrivate Sub Command3_Click()Open exam.Txt For Output As #1*ERROR*Write #1, Text1Close #1End SubPrivate Sub Command4_Click()Unload MeEnd Sub5、题目：请修改程序
7、中错误，保证程序最后输出效果如图1所示。Private Sub Form_Click()Dim i As IntegerFor i = 1 To 7*ERROR* Print Spc(7-i);*ERROR*If i = 1 ThenPrint *Else*ERROR*Print *; Spc(2 * (i - 1)-1); *End IfNext 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
8、 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*ERROR*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 St
9、ep 2k = Int(Sqr(n)i = 2*ERROR*swit = 0*ERROR*While i 0*ERROR*m = n n = rr = m Mod nLoop*ERROR*gcd = nEnd FunctionPrivate Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = InputBox(输入一个整数)b = InputBox(输入一个整数)a = Val(a)b = Val(b)*ERROR*c = gcd(a, b)Print a, b, cEnd Sub10、题目：以下程序段用于打印如图1所
10、示的九九乘法表：Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); 9*9 tablePrint: PrintPrint * ;For i = 1 To 9*ERROR*Print Tab(i * 6); i;Next iPrintFor j = 1 To 9Print j; ;*ERROR*For k = 1 To j*ERROR*Print Tab(k * 6); j * k; ;Next kPrintNext jEnd Sub11、题目：下面的程序段用于删除数组中指定位置的数
11、字，如果位置错误给出提示，否则分别显示删除前后的数组元素Private Sub Form_Click()Dim a(10) As Integer, x As IntegerDim i As Integer, k As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintx = InputBox(请输入要删除第几位数字)*ERROR*If x0 And x 0*ERROR*r = m Mod nm = n*ERROR* n = rLoop*ERROR*Print 两数的最大公因子为：& nEnd Sub13、
12、题目：该程序实现将输入的 0 - 255 之间的正整数转 换成二进制数Option ExplicitPrivate Sub Form_Click()Const n = 8Dim a(n) As Integer, s As String, m As Integer, x As Integerx = Val(InputBox(请输入一个 0 - 255 之间的正整数：)Print x*ERROR*For m = 0 To na(m) = x Mod 2*ERROR*x = x 2 Next ms = For m = n To 0 Step -1*ERROR*s = s + Str(a(m)Next
13、 mPrint sEnd Sub15、题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。Private Sub CreateRND()Dim Temp As IntegerDim I As IntegerDim N As IntegerDim X(10) As IntegerDim J As IntegerN = 10Print 数据：For I = 1 To N*ERROR*X(I) = Int(10+Rnd() * 90)Print X(I); Next IPrintPrint 排序：For I = 0 To N - 1For J = I + 1 To N*ERROR*If X(I) =100 p = 27.5Case 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_
