在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和CommonDialogl，然后编写如下事件过程：Private Sub Commandl_CUck()CommonDialog1.______="打开文件"CommonDialog1.Filter="All Files(*.*)|*.*"CommonDialog1.InitDir="C:\"CommonDialog1.ShowOpenEnd Sub该程序的
题目
在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和CommonDialogl，然后编写如下事件过程：
Private Sub Commandl_CUck()
CommonDialog1.______="打开文件"
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="C:\"
CommonDialog1.ShowOpen
End Sub
该程序的
相似考题
参考答案和解析
DialogTitle
更多“在窗体上画1个命令按钮和1个通用对话框,其名称分别为Commandl和CommonDialogl,然后编写如下事件 ”相关问题
-
第1题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，消息框输出的是系统当前日期和当前时间。
正确答案：
72【解析】本题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值，最后求两个数组元素值的积。我们只需要注意这两个数组元素在循环中被赋了什么值，当i=3，j=3时，al(3，3)=3 3=6，a2(3，3)=al(3，3) 3 3=12，所以最后二者之积为72。 -
第2题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是__________。
正确答案：
hardware【解析】本题考查消息框的知识。使用MsgBox函数来弹出消息框，此函数的使用格式为：MsgBox(prompt[，buttons][，title][，helpfile，context])其中第一个参数是显示在对话框中的消息，第二个参数是按钮的数目及形式，第三个参数是对话框标题栏显示的字符串，后面的是帮助文件以及帮助上下文编号。第一个参数必需有，其余参数可省略，但是若中间若干个参数省略时不能省略逗号分隔符。本题中第三个参数是变量b，即hardware。 -
第3题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。A. 1
B. 2
C. 3
D. 4
正确答案：D
本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小于70，所以不执行x=2；再接着判断75小于80，所以执行x=3：最后判断75小于90，所以执行x=4。最后消息框里输出的X值为4。
-
第4题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．VVV
B．Vis
C．sic
D．11
正确答案：A
解析：本题考查字符串函数。 String返回n个字符。如果为字符串，则返回n个字符串的首字符。据此，本题的正确答案为A，即返回3个“Visual Basic”的首字母“V”。 -
第5题：
假定通用对话框的名称为CommonDialogl,命令按钮的名称为Commandl,则单击命令按钮后，能使打开的对话框的标题为"New Title"的事件过程是______。
A． Pdvate Sub Commandl_click() CommonDialogl.DialogTitle="New Title" CommonDialogl.ShowPrinter End Sub
B．Private Sub Cormnandl_click() CommonDialogl.DialogTitle="New Title" CommonDialogl.ShowFont End Sub
C．Private Sub Commandl_click() CommonDialogl.DialogTitle="New Title" CommonDialogl.ShowOpen End Sub
D．Pfivate Sub Commandl_click() CommonDialogl.DialogTitle="New Title" CommonDialogl.ShowColor End Sub
正确答案：C
解析：本题考的是CommonDialog控件，其中ShowOpen方法为显示“打开”对话框，ShowPrinter方法为显示“打印”或“打印选项”对话框，ShowFont方法为显示“字体”对话框，ShowColor方法为显示“颜色”对话框。所以本题答案为C。 -
第6题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： PrivateSubCommandl_CnCk() aS="VisualBasic"， Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是( )。
A．VVV
B．Vis
C．sic
D．11
正确答案：A
-
第7题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n \ 3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是
A．15
B．18
C．21
D．24
正确答案：C
解析：本题考查For循环控制语句，做好此题的关键是掌握For循环语句的执行过程。For循环首先把“初值”赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就停止执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把“循环变量+步长”的值赋给循环变量，重复上述过程。据此，如果For循环的终值等于初值，For循环也会执行一次循环。本题需要输出执行完Forn循环后n值，应为21。根据前述，当执行完n=20的循环时，n被赋值21，然后再取检验它是否超过了终值。故正确答案为C。 -
第8题：
在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonD
A．AllFries(*.*)
B．TextFiles(*.txt)
C．Executable Fries(*.exe)
D．不确定
正确答案：C
-
第9题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Forn=1 To 20 If n Mod 3＜＞Thenm=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A．15
B．18
C．21
D．24
正确答案：C
解析：本题考查的是For…Next循环语句。For…Next循环执行时，先将初始值赋给循环变量，判断是否超过终值，若未超过则执行循环体，遇到Next语句后，循环变量增加一个步长(默认值为1)，再判断是否超过终值，若未超过则继续执行循环体，如此重复直到循环变量超过终值，退出循环。本题中的循环变量为n，步长为1，当n=20时，再执行Nextn，则n=21，此时n大于终值20，退出循环。 -
第10题：
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：
程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。
正确答案：
9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为：
其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。
-
第11题：
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
正确答案：
2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。 -
第12题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：
正确答案：
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。 -
第13题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。
正确答案：
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。 -
第14题：
在窗体中添加～个名称为Commandl的命令按钮，然后编写如下事件代码：
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。A. 1
B. 2
C. 3
D. 4
正确答案：B
本题考查条件语句的基础知识。If．．．Then语句的特点是每当条件表达式为真时执行Then后面的语句序列，在本题中，A=75，首先判断A>60是否为真，由于满足条件，所以I的值为1，然后判断A>70是否为真，由于还是满足条件，所以l的值又被赋为2，后面的两个条件均不满足，所以最终I的值为2。
-
第15题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A. 机床
B. 车床
C. 钻床
D. 轴承
正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。
-
第16题：
在窗体上画两个文本框(Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下事件过程：
A. 1和0
B. 2和72
C. 3和50
D. 4和168
正确答案：B
B) 【解析】本题考察do while循环语句。第一次循环：x=0，执行循环体x=(x+2)+(x+3)=6、n=n+1=1；第二次循环：x=6，执行循环体x=(x+2)+(X+3)=72、n-ma+1=2；此时x大于50了，因此退出循环。所以两个文本框中显示的值分别为2和72。
-
第17题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：
Pfivae Sub Commandl_click()
a＝0
For i＝1 To 2
For j＝1 To 4
If i Mod 2<>0 Then
a＝a-1
End If
a＝a+1
Next j
Next I
MsgBox a
End Sub
程序运行后，单击命令按钮，消息框中的输出结果是______。
正确答案：4
4 解析： 本题考查多重循环的知识。类似这种问题要把握住两点：首先看内循环里面完成了什么工作，有什么规律，然后看外循环和内循环的次数。本题中内循环和外循环的次数完全无关，则每次外循环和内循环都会执行4次。可以看出当j＝1和。i＝3时由于满足If语句的条件，所以会先执行a＝a-1后执行a＝a+1，实际上相当于a的值没有变化；当j＝2和j＝4叫时由于不满足If语句的条件，所以只能执行a＝a+1。也就是说外循环每执行一次a的值都会加2，由于外循环共执行2次，所以结果为4。 -
第18题：
在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和CommonDialogl，然后编写如下代码； Private SubCommand1_Click() CommonDialogl.Filter=" All Files |*.*|(*.exe)|*.exe|(*.doC)[*.doc|(*.bmp)|*.bmp" CommonDialogl.FileName=" " CommonDialogl.Flags=vbOFNFileMustExist CommonDialogl.FilterIndex=3 CommonDialogl.DialogTitle="OpenFile(*.doC) CommonDialogl.Action=1 If CommonDialogl.FileName= "Then MsgBox "No file selected"，37，"Checking" Else End If End Sub 程序运行后，单击命令按钮，将显示一个对话框，该对话框的标题是 ______。
A．空字符
B．OpenFile(*.doC)
C．打开文件
D．保存文件
正确答案：B
解析：通用对话框的标题由属性DialogTitle的值决定，程序代码中有设置该属性值的语句 CommonDialogl.DialogTitle="OpenFile(*.doc)”，因此，对话框的标题应该是等式右边字符串的值。 -
第19题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A)机床
B)车床
C)钻床
D)轴承
正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。 -
第20题：
在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如 下事件过程： Private Sub Commandl_Click() CommonDialogl，Flags=vbOFNHideReadOnly CommontDialogl．Filter="All Files(*．*)|*．*|Text Files (*.*)|*．txt|"_ & Batch Files (*．bat) |*．bat" CommonDialogl．Filterlndex=1 CommonDialogl．Showopen MsgBox CommonDialogl．FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
A．All Fries(*.*)
B．Text Files(*.*)
C．Batch Files(*．bat)
D．All Files (*．*)|Text Files(*．*)
正确答案：A
解析：通用对话框控件的CommonDialogl的Filter属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择。Filter的属性值由一对或多对文本字符串组成，每对字符串用管道符“|”隔开，在管道符“|”前面的部分称为描述，后面的部分一般为通配符和文件扩展名，称为“过滤器”。如“*．txt"等，各对字符串之间也用管道符隔开。其格式如下：[窗体．]对话框名．Filter=”描述符1|过滤器1|描述符2|过滤器2……”如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择要显示的文件类型，而最初默认显示的文件类型(过滤器)可以由Filterlndex属性来指定，该属性是一个整数。用Filter属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为1，第二个过滤器的值为2……，用Filterlndex属性可以指定作为默认显示的过滤器，本题中的值是1，所以显示AllFiles(*.*)。注意：通用对话框的FileName属性和DilosTitle属性的作用。 -
第21题：
在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：
Dim Save All As String
Private Sub Commandl_C1iCk()
Text1.Text=Left(UCase(SaveAU)，4)
End Sub
Private Sub Textl_KeyPress(KeyAscii As Intege)
SaveA11=Save All+Chr(KeyAscii)
End Sub
程序
正确答案：ABCD
ABCD -
第22题：
在名为”Forml”的窗体上添加三个文本框和一个命令按钮，其名称分别为”Textl”、”Text2”、”Text3”和”Commandl”，然后编写如下两个事件过程：
正确答案：
510【解析】本题考查“ ”运算符的使用。“ ”运算符可以用于计算两个数之和，也可以使用“ ”运算符连接两个字符串，“ ”，运算符两端的表达式的基本类型决定了“ ”运算符所做的操作，如果两个表达式都是数值或者一个表达式是数值，另一个表达式是字符串，则“ ”代表相加；如果两个表达式都是字符串则“ ”代表字符串的连接。本题中，由于文本框的Text属性值的类型是字符串，所以“ ”运算符连接的是字符串…5和字符串“10”，所以本题答案为510。 -
第23题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，将产生l00个1000以内的随机整数，放入数组aft中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请填空。
正确答案：
1000arr(i)>Maxarr(i)<Min【解析】本题考查VBA中程序设计的知识。对于这个问题，首先要产生l00个1000以内的随机整数，放入数组an"中，由于Rnd函数可以产生0～l之间的随机数，所以将其乘以1000后再取整就可以得到1000以内的随机整数。然后预先设置数组的第一个元素为最大值兼最小值，然后在循环中把数组元素依次与最大值和最小值比较，如果比当前的最大值还大，则让这个数组元素成为新的最大值：如果比当前的最小值还小，则让这个数组元素成为新的最小值，接着继续比较直至数组元素都比较一遍为止。