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

程序设计 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；再以新值作为初值，即：x1→x0,重新按原来的方法求x1,重复这一过和直到|x1-x0|ε(某一给定的精度)。此时可将x1作为问题的解。 答案：---------------------- Dim x0 As Single, x1 As Single x0 = a / 2 迭代初值 x1 = 0.5 * (x0 + a / x0) Do x0 = x1 为下一次迭代作准备 x1 = 0.5 * (x0 + a / x0) Loop While Abs(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=1＋1/3＋1/5＋1/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/2＋1/4＋1/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 -------