计算机题

1.计算:1-1/2+1/3-1/4+…+1/99-1/100，请将程序补充完整。

Private Sub Command1_Click()
dim i As Integer, t As Integer
dim sum As Single
sum=0: t=【1】
for i=1 to 【2】
t=t*(-1)
sum=sum+t*【3】
next i
debug.print "sum="; sum
End Sub
t=-1,100,i
2.以下程序用于求从100-1000之间所有3的倍数的数之和，当和大于3000时，停止计算并输出和。

Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
For i = 100 To 【1】
If 【2】 Then
sum = sum + i
If sum > 3000 Then 【3】
End If
Next i
Print i, sum
End Sub
1000, i mod 3=0, exit for
3.下面程序是输入任意长度的字符串，要求将字符串顺序倒置，例如，将输入的“ASDFGHJKL”变换为“LKJHGFDSA”。

阅读程序并填空。

Private Sub command1_Cliek()
Dim t$, i%, c$, n%
t = InputBox$("输入字符串")
Print t
n=【1】
For i=1 To int(n/2)
c = Mid(t, i, 1)
【2】=Mid(t,n-i+1,1)
Mid(t,n-i+1,1)=【3】
Next i
Print t
End Sub
Len(t) , mid(t,i,1), c
4.设有如下程序:
Private Sub Command1_Click()
Dim a As Integer, n As Integer, s As Double, t As Double
n = InputBox("请输入n")
a = InputBox("请输入a")
For i = 1 To 【1】
【2】 = t + a * 10 ^ (i - 1)
s = 【3】
Next i
Print a, n,s
End Sub
该程序求S=a+aa+aaa+...+aaaa...aaa的值，其中a和n的值由用户自己输入。

例如，当a=3，n=4时,s＝3十33十333十3333。

补充程序。

N,t,s+t
5.计算:1+1/1!+1/2!+1/3!+…+1/10!，请将程序补充完整。

Private Sub Command1_Click()
sum=1:t=【1】
For i=1 to 【2】
t=t*i
sum=sum+【3】
next i
Print "sum="; sum
End Sub
1，10,t
6.设有如下程序:
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 【1】
x = n / i
n = 【2】
sum = sum + 【3】
Next
Print sum
End Sub
该程序通过For循环计算一个表达式1/2+2/3+3/4+4/5 的值，补充程序。

5,n+1,x
7.以下程序用于火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.40元收费。

在文本框text1中输入行李重量，计算出应付运费。

请将程序补充完整。

Private Sub Command1_Click()
Dim x As Single, y As Single
【1】 = Val(Text1.Text)
If x <= 【2】 Then
y = x * 0.25
Else
y = 50 * 0.25 + (x - 50) * 0.4
End If
Print "应付运费为：" ; 【3】
End Sub
X,50,y
8.下列代码求出S=1+(1+2)+(1+2+3)+ … +(1+2+3+ … +n)的值。

Private Sub Form_Click()
n = Val(InputBox("请输入N的值："))
t = 0
s =【1】
For i = 1 To 【2】
t=t+i
s = s+【3】
Next i
Print s
End Sub
0,n,t
9.编写程序计算：s=1+1/2!+1/3!+…+1/n!,说明：在窗体中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。

dim n as integer, s as single
dim I as integer, dim j as integer
n=text1.text
s=0
for i=1 to n
t=1
for j=1 to I
t=t*j
next j
s=s+1/t
next I
label1.caption = s
10.编写程序计算：S=1X2＋2X3＋…＋NX(N+1)，N由Inputbox函数输入，结果可用Print方法输出。

dim s as single
dim t as single
dim n as integer
n=inputbox("请输入n值")
s=0
for i=1 to n
s=s+i/(i+1)
next I
print s
11.设有如下程序:
Private Sub Command1_Click()
i = 1
Do While i <= 【1】
【2】= s + i^i
i = 【3】
Loop
Print "1^1+2^2+3^3+...+10^10=" & s
End Sub
该程序计算多项式1^1+2^2+3^3+...+10^10的值，补充程序。

10,s,i+1
12.利用文本框text1输入一个数，如果是正数，输出其平方根，否则输出其平方，结果的输出用文本框text2，请将程序补充完整。

Private Sub Command1_Click()
dim n as Integer
【1】=text1.text
if n>【2】 then text2.text=【3】 else text2.text=n*n
End Sub
N,0,sqr(n)
13.以下程序用于计算1+3+5+ (99)
Private Sub Command1_Click()
sum = 0
m = 1
Do
sum = sum + 【1】
m = 【2】
Loop While m <=【3】
Print "sum="; Sum
End Sub
M,m+2,99
14.以下定义的过程（）是按“传值”方式传递参数的。

A、Public Sub Sum(x,y)
B、Public Sub Sum(ByVal x, ByVal y)
C、Public Sub Sum(x As Integer,y As Integer)
D、Public Sub Sum(x%, y%)
B
15.在Visual Basic 中要将一个窗体装载到内存中进行预处理，但不显示，应该使用语句______ 。

A、show
B、hide
C、load
D、unload
c
16.若要求向文本框输入密码时，只在文本框中显示*号，则应当在此文本框的属性窗口中置（）。

A、Text属性值为 *
B、Caption属性值为 *
C、PasswordChar属性值为空
D、PasswordChar属性值为 *
D。