VB程序填空题

1、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。程序中有三处错误，请更正。

程序如下：

Private Sub Command1_Click()

Dim a As Single

Dim py As String

a=Val(Text1)

If a>0 Then py="正数"

If a=0 Then py="零"

If a<=0 Then py="负数"

=a

End Sub

①_________________________②___________________________③_____________________

2、完善程序，使其能输出：1-2+3-4+5-6+...+99-100的值。

程序如下：

Private Sub Command1_Click()

s=_____

For i=1 To _____

s=s+((-1)^(______))*i

Next i

Print s

End Sub

3、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。编写程序，求方程的根，要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。程序如下：

Private Sub Command1_Click()

Dim a,b,c,d As Single

Dim x1,x2 As Single

a=Val

b=Val

c=Val

d=b^2-4*a*c

If d________ Then

x1=(-b+Sqr(d))/(2*a)

x2=(-b-Sqr(d))/(2*a)

=x1

=x2

_______

=______

End If

End Sub

4、如果下面程序执行后输出的结果是132，请将程序补充完整：

Private Sub Command1_Click()

i = 12: s = 1

Do While _________________

s = s * i

i = i - 1

Loop

MsgBox (s)

END Sub

5、下面的程序是求7!（7!=1*2*3...*6*7）的值，并在默认窗口输出这个值。程序中有两处错误，请更正。

Private Sub Command1_Click()

Dim a As Single

a=0

For i=1 to n

a=a*i

Next i

Msgbox（a）

End Sub

①_____________________________ ②___________________________

6、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。请将程序补充完整：Private Sub Command1_Click()

Dim s As Single

Dim i As Single

S=________

For i=1 to 100 Step ________

___________

Next i

Msgbox(s )

End Sub

7、下列Visual Basic 程序：

Private Sub Command1_Click()

Dim sum As Long , i As Integer

sum = 0

For i = 1 To 100 Step 2

sum = sum + i * i

Next i

= Str(sum)

End Sub

该程序能完成计算的数学表达式是________________________________

8、小明数了圈在一起的鸡和兔共有30个头，90只脚，在这个圈子中鸡和兔各有多少只？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式。

设鸡为x只，兔为y只，Visual Basic 程序如下：

Private Sub Command1_Click()

Const head = 30, foot = 90

Dim x, y As Integer

y =______________________

x =_______________________

= Str(x)

= Str(y)

End Sub

9、利用文本框输入一个正整数N，求出2+3/2+4/3+5/4+……+(N+1)/N

程序是：

Private Sub command1_click()

Dim N, s, i As Integer

s = 0

N = Val

For i = _____ To _________

s = ________________

Next i

Msgbox（ _____ ）

End Sub

10、编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。

Private Sub Form_Click()

Dim A As Single, B As Single

A = Val(InputBox("What is the length? "))

B = Val(InputBox("What is the width? "))

Call Recarea(A, B)

End Sub

Sub Recarea(Rlen As Single, Rwid As Single)

Dim Area As Single

Area = _______________________

MsgBox "Total Area is " & ________________ '输出矩形面积

End Sub

11、用物理天平测量物体的质量时，测得物体的质量为a克（a为整数，并小于1千克），问：这时在天平的砝码盘中应有哪几个砝码？请选用最少数量的砝码（称质量为1千克的物体，天平