VB 程序阅读题

(三)
五、阅读分析程序，选择结果（每小题4分，共20分）
1、运行程序后，单击窗体，窗体上输出的结果是（）
Private Sub Form_Click()
Dim s As String , t As String
s=””
st=Text1.Text
For k=Len(st) To 1 Step -1
If k=Len(st) Then
s=s+Mid(st,k,1)
Else
s=s+”_”+Mid(st,k,1)
End If
Next k
Label1.Caption=s
End Sub
(A) (B)
(C) (D)
??2、在窗体上放置一个命令按钮，然后编写如下事件过程。

运行后，单击命令按钮，输出结果为（）
Sub S(x As Single , y As Single)
t = x
x= t /y
y= t Mod y
End Sub
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5
b=2
Call S(a,b+2)
Print a , b
End Sub (A) 5 4 (B)1 1 (C)1.25 4 (D)1.25 2
3、对窗体编写如下事件过程，程序运行后，单击鼠标右键，则输出结果为（）
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single ,Y As
Single)
If Button=2 Then
Print “AAAAA”
End If
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer, X As Single ,Y As Single) If Button=2 Then
Print “BBBBB”
End If
End Sub (A) AAAAA(B) BBBBB (C) AAAAA (D) BBBBB
BBBBB AAAAA
4、下面程序运行后输出的图形是（）
Private Sub Form_Click()
Const angle=3.14159/180
For i=0 To 360 Step 30
X1=1000+900*Cos(angle*i)
Y1=1000+900*Sin(angle*i)
X2=1000+500*Cos(angle*i)
Y2=1000+500*Sin(angle*i)
Line(x1,y1)-(x2,y2)
Next i
Circle (1000,1000),480
End Sub
(A) (B) (C)( D)
5、单击命令按钮Command1后，窗体上显示的运行结果为（）
Private Sub Commad1_Click()
Dim a(10) As Integer
Dim p(3) As Integer
For i=1 To 10
A(i)=i
Next i
For i=1 To 3
P(i)=a(i*i)
Next i
For i=1 to 3
k=k+p(i)*2
Next i
Print k
End Sub (A) 35 (B) 33 (C) 31 (D) 28
六、程序设计题（每题10分，共20分）
1、编写程序，在窗体按下图所示的格式输出“乘法九九表”。

2、编写程序，计算1×2×3×……×n，找出能使计算结果大于106的n的值。

(四)
五、阅读分析程序，选择结果（每小题4分，共20分）
1、在VB程序的窗体上添加定时器Timer1，然后书写下述代码，程序启动运行1分钟之后，窗体上显示的最后结果为（）
Private Sub Form_Load()
i=0
Time1.Enabled=True
Timer1.Interval=1000
End Sub
Private Sub Timer1_Timer()
Me.Cls
i = i +1
Print i
End Sub
(A) 0 (B) 1 (C) 60 (D) 1000
2、下面程序运行后在窗体上显示的结果是（）
Private Sub Form_Click()
For k=1 To 7
For j=1 To 7
If k<j Then Print 1; Else Print 0;
Next j
Print
Next k
End Sub
(A)(B)
(C) (D)
3、运行下列程序，单击窗体，在窗体上显示的结果为（）
Private Sub Form_Click()
Dim a As Integer
a=4
Print a=3+2
End Sub
(A) 4 (B) 5 (C) Ture (D) False
4、下面程序运行后,单击窗体，输出结果为（ ）
Private Sub Form_Click()
Dim s As Integer, i As Integer
Do While i <=100
s = s+ i
Loop
Print s
End Sub
(A) 100 (B) 5050 (C) 5500 ( D)溢出错误
5、下面的程序运行后，单击窗体，窗体上输出的结果是（ ）
Private Sub Form_Click()
K=15
If k<=10 Then a=2*k +100
If k<=20 Then a=2*k+200
If k<=30 Then a=k+10
Print k ; a
End Sub (A) 15 130 (B) 15 230 (C) 15 25 (D) 25 15
六、程序设计题（每题10分，共20分）
1、编写程序，单击“计算”命令按钮Command1时，能按如下公式计算自然对数度数e 的值，并将结果显示在标签Label1中(直到最后一项小于10-7为止)。

e ≈ !
1!31!21!11n +⋯⋯+++
2、编写程序，统计文本框Text1内出现的英文单词数目（数字不能视为英文单词），统计结果显示在标签控件Label1中。