《18秋学期《可视化程序设计Ⅰ》在线作业3》由会员分享，可在线阅读，更多相关《18秋学期《可视化程序设计Ⅰ》在线作业3（9页珍藏版）》请在金锄头文库上搜索。
1、可视化程序设计 1 单选题 1 在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 A A Private Sub Command1_Click()CommonDialog1.FileName=SaveFileCommonDialog1.Filter=All Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialog1.FilterInd
2、ex=2CommonDialog1.DialogTitle=SaveCommonDialog1.Action=2End SubB Private Sub Command1_Click()CommonDialog1.FileName=SaveFileCommonDialog1.Filter=All Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=SaveCommonDialog1.Action=2End SubC Private Sub Command1_Click
3、()CommonDialog1.FileName=SaveCommonDialog1.Filter=All Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=SaveFileCommonDialog1.Action=2End SubD Private Sub Command1_Click()CommonDialog1.FileName=SaveFileCommonDialog1.Filter=All Files|*.*|(*.txt)|*.txt|(*.doc)|*
4、.docCommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=SaveCommonDialog1.Action=1End Sub2 确定一个控件在窗体上的位置的属性是 C A Width和HeightB Width或HeightC Top和LeftD Top或Left3 在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：Option Base 1Private Sub Commandl_Click( )Dim a(4,4)For i =1 To 4For j =1 To 4a(i,j) = (i-1)*3+jNex
5、t jNext iFor i =3 To 4For j =3 To 4Print a(j,i);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为 D A 6 9 7 10B 7 10 8 11C 8 11 9 12D 9 12 10 134 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click() strText = InputBox(请输入) Text1.Text = strTextEnd SubPrivate Sub Text
6、1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中 D A 空B abcdefC abcD def5 在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Commandl_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4 To Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是 D A 4321B 12C 3
7、4D 12346 要从磁盘上读入一个文件名为“c:filel.txt”的顺序文件，下面程序段正确的是（） A A "F=""c:filel.txt""Open ""F"" For Input As # 2"B "Open ""c:filel.txt"" For Output As # 2"C Open c:filel.txt For Input As # 1D Open c:filel.txt For Input
8、 As # 17 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是 A A “text (.txt)|(*.txt)”B “文本文件( .txt) | (.txt)”C “text(.txt)|(*.txt)”D “text(.txt)(*.txt)”8 列表框控件中的列表内容是通过（ ）属性设置的 C A NameB CaptionC ListD Text9 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 B A ValueB DefaultC Ca
9、ncelD Enabled10 在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮。要求单击命令按钮时，打开一个打开文件的通用对话框。该窗口的标题为“打开”，在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是（ ） B A Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat
10、)|*.batCommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd SubB Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex = 2CommonDialog1
11、.ShowOpenMsgBox CommonDialog1.FileNameEnd SubC Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex =1CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd SubD Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex = 2CommonDi
