你可能感兴趣的试题

以下语句输出结果是（）。
Print Int(12345.6789* 100+0.5)/100

阅读下面的程序：
Private Sub Form_Click()
Dim Check As Boolean,Counter As Integer
Check=True
Counter=5
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为（）。

设有如下程序：
Private Sub Form_Click()
Dim n As Integer，s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是（）。程序运行后，单击窗体，输出结果为（）。

设有如下程序：
Option Base 1
Private Sub Commandl Click()
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12,435,76,-24,78,54,866,43)
Min=（）
For i=2 To 8
If arrl(i)＜Min Then（）
Next
Print"最小值是:";Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的
MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click()
Open"d:\test\smText1.txt"For Input As #1
Do While Not（）
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:\test\smtext2.txt"For Output As #1
Print #1,（）
Close #1
End Sub
上述程序的功能是，把磁盘文件smText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。