VB程序设计题复习二

程序设计

〖第1题〗『程序设计』(5分)(题号:148)

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量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中。

'-------------------------------------------------

'注意：请在指定的事件内编写代码。

'-------------------------------------------------

1

答案：----------------------

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中。

'-------------------------------------------------

2

'注意：请在指定的事件内编写代码。

'-------------------------------------------------

答案：----------------------

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!, 3

' 请将sum结果值输出到窗体上。

' 使用do while...loop语句完成程序 '-------------------------------------------------

'注意：请在指定的事件内编写代码。

'-------------------------------------------------

答案：----------------------

Dim i As Integer

Dim n As Integer

i = 1

p = 1

Do While i <= 10

p = p * i

If i Mod 2 = 1 Then

n = n + 1

sum = sum + (-1) ^ (n - 1) / p

End If

i = i + 1

Loop

Print sum

----------------------

〖第7题〗『程序设计』(5分)(题号:154)

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求100以内偶数的和，并将结果输出在窗体上。' 将结果存入变量SUM中

'-------------------------------------------------

'注意：请在指定的事件内编写代码。

'-------------------------------------------------

答案：----------------------

Dim i As Integer

For i = 1 To 100

If i Mod 2 = 0 Then

sum = sum + i

End If

Next

Print sum

----------------------

〖第8题〗『程序设计』(5分)(题号:134)

'-------------------------------------------------

4

'【程序设计】

'-------------------------------------------------

'题目：(事件)双击窗体。

' (响应)s=20+21+22+…+263，求s的值，并将结果

' 存储到变量S中。

'-------------------------------------------------

'注意：请在指定的事件内编写代码。

'-------------------------------------------------

答案：----------------------

Dim i As Integer

i = 20

While i <= 263

s = s + i

i = i + 1

Wend

Print (CStr(s))

----------------------

〖第9题〗『程序设计』(5分)(题号:142)

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果， ' 并将结果输出到窗体上。

' 将结果存入变量M中

'-------------------------------------------------

'注意：请在指定的事件内编写代码。

'-------------------------------------------------

答案：----------------------

Dim i, j As Integer

Dim s As Long

For i = 10 To 15

s = 1

For j = i To i + 2

s = s * j

Next

m = m + s

Next Print (CStr(m))

〖第1题〗『程序设计』(5分)(题号:149)

5