内容发布更新时间 : 2024/7/7 20:23:38星期一 下面是文章的全部内容请认真阅读。

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=\负数\ Label3.Caption=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(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) d=b^2-4*a*c If d________ Then x1=(-b+Sqr(d))/(2*a) x2=(-b-Sqr(d))/(2*a) Label1.Caption=x1 Label2.Caption=x2 _______

Label3.Caption=______ 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

Text1.Text = 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 =_______________________ Text1.Text = Str(x) Text2.Text = 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(Text1.Text) 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(\ B = Val(InputBox(\Call Recarea(A, B) End Sub

Sub Recarea(Rlen As Single, Rwid As Single) Dim Area As Single

Area = _______________________

MsgBox \ '输出矩形面积 End Sub

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