新填空题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 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 Form_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 SubPrivate 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 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 Randomize 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 Debug.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中的内容；用户可以在Text1中进行编辑操作，当点击保存按钮(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 Sub 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(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*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 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 Then 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 FunctionPrivate 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 Loop*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 IntegerPrint 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 Integer, 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、题目:输入两个正整数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() Const 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 CreateRND() 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) = 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*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 = InputBox(输入字符串，#号结束) i = 1 *ERROR* t= Mid(s1, i, 1) While t # *ERROR* If t = a And t = a(j) Then a1 = a(i) a(i) = a(j) *ERROR* a(j) = a1 End If Next j Next i For i = 0 To 9 Print a(i) Next iEnd Sub21、题目：下面程序将10个整数从大到小排序Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%Dim a(10) As IntegerFor m = 1 To 10 a(m) = Int(10 + Rnd() * 90) Print a(m); ;Next mPrintFor m = 1 To 9 t = m*ERROR* For n = m + 1 To 10*ERROR* If a(t) a(n) Then t = n Next n*ERROR* If t m Then w = a(m) a(m) = a(t) a(t) = w End IfNext mFor m = 1 To 10 Print a(m)Next mEnd Sub22、题目:输入两个正整数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 两数的最大公因子为：; mEnd Sub23、题目:编程实现从左到右的滚动字幕，滚动的速度由滚动条控件来控制。Private Sub HScroll1_Scroll() *ERROR* Timer1.Interval = HScroll1.Value- HScroll1.MinEnd SubPrivate Sub Timer1_Timer() *ERROR* If Label1.Left = Form1.Width Then *ERROR* Label1.Left = 0 Else Label1.Left = Label1.Left + 100 End IfEnd Sub25、题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程fact实现Option ExplicitPrivate Sub Form_Click()Dim i As Integer, s As Long*ERROR*For i = 2 To 8 Step2 s = s + fact(i)Next iPrint sEnd Sub*ERROR*Public Function fact(n)Dim t As LongDim i As Integert = 1For i = 1 To nt = t * iNext i*ERROR*fact = tEnd Function24、题目：一个两位的正整数，如果将它的个位数与十位数对调，则产生另一个正整数，我们把后者叫做前者的对调数，现给定一个两位的正数，请找到另一个两位的正整数，使得这两个两位正整数之和等于它们各自的对调数之和。例如：12+32=23+21。下面程序把具有这种特征的两位正整数都找出来。Option ExplicitPrivate Sub Form_Click()Dim k As Integer, g As Integer, h As Integer, m As IntegerDim n As Integer, i As Integer, t As Integer, s As Integer, j As Integerk = InputBox(请输入一个两位数)k = Val(k)g = Int(k / 10)*ERROR*h = k - g * 10: m = h * 10 + gPrintPrint 输入的两位数是; kPrint*ERROR*For n = 11 To 99 i = Int(