(9)设有如下程序

　　Private Sub Form_Click()

　　Dim a As Integer, s As Integer

　　n = 8

　　s = 0

　　Do

　　s = s + n

　　n = n - 1

　　Loop While n > 0

　　Print s

　　End Sub

　　以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】

　　(10)设有如下程序:

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim arr1

　　Dim Min As Integer, i As Integer

　　arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

　　Min = 【12】

　　For i = 2 To 8

　　If arr1(i) < Min Then 【13】

　　Next i

　　Print "最小值是:"; Min

　　End Sub

　　以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空

　　(11)在名称为Form1 的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程:

　　Private Sub Form_Click()

　　Open "d:\test\smtext1.txt" For Input As #1

　　Do While Not 【14】

　　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, 【15】

　　Close #1

　　End Sub

　　上述程序的功能是,把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt .请填空

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页