11.上一题

输入答案，中间不含空格:

12.从指定的任意一个驱动器中的任何一个文件夹下查找文件，并将选定的文件的完整路径显示在文本框Text1中，文件内容显示在文本框Text2中。 Private Sub Form_Load() File1. ____ = "*.txt" End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() If Right$(File1.Path, 1) <> "\" Then Text1.Text = File1.Path & "\" & File1.FileName Else Text1.Text = ____ End If Open Text1.Text For Input As #1 Text2.Text = Input$(LOF(1), #1) Close #1 End Sub

输入答案，中间不含空格:

13.上一题

输入答案，中间不含空格:

14.以下程序代码实现单击命令按钮Command1时形成并输出一个主对角线上元素值为-1，其他元素值为0的6×6阶方阵。 Privae Sub Command1_Click( ) Dim A(6,6) For I=1 To 6 For J=1 To 6 If I=J Then ____ Else ____ End If Print A(I,J); Next J Print Next I End Sub

输入答案，中间不含空格:

15.上一题

输入答案，中间不含空格: