填空题

下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。
Option Base 1
Private Sub Form_Click()
Dim a(20) As Integer,i As Integer
Dim t As Integer,j As Integer
Randomize
For i=1 To 20
a(i)=10+Int(90*Rnd)
Print a(i)；
Next i
Print
i=1：【9】
Do While i＜j
t=a(i)：【10】：a(i)=t
i=i+1：j=j-1
Loop
For i=1 To 20
Print a(i)；
Next i
Print
End Sub

【参考答案】

[9]j=20 [10]a(i)=a(j)

<上一题目录下一题>

热门试题

填空题

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1．txt复制到 D盘，并取名为a2,txt。 Private Sub Form_Click() Dim Ch As String Open c： a1．txt For 【13】 As #10 Open d： a2．txt For Output As #r20 Do While 【14】 Line Input #10,Ch 【15】 Loop Close 10 Close 20 End Sub

填空题

下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If 【11】 Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【12】 Else prime=False End If End Function

相关试题