单选题
在窗体上有1个名称为Co mmonDialog1的通用对话框和1个名称为Co mmand1的命令按钮，以及其他一些控件。要求在程序运行时，单击Co mmand1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。下列是Co mmand1＿Click 事件过程的两种算法。
在窗体上有1个名称为Co mmonDialog1的通用对话框和1个名称为Co mmand1的命令按钮，以及其他一些控件。要求在程序运行时，单击Co mmand1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。下列是Co mmand1＿Click 事件过程的两种算法。
算法1：
Private Sub Co mmand1＿Click（）
Co mmonDialogl ．ShowOpen
Open Co mmonDialogl ．File Name For Input As ＃1
End Sub
算法2：
Private Sub Co mmand1＿Click（）
Co mmonDialogl ．ShowOpen
If Co mmonDialogl ．File Name ＜＞＂＂Then
Open Co mmonDialogl ．File Name For Input As ＃1
EndIf
End Sub
下列关于这两种算法的叙述中正确的是（ ）。
发布于 2022-05-11 10:00:09
登录后免费查看答案
关注者
0
被浏览
9
1 个回答
推荐阅读
-
窗体上有一个名称为CD1的通用对话框，一个名称为Co mmand1的命令按钮。命令按钮的单击事件过程如下：Private Sub Co mmand1＿Click（）CD1．File Name ＝＂＂CD1．Filter ＝＂All Files｜＊．＊｜（＊．Doc）｜＊．Doc｜（＊．Txt）｜＊．Txt＂CD1．FilterIndex＝2CD1．Action ＝1End Sub关于以上代码，叙述错误的是（ ）。
2022-05-11 关注 0 浏览8 1答案
-
设工程文件包含两个窗体文件Form1．frm、Form2．frm 及一个标准模块文件Module1．bas ，两个窗体上分别只有一个名称Co mmand1的命令按钮。Form1的代码如下：Public X As IntegerPrivate Sub Form＿load（）x＝1y ＝5End SubPrivate Sub Co mmand1＿Click（）Form2．ShowEnd SubForm2的代码如下：Private Sub Co mmand1＿Click（）Print Form1．x，yEnd SubModule1的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮Co mmand1，则显示Form2；再单击Form2上的命令按钮Co mmand1，则窗体上显示的是（ ）。
2022-05-11 关注 0 浏览13 1答案
-
窗体上有Co mmand1、Co mmand2两个命令按钮。现编写以下程序：Option Base 0Di ma（）As Integer ，m As IntegerPrivate Sub Co mmand1Click（）m＝InputBox（＂请输入一个正整数＂）ReDi ma（m）End SubPrivate Sub Co mmand2Click（）m＝InputBox（＂请输入一个正整数＂）ReDi ma（m）End Sub运行程序时，单击Co mmand1后输入整数10，再单击Co mmand2后输入整数5，则数组a 中元素的个数是（ ）。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个通用对话框，其Name 属性为Cont ，再画一个命令按钮，Name 属性为Co mmand1，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Cont ．File Name ＝＂＂Cont ．Flags ＝vbOFNFile MustExistCont ．Filter ＝＂All Files｜＊．＊＂Cont ．FilterIndex＝3Cont ．DialogTitle ＝＂Open File＂Co nt ．Action ＝1If Cont ．File Name ＝＂＂ThenMsgBox ＂No file selected＂ElseOpen Cont ．File Name For Input As ＃1Do While Not EOF（1）Input ＃1，b$Print b$LoopEnd IfEnd Sub以下各选项，对上述事件过程描述错误的是（ ）。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）x＝InputBox（＂Input＂）Select Case x Case 1，3Print ＂分支1＂Case Is ＞4Print ＂分支2＂Case ElsePrint ＂Else 分支＂End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法算法1：Private Sub Command1_Click()CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As#1End Sub算法2：Private Sub Command1_Click()CommonDialog1.ShowOpenIfCommonDialog1.FileName<>””ThenOpen CommonDialog1.FileName For Input As#1End IfEnd Sub下面关于这两种算法的叙述中正确的是()
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：Public Enumsa＝4b ＝3End EnumPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝aIf x＞＝3ThenMsgBox ＂Pass ！＂End Sub运行程序，其结果是（ ）。
2022-05-11 关注 0 浏览8 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Di ma As Integer ，s As Integera＝8s ＝1Dos ＝s ＋aa＝a－1Loop While a ＜＝0Print s ；aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写下列事件过程：Private Sub Co mmand1＿Click（）c ＝1234c1＝Tri m（Str（c））For i ＝1To 4Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示下列内容：1121231234则在横线处应填入的内容为（ ）。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画1个名称为Co mmand1的命令按钮，然后编写下列程序：Private Sub Co mmand1＿Click（）Print fun（＂ABCDEFG＂）End SubFunction fun（st As Stri ng）As stri ngstlen ＝Len（st）te mp ＝＂＂For k ＝1To stlen／2te mp ＝te mp ＋Mid（st ，k ，1）＋Mid（st ，stlen －k ＋1，1） Next k fun ＝te mpEnd Function程序运行时，单击命令按钮，则在窗体上显示的是（ ）。
2022-05-11 关注 0 浏览9 1答案
