程序代码为:
Public sub proc(a%())
Static I%
Do
A(i)=a(i)+a(I+1)
I=I+1
Loop while I<2
End sub
Private sub command1_click()
Dim m%,I%,x%(10)
For I=0 to 4 : x(i)=I+1 : next I
For I=1 to 2 : call proc(x) : next I
For I=0 to 4 : print x(i); : next I
End sub
程序运行后,单击命令按钮后,在窗体显示的结果是:
阅读下列程序并写出程序运行结果。
Private Sub Command1_Click()
x = 0
Do While x < 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后,文件框Text3的结果。
以下程序执行后将输出100到200之间所有的素数,并统计素数的个数
Private Sub Form_Click()
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k= ------ 1 -----
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then
------ 2 ------
End If
------ 3 ------
Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
A、If…Then…End If
B、Do While…Loop
C、If…Then…Else…End If
D、Select Case…End Select
Private Sub Form_Click()
Dim last_one As Long
Dim last_two As Long
Dim this_one As Long
Dim i As Integer
last_one = 1 '数列的第二个数
last_two = 2 '数列的第三个数
i = 4 '从数列的第四个数求起
Do
this_one = last_one + last_two
last_one = last_two
last_two = ------1-------
If i = 17 Then
Form1.Print "No:17="; this_one
End If
------2------
Loop While this_one <= 100000000#
Form1.Print "No:";------3------; "is > 1E+8"
End Sub