|
2005年4月等级考试二级VB真题(附答案)(8) 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---5 DBDCA
6---10 CBDDC
11--15 ABBCD
16--20 CDABD
21--25 ABCDB
26--30 CDBBA
31--35 CDDDA
填空题：
【1】19
【2】 对象
【3】 程序调试
【4】 关系
【5】 算法
【6】12345.68
【7】VB程序设计
【8】 VB Programming
【9】 10
【10】 求1-8的和
【11】36
【12】 arr1(1)
【13】min=arr1(i)
【14】 EOF(1)
【15】text1.text(或whole$)
|
