第三章总复习题

一.看程序写结果
1、在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：
Private Sub Commandl_C1ick()
S＝0
For i＝1 T0 15
x＝2*i一1
1f x Mod 3＝0 Then s＝s十1
Nexti
Labell．Caption=s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是( )
2、下面程序段的显示结果是：_______________
Dim aa As String * 1
aa = Chr$(Int(Rnd + 1) + 65)
Select Case aa
Case "A"
Print "a"
Case "B"
Print "b"
Case Else
Print "*"
End Select
3.单击窗体后,form1上显示的内容是:
private sub form1_click()
dim I as integer,x as string ,y as string
x=”ABCDEFG”
for I=4 to 1 step –1
y=mid(x,I,1)+y
next I
print “Y=”;y
4.private sub form1_click()
dim s as long ,f as long
dim n as integer,I as integer
f=1
n=4
for I=1 to n
f=f*I
s=s+f
next
print “s=”;s
5.Private Sub Form_Click()
Dim i As Integer, iSum As Integer
For i = 1 To 4
iSum = sum(i)
Print iSum;
Next i
End Sub
Private Function sum(n As Integer)
Static j As Integer
j = j + n
sum = j
End Function
6、在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
7. public sub abc(byval x as integer,y as integer)
if abs(x)>10 then
x=x*2
y=y/4
else
x=x/4
y=y*2
end if
end sub
private sub form_click()
dim a as integer ,b as integer
a=-12
b=12
call abc(a,b)
print a,b
end sub
8.private sub form_click()
static J as integer
dim K as integer
I=I+1
J=J+2
K=k+3
print I,J,K
end sub
程序运行后,连续两次单击窗体,窗体上输出的结果是:
9.private sub command1_click()
dim x%,y%
x=12,y=34
call F1(x,y)
print x,y
end sub
private F1(n as integer,byval m as integer)
n=n*10
m=m+10
end sub
10.function f(m as integer) as integer
b=1
static c as integer
b=b+1
c=c+1
f=m*b*c
end function
private sub command1_click()
dim a as integer
a=2
sum=0
for i=1 to 3
sum=sum+f(a)
next i
print sum
end sub。