上海海事大学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;再以新值作为初值,即:x1→x0,重新按原来的方法求x1,重复这一过和直到|x1-x0|<ε(某一给定的精度)。此时可将x1作为问题的解。
答案:----------------------
Dim x0 As Single, x1 As Single
x0 = a / 2 '迭代初值
x1 = * (x0 + a / x0)
Do
x0 = x1 '为下一次迭代作准备
x1 = * (x0 + a / x0)
Loop While Abs(x1 - x0) >
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,则应输出:
答案:----------------------
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,则应输出:
答案:--------