上海海事大学VB题库-程序设计.doc

程序设计 1题目：(事件)双击窗体。 (响应)编写代码功能如(图1)。 将结果存入变量S中 答案：- Dim i As Integer s = 1 For i = 1 To 10 s = s * i * i Next Print (CStr(s) - 题目：(事件)单击窗体。 (响应)输出一个如图所示的由数字组成的倒三角形 请将结果存入变量S中(要求利用msgbox函数显示结果，使用for.next语句完成程序) 答案：- Dim tmp As String Dim i As Integer, j As Integer tmp = For i = 10 To 1 Step -1 For j = 0 To i - 1 tmp = tmp & CStr(j) Next tmp = tmp & vbCrLf Next MsgBox tmp s = tmp - 题目：用迭代法求某个数的平方根。 已知求平方根的迭代公式如图： 算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；再以新值作为初值，即：x1x0,重新按原来的方法求x1,重复这一过和直到|x1-x0| 0.00001 Fsqrt = x1 - 题目：统计字符串中的单词个数。 算法思路: （1）从文本（字符串）的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False （2）若所取字符不是空格，逗号，分号或感叹号等单词的分隔符，再判断WT是否为True，若WT不为True则表是新单词的开始，让单词数Nw=Nw+1，让WT=True; （3）若所取字符是空格，逗号，分号或感叹号等单词的分隔符，则表示字符不是单词内字符，让WT=False; (4) 再依次取下一个字符，重得（2）(3)直到文本结束。 答案：- Dim nw As Integer, nL As Integer Dim i As Integer Dim strT As String Dim Wt As Boolean nw = 0: Wt = False nL = Len(RTrim(strI) For i = 1 To nL strT = Mid$(strI, i, 1) 取第i个字符 Select Case strT Case , , ;, ! Wt = False Case Else If Not Wt Then nw = nw + 1 Wt = True End If End Select Next i CountWord = nw - 题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值: y=11/31/51/7.1/(2m+1) 例如：若m=9，则应输出：2.133255 答案：- Dim y As Double Dim i As Integer y = 1 For i = 1 To m y = y + 1 / (2 * i + 1) Next fun = y - 题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/21/41/6.1/2m 例如：若m=9，则应输出：1.41448412698413 答案：- Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = y - 题目：将一个十进制整数m转换成 r(216)进制字符串。 方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串? 答案：- Dim strDecR$, iDecR% strDecR = Do While idec 0 iDecR = idec Mod ibase If iDecR = 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec ibase Loop TrDec = strDecR - 题目：对字符串进行加密处理。 加密过程: 将每个字母C加一序数K5，即 c=chr(Asc(c)-5), 这时 ZU， zu，YT 当加序数后的字母小于A或a则 c=Chr(Asc(c)-k +26) 答案：- Dim i As Integer Dim strp As String, strT As String, iA As String Dim nl As String i = 1: strp = nl = Len(RTrim(strI) Do While (i = A And strT Asc(Z) Then iA = iA - 26 strp = strp + Chr$(iA) ElseIf (strT = a And strT Asc(z) Then iA = iA - 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i = i + 1 Loop EnyStr = strp - 题目：- 题目： 题目：题目：应用冒泡法对数组A按升序排列 基本思想：(将相邻两个数比较，小的调到前头) 1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已沉底，放在最后一个位置，小数上升浮起； 2）第二趟对余下的n-1个数（最大的数已沉底）按上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。 答案：- Dim i, j, temp As Integer For i = 1 To n - 1 For j = 1 To n - i If a(j) a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If Next j Next i - 题目：题目：应用选择法对数组A按升序排列 基本思想: 1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。 答案：- Dim i, j, imin, temp As Integer For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i - 题目：题目：题目：题目：将一个十进制整数m转换成 r(216)进制字符串。 方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转 换成数的基（如二进制的基是2，八进制的基是8等）， 函数输出结果是字符串? 答案：- Dim strDecR$, iDecR% strDecR = Do While idec 0 iDecR = idec Mod ibase If iDecR = 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec ibase Loop TrDec = strDecR - 题目：应用冒泡法对数组A按升序排列 基本思想：(将相邻两个数比较，小的调到前头) 1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已沉底，放在最后一个位置，小数上升浮起； 2）第二趟对余下的n-1个数（最大的数已沉底）按上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。 答案：- Dim i, j, temp As Integer For i = 1 To n - 1 For j = 1 To n - i If a(j) a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If Next j Next i - 题目：对字符串进行加密处理。 加密过程: 将每个字母C加一序数K5，即 c=chr(Asc(c)-5), 这时 ZU， zu，YT 当加序数后的字母小于A或a则 c=Chr(Asc(c)-k +26) 答案：- Dim i As Integer Dim strp As String, strT As String, iA As String Dim nl As String i = 1: strp = nl = Len(RTrim(strI) Do While (i = A And strT Asc(Z) Then iA = iA - 26 strp = strp + Chr$(iA) ElseIf (strT = a And strT Asc(z) Then iA = iA - 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i = i + 1 Loop EnyStr = strp - 题目：题目：将一张面值为100元的人民币等值换成100张5元、 1元和0.5元的零钞，要求每种零钞不少于1张， 问有哪几种组合？将组合数存入变量OUT中。 答案：- Dim n As Integer Dim i%, j%, k% Print 5? 1? 0.5? For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1 End If Next j Next i out = n - 题目：应用选择法对数组A按升序排列 基本思想: 1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。 答案：- Dim i, j, imin, temp As Integer For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i - 题目： 题目：用迭代法求某个数的平方根。 已知求平方根的迭代公式如图： 算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；再以新值作为初值，即：x1x0,重新按原来的方法求x1,重复这一过和直到|x1-x0| 0.00001 Fsqrt = x1 - - 题目：统计字符串中的单词个数。算法思路: （1）从文本（字符串）的左边开始，取出一个字符； 设逻辑量WT表示所取字符是否是单词内的字符，初值设为False （2）若所取字符不是空格，逗号，分号或感叹号等单词的分隔符，再判断WT是否为True，若WT不为True则表是新单词的开始， 让单词数Nw=Nw+1，让WT=True; （3）若所取字符是空格，逗号，分号或感叹号等单词的分隔符， 则表示字符不是单词内字符，让WT=False; (4) 再依次取下一个字符，重得（2）(3)直到文本结束。 答案：- Dim nw As Integer, nL As Integer Dim i As Integer Dim strT As String Dim Wt As Boolean nw = 0: Wt = False nL = Len(RTrim(strI) For i = 1 To nL strT = Mid$(strI, i, 1) 取第i个字符 Select Case strT Case , , ;, ! Wt = False Case Else If Not Wt Then nw = nw + 1 Wt = True End If End Select Next i CountWord = nw - 题目：求两个数m,n的最大公约数p和最小公倍数q 答案：- nm = n * m If m n Then t = m: m = n: n = t r = m Mod n Do While (r 0) m = n n = r r = m Mod n Loop p = n q = nm / n - 题目：求二维数组中最大元素及其所在的行和列并将最大值存入变量Max中，将最大值的行位置存入row中，列位置存入变量column中. 答案：- Dim i As Integer, j As Integer max = a(1, 1): row = 1: column = 1 For i = 1 To 2 For j = 1 To 3 If a(i, j) a(row, column) Then max = a(i, j) row = i column = j End If Next j Next i Print 最大元素是; max Print 在第 & row & 行,; 第 & column & 列 - 题目：判断一个数是否是素数。 答案：- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m) If m Mod i = 0 Then Prime = False: Exit For Next i - 题目：题目：(事件)单击窗体。 求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 答案：- Dim i As Integer For i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End If Next Print sum - 题目： (事件)单击窗体。 (响应)求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中。 答案：- Dim i As Integer Dim j As Integer Dim k As Integer Dim b As Boolean b = False For i =2 To 100 b = False j = CInt(Sqr(i) For k = 2 To j If i Mod k = 0 Then b = True End If Next If b = False Then sum = sum + i End If Next Print sum - 题目：(事件)双击窗体。 (响应)求1+2+3+5+8+13+前20项的和，并将结 果在窗体上输出。将结果存入变量SUM中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i 3 Then j(i) = i Else j(i) = j(i - 1) + j(i - 2) End If sum = sum + j(i) Next Print sum - 第4题程序设计(5分)(题号:157) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 第1题程序设计(5分)(题号:148) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)求1020之间所有素数的乘积并输出在窗体上。 将结果存入变量L中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) - 第2题程序设计(5分)(题号:150) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。 将结果存入变量J中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j - 第3题程序设计(5分)(题号:131) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)已知S=1+1/4+1/9+1/16+1/25+1/100， 结果输出在窗体上。 - 将结果存入变量S中 - 答案：- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i i) Next Print (s) - 第4题程序设计(5分)(题号:152) - 【程序设计】 - 题目：(事件)双击窗体。 (响应)求1+2+3+5+8+13+前20项的和，并将结 果在窗体上输出。将结果存入变量SUM中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i 3 Then j(i) = i Else j(i) = j(i - 1) + j(i - 2) End If sum = sum + j(i) Next Print sum - 第5题程序设计(5分)(题号:157) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum - 第6题程序设计(5分)(题号:489) - 【程序设计】 - 题目： (事件)单击窗体。 (响应)已知sum=1-1/3!+1/5!-1/7!+1/9!, 请将sum结果值输出到窗体上。 使用do while.loop语句完成程序 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer Dim n As Integer i = 1 p =